home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls088.hpux.Z / tls088.hpux / lib / vtcl / tests / dialogHide.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.7 KB  |  82 lines
  1. # CVS $Id: dialogHide.tcl,v 1.1 1995/02/03 17:15:25 zibi Exp $
  2.  
  3. #
  4. # Example showing how to show/hide dialogs using the forms userdata
  5. #
  6. #
  7.  
  8. source tools.tcl
  9.  
  10. proc quitCB {cbs} {
  11.     VtClose
  12.     exit 0
  13. }
  14. proc popDownCB {cbs} {
  15.     VtHide [keylget cbs dialog]
  16. }
  17.  
  18.  
  19. proc fileSelectionCB {cbs} {
  20.  
  21.     set dialog [keylget cbs dialog]
  22.     set fsb [GetDialogKey $dialog fsbDialog]
  23.  
  24.     if {$fsb == ""} {
  25.         set fsb [VtFileSelectionDialog $dialog.fsb          \
  26.                            -okCallback popDownCB  \
  27.                            -cancelCallback popDownCB  \
  28.                            -okLabel Hide \
  29.                            -cancelLabel Hide \
  30.                            -autoHide False      \
  31.                            -autoDestroy False]
  32.         SetDialogKey $dialog fsbDialog $fsb
  33.     }
  34.     VtShow $fsb
  35. }
  36.  
  37. proc selectionDialogCB {cbs} {
  38.  
  39.     set dialog [keylget cbs dialog]
  40.     set sbox [GetDialogKey $dialog selDialog]
  41.  
  42.     if {$sbox == ""} {
  43.         set sbox [VtSelectionDialog $dialog.sbox          \
  44.                            -okCallback popDownCB  \
  45.                            -itemList { {one}
  46.                                {two}
  47.                                {three}} \
  48.                            -okLabel Hide \
  49.                            -cancelLabel Hide \
  50.                            -okCallback popDownCB \
  51.                            -cancelCallback popDownCB  \
  52.                            -autoHide False      \
  53.                            -autoDestroy False]
  54.         SetDialogKey $dialog selDialog $sbox
  55.     }
  56.     VtShow $sbox
  57. }
  58.  
  59. #
  60. # Start Program
  61. #
  62. #
  63.  
  64. set app [VtOpen dialogDemo]
  65.  
  66. set form [VtStartForm $app.form -title "Hiding/Showing"]
  67.  
  68. set rc [VtRowColumn $form.rc1]
  69. VtPushButton $rc.but1 -label "Show File Selection Dialog" \
  70.               -callback fileSelectionCB
  71. VtPushButton $rc.but2 -label "Show Selection Dialog" \
  72.               -callback selectionDialogCB
  73. VtPushButton $rc.but3 -label QUIT \
  74.               -callback quitCB
  75.  
  76. SetDialogKey $form fsbDialog ""
  77. SetDialogKey $form selDialog ""
  78.  
  79. VtShow $form
  80. VtMainLoop
  81.  
  82.