home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / demos / Tk / radio.tcl < prev    next >
Encoding:
Text File  |  2001-10-22  |  1.7 KB  |  45 lines
  1. # radio.tcl --
  2. #
  3. # This demonstration script creates a toplevel window containing
  4. # several radiobutton widgets.
  5. #
  6. # RCS: @(#) $Id: radio.tcl,v 1.2 1998/09/14 18:23:29 stanton Exp $
  7.  
  8. if {![info exists widgetDemo]} {
  9.     error "This script should be run from the \"widget\" demo."
  10. }
  11.  
  12. set w .radio
  13. catch {destroy $w}
  14. toplevel $w
  15. wm title $w "Radiobutton Demonstration"
  16. wm iconname $w "radio"
  17. positionWindow $w
  18. label $w.msg -font $font -wraplength 5i -justify left -text "Two groups of radiobuttons are displayed below.  If you click on a button then the button will become selected exclusively among all the buttons in its group.  A Tcl variable is associated with each group to indicate which of the group's buttons is selected.  Click the \"See Variables\" button to see the current values of the variables."
  19. pack $w.msg -side top
  20.  
  21. frame $w.buttons
  22. pack $w.buttons -side bottom -fill x -pady 2m
  23. button $w.buttons.dismiss -text Dismiss -command "destroy $w"
  24. button $w.buttons.code -text "See Code" -command "showCode $w"
  25. button $w.buttons.vars -text "See Variables"  \
  26.     -command "showVars $w.dialog size color"
  27. pack $w.buttons.dismiss $w.buttons.code $w.buttons.vars -side left -expand 1
  28.  
  29. frame $w.left
  30. frame $w.right
  31. pack $w.left $w.right -side left -expand yes  -pady .5c -padx .5c
  32.  
  33. foreach i {10 12 18 24} {
  34.     radiobutton $w.left.b$i -text "Point Size $i" -variable size \
  35.         -relief flat -value $i
  36.     pack $w.left.b$i  -side top -pady 2 -anchor w
  37. }
  38.  
  39. foreach color {Red Green Blue Yellow Orange Purple} {
  40.     set lower [string tolower $color]
  41.     radiobutton $w.right.$lower -text $color -variable color \
  42.         -relief flat -value $lower
  43.     pack $w.right.$lower -side top -pady 2 -anchor w
  44. }
  45.