diff options
Diffstat (limited to 'library/demos/ttkpane.tcl')
| -rw-r--r-- | library/demos/ttkpane.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/ttkpane.tcl b/library/demos/ttkpane.tcl index 3f88987..bae8716 100644 --- a/library/demos/ttkpane.tcl +++ b/library/demos/ttkpane.tcl @@ -42,7 +42,7 @@ ttk::button $w.outer.inLeft.top.b -text "Press Me" -command { tk_messageBox -type ok -icon info -message "Ouch!" -detail "That hurt..." \ -parent .ttkpane -title "Button Pressed" } -pack $w.outer.inLeft.top.b -padx 2 -pady 5 +pack $w.outer.inLeft.top.b -padx 1.5p -pady 3p # Fill the clocks pane set i 0 @@ -97,7 +97,7 @@ if {[tk windowingsystem] ne "aqua"} { # the surrounding border to show through (2 pixels seems to be enough). ttk::frame $w.outer.inRight.bot.f -style TEntry text $w.txt -wrap word -yscroll "$w.sb set" -width 30 -borderwidth 0 - pack $w.txt -fill both -expand 1 -in $w.outer.inRight.bot.f -pady 2 -padx 2 + pack $w.txt -fill both -expand 1 -in $w.outer.inRight.bot.f -pady 1.5p -padx 1.5p ttk::scrollbar $w.sb -orient vertical -command "$w.txt yview" pack $w.sb -side right -fill y -in $w.outer.inRight.bot pack $w.outer.inRight.bot.f -fill both -expand 1 |