Check-in [3b7f05717f]
Not logged in
Home Downloads Timeline Branches Tags Tickets Wiki Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:add tklib upstream changes
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3b7f05717fd14e890169c0968be86d9a14af8748
User & Date: chw 2020-06-26 17:08:09.818
Context
2020-06-26
17:12
improve zipfs::unwrap convenience function check-in: c47ebead98 user: chw tags: trunk
17:08
add tklib upstream changes check-in: 3b7f05717f user: chw tags: trunk
04:03
update open62541 in topcua to version 1.1.1 check-in: 5c2593aec3 user: chw tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to assets/tklib0.7/scrollutil/ChangeLog. 









1
2
3
4
5
6
7










2020-06-23  Csaba Nemethi <csaba.nemethi@t-online.de>

	* ../../examples/scrollutil/*FrmDemo1.tcl:   Worked around an accuracy
	* ../../examples/scrollutil/*FrmContent.tcl: problem related to the
	  scaling on Cinnamon.

2020-06-23  Csaba Nemethi <csaba.nemethi@t-online.de>

>
>
>
>
>
>
>
>
>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

2020-06-25 Csaba Nemethi <csaba.nemethi@t-online.de>

	* scripts/scaleutil.tcl: Made sure that the scaled default width of the
	  Tk core scrollbar on X11 won't get overridden by an unscaled resource
	  database value.

	* ../../examples/scrollutil/*FrmContent.tcl: Minor improvements.
	* ../../examples/scrollutil/Sync*tcl:

2020-06-23  Csaba Nemethi <csaba.nemethi@t-online.de>

	* ../../examples/scrollutil/*FrmDemo1.tcl:   Worked around an accuracy
	* ../../examples/scrollutil/*FrmContent.tcl: problem related to the
	  scaling on Cinnamon.

2020-06-23  Csaba Nemethi <csaba.nemethi@t-online.de>
︙︙
Changes to assets/tklib0.7/scrollutil/scripts/scaleutil.tcl.
︙︙
117
118
119
120
121
122
123

124
125
126
127
128
129
130
131
132
133
134
135

136
137
138
139
140
141
142

    } else {
	set pct 200
    }

    if {$onX11} {
	tk scaling [expr {$pct / 75.0}]


	#
	# Scale the default scrollbar width
	#
	set helpScrlbar .__helpScrlbar
	for {set n 2} {[winfo exists $helpScrlbar]} {incr n} {
	    set helpScrlbar .__helpScrlbar$n
	}
	scrollbar $helpScrlbar
	set defScrlbarWidth [lindex [$helpScrlbar configure -width] 3]
	destroy $helpScrlbar
	set scrlbarWidth [expr {$defScrlbarWidth * $pct / 100}]
	option add *Scrollbar.width $scrlbarWidth widgetDefault

    }

    if {$::tk_version >= 8.5} {
	#
	# Scale a few styles for the built-in themes
	# "alt", "clam", "classic", and "default"
	#








>
|
|
|
|
|
|
|
|
|
|
|
|
>








117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144

    } else {
	set pct 200
    }

    if {$onX11} {
	tk scaling [expr {$pct / 75.0}]

	if {$pct > 100} {
	    #
	    # Scale the default scrollbar width
	    #
	    set helpScrlbar .__helpScrlbar
	    for {set n 2} {[winfo exists $helpScrlbar]} {incr n} {
		set helpScrlbar .__helpScrlbar$n
	    }
	    scrollbar $helpScrlbar
	    set defScrlbarWidth [lindex [$helpScrlbar configure -width] 3]
	    destroy $helpScrlbar
	    set scrlbarWidth [expr {$defScrlbarWidth * $pct / 100}]
	    option add *Scrollbar.width $scrlbarWidth userDefault
	}
    }

    if {$::tk_version >= 8.5} {
	#
	# Scale a few styles for the built-in themes
	# "alt", "clam", "classic", and "default"
	#
︙︙
Changes to assets/tklib0.7/tablelist/ChangeLog. 






1
2
3
4
5
6
7







2020-06-23 Csaba Nemethi <csaba.nemethi@t-online.de>

	* *.tcl:         Bumped the version number to 6.10.
	* COPYRIGHT.txt:
	* README.txt:

	* CHANGES.txt: Updated to reflect the changes.

>
>
>
>
>
>








1
2
3
4
5
6
7
8
9
10
11
12
13

2020-06-25 Csaba Nemethi <csaba.nemethi@t-online.de>

	* scripts/scaleutil.tcl: Made sure that the scaled default width of the
	  Tk core scrollbar on X11 won't get overridden by an unscaled resource
	  database value.

2020-06-23 Csaba Nemethi <csaba.nemethi@t-online.de>

	* *.tcl:         Bumped the version number to 6.10.
	* COPYRIGHT.txt:
	* README.txt:

	* CHANGES.txt: Updated to reflect the changes.
︙︙
Changes to assets/tklib0.7/tablelist/scripts/scaleutil.tcl.
︙︙
120
121
122
123
124
125
126

127
128
129
130
131
132
133
134
135
136
137
138

139
140
141
142
143
144
145

    } else {
	set pct 200
    }

    if {$onX11} {
	tk scaling [expr {$pct / 75.0}]


	#
	# Scale the default scrollbar width
	#
	set helpScrlbar .__helpScrlbar
	for {set n 2} {[winfo exists $helpScrlbar]} {incr n} {
	    set helpScrlbar .__helpScrlbar$n
	}
	scrollbar $helpScrlbar
	set defScrlbarWidth [lindex [$helpScrlbar configure -width] 3]
	destroy $helpScrlbar
	set scrlbarWidth [expr {$defScrlbarWidth * $pct / 100}]
	option add *Scrollbar.width $scrlbarWidth widgetDefault

    }

    if {$::tk_version >= 8.5} {
	#
	# Scale a few styles for the built-in themes
	# "alt", "clam", "classic", and "default"
	#








>
|
|
|
|
|
|
|
|
|
|
|
|
>








120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147

    } else {
	set pct 200
    }

    if {$onX11} {
	tk scaling [expr {$pct / 75.0}]

	if {$pct > 100} {
	    #
	    # Scale the default scrollbar width
	    #
	    set helpScrlbar .__helpScrlbar
	    for {set n 2} {[winfo exists $helpScrlbar]} {incr n} {
		set helpScrlbar .__helpScrlbar$n
	    }
	    scrollbar $helpScrlbar
	    set defScrlbarWidth [lindex [$helpScrlbar configure -width] 3]
	    destroy $helpScrlbar
	    set scrlbarWidth [expr {$defScrlbarWidth * $pct / 100}]
	    option add *Scrollbar.width $scrlbarWidth userDefault
	}
    }

    if {$::tk_version >= 8.5} {
	#
	# Scale a few styles for the built-in themes
	# "alt", "clam", "classic", and "default"
	#
︙︙
Fossil version [ec10b57f0a] 2025-07-04 22:21:38