home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / sep.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.4 KB  |  79 lines
  1. # CVS $Id: sep.tcl,v 1.3 1995/02/03 16:55:19 zibi Exp $
  2.  
  3. proc quitCB {cbs} {
  4.     VtClose
  5.     exit 0
  6. }
  7.  
  8.  
  9. proc turnCB {cbs} {
  10.         global s1
  11.     global flag
  12.         
  13.     if {$flag == "vert"} {
  14.         VtSetValues $s1  -length 2  -vertical
  15.         set flag horz
  16.     } else {
  17.         VtSetValues $s1  -length 4  -horizontal
  18.         set flag vert
  19.     }
  20. }
  21.  
  22.  
  23. #
  24. # Start Program
  25. #
  26. #
  27. set app [VtOpen testseps]
  28.  
  29.  
  30. set fn [VtStartForm $app.separators -title "Separators SetValue"  \
  31.        -xmArgs "XmNmarginWidth 10
  32.                 XmNmarginHeight 20"]
  33.  
  34.  
  35. set lab1 [VtLabel $fn.lab1 -label "Demo: SetValues" \
  36.           -topSide FORM \
  37.           -topOffset 20 \
  38.           -CHARM_topOffset 0]
  39.  
  40. set s1 [VtSeparator $fn.s1 -length  2 -below $lab1  -vertical \
  41.                   -leftSide FORM \
  42.           -rightSide FORM \
  43.           -leftOffset 50 \
  44.           -rightOffset 50 \
  45.           -topOffset 20 \
  46.           -CHARM_leftOffset 5 \
  47.           -CHARM_rightOffset 5 \
  48.           -CHARM_topOffset 1]
  49.  
  50. set flag horz
  51.  
  52. set turnButton \
  53. [VtPushButton $fn.but -callback "turnCB" \
  54.     -label "Turn it" \
  55.     -below $s1 \
  56.     -leftSide FORM\
  57.     -rightSide FORM\
  58.     -topOffset 30\
  59.     -leftOffset 5 \
  60.     -rightOffset 5\
  61.     -CHARM_topOffset 1\
  62.     -CHARM_leftOffset 2\
  63.     -CHARM_rightOffset 2]
  64.  
  65. VtPushButton $fn.quit -callback quitCB  \
  66.     -below $turnButton \
  67.     -leftSide FORM\
  68.     -rightSide FORM\
  69.     -topOffset 10\
  70.     -leftOffset 5 \
  71.     -rightOffset 5\
  72.     -CHARM_topOffset 1\
  73.     -CHARM_leftOffset 2\
  74.     -CHARM_rightOffset 2
  75.  
  76. VtManage $fn
  77. VtMainLoop
  78.  
  79.