home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls088.hpux.Z / tls088.hpux / lib / vtcl / tests / check2.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.4 KB  |  68 lines
  1. # CVS $Id: check2.tcl,v 1.1 1995/02/03 17:15:20 zibi Exp $
  2.  
  3. #
  4. # a minimal test of the checkbox widget
  5. #
  6.  
  7. source tools.tcl
  8.  
  9. proc quitCB {form cbs} {
  10.     VtClose
  11. }
  12.  
  13. proc toggleChangedCB {cbs} {
  14.     echo $cbs
  15. }
  16.  
  17. proc nextToggle {name label last} {
  18.     if {$last == ""} {
  19.     set tog [VtToggleButton $name -label $label -value 1 \
  20.              -xmArgs "XmNbackground red"]
  21.     } else {
  22.        set tog [VtToggleButton $name -label $label \
  23.              -xmArgs "XmNbackground red"]
  24.     }
  25.  
  26.     return $tog
  27. }
  28.  
  29. set app [VtOpen "testcheckbox"]
  30.  
  31. set fn [VtStartForm $app.form -title "Test CheckBox" \
  32.        -xmArgs "XmNmarginWidth 10
  33.                 XmNmarginHeight 10
  34.             XmNbackground green"]
  35.  
  36. set rc1 [VtCheckBox $fn.rc1 -callback toggleChangedCB -borderWidth 2]
  37.  
  38. set tog ""
  39. foreach i {1 2 3} {
  40.     set tog [nextToggle $rc1.tog$i "Toggle $i" $tog]
  41. }
  42.  
  43. set rc2 [VtCheckBox $fn.rc2 -callback toggleChangedCB -below $fn.rc1 \
  44.     -borderWidth 2]
  45.  
  46. foreach i {4 5 6} {
  47.     set tog [nextToggle $rc2.tog$i "Toggle $i" $tog]
  48. }
  49.  
  50. set label [VtLabel $fn.label -label "No Callback Yet" -below $rc2]
  51. set label2 [VtLabel $fn.label2 -label "No Callback Yet" -below $label]
  52. set label3 [VtLabel $fn.label3 -label "No Callback Yet" -below $label2]
  53.  
  54. VtPushButton $fn.quit -callback "quitCB $fn" \
  55.     -below $label3 \
  56.     -leftSide FORM\
  57.     -rightSide FORM\
  58.     -topOffset 10\
  59.     -leftOffset 5 \
  60.     -rightOffset 5\
  61.     -CHARM_topOffset 1\
  62.     -CHARM_leftOffset 2\
  63.     -CHARM_rightOffset 2
  64.  
  65. VtManage $fn
  66. VtMainLoop
  67.  
  68.