home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / combo2.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.6 KB  |  74 lines
  1. # CVS $Id: combo2.tcl,v 1.2 1995/05/04 11:10:05 zibi Exp $
  2.  
  3. #
  4. # a minimal test of the combobox widget
  5. #
  6.  
  7. proc quitCB {cbs} {
  8.     VtClose
  9. }
  10.  
  11. proc comboChangedCB {cbs} {
  12.     global label1
  13.     global fn
  14.  
  15.     VtSetValues $label1 \
  16.         -label "Changed: [keylget cbs value]"
  17.  
  18. }
  19.  
  20. proc comboActivateCB {cbs} {
  21.     global label2
  22.  
  23.     VtSetValues $label2 \
  24.         -label "Activate: [keylget cbs value]"
  25.  
  26. }
  27.  
  28. proc comboDroppedCB {cbs} {
  29.     global label3
  30.  
  31.     VtSetValues $label3 \
  32.         -label "Drop: [keylget cbs value]"
  33. }
  34.  
  35. set app [VtOpen "testcombo"]
  36.  
  37. set fn [VtFormDialog $app.form -title "ComboBox Test"]
  38.  
  39. set label1 [VtLabel $fn.label1 -label "Changed: No Callback Yet" ]
  40. set label2 [VtLabel $fn.label2 -label "Activate: No Callback Yet" ]
  41. set label3 [VtLabel $fn.label3 -label "Drop: No Callback Yet" ]
  42.  
  43. set cb1 [VtComboBox $fn.combo1 \
  44.     -dropListCallback comboDroppedCB\
  45.     -valueChangedCallback comboChangedCB\
  46.     -callback comboActivateCB \
  47.     -itemList {one two three four five averylongiteminthelistjustforkicks seven last} \
  48.     -value two \
  49.     -rightSide FORM\
  50.     -xmArgs "XmNbackground red"]
  51.  
  52. set cb2 [VtComboBox $fn.combo2 \
  53.          -dropListCallback comboDroppedCB\
  54.          -valueChangedCallback comboChangedCB \
  55.          -callback comboActivateCB \
  56.          -itemList {one two three four} \
  57.          -topSide $cb1]
  58.  
  59. set cb3 [VtComboBox $fn.combo3 \
  60.          -dropListCallback comboDroppedCB\
  61.          -valueChangedCallback comboChangedCB \
  62.          -callback comboActivateCB \
  63.          -itemList {one two three four} \
  64.          -columns 40 \
  65.          -topSide $cb2\
  66.          -xmArgs "XmNbackground red"]
  67.  
  68. VtPushButton $fn.quit -label Exit -callback quitCB \
  69.  
  70. VtShow $fn
  71.  
  72. VtMainLoop
  73.  
  74.