diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-29 22:56:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-29 22:56:24 (GMT) |
| commit | da883877fe19f11084092eb164c88c49485d0058 (patch) | |
| tree | 347a71e76d6dec98bb6e97f68188703ba3fd24d0 /library/tk.tcl | |
| parent | 1ba683df5b82930fde24c4b820700304a278296a (diff) | |
| download | tk-da883877fe19f11084092eb164c88c49485d0058.zip tk-da883877fe19f11084092eb164c88c49485d0058.tar.gz tk-da883877fe19f11084092eb164c88c49485d0058.tar.bz2 | |
Use some more point-expressions in stead of tk::ScaleNum
Diffstat (limited to 'library/tk.tcl')
| -rw-r--r-- | library/tk.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index 7f37a25..3cc0e8b 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -814,18 +814,18 @@ if {[info commands ::tk::startOfCluster] eq ""} { set ::tk::Priv(IMETextMark) [dict create] # Scale the default parameters of the panedwindow sash -option add *Panedwindow.handlePad [::tk::ScaleNum 8] widgetDefault -option add *Panedwindow.handleSize [::tk::ScaleNum 8] widgetDefault -option add *Panedwindow.sashWidth [::tk::ScaleNum 3] widgetDefault +option add *Panedwindow.handlePad 6p widgetDefault +option add *Panedwindow.handleSize 6p widgetDefault +option add *Panedwindow.sashWidth 2p widgetDefault # Scale the default size of the scale widget and its slider -option add *Scale.length [::tk::ScalingPct] widgetDefault -option add *Scale.sliderLength [::tk::ScaleNum 30] widgetDefault -option add *Scale.width [::tk::ScaleNum 15] widgetDefault +option add *Scale.length 75p widgetDefault +option add *Scale.sliderLength 22.5p widgetDefault +option add *Scale.width 11.25p widgetDefault # Scale the default scrollbar width on X11 if {[tk windowingsystem] eq "x11"} { - option add *Scrollbar.width [::tk::ScaleNum 11] widgetDefault + option add *Scrollbar.width 8.25p widgetDefault } # Run the Ttk themed widget set initialization |