summaryrefslogtreecommitdiffstats
path: root/library/demos/image2.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2002-08-12 13:38:47 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2002-08-12 13:38:47 (GMT)
commit1dc9c58c0f6a43d1a6bc33ae285f29e0256e5e28 (patch)
tree6caca25c8638fb17ff9a8f4178b3efb57f5068d3 /library/demos/image2.tcl
parentc1f950921fb5d2fead5f35274465d7ba395f4712 (diff)
downloadtk-1dc9c58c0f6a43d1a6bc33ae285f29e0256e5e28.zip
tk-1dc9c58c0f6a43d1a6bc33ae285f29e0256e5e28.tar.gz
tk-1dc9c58c0f6a43d1a6bc33ae285f29e0256e5e28.tar.bz2
Tweaked resizing behaviour of the image-viewer demo.
Diffstat (limited to 'library/demos/image2.tcl')
-rw-r--r--library/demos/image2.tcl8
1 files changed, 4 insertions, 4 deletions
diff --git a/library/demos/image2.tcl b/library/demos/image2.tcl
index fc40612..9328e8a 100644
--- a/library/demos/image2.tcl
+++ b/library/demos/image2.tcl
@@ -3,7 +3,7 @@
# This demonstration script creates a simple collection of widgets
# that allow you to select and view images in a Tk label.
#
-# RCS: @(#) $Id: image2.tcl,v 1.5 2001/11/15 14:13:13 dkf Exp $
+# RCS: @(#) $Id: image2.tcl,v 1.6 2002/08/12 13:38:48 dkf Exp $
if {![info exists widgetDemo]} {
error "This script should be run from the \"widget\" demo."
@@ -83,8 +83,8 @@ entry $w.dir.e -width 30 -textvariable dirName
button $w.dir.b -pady 0 -padx 2m -text "Select Dir." \
-command "selectAndLoadDir $w"
bind $w.dir.e <Return> "loadDir $w"
-pack $w.dir.e -side left -fill y -padx 2m -pady 2m
-pack $w.dir.b -side left -fill y -padx {0 2m} -pady 2m
+pack $w.dir.e -side left -fill both -padx 2m -pady 2m -expand true
+pack $w.dir.b -side left -fill y -padx {0 2m} -pady 2m
labelframe $w.f -text "File:" -padx 2m -pady 2m
listbox $w.f.list -width 20 -height 10 -yscrollcommand "$w.f.scroll set"
@@ -99,6 +99,6 @@ labelframe $w.image -text "Image:"
label $w.image.image -image image2a
pack $w.image.image -padx 2m -pady 2m
-grid $w.dir - -sticky w -padx 1m -pady 1m -in $w.mid
+grid $w.dir - -sticky ew -padx 1m -pady 1m -in $w.mid
grid $w.f $w.image -sticky nw -padx 1m -pady 1m -in $w.mid
grid columnconfigure $w.mid 1 -weight 1