diff options
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 } |