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 / IWidgets / labeledframe < prev    next >
Encoding:
Text File  |  2001-10-22  |  1.2 KB  |  48 lines
  1. # ----------------------------------------------------------------------
  2. #  DEMO: labeledframe in [incr Widgets]
  3. # ----------------------------------------------------------------------
  4. package require Iwidgets 4.0
  5.  
  6. set tk_strictMotif 1
  7.  
  8. iwidgets::Labeledframe .pr -labelpos ne -labeltext "Print range"
  9. set cs [.pr childsite]
  10.      
  11. radiobutton $cs.all \
  12.         -highlightthickness 0 \
  13.         -anchor w \
  14.         -justify left \
  15.         -text "All" \
  16.         -underline 0 \
  17.         -value 1
  18.  
  19. radiobutton $cs.range \
  20.         -highlightthickness 0 \
  21.         -anchor w \
  22.         -justify left \
  23.         -text "Pages" \
  24.         -underline 2 \
  25.         -value 0
  26.  
  27. iwidgets::entryfield $cs.from \
  28.       -highlightthickness 0 \
  29.       -labelpos w \
  30.       -labeltext "from:" \
  31.       -width 10
  32.  
  33. [$cs.from component label] configure -justify left -underline 0
  34.  
  35. iwidgets::entryfield $cs.to \
  36.       -highlightthickness 0 \
  37.       -labelpos w \
  38.       -labeltext "to:" \
  39.       -width 10
  40.  
  41. [$cs.to component label] configure -justify left -underline 0
  42.  
  43. pack $cs.all -side top -fill x -anchor w
  44. pack $cs.range -side left -fill x -anchor w
  45. pack $cs.from -side left -fill x -anchor w
  46. pack $cs.to -side left -fill x -anchor w
  47. pack .pr -fill both
  48.