diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-10-30 11:21:50 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-10-30 11:21:50 (GMT) |
| commit | 1e8f324bf3e3448bd0371bc5139de33f2f4a1395 (patch) | |
| tree | b1db95e8bca8b0fec32a78d0d8dc17febdf58972 /library/demos/labelframe.tcl | |
| parent | 7a22b0cc08ac0cb685315130f93ed8d579b29daa (diff) | |
| download | tk-1e8f324bf3e3448bd0371bc5139de33f2f4a1395.zip tk-1e8f324bf3e3448bd0371bc5139de33f2f4a1395.tar.gz tk-1e8f324bf3e3448bd0371bc5139de33f2f4a1395.tar.bz2 | |
Improvements to widget demo (integrates/demonstrates the new 8.4 widgets)
Diffstat (limited to 'library/demos/labelframe.tcl')
| -rw-r--r-- | library/demos/labelframe.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/library/demos/labelframe.tcl b/library/demos/labelframe.tcl index 89931cf..af8954b 100644 --- a/library/demos/labelframe.tcl +++ b/library/demos/labelframe.tcl @@ -3,7 +3,7 @@ # This demonstration script creates a toplevel window containing # several labelframe widgets. # -# RCS: @(#) $Id: labelframe.tcl,v 1.1 2001/09/26 21:36:19 pspjuth Exp $ +# RCS: @(#) $Id: labelframe.tcl,v 1.2 2001/10/30 11:21:50 dkf Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -19,7 +19,8 @@ positionWindow $w # Some information label $w.msg -font $font -wraplength 4i -justify left -text "Labelframes are\ -typically used to group related widgets together." + used to group related widgets together. The label may be either \ + plain text or another widget." pack $w.msg -side top # The bottom buttons @@ -42,7 +43,7 @@ labelframe $w.f -text "Value" -padx 2 -pady 2 grid $w.f -row 0 -column 0 -pady 2m -padx 2m foreach value {1 2 3 4} { - radiobutton $w.f.b$value -text $value -width 3 \ + radiobutton $w.f.b$value -text "This is value $value" \ -variable lfdummy -value $value pack $w.f.b$value -side top -fill x -pady 2 } |