home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / chlist.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  829 b   |  36 lines
  1. # CVS $Id: chlist.tcl,v 1.3 1995/02/03 16:54:22 zibi Exp $
  2.  
  3. # test for Charm List bugs, now fixed
  4.  
  5. proc QuitCB {cbs} {
  6.         VtClose
  7.         exit 0
  8. }
  9.  
  10. proc RunCB {list cbs} {
  11.     VtListSelectItem $list -item one
  12.     sleep 1
  13.     VtListDeleteItem $list -item one
  14.     sleep 1
  15.     VtListDeleteItem $list -position 3
  16.     sleep 1
  17.     VtListSelectItem $list -position 2
  18.     sleep 1
  19.     VtListDeleteItem $list -position 2
  20.     sleep 1
  21.     VtListSelectItem $list -position 1
  22.     sleep 1
  23.     VtListDeleteItem $list -position 1
  24. }
  25.  
  26. set app [VtOpen "testcharmlist"]
  27. set form [VtFormDialog $app.form -title "Test Charm List"]
  28. set list [VtList $form.list -itemList {one two three four}]
  29. set run [VtPushButton $form.run -label "Run" -callback "RunCB $list"]
  30. set quit [VtPushButton $form.quit -label "Exit" -callback QuitCB \
  31.     -topSide $list -leftSide $run]
  32. VtShow $form
  33. VtMainLoop
  34.  
  35.  
  36.