diff options
| author | csaba <csaba> | 2022-12-14 16:20:44 (GMT) |
|---|---|---|
| committer | csaba <csaba> | 2022-12-14 16:20:44 (GMT) |
| commit | 6376e6ec464042772405c5a2f814f94a96513597 (patch) | |
| tree | 32fc067973f57b944676651ebd590b24747d641a /library/xmfbox.tcl | |
| parent | 2c5f1eb07b0278d52c315f5bb82c2288005163b2 (diff) | |
| download | tk-6376e6ec464042772405c5a2f814f94a96513597.zip tk-6376e6ec464042772405c5a2f814f94a96513597.tar.gz tk-6376e6ec464042772405c5a2f814f94a96513597.tar.bz2 | |
Scaling-related changes in the Tk and Ttk library scripts ready for testing. No changes (yet) in the demo scripts.
Diffstat (limited to 'library/xmfbox.tcl')
| -rw-r--r-- | library/xmfbox.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl index 6522cf3..e4d0db5 100644 --- a/library/xmfbox.tcl +++ b/library/xmfbox.tcl @@ -344,9 +344,9 @@ proc ::tk::MotifFDialog_BuildUI {w} { set f2a [frame $f2.a] set f2b [frame $f2.b] - grid $f2a -row 0 -column 0 -rowspan 1 -columnspan 1 -padx 4 -pady 4 \ + grid $f2a -row 0 -column 0 -rowspan 1 -columnspan 1 -padx 3p -pady 3p \ -sticky news - grid $f2b -row 0 -column 1 -rowspan 1 -columnspan 1 -padx 4 -pady 4 \ + grid $f2b -row 0 -column 1 -rowspan 1 -columnspan 1 -padx 3p -pady 3p \ -sticky news grid rowconfigure $f2 0 -minsize 0 -weight 1 grid columnconfigure $f2 0 -minsize 0 -weight 1 @@ -357,8 +357,8 @@ proc ::tk::MotifFDialog_BuildUI {w} { bind [::tk::AmpWidget label $f1.lab -text [mc "Fil&ter:"] -anchor w] \ <<AltUnderlined>> [list focus $f1.ent] entry $f1.ent - pack $f1.lab -side top -fill x -padx 6 -pady 4 - pack $f1.ent -side top -fill x -padx 4 -pady 0 + pack $f1.lab -side top -fill x -padx 4.5p -pady 3p + pack $f1.ent -side top -fill x -padx 3p -pady 0 set data(fEnt) $f1.ent # The file and directory lists @@ -373,8 +373,8 @@ proc ::tk::MotifFDialog_BuildUI {w} { bind [::tk::AmpWidget label $f3.lab -text [mc "&Selection:"] -anchor w] \ <<AltUnderlined>> [list focus $f3.ent] entry $f3.ent - pack $f3.lab -side top -fill x -padx 6 -pady 0 - pack $f3.ent -side top -fill x -padx 4 -pady 4 + pack $f3.lab -side top -fill x -padx 4.5p -pady 0 + pack $f3.ent -side top -fill x -padx 3p -pady 3p set data(sEnt) $f3.ent # The buttons @@ -391,7 +391,7 @@ proc ::tk::MotifFDialog_BuildUI {w} { -width $maxWidth \ -command [list tk::MotifFDialog_CancelCmd $w]] - pack $bot.ok $bot.filter $bot.cancel -padx 10 -pady 10 -expand yes \ + pack $bot.ok $bot.filter $bot.cancel -padx 7.5p -pady 7.5p -expand yes \ -side left # Create the bindings: @@ -441,7 +441,7 @@ proc ::tk::MotifFDialog_MakeSList {w f label cmdPrefix} { scrollbar $f.v -orient vertical -takefocus 0 -command [list $f.l yview] scrollbar $f.h -orient horizontal -takefocus 0 -command [list $f.l xview] grid $f.lab -row 0 -column 0 -sticky news -rowspan 1 -columnspan 2 \ - -padx 2 -pady 2 + -padx 1.5p -pady 1.5p grid $f.l -row 1 -column 0 -rowspan 1 -columnspan 1 -sticky news grid $f.v -row 1 -column 1 -rowspan 1 -columnspan 1 -sticky news grid $f.h -row 2 -column 0 -rowspan 1 -columnspan 1 -sticky news |