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