home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / examples / periodical.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  16.5 KB  |  705 lines
  1. #Variables
  2. global lab1 menu
  3.  
  4. # setup pixmap directory
  5.  
  6. #Procedures
  7.  
  8. #Procedure to set scale values
  9. proc setFields {form} {
  10.         global scale1 scale2
  11.  
  12.         set value [VtGetValues $scale1 -value]
  13.  
  14.         VtSetValues $form.value_txt -value $value
  15. }
  16.  
  17. proc valueCB {option cbs} {
  18.  
  19.         global scale1 scale2
  20.  
  21.         set widget_value [keylget cbs value]
  22.         VtSetValues $scale1 $option $widget_value
  23.         VtSetValues $scale2 $option $widget_value
  24. }
  25.  
  26. proc scaleCB {option form cbs} {
  27.         valueCB $option $cbs
  28.         setFields $form
  29. }
  30.  
  31. #Procedure to show scale values 
  32. proc showValueCB {option cbs} {
  33.  
  34.         global scale1 scale2
  35.  
  36.         #
  37.         #toggle button uses "set" not "value"
  38.         #
  39.         set widget_value [keylget cbs set]
  40.  
  41.         VtSetValues $scale1 $option $widget_value
  42.         VtSetValues $scale2 $option $widget_value
  43. }
  44.  
  45. #List procedure to carry list value into ComboBox widget.
  46. proc listCB { cbs } {
  47.     global combo
  48.     set selectedItemList [keylget cbs selectedItemList]
  49.     set listItem [lvarpop selectedItemList]
  50.     set list [VtGetValues $combo -itemList]
  51.     set list [concat $list $listItem]
  52.     VtSetValues $combo -itemList $list
  53. }
  54.  
  55. #Procedure to get the selected value from the ComboBox
  56. #and create a message dialog containing the string.
  57. proc optMenuCB { cbs } {
  58.     set value [keylget cbs value]
  59.     set parent [keylget cbs widget]
  60.     set message [VtMessageDialog $parent.message -message $value]
  61.     VtShow $message
  62. }
  63.  
  64. #Procedure to get selected value from options Menu widget and
  65. #create a information dialog box containing the string.
  66. proc infoCB {car cbs} {
  67.     set parent [keylget cbs widget]
  68.     set info [VtInformationDialog $parent.info -message $car]
  69.     VtShow $info
  70. }
  71.  
  72. #Procedure to display an information dialog box
  73. proc info2CB { cbs } {
  74.     set parent [keylget cbs widget]
  75.     set info [VtInformationDialog $parent.info \
  76.         -message "This is an Information Dialog Box" \
  77.         ]
  78.     VtShow $info
  79. }
  80.  
  81. #Procedure to display an error dialog box
  82. proc errorCB { cbs } {
  83.     set parent [keylget cbs widget]
  84.     set error [VtErrorDialog $parent.error \
  85.             -message "This is an Error Dialog Box" \
  86.             ]
  87.         VtShow $error
  88. }
  89.  
  90. #Procedure to display a message dialog box
  91. proc messageCB { cbs } {
  92.         set parent [keylget cbs widget]
  93.         set message [VtMessageDialog $parent.message \
  94.             -message "This is a message Dialog Box" \
  95.             ]
  96.         VtShow $message
  97. }
  98.  
  99. #Procedure to display a warning dialog box
  100. proc warningCB { cbs } {
  101.         set parent [keylget cbs widget]
  102.         set warning [VtWarningDialog $parent.warning \
  103.             -message "This is a Warning Dialog Box" \
  104.             ]
  105.         VtShow $warning
  106. }
  107.  
  108. #Procedure to display a working dialog box
  109. proc workingCB { cbs } {
  110.         set parent [keylget cbs widget]
  111.         set working [VtWorkingDialog $parent.working \
  112.         -message "This is a Working Dialog Box" \
  113.             ]
  114.         VtShow $working 
  115. }
  116.  
  117. #Procedure to display a question dialog box
  118. proc questionCB { cbs } {
  119.         set parent [keylget cbs widget]
  120.         set question [VtQuestionDialog $parent.question \
  121.                 -message "This is a Question Dialog Box" \
  122.                 ]
  123.         VtShow $question
  124. }
  125.  
  126. #Procedure to display a working dialog box
  127. #envoked from within Pulldown widget option
  128. proc working2CB { cbs } {
  129.         set parent [keylget cbs widget]
  130.         set working [VtWorkingDialog $parent.working \
  131.                 -message "Searching for records..." \
  132.                 ]
  133.         VtShow $working
  134. }
  135.  
  136. #Procedure to display an information dialog box
  137. #envoked from Baud pulldown menu option
  138. proc baudCB { baud cbs } {
  139.         set parent [keylget cbs widget]
  140.         set info [VtInformationDialog $parent.info \
  141.                 -message $baud \
  142.                 ]
  143.         VtShow $info
  144. }
  145.  
  146. #Procedure to display an information dialog box
  147. #envoked from Port pulldown menu option
  148. proc portCB { port cbs } {
  149.         set parent [keylget cbs widget]
  150.         set info [VtInformationDialog $parent.info \
  151.                 -message $port \
  152.                 ]
  153.         VtShow $info
  154. }
  155.  
  156. #Procedure to display an error dialog box
  157. #envoked from comm port 3 Port pulldown menu option
  158. proc badPortCB { port cbs } {
  159.         set parent [keylget cbs widget]
  160.         set error [VtErrorDialog $parent.error \
  161.                 -message $port \
  162.                 ]
  163.         VtShow $error
  164. }
  165.  
  166. #Procedure to sound a high pitch beep
  167. proc beepCB { cbs } {
  168.     VtBeep -duration 200 \
  169.         -pitch 500 \
  170.         -volume 10 \
  171. }
  172.  
  173. #Procedure to sound a low pitch beep
  174. proc beep2CB { cbs } {
  175.         VtBeep -duration 400 \
  176.             -pitch 100 \
  177.             -volume 10 \
  178. }
  179.  
  180. #procedure to close application Periodic
  181. proc closeCB { cbs } {
  182.     VtClose
  183. }
  184.  
  185. #Procedure to envoke the file selection dialog box 
  186. proc fileCB { cbs } {
  187.     set parent [keylget cbs widget]
  188.     set dialog [VtFileSelectionDialog $parent.file \
  189.         -dirListLabel "Top Secret Directories" \
  190.         -fileListLabel "Top Secret Files" \
  191.         ]
  192.     VtShow $dialog
  193. }
  194.  
  195. #Procedure to envoke the selection dialog box
  196. proc selectCB {cbs } {
  197.     set parent [keylget cbs widget]
  198.     set dialog [VtSelectionDialog $parent.select \
  199.         -itemList {EmailAddress1 EmailAddress2 EmailAddress3 EmailAddress4} \
  200.         -selection "EmailAddress1" \
  201.         ]
  202.     VtShow $dialog
  203. }
  204.  
  205. proc genericCB { cbs } {
  206.     set target [keylget cbs widget]
  207. }
  208.  
  209. #set the main environment and the Form window
  210. set appShell [VtOpen Periodical]
  211.  
  212. VtSetAppValues $appShell -versionString "Visual Tcl Periodic Table v1.0 C1"
  213.  
  214. set mainForm [VtForm $appShell.mainForm \
  215.         -horizontalSpacing 50 \
  216.         -verticalSpacing 50 \
  217.         -resizable TRUE \
  218.         ]
  219.  
  220. #set the menubar options
  221. set menuList1 {
  222.     { pd File F }
  223.         {bt "Open"   O "Ctrl<Key>O" "Crtl+O" fileCB}
  224.         {bt "New.."  N "Ctrl<Key>N" "Ctrl+N"}
  225.         {bt  Exit    E "Ctrl<Key>E" "Ctrl+E" closeCB}
  226.     { pd Edit E }
  227.         {bt Cut      C "Ctrl<Key>X" "Ctrl+X"}
  228.         {bt Copy     o "Ctrl<Key>C" "Ctrl+C"}
  229.         {bt Paste    P "Ctrl<Key>V" "Ctrl+V"}
  230.         {bt Select All A "Ctrl<Key>A" "Ctrl+A"}    
  231.     { sp }
  232.         {bt Delete D "<key>Delete" Delete }
  233.     {pd View V }
  234.         {bt Some S "Ctrl<Key>S" "Ctrl+S" }
  235.         {bt Parts P ""     }
  236.     { pd Printer P }
  237.         {bt "New Printer" N }
  238.         { sp }
  239.         {tb "Printer 1: Dot Matrix"}
  240.         {tb "Printer 2: Ink Jet"}
  241.         {tb "Printer 3: Laser Jet"}
  242.     { pd Test T }
  243.         {bt "Sensitive Target..."}
  244.         {bt "Make UnSensitive"}
  245.         {bt "Make Sensitive"}
  246. }
  247.  
  248. #MenuBar Widget
  249. set menubar [VtMenuBar $mainForm.menubar \
  250.         -helpMenuItemList {ON_VERSION INDEX TUTORIAL} \
  251.         ]
  252.  
  253. VxMenu $mainForm $menubar $menuList1 "genericCB"
  254.  
  255. #Set Row Column Widget
  256. set rowcol [VtRowColumn $mainForm.rowcol \
  257.         -numColumns 3 \
  258.         -horizontal \
  259.         -packing COLUMN \
  260.         -spacing 5 \
  261.         -topSide FORM \
  262.         -topOffset 30 \
  263.         -bottomSide FORM \
  264.         -rightSide FORM \
  265.         -leftSide FORM \
  266.         ]
  267.  
  268. #Scale Widget
  269. set frame2 [VtFrame $rowcol.frame2 \
  270.                 -shadowType ETCHED_IN \
  271.                 -title "Scale Widget" \
  272.                 ]
  273.  
  274. set rc2 [VtRowColumn $frame2.rc2]
  275.  
  276. set fm [VtForm $rc2.fm]
  277.  
  278. set scale1 \
  279. [VtScale $fm.scale_horz \
  280.                 -callback "scaleCB -value $fm" \
  281.                 -horizontal \
  282.                 -min 0 \
  283.                 -max 50 \
  284.                 -value 25] 
  285.  
  286. set scale2 \
  287. [VtScale $fm.scale_vert \
  288.                 -callback "scaleCB -value $fm" \
  289.                 -vertical \
  290.                 -min 0 \
  291.                 -max 50 \
  292.                 -value 25 \
  293.                 -topOffset 5 \
  294.                 -topSide $fm.scale_horz ]
  295.  
  296. set value_lab \
  297. [VtLabel $fm.value_lab -label "Value:" \
  298.         -topSide FORM \
  299.                 -leftSide $scale1 \
  300.                 -labelRight]
  301.  
  302. set value_txt \
  303. [VtText $fm.value_txt \
  304.         -topSide FORM \
  305.                    -callback "valueCB -value" \
  306.                    -columns 3 \
  307.                    -leftSide $value_lab]
  308.  
  309. set showValue \
  310. [VtToggleButton $fm.showValue \
  311.          -label "show value" \
  312.                 -value 1 \
  313.                 -callback "showValueCB -showValue" \
  314.         -topOffset 25 \
  315.         -topSide $value_txt \
  316.         -leftOffset 100 \
  317.         -rightSide FORM \
  318.         ]
  319.  
  320. #Toggle Button Widget
  321. set frame3 [VtFrame $rowcol.frame3 \
  322.         -shadowType ETCHED_IN \
  323.         -title "Toggle Button Widget" \
  324.         ]
  325.  
  326. set rc3 [VtRowColumn $frame3.rc3]
  327.     
  328. set tbutton [VtToggleButton $rc3.tbutton \
  329.         -callback beepCB \
  330.         -set TRUE \
  331.         -font largeBoldFont \
  332.         -value FALSE \
  333.         -label "High Tone Beep" \
  334.         ]
  335.  
  336. set tbutton2 [VtToggleButton $rc3.tbutton2 \
  337.         -callback selectCB \
  338.         -set TRUE \
  339.         -font largeItalicFont \
  340.         -label "Selection Dialog...?" \
  341.         -value FALSE \
  342.         ]
  343. #Push Button Widget
  344. set frame4 [VtFrame $rowcol.frame4 \
  345.         -shadowType ETCHED_IN \
  346.         -title "Push Button Widget" \
  347.         ]
  348.  
  349. set rc4 [VtRowColumn $frame4.rc4]
  350.  
  351. set pbutton [VtPushButton $rc4.pbutton \
  352.         -callback beep2CB \
  353.         -font monoBoldFont \
  354.         -label "Low Tone Beep" \
  355.         ]    
  356.  
  357. set pbutton2 [VtPushButton $rc4.pbutton2 \
  358.         -callback fileCB \
  359.         -font largeBoldFont \
  360.         -label "Open File...?" \
  361.         ]
  362.  
  363. #Options Menu Widget
  364. set frame5 [VtFrame $rowcol.frame5 \
  365.         -shadowType ETCHED_IN \
  366.         -title "Label and Options Menu Widget" \
  367.         ]
  368.  
  369. set rc5 [VtRowColumn $frame5.rc5]
  370.  
  371. set label [VtLabel $rc5.label \
  372.                 -font largeItalicFont \
  373.                 -label "A BIG LABEL" \
  374.                 ]
  375.  
  376. set menu [VtOptionMenu $rc5.optmenu \
  377.         -label "Pick One:" \
  378.         ]
  379.  
  380. set but1 [VtPushButton $menu.but1 \
  381.         -font monoItalicFont \
  382.         -label Ford \
  383.         -callback { infoCB "Ford is a type of car" }
  384.         ]
  385.  
  386. set but2 [VtPushButton $menu.but2 \
  387.                 -font monoItalicFont \
  388.                 -label Vauxhall \
  389.                 -callback { infoCB "Vauxhall is a type of car" }
  390.                 ]
  391.  
  392. set but3 [VtPushButton $menu.but3 \
  393.                 -font monoItalicFont \
  394.                 -label Rover \
  395.                 -callback { infoCB "Rover is a type of car" }
  396.                 ]
  397.  
  398. set but4 [VtPushButton $menu.but4 \
  399.                 -font monoItalicFont \
  400.                 -label Ferrari \
  401.                 -callback { infoCB "Ferrari is a type of FAST car" }
  402.                 ]
  403.  
  404. VtSetValues $menu -selectedWidget $but2
  405.  
  406.  
  407.  
  408. #ComboBox Widget
  409. set frame6 [VtFrame $rowcol.frame6 \
  410.         -shadowType ETCHED_IN \
  411.                 -title "ComboBox Widget" \
  412.         ]
  413.  
  414. set rc6 [VtRowColumn $frame6.rc6]
  415.  
  416. set combo [VtComboBox $rc6.combo \
  417.         -callback optMenuCB \
  418.         -font largeItalicFont \
  419.         -columns 10 \
  420.         -rows 10 \
  421.         -itemList {TimesRoman Helvetica Ariel Courier} \
  422.         ]
  423.  
  424. set combo2 [VtComboBox $rc6.combo2 \
  425.                 -callback optMenuCB \
  426.                 -font largeItalicFont \
  427.                 -columns 10 \
  428.                 -rows 10 \
  429.         -readOnly \
  430.                 -itemList {TimesRoman Helvetica Ariel Courier} \
  431.                 ]
  432.  
  433. #List Widget
  434. set frame7 [VtFrame $rowcol.frame7 \
  435.                 -shadowType ETCHED_IN \
  436.                 -title "List Widget" \
  437.                 ]
  438.  
  439. set form7 [VtForm $frame7.form7]
  440.  
  441. set list [VtList $form7.list \
  442.         -font smallBoldFont \
  443.         -columns 6 \
  444.         -rows 5 \
  445.         -itemList {file1 file2 file3 file4 file5 file6 file7} \
  446.         -scrollBar TRUE \
  447.         -bottomSide FORM \
  448.         -rightSide FORM \
  449.         ]
  450.  
  451. #Text Widget
  452. set frame8 [VtFrame $rowcol.frame8 \
  453.         -shadowType ETCHED_IN \
  454.                 -title "Text Widget" \
  455.         ]
  456.  
  457. set form8 [VtForm $frame8.form8]
  458.  
  459. set text [VtText $form8.text \
  460.         -columns 15 \
  461.         -horizontalScrollBar TRUE \
  462.         -verticalScrollBar TRUE \
  463.         -rows 5 \
  464.         -value "An example of text that can be edited" \
  465.         -wordWrap \
  466.         -bottomSide FORM \
  467.         -rightSide FORM \
  468.         ]
  469.  
  470. #CheckBox Widget
  471. set frame9 [VtFrame $rowcol.frame9 \
  472.         -shadowType ETCHED_IN \
  473.                 -title "CheckBox Widget" \
  474.         ]
  475.  
  476. set form [VtForm $frame9.form]
  477.  
  478. set cbox [VtCheckBox $form.cbox \
  479.         -vertical
  480.         ]
  481.  
  482. set tb1 [VtToggleButton $cbox.tb1 \
  483.         -font smallItalicFont \
  484.         -label "ScrollBars" \
  485.         ]
  486.  
  487. set tb2 [VtToggleButton $cbox.tb2 \
  488.                 -font smallItalicFont \
  489.                 -label "Auto Save" \
  490.                 ]
  491. set tb3 [VtToggleButton $cbox.tb3 \
  492.                 -font smallItalicFont \
  493.                 -label "Reverse Video" \
  494.                 ]
  495.  
  496. VtSetValues $form.cbox -valueList {$tb1 $tb2 $tb3}
  497.  
  498. #RadioBox Wodget
  499. set frame10 [VtFrame $rowcol.frame10 \
  500.                 -shadowType ETCHED_IN \
  501.                 -title "RadioBox Widget" \
  502.                 ]
  503.  
  504. set form2 [VtForm $frame10.form2]
  505.  
  506. set rbox [VtRadioBox $form2.rbox \
  507.                 -vertical
  508.                 ]
  509.  
  510. set tb4 [VtToggleButton $rbox.tb4 \
  511.                 -font smallItalicFont \
  512.                 -label "Fast" \
  513.                 ]
  514.  
  515. set tb5 [VtToggleButton $rbox.tb5 \
  516.                 -font smallItalicFont \
  517.                 -label "Medium" \
  518.                 ]
  519. set tb6 [VtToggleButton $rbox.tb6 \
  520.                 -font smallItalicFont \
  521.                 -label "Slow" \
  522.                 ]
  523.  
  524. VtSetValues $form2.rbox -value $tb4 
  525.  
  526. #Frame 11 contains all six dialog boxes
  527. set frame11 [VtFrame $rowcol.frame11 \
  528.         -shadowType ETCHED_IN \
  529.                 -title "Dialog Box Widget" \
  530.                 ]
  531.  
  532. set rc11 [VtRowColumn $frame11.rc11 \
  533.         -numColumns 2 \
  534.         ]
  535.  
  536. set pb1 [VtPushButton $rc11.pb1 \
  537.         -width 30 \
  538.         -labelCenter \
  539.         -label "Error Dialog" \
  540.         -callback errorCB \
  541.         ]
  542.  
  543. set pb2 [VtPushButton $rc11.pb2 \
  544.         -width 30 \
  545.         -labelCenter \
  546.                 -label "Message Dialog" \
  547.                 -callback messageCB \
  548.                 ]
  549.  
  550. set pb3 [VtPushButton $rc11.pb3 \
  551.         -width 30 \
  552.         -labelCenter \
  553.                 -label "Information Dialog" \
  554.                 -callback info2CB \
  555.                 ]
  556.  
  557. set pb4 [VtPushButton $rc11.pb4 \
  558.         -width 30 \
  559.         -labelCenter \
  560.                 -label "Warning Dialog" \
  561.                 -callback warningCB \
  562.                 ]
  563.  
  564. set pb5 [VtPushButton $rc11.pb5 \
  565.         -width 30 \
  566.         -labelCenter \
  567.                 -label "Working Dialog" \
  568.                 -callback workingCB \
  569.                 ]
  570.  
  571. set pb6 [VtPushButton $rc11.pb6 \
  572.         -width 30 \
  573.         -labelCenter \
  574.                 -label "Question Dialog" \
  575.                 -callback questionCB \
  576.                 ]
  577.  
  578. #Pull Down Widget
  579. set frame12 [VtFrame $rowcol.frame12 \
  580.         -shadowType ETCHED_IN \
  581.                 -title "Pulldown Menu Widget" \
  582.                 ] 
  583.  
  584. set rc12 [VtRowColumn $frame12.rc12]
  585.  
  586. set menubar2 [VtMenuBar $rc12.menubar2]
  587.  
  588. set pm [VtPulldown $menubar2.dial \
  589.         -label "Dial" \
  590.         ]
  591.  
  592. set home [VtPulldown $pm.home \
  593.         -label "Home" \
  594.         ]
  595.  
  596. set abroad [VtPulldown $pm.abroad \
  597.         -label "Abroad" \
  598.         ]
  599.  
  600. set AtoM [VtPushButton $home.AtoM \
  601.         -label "A - M" \
  602.         -callback working2CB \
  603.         ]
  604.  
  605. set NtoZ [VtPushButton $home.NtoZ \
  606.                 -label "N - Z" \
  607.                 -callback working2CB \
  608.                 ]
  609.  
  610.  
  611. set aTOm [VtPushButton $abroad.aTOm \
  612.                 -label "A - M" \
  613.                 -callback working2CB \
  614.                 ]
  615.  
  616. set nTOz [VtPushButton $abroad.nTOz \
  617.                 -label "N - Z" \
  618.                 -callback working2CB \
  619.                 ]
  620.  
  621. set pm2 [VtPulldown $menubar2.settings \
  622.         -label "Settings" \
  623.         ]
  624.  
  625. set baud [VtPulldown $pm2.baud \
  626.         -label "Baud Rate" \
  627.         ]
  628.  
  629. set port [VtPulldown $pm2.port \
  630.         -label "Comm Port" \
  631.         ]
  632.  
  633. set slow [VtPushButton $baud.slow \
  634.         -label "2400 bps" \
  635.         -callback {baudCB "2400 bps has been selected"} \
  636.         ]
  637.  
  638. set medium [VtPushButton $baud.medium \
  639.                 -label "9600 bps" \
  640.                 -callback {baudCB "9600 bps has been selected"} \
  641.                 ]
  642.  
  643. set fast [VtPushButton $baud.fast \
  644.                 -label "14400 bps" \
  645.                 -callback {baudCB "14400 bps has been selected"} \
  646.                 ]
  647.  
  648. set comm1 [VtPushButton $port.comm1 \
  649.         -label "Comm Port 1"\
  650.         -callback {portCB "Comm Port 1 is in operation"} \
  651.         ]
  652.  
  653. set comm2 [VtPushButton $port.comm2 \
  654.                 -label "Comm Port 2"\
  655.                 -callback {portCB "Comm Port 2 is in operation"} \
  656.                 ]
  657.  
  658. set comm3 [VtPushButton $port.comm3 \
  659.                 -label "Comm Port 3"\
  660.                 -callback {badPortCB "Comm Port 3 cannot be located - Try another port"} \
  661.                 ]
  662.  
  663. #Drawn List Widget
  664. set frame13 [VtFrame $rowcol.frame13 \
  665.         -shadowType ETCHED_IN \
  666.         -title "Drawn List Widget" \
  667.         ]
  668.  
  669. set form13 [VtForm $frame13.form13]
  670.  
  671. set dlist [VtDrawnList $form13.dlist \
  672.         -columns 20 \
  673.         -rows 5 \
  674.         -iconList {../tests/enemy.px ../tests/friend.px ../tests/turkey.px ../tests/exec.px ../tests/enemy.px } \
  675.         -horizontalScrollBar TRUE \
  676.         -formatList {{ICON 2} {STRING 15} {STRING 15}} \
  677.         -selection MULTIPLE \
  678.         -bottomSide FORM \
  679.         -rightSide FORM \
  680.         ]
  681.  
  682. VtDrawnListAddItem $dlist \
  683.         -fieldList [list 0 "Mark Hurst" "01954-781042"] \
  684.         -itemBorder SOLID
  685.  
  686. VtDrawnListAddItem $dlist \
  687.                 -fieldList [list 1 "Paul Marsh" "01954-780941"] \
  688.                 -itemBorder SOLID
  689.  
  690. VtDrawnListAddItem $dlist \
  691.                 -fieldList [list 2 "Russell Mitchell" "01954-780642"] \
  692.                 -itemBorder SOLID
  693.  
  694. VtDrawnListAddItem $dlist \
  695.                 -fieldList [list 3 "David Simpson" "01954-780558"] \
  696.                 -itemBorder SOLID
  697.  
  698. VtDrawnListAddItem $dlist \
  699.                 -fieldList [list 4 "Ali Balentine" "01223-62890"] \
  700.         -itemBorder SOLID
  701.  
  702. #Show whole form with all widgets
  703. VtShow $mainForm
  704. VtMainLoop
  705.