Tk Library Source Code
Check-in [b1af1d6908]
Not logged in
Core Home Documentation Tickets | Timeline Branches Tags Wiki Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment: * 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.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: b1af1d69085b87b04ee4c2cf6cc6a319fb7aebf57f840412ea9c8607e929bb14
User & Date: csaba 2020-06-25 18:20:27
Context
2020-06-25
18:31
* 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: check-in: fca62021f8 user: csaba tags: trunk
18:20
* 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. check-in: b1af1d6908 user: csaba tags: trunk
18:19
* 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. check-in: d35285e49f user: csaba tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to modules/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"
	#
︙︙