Check-in [3b7f05717f]
Not logged in

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
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

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"
	#