diff options
| author | csaba <csaba> | 2022-12-13 20:21:48 (GMT) |
|---|---|---|
| committer | csaba <csaba> | 2022-12-13 20:21:48 (GMT) |
| commit | 7c648ddea8ef6b5354ba8d8a2122542ec693a84e (patch) | |
| tree | e9d651a284d3959abff225891c6f238db982ab7b /library/dialog.tcl | |
| parent | 150a83952e37d0495bcb7665023bd711ae260fe2 (diff) | |
| download | tk-7c648ddea8ef6b5354ba8d8a2122542ec693a84e.zip tk-7c648ddea8ef6b5354ba8d8a2122542ec693a84e.tar.gz tk-7c648ddea8ef6b5354ba8d8a2122542ec693a84e.tar.bz2 | |
More scaling in common dialogs
Diffstat (limited to 'library/dialog.tcl')
| -rw-r--r-- | library/dialog.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/dialog.tcl b/library/dialog.tcl index ffbd8e4..8bf4e59 100644 --- a/library/dialog.tcl +++ b/library/dialog.tcl @@ -109,7 +109,7 @@ proc ::tk_dialog {w title text bitmap default args} { $w.button$i configure -default normal } grid $w.button$i -in $w.bot -column $i -row 0 -sticky ew \ - -padx 10 -pady 4 + -padx [::tk::ScaleNum 10] -pady [::tk::ScaleNum 4] grid columnconfigure $w.bot $i # We boost the size of some Mac buttons for l&f if {$windowingsystem eq "aqua"} { @@ -117,7 +117,7 @@ proc ::tk_dialog {w title text bitmap default args} { if {$tmp eq "ok" || $tmp eq "cancel"} { grid columnconfigure $w.bot $i -minsize 90 } - grid configure $w.button$i -pady 7 + grid configure $w.button$i -pady [::tk::ScaleNum 7] } incr i } |