diff options
author | dkf <dkf@noemail.net> | 2002-08-12 13:38:46 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2002-08-12 13:38:46 (GMT) |
commit | 81f0ab4e92e240fd6b5103bb629fca471976d297 (patch) | |
tree | 6caca25c8638fb17ff9a8f4178b3efb57f5068d3 /library/demos/image2.tcl | |
parent | 30a434293af070b859714f7d1dc0522f032e4d42 (diff) | |
download | tk-81f0ab4e92e240fd6b5103bb629fca471976d297.zip tk-81f0ab4e92e240fd6b5103bb629fca471976d297.tar.gz tk-81f0ab4e92e240fd6b5103bb629fca471976d297.tar.bz2 |
Tweaked resizing behaviour of the image-viewer demo.
FossilOrigin-Name: 576f16ca1ba71b5e2cd7fde25db651003931be9a
Diffstat (limited to 'library/demos/image2.tcl')
-rw-r--r-- | library/demos/image2.tcl | 8 |
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 |