diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-11-02 16:14:57 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-11-02 16:14:57 (GMT) |
| commit | b4e82387f04edcc6b07dbd52ea9db4cf1c8ed9bf (patch) | |
| tree | 8fd8d3da84c0b50e3b609d548cad4f7cfa16d123 | |
| parent | daff9cc600c12011ec73db0ca9870b6abf1e5542 (diff) | |
| download | tk-b4e82387f04edcc6b07dbd52ea9db4cf1c8ed9bf.zip tk-b4e82387f04edcc6b07dbd52ea9db4cf1c8ed9bf.tar.gz tk-b4e82387f04edcc6b07dbd52ea9db4cf1c8ed9bf.tar.bz2 | |
Updated with improved padding from Emiliano
| -rw-r--r-- | library/tkfbox.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl index 72c3ad0..85065cb 100644 --- a/library/tkfbox.tcl +++ b/library/tkfbox.tcl @@ -11,7 +11,7 @@ # files by clicking on the file icons or by entering a filename # in the "Filename:" entry. # -# RCS: @(#) $Id: tkfbox.tcl,v 1.64 2007/11/02 14:24:11 dkf Exp $ +# RCS: @(#) $Id: tkfbox.tcl,v 1.65 2007/11/02 16:14:57 dkf Exp $ # # Copyright (c) 1994-1998 Sun Microsystems, Inc. # @@ -1156,7 +1156,7 @@ static char updir_bits[] = { # grid the widgets in f2 # - grid $f2.lab $f2.ent $data(okBtn) -padx 4 -sticky ew + grid $f2.lab $f2.ent $data(okBtn) -padx 4 -pady 3 -sticky ew grid configure $f2.ent -padx 2 if {$class eq "TkFDialog"} { grid $data(typeMenuLab) $data(typeMenuBtn) $data(cancelBtn) \ @@ -1171,7 +1171,7 @@ static char updir_bits[] = { # Pack all the frames together. We are done with widget construction. # pack $f1 -side top -fill x -pady 4 - pack $f2 -side bottom -fill x + pack $f2 -side bottom -pady 4 -fill x pack $data(icons) -expand yes -fill both -padx 4 -pady 1 # Set up the event handlers that are common to Directory and File Dialogs |