home *** CD-ROM | disk | FTP | other *** search
Text File | 1997-02-06 | 121.2 KB | 3,545 lines |
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CAD new controls "vb_gui_lib" "" "" "" "" "" 1]
-
- set node1 [$diag addNode cad_class 752.0 816.0 120.0 37.3333]
- $node1 setLabel "name" "Control"
- $node1 setProp "is_folded" "1"
- $node1 setScope "name" "cl" "scopePhase"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new Form "vb_gui_lib" "" "" "" "" "" 1]
-
- set row2 [$diag addRow method 0.0]
- $row2 setLabel "name_type" "Activate()\n"
- $row2 setProp "has_parmlist" "1"
-
- set row3 [$diag addRow method 0.0]
- $row3 setLabel "name_type" "Click()\n"
- $row3 setProp "has_parmlist" "1"
-
- set row4 [$diag addRow method 0.0]
- $row4 setLabel "name_type" "DbClick() \n"
- $row4 setProp "has_parmlist" "1"
-
- set row5 [$diag addRow method 0.0]
- $row5 setLabel "name_type" "Deactivate()\n"
- $row5 setProp "has_parmlist" "1"
-
- set row6 [$diag addRow method 0.0]
- $row6 setLabel "name_type" "DragDrop() \n"
- $row6 setProp "has_parmlist" "1"
-
- set cell7 [$row6 addCell parameter 0.0]
- $cell7 setLabel "name_type" "source: Control, "
- $cell7 setScope "name_type" "cl" "scopePhase"
- $cell7 setScope "name_type" "de" "scopeSystem"
-
- set cell8 [$row6 addCell parameter 0.0]
- $cell8 setLabel "name_type" "x: Single, "
- $cell8 setScope "name_type" "cl" "scopePhase"
- $cell8 setScope "name_type" "de" "scopeSystem"
-
- set cell9 [$row6 addCell parameter 0.0]
- $cell9 setLabel "name_type" "y: Single"
- $cell9 setScope "name_type" "cl" "scopePhase"
- $cell9 setScope "name_type" "de" "scopeSystem"
-
- set row10 [$diag addRow method 0.0]
- $row10 setLabel "name_type" "DragOver() \n"
- $row10 setProp "has_parmlist" "1"
-
- set cell11 [$row10 addCell parameter 0.0]
- $cell11 setLabel "name_type" "source: Control, "
- $cell11 setScope "name_type" "cl" "scopePhase"
- $cell11 setScope "name_type" "de" "scopeSystem"
-
- set cell12 [$row10 addCell parameter 0.0]
- $cell12 setLabel "name_type" "x: Single, "
- $cell12 setScope "name_type" "cl" "scopePhase"
- $cell12 setScope "name_type" "de" "scopeSystem"
-
- set cell13 [$row10 addCell parameter 0.0]
- $cell13 setLabel "name_type" "y: Single, "
- $cell13 setScope "name_type" "cl" "scopePhase"
- $cell13 setScope "name_type" "de" "scopeSystem"
-
- set cell14 [$row10 addCell parameter 0.0]
- $cell14 setLabel "name_type" "state: Integer"
- $cell14 setScope "name_type" "cl" "scopePhase"
- $cell14 setScope "name_type" "de" "scopeSystem"
-
- set row15 [$diag addRow method 0.0]
- $row15 setLabel "name_type" "GotFocus()\n"
- $row15 setProp "has_parmlist" "1"
-
- set row16 [$diag addRow method 0.0]
- $row16 setLabel "name_type" "Initialize() \n"
- $row16 setProp "has_parmlist" "1"
-
- set row17 [$diag addRow method 0.0]
- $row17 setLabel "name_type" "KeyDown() \n"
- $row17 setProp "has_parmlist" "1"
-
- set cell18 [$row17 addCell parameter 0.0]
- $cell18 setLabel "name_type" "keycode: Integer, "
- $cell18 setScope "name_type" "cl" "scopePhase"
- $cell18 setScope "name_type" "de" "scopeSystem"
-
- set cell19 [$row17 addCell parameter 0.0]
- $cell19 setLabel "name_type" "shift:Integer"
- $cell19 setScope "name_type" "cl" "scopePhase"
- $cell19 setScope "name_type" "de" "scopeSystem"
-
- set row20 [$diag addRow method 0.0]
- $row20 setLabel "name_type" "KeyPress() \n"
- $row20 setProp "has_parmlist" "1"
-
- set cell21 [$row20 addCell parameter 0.0]
- $cell21 setLabel "name_type" "keyascii: Integer"
- $cell21 setScope "name_type" "cl" "scopePhase"
- $cell21 setScope "name_type" "de" "scopeSystem"
-
- set row22 [$diag addRow method 0.0]
- $row22 setLabel "name_type" "KeyUp() \n"
- $row22 setProp "has_parmlist" "1"
-
- set cell23 [$row22 addCell parameter 0.0]
- $cell23 setLabel "name_type" "keycode: Integer, "
- $cell23 setScope "name_type" "cl" "scopePhase"
- $cell23 setScope "name_type" "de" "scopeSystem"
-
- set cell24 [$row22 addCell parameter 0.0]
- $cell24 setLabel "name_type" "shift: Integer"
- $cell24 setScope "name_type" "cl" "scopePhase"
- $cell24 setScope "name_type" "de" "scopeSystem"
-
- set row25 [$diag addRow method 0.0]
- $row25 setLabel "name_type" "LinkClose() \n"
- $row25 setProp "has_parmlist" "1"
-
- set row26 [$diag addRow method 0.0]
- $row26 setLabel "name_type" "LinkError() \n"
- $row26 setProp "has_parmlist" "1"
-
- set cell27 [$row26 addCell parameter 0.0]
- $cell27 setLabel "name_type" "linkerr: Integer"
- $cell27 setScope "name_type" "cl" "scopePhase"
- $cell27 setScope "name_type" "de" "scopeSystem"
-
- set row28 [$diag addRow method 0.0]
- $row28 setLabel "name_type" "LinkExecute() \n"
- $row28 setProp "has_parmlist" "1"
-
- set cell29 [$row28 addCell parameter 0.0]
- $cell29 setLabel "name_type" "cmdstr: String, "
- $cell29 setScope "name_type" "cl" "scopePhase"
- $cell29 setScope "name_type" "de" "scopeSystem"
-
- set cell30 [$row28 addCell parameter 0.0]
- $cell30 setLabel "name_type" "cancel: Integer"
- $cell30 setScope "name_type" "cl" "scopePhase"
- $cell30 setScope "name_type" "de" "scopeSystem"
-
- set row31 [$diag addRow method 0.0]
- $row31 setLabel "name_type" "LinkOpen() \n"
- $row31 setProp "has_parmlist" "1"
-
- set cell32 [$row31 addCell parameter 0.0]
- $cell32 setLabel "name_type" "cancel: Integer"
- $cell32 setScope "name_type" "cl" "scopePhase"
- $cell32 setScope "name_type" "de" "scopeSystem"
-
- set row33 [$diag addRow method 0.0]
- $row33 setLabel "name_type" "Load() \n"
- $row33 setProp "has_parmlist" "1"
-
- set row34 [$diag addRow method 0.0]
- $row34 setLabel "name_type" "LostFocus() \n"
- $row34 setProp "has_parmlist" "1"
-
- set row35 [$diag addRow method 0.0]
- $row35 setLabel "name_type" "MouseDown() \n"
- $row35 setProp "has_parmlist" "1"
-
- set cell36 [$row35 addCell parameter 0.0]
- $cell36 setLabel "name_type" "button: Integer, "
- $cell36 setScope "name_type" "cl" "scopePhase"
- $cell36 setScope "name_type" "de" "scopeSystem"
-
- set cell37 [$row35 addCell parameter 0.0]
- $cell37 setLabel "name_type" "shift: Integer, "
- $cell37 setScope "name_type" "cl" "scopePhase"
- $cell37 setScope "name_type" "de" "scopeSystem"
-
- set cell38 [$row35 addCell parameter 0.0]
- $cell38 setLabel "name_type" "x: Single, "
- $cell38 setScope "name_type" "cl" "scopePhase"
- $cell38 setScope "name_type" "de" "scopeSystem"
-
- set cell39 [$row35 addCell parameter 0.0]
- $cell39 setLabel "name_type" "y: Single"
- $cell39 setScope "name_type" "cl" "scopePhase"
- $cell39 setScope "name_type" "de" "scopeSystem"
-
- set row40 [$diag addRow method 0.0]
- $row40 setLabel "name_type" "MouseMove() \n"
- $row40 setProp "has_parmlist" "1"
-
- set cell41 [$row40 addCell parameter 0.0]
- $cell41 setLabel "name_type" "button: Integer, "
- $cell41 setScope "name_type" "cl" "scopePhase"
- $cell41 setScope "name_type" "de" "scopeSystem"
-
- set cell42 [$row40 addCell parameter 0.0]
- $cell42 setLabel "name_type" "shift: Integer, "
- $cell42 setScope "name_type" "cl" "scopePhase"
- $cell42 setScope "name_type" "de" "scopeSystem"
-
- set cell43 [$row40 addCell parameter 0.0]
- $cell43 setLabel "name_type" "x: Single, "
- $cell43 setScope "name_type" "cl" "scopePhase"
- $cell43 setScope "name_type" "de" "scopeSystem"
-
- set cell44 [$row40 addCell parameter 0.0]
- $cell44 setLabel "name_type" "y: Single"
- $cell44 setScope "name_type" "cl" "scopePhase"
- $cell44 setScope "name_type" "de" "scopeSystem"
-
- set row45 [$diag addRow method 0.0]
- $row45 setLabel "name_type" "MouseUp() \n"
- $row45 setProp "has_parmlist" "1"
-
- set cell46 [$row45 addCell parameter 0.0]
- $cell46 setLabel "name_type" "button: Integer, "
- $cell46 setScope "name_type" "cl" "scopePhase"
- $cell46 setScope "name_type" "de" "scopeSystem"
-
- set cell47 [$row45 addCell parameter 0.0]
- $cell47 setLabel "name_type" "shift: Integer, "
- $cell47 setScope "name_type" "cl" "scopePhase"
- $cell47 setScope "name_type" "de" "scopeSystem"
-
- set cell48 [$row45 addCell parameter 0.0]
- $cell48 setLabel "name_type" "x: Single, "
- $cell48 setScope "name_type" "cl" "scopePhase"
- $cell48 setScope "name_type" "de" "scopeSystem"
-
- set cell49 [$row45 addCell parameter 0.0]
- $cell49 setLabel "name_type" "y: Single"
- $cell49 setScope "name_type" "cl" "scopePhase"
- $cell49 setScope "name_type" "de" "scopeSystem"
-
- set row50 [$diag addRow method 0.0]
- $row50 setLabel "name_type" "Paint()\n"
- $row50 setProp "has_parmlist" "1"
-
- set row51 [$diag addRow method 0.0]
- $row51 setLabel "name_type" "QueryUnload() \n"
- $row51 setProp "has_parmlist" "1"
-
- set cell52 [$row51 addCell parameter 0.0]
- $cell52 setLabel "name_type" "cancel: Integer, "
- $cell52 setScope "name_type" "cl" "scopePhase"
- $cell52 setScope "name_type" "de" "scopeSystem"
-
- set cell53 [$row51 addCell parameter 0.0]
- $cell53 setLabel "name_type" "unloadmode: Integer"
- $cell53 setScope "name_type" "cl" "scopePhase"
- $cell53 setScope "name_type" "de" "scopeSystem"
-
- set row54 [$diag addRow method 0.0]
- $row54 setLabel "name_type" "Resize() \n"
- $row54 setProp "has_parmlist" "1"
-
- set row55 [$diag addRow method 0.0]
- $row55 setLabel "name_type" "Terminate() \n"
- $row55 setProp "has_parmlist" "1"
-
- set row56 [$diag addRow method 0.0]
- $row56 setLabel "name_type" "Unload() "
- $row56 setProp "has_parmlist" "1"
-
- set cell57 [$row56 addCell parameter 0.0]
- $cell57 setLabel "name_type" "cancel: Integer"
- $cell57 setScope "name_type" "cl" "scopePhase"
- $cell57 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CAD new windows "vb_gui_lib" "" "" "" "" "" 1]
-
- set node58 [$diag addNode cad_class 16.0 656.0 417.0 430.0]
- $node58 setLabel "name" "Form"
- $node58 setScope "name" "cl" "scopePhase"
-
- set node59 [$diag addNode cad_class 528.0 656.0 417.0 346.0]
- $node59 setLabel "name" "MDIForm"
- $node59 setScope "name" "cl" "scopePhase"
-
- set node61 [$diag addNode cad_class 448.0 480.0 120.0 32.0]
- $node61 setLabel "name" "Window"
- $node61 setProp "is_folded" "1"
- $node61 setScope "name" "cl" "scopePhase"
-
- set node60 [$diag addRake generalization $node61 $node58 512.0 512.0 224.0 656.0 592.0]
-
- set conn62 [$node60 getInConn]
- set segm63 [$conn62 getFirstSegm]
-
- set conn64 [$node60 getFirstOutConn]
- set segm65 [$conn64 getFirstSegm]
-
- set conn66 [$diag addConn generalization_conn $node60 $node59 768.0 592.0 768.0 672.0]
- set segm67 [$conn66 getFirstSegm]
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new MDIForm "vb_gui_lib" "" "" "" "" "" 1]
-
- set row68 [$diag addRow method 0.0]
- $row68 setLabel "name_type" "Activate()\n"
- $row68 setProp "has_parmlist" "1"
-
- set row69 [$diag addRow method 0.0]
- $row69 setLabel "name_type" "Click()\n"
- $row69 setProp "has_parmlist" "1"
-
- set row70 [$diag addRow method 0.0]
- $row70 setLabel "name_type" "DbClick() \n"
- $row70 setProp "has_parmlist" "1"
-
- set row71 [$diag addRow method 0.0]
- $row71 setLabel "name_type" "Deactivate()\n"
- $row71 setProp "has_parmlist" "1"
-
- set row72 [$diag addRow method 0.0]
- $row72 setLabel "name_type" "DragDrop() \n"
- $row72 setProp "has_parmlist" "1"
-
- set cell73 [$row72 addCell parameter 0.0]
- $cell73 setLabel "name_type" "source: Control, "
- $cell73 setScope "name_type" "cl" "scopePhase"
- $cell73 setScope "name_type" "de" "scopeSystem"
-
- set cell74 [$row72 addCell parameter 0.0]
- $cell74 setLabel "name_type" "x: Single, "
- $cell74 setScope "name_type" "cl" "scopePhase"
- $cell74 setScope "name_type" "de" "scopeSystem"
-
- set cell75 [$row72 addCell parameter 0.0]
- $cell75 setLabel "name_type" "y: Single"
- $cell75 setScope "name_type" "cl" "scopePhase"
- $cell75 setScope "name_type" "de" "scopeSystem"
-
- set row76 [$diag addRow method 0.0]
- $row76 setLabel "name_type" "DragOver() \n"
- $row76 setProp "has_parmlist" "1"
-
- set cell77 [$row76 addCell parameter 0.0]
- $cell77 setLabel "name_type" "source: Control, "
- $cell77 setScope "name_type" "cl" "scopePhase"
- $cell77 setScope "name_type" "de" "scopeSystem"
-
- set cell78 [$row76 addCell parameter 0.0]
- $cell78 setLabel "name_type" "x: Single, "
- $cell78 setScope "name_type" "cl" "scopePhase"
- $cell78 setScope "name_type" "de" "scopeSystem"
-
- set cell79 [$row76 addCell parameter 0.0]
- $cell79 setLabel "name_type" "y: Single, "
- $cell79 setScope "name_type" "cl" "scopePhase"
- $cell79 setScope "name_type" "de" "scopeSystem"
-
- set cell80 [$row76 addCell parameter 0.0]
- $cell80 setLabel "name_type" "state: Integer"
- $cell80 setScope "name_type" "cl" "scopePhase"
- $cell80 setScope "name_type" "de" "scopeSystem"
-
- set row81 [$diag addRow method 0.0]
- $row81 setLabel "name_type" "Initialize() \n"
- $row81 setProp "has_parmlist" "1"
-
- set row82 [$diag addRow method 0.0]
- $row82 setLabel "name_type" "LinkClose() \n"
- $row82 setProp "has_parmlist" "1"
-
- set row83 [$diag addRow method 0.0]
- $row83 setLabel "name_type" "LinkError() \n"
- $row83 setProp "has_parmlist" "1"
-
- set cell84 [$row83 addCell parameter 0.0]
- $cell84 setLabel "name_type" "linkerr: Integer"
- $cell84 setScope "name_type" "cl" "scopePhase"
- $cell84 setScope "name_type" "de" "scopeSystem"
-
- set row85 [$diag addRow method 0.0]
- $row85 setLabel "name_type" "LinkExecute() \n"
- $row85 setProp "has_parmlist" "1"
-
- set cell86 [$row85 addCell parameter 0.0]
- $cell86 setLabel "name_type" "cmdstr: String, "
- $cell86 setScope "name_type" "cl" "scopePhase"
- $cell86 setScope "name_type" "de" "scopeSystem"
-
- set cell87 [$row85 addCell parameter 0.0]
- $cell87 setLabel "name_type" "cancel: Integer"
- $cell87 setScope "name_type" "cl" "scopePhase"
- $cell87 setScope "name_type" "de" "scopeSystem"
-
- set row88 [$diag addRow method 0.0]
- $row88 setLabel "name_type" "LinkOpen() \n"
- $row88 setProp "has_parmlist" "1"
-
- set cell89 [$row88 addCell parameter 0.0]
- $cell89 setLabel "name_type" "cancel: Integer"
- $cell89 setScope "name_type" "cl" "scopePhase"
- $cell89 setScope "name_type" "de" "scopeSystem"
-
- set row90 [$diag addRow method 0.0]
- $row90 setLabel "name_type" "Load() \n"
- $row90 setProp "has_parmlist" "1"
-
- set row91 [$diag addRow method 0.0]
- $row91 setLabel "name_type" "MouseDown() \n"
- $row91 setProp "has_parmlist" "1"
-
- set cell92 [$row91 addCell parameter 0.0]
- $cell92 setLabel "name_type" "button: Integer, "
- $cell92 setScope "name_type" "cl" "scopePhase"
- $cell92 setScope "name_type" "de" "scopeSystem"
-
- set cell93 [$row91 addCell parameter 0.0]
- $cell93 setLabel "name_type" "shift: Integer, "
- $cell93 setScope "name_type" "cl" "scopePhase"
- $cell93 setScope "name_type" "de" "scopeSystem"
-
- set cell94 [$row91 addCell parameter 0.0]
- $cell94 setLabel "name_type" "x: Single, "
- $cell94 setScope "name_type" "cl" "scopePhase"
- $cell94 setScope "name_type" "de" "scopeSystem"
-
- set cell95 [$row91 addCell parameter 0.0]
- $cell95 setLabel "name_type" "y: Single"
- $cell95 setScope "name_type" "cl" "scopePhase"
- $cell95 setScope "name_type" "de" "scopeSystem"
-
- set row96 [$diag addRow method 0.0]
- $row96 setLabel "name_type" "MouseMove() \n"
- $row96 setProp "has_parmlist" "1"
-
- set cell97 [$row96 addCell parameter 0.0]
- $cell97 setLabel "name_type" "button: Integer, "
- $cell97 setScope "name_type" "cl" "scopePhase"
- $cell97 setScope "name_type" "de" "scopeSystem"
-
- set cell98 [$row96 addCell parameter 0.0]
- $cell98 setLabel "name_type" "shift: Integer, "
- $cell98 setScope "name_type" "cl" "scopePhase"
- $cell98 setScope "name_type" "de" "scopeSystem"
-
- set cell99 [$row96 addCell parameter 0.0]
- $cell99 setLabel "name_type" "x: Single, "
- $cell99 setScope "name_type" "cl" "scopePhase"
- $cell99 setScope "name_type" "de" "scopeSystem"
-
- set cell100 [$row96 addCell parameter 0.0]
- $cell100 setLabel "name_type" "y: Single"
- $cell100 setScope "name_type" "cl" "scopePhase"
- $cell100 setScope "name_type" "de" "scopeSystem"
-
- set row101 [$diag addRow method 0.0]
- $row101 setLabel "name_type" "MouseUp() \n"
- $row101 setProp "has_parmlist" "1"
-
- set cell102 [$row101 addCell parameter 0.0]
- $cell102 setLabel "name_type" "button: Integer, "
- $cell102 setScope "name_type" "cl" "scopePhase"
- $cell102 setScope "name_type" "de" "scopeSystem"
-
- set cell103 [$row101 addCell parameter 0.0]
- $cell103 setLabel "name_type" "shift: Integer, "
- $cell103 setScope "name_type" "cl" "scopePhase"
- $cell103 setScope "name_type" "de" "scopeSystem"
-
- set cell104 [$row101 addCell parameter 0.0]
- $cell104 setLabel "name_type" "x: Single, "
- $cell104 setScope "name_type" "cl" "scopePhase"
- $cell104 setScope "name_type" "de" "scopeSystem"
-
- set cell105 [$row101 addCell parameter 0.0]
- $cell105 setLabel "name_type" "y: Single"
- $cell105 setScope "name_type" "cl" "scopePhase"
- $cell105 setScope "name_type" "de" "scopeSystem"
-
- set row106 [$diag addRow method 0.0]
- $row106 setLabel "name_type" "QueryUnload() \n"
- $row106 setProp "has_parmlist" "1"
-
- set cell107 [$row106 addCell parameter 0.0]
- $cell107 setLabel "name_type" "cancel: Integer, "
- $cell107 setScope "name_type" "cl" "scopePhase"
- $cell107 setScope "name_type" "de" "scopeSystem"
-
- set cell108 [$row106 addCell parameter 0.0]
- $cell108 setLabel "name_type" "unloadmode: Integer"
- $cell108 setScope "name_type" "cl" "scopePhase"
- $cell108 setScope "name_type" "de" "scopeSystem"
-
- set row109 [$diag addRow method 0.0]
- $row109 setLabel "name_type" "Resize() \n"
- $row109 setProp "has_parmlist" "1"
-
- set row110 [$diag addRow method 0.0]
- $row110 setLabel "name_type" "Terminate() \n"
- $row110 setProp "has_parmlist" "1"
-
- set row111 [$diag addRow method 0.0]
- $row111 setLabel "name_type" "Unload() "
- $row111 setProp "has_parmlist" "1"
-
- set cell112 [$row111 addCell parameter 0.0]
- $cell112 setLabel "name_type" "cancel: Integer"
- $cell112 setScope "name_type" "cl" "scopePhase"
- $cell112 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new Frame "vb_gui_lib" "" "" "" "" "" 1]
-
- set row113 [$diag addRow method 0.0]
- $row113 setLabel "name_type" "Click() \n"
- $row113 setProp "has_parmlist" "1"
-
- set row114 [$diag addRow method 0.0]
- $row114 setLabel "name_type" "DblClick() \n"
- $row114 setProp "has_parmlist" "1"
-
- set row115 [$diag addRow method 0.0]
- $row115 setLabel "name_type" "DragDrop()\n"
- $row115 setProp "has_parmlist" "1"
-
- set cell116 [$row115 addCell parameter 0.0]
- $cell116 setLabel "name_type" "source: Control, "
- $cell116 setScope "name_type" "cl" "scopePhase"
- $cell116 setScope "name_type" "de" "scopeSystem"
-
- set cell117 [$row115 addCell parameter 0.0]
- $cell117 setLabel "name_type" "x: Single, "
- $cell117 setScope "name_type" "cl" "scopePhase"
- $cell117 setScope "name_type" "de" "scopeSystem"
-
- set cell118 [$row115 addCell parameter 0.0]
- $cell118 setLabel "name_type" "y: Single"
- $cell118 setScope "name_type" "cl" "scopePhase"
- $cell118 setScope "name_type" "de" "scopeSystem"
-
- set row119 [$diag addRow method 0.0]
- $row119 setLabel "name_type" "DragOver() \n"
- $row119 setProp "has_parmlist" "1"
-
- set cell120 [$row119 addCell parameter 0.0]
- $cell120 setLabel "name_type" "source: Control, "
- $cell120 setScope "name_type" "cl" "scopePhase"
- $cell120 setScope "name_type" "de" "scopeSystem"
-
- set cell121 [$row119 addCell parameter 0.0]
- $cell121 setLabel "name_type" "x: Single, "
- $cell121 setScope "name_type" "cl" "scopePhase"
- $cell121 setScope "name_type" "de" "scopeSystem"
-
- set cell122 [$row119 addCell parameter 0.0]
- $cell122 setLabel "name_type" "y: Single, "
- $cell122 setScope "name_type" "cl" "scopePhase"
- $cell122 setScope "name_type" "de" "scopeSystem"
-
- set cell123 [$row119 addCell parameter 0.0]
- $cell123 setLabel "name_type" "state: Integer"
- $cell123 setScope "name_type" "cl" "scopePhase"
- $cell123 setScope "name_type" "de" "scopeSystem"
-
- set row124 [$diag addRow method 0.0]
- $row124 setLabel "name_type" "MouseDown() \n"
- $row124 setProp "has_parmlist" "1"
-
- set cell125 [$row124 addCell parameter 0.0]
- $cell125 setLabel "name_type" "button: Integer, "
- $cell125 setScope "name_type" "cl" "scopePhase"
- $cell125 setScope "name_type" "de" "scopeSystem"
-
- set cell126 [$row124 addCell parameter 0.0]
- $cell126 setLabel "name_type" "shift: Integer, "
- $cell126 setScope "name_type" "cl" "scopePhase"
- $cell126 setScope "name_type" "de" "scopeSystem"
-
- set cell127 [$row124 addCell parameter 0.0]
- $cell127 setLabel "name_type" "x: Single, "
- $cell127 setScope "name_type" "cl" "scopePhase"
- $cell127 setScope "name_type" "de" "scopeSystem"
-
- set cell128 [$row124 addCell parameter 0.0]
- $cell128 setLabel "name_type" "y: Single"
- $cell128 setScope "name_type" "cl" "scopePhase"
- $cell128 setScope "name_type" "de" "scopeSystem"
-
- set row129 [$diag addRow method 0.0]
- $row129 setLabel "name_type" "MouseMove() \n"
- $row129 setProp "has_parmlist" "1"
-
- set cell130 [$row129 addCell parameter 0.0]
- $cell130 setLabel "name_type" "button: Integer, "
- $cell130 setScope "name_type" "cl" "scopePhase"
- $cell130 setScope "name_type" "de" "scopeSystem"
-
- set cell131 [$row129 addCell parameter 0.0]
- $cell131 setLabel "name_type" "shift: Integer, "
- $cell131 setScope "name_type" "cl" "scopePhase"
- $cell131 setScope "name_type" "de" "scopeSystem"
-
- set cell132 [$row129 addCell parameter 0.0]
- $cell132 setLabel "name_type" "x: Single, "
- $cell132 setScope "name_type" "cl" "scopePhase"
- $cell132 setScope "name_type" "de" "scopeSystem"
-
- set cell133 [$row129 addCell parameter 0.0]
- $cell133 setLabel "name_type" "y: Single"
- $cell133 setScope "name_type" "cl" "scopePhase"
- $cell133 setScope "name_type" "de" "scopeSystem"
-
- set row134 [$diag addRow method 0.0]
- $row134 setLabel "name_type" "MouseUp() "
- $row134 setProp "has_parmlist" "1"
-
- set cell135 [$row134 addCell parameter 0.0]
- $cell135 setLabel "name_type" "button: Integer, "
- $cell135 setScope "name_type" "cl" "scopePhase"
- $cell135 setScope "name_type" "de" "scopeSystem"
-
- set cell136 [$row134 addCell parameter 0.0]
- $cell136 setLabel "name_type" "shift: Integer, "
- $cell136 setScope "name_type" "cl" "scopePhase"
- $cell136 setScope "name_type" "de" "scopeSystem"
-
- set cell137 [$row134 addCell parameter 0.0]
- $cell137 setLabel "name_type" "x: Single, "
- $cell137 setScope "name_type" "cl" "scopePhase"
- $cell137 setScope "name_type" "de" "scopeSystem"
-
- set cell138 [$row134 addCell parameter 0.0]
- $cell138 setLabel "name_type" "y: Single"
- $cell138 setScope "name_type" "cl" "scopePhase"
- $cell138 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new PictureBox "vb_gui_lib" "" "" "" "" "" 1]
-
- set row139 [$diag addRow method 0.0]
- $row139 setLabel "name_type" "Change()\n"
- $row139 setProp "has_parmlist" "1"
-
- set row140 [$diag addRow method 0.0]
- $row140 setLabel "name_type" "Click()\n"
- $row140 setProp "has_parmlist" "1"
-
- set row141 [$diag addRow method 0.0]
- $row141 setLabel "name_type" "DblClick()\n"
- $row141 setProp "has_parmlist" "1"
-
- set row142 [$diag addRow method 0.0]
- $row142 setLabel "name_type" "DragDrop() \n"
- $row142 setProp "has_parmlist" "1"
-
- set cell143 [$row142 addCell parameter 0.0]
- $cell143 setLabel "name_type" "source: Control, "
- $cell143 setScope "name_type" "cl" "scopePhase"
- $cell143 setScope "name_type" "de" "scopeSystem"
-
- set cell144 [$row142 addCell parameter 0.0]
- $cell144 setLabel "name_type" "x: Single, "
- $cell144 setScope "name_type" "cl" "scopePhase"
- $cell144 setScope "name_type" "de" "scopeSystem"
-
- set cell145 [$row142 addCell parameter 0.0]
- $cell145 setLabel "name_type" "y: Single"
- $cell145 setScope "name_type" "cl" "scopePhase"
- $cell145 setScope "name_type" "de" "scopeSystem"
-
- set row146 [$diag addRow method 0.0]
- $row146 setLabel "name_type" "DragOver() \n"
- $row146 setProp "has_parmlist" "1"
-
- set cell147 [$row146 addCell parameter 0.0]
- $cell147 setLabel "name_type" "source: Control, "
- $cell147 setScope "name_type" "cl" "scopePhase"
- $cell147 setScope "name_type" "de" "scopeSystem"
-
- set cell148 [$row146 addCell parameter 0.0]
- $cell148 setLabel "name_type" "x: Single, "
- $cell148 setScope "name_type" "cl" "scopePhase"
- $cell148 setScope "name_type" "de" "scopeSystem"
-
- set cell149 [$row146 addCell parameter 0.0]
- $cell149 setLabel "name_type" "y: Single, "
- $cell149 setScope "name_type" "cl" "scopePhase"
- $cell149 setScope "name_type" "de" "scopeSystem"
-
- set cell150 [$row146 addCell parameter 0.0]
- $cell150 setLabel "name_type" "state: Integer"
- $cell150 setScope "name_type" "cl" "scopePhase"
- $cell150 setScope "name_type" "de" "scopeSystem"
-
- set row151 [$diag addRow method 0.0]
- $row151 setLabel "name_type" "GotFocus()\n"
- $row151 setProp "has_parmlist" "1"
-
- set row152 [$diag addRow method 0.0]
- $row152 setLabel "name_type" "KeyDown() \n"
- $row152 setProp "has_parmlist" "1"
-
- set cell153 [$row152 addCell parameter 0.0]
- $cell153 setLabel "name_type" "keycode: Integer, "
- $cell153 setScope "name_type" "cl" "scopePhase"
- $cell153 setScope "name_type" "de" "scopeSystem"
-
- set cell154 [$row152 addCell parameter 0.0]
- $cell154 setLabel "name_type" "shift:Integer"
- $cell154 setScope "name_type" "cl" "scopePhase"
- $cell154 setScope "name_type" "de" "scopeSystem"
-
- set row155 [$diag addRow method 0.0]
- $row155 setLabel "name_type" "KeyPress() \n"
- $row155 setProp "has_parmlist" "1"
-
- set cell156 [$row155 addCell parameter 0.0]
- $cell156 setLabel "name_type" "keyascii: Integer"
- $cell156 setScope "name_type" "cl" "scopePhase"
- $cell156 setScope "name_type" "de" "scopeSystem"
-
- set row157 [$diag addRow method 0.0]
- $row157 setLabel "name_type" "KeyUp() \n"
- $row157 setProp "has_parmlist" "1"
-
- set cell158 [$row157 addCell parameter 0.0]
- $cell158 setLabel "name_type" "keycode: Integer, "
- $cell158 setScope "name_type" "cl" "scopePhase"
- $cell158 setScope "name_type" "de" "scopeSystem"
-
- set cell159 [$row157 addCell parameter 0.0]
- $cell159 setLabel "name_type" "shift: Integer"
- $cell159 setScope "name_type" "cl" "scopePhase"
- $cell159 setScope "name_type" "de" "scopeSystem"
-
- set row160 [$diag addRow method 0.0]
- $row160 setLabel "name_type" "LinkClose()\n"
- $row160 setProp "has_parmlist" "1"
-
- set row161 [$diag addRow method 0.0]
- $row161 setLabel "name_type" "LinkError() \n"
- $row161 setProp "has_parmlist" "1"
-
- set cell162 [$row161 addCell parameter 0.0]
- $cell162 setLabel "name_type" "linkerr: Integer"
- $cell162 setScope "name_type" "cl" "scopePhase"
- $cell162 setScope "name_type" "de" "scopeSystem"
-
- set row163 [$diag addRow method 0.0]
- $row163 setLabel "name_type" "LinkNotify() \n"
- $row163 setProp "has_parmlist" "1"
-
- set row164 [$diag addRow method 0.0]
- $row164 setLabel "name_type" "LinkOpen() \n"
- $row164 setProp "has_parmlist" "1"
-
- set cell165 [$row164 addCell parameter 0.0]
- $cell165 setLabel "name_type" "cancel: Integer"
- $cell165 setScope "name_type" "cl" "scopePhase"
- $cell165 setScope "name_type" "de" "scopeSystem"
-
- set row166 [$diag addRow method 0.0]
- $row166 setLabel "name_type" "LostFocus()\n"
- $row166 setProp "has_parmlist" "1"
-
- set row167 [$diag addRow method 0.0]
- $row167 setLabel "name_type" "MouseDown() \n"
- $row167 setProp "has_parmlist" "1"
-
- set cell168 [$row167 addCell parameter 0.0]
- $cell168 setLabel "name_type" "button: Integer, "
- $cell168 setScope "name_type" "cl" "scopePhase"
- $cell168 setScope "name_type" "de" "scopeSystem"
-
- set cell169 [$row167 addCell parameter 0.0]
- $cell169 setLabel "name_type" "shift: Integer, "
- $cell169 setScope "name_type" "cl" "scopePhase"
- $cell169 setScope "name_type" "de" "scopeSystem"
-
- set cell170 [$row167 addCell parameter 0.0]
- $cell170 setLabel "name_type" "x: Single, "
- $cell170 setScope "name_type" "cl" "scopePhase"
- $cell170 setScope "name_type" "de" "scopeSystem"
-
- set cell171 [$row167 addCell parameter 0.0]
- $cell171 setLabel "name_type" "y: Single"
- $cell171 setScope "name_type" "cl" "scopePhase"
- $cell171 setScope "name_type" "de" "scopeSystem"
-
- set row172 [$diag addRow method 0.0]
- $row172 setLabel "name_type" "MouseMove() \n"
- $row172 setProp "has_parmlist" "1"
-
- set cell173 [$row172 addCell parameter 0.0]
- $cell173 setLabel "name_type" "button: Integer, "
- $cell173 setScope "name_type" "cl" "scopePhase"
- $cell173 setScope "name_type" "de" "scopeSystem"
-
- set cell174 [$row172 addCell parameter 0.0]
- $cell174 setLabel "name_type" "shift: Integer, "
- $cell174 setScope "name_type" "cl" "scopePhase"
- $cell174 setScope "name_type" "de" "scopeSystem"
-
- set cell175 [$row172 addCell parameter 0.0]
- $cell175 setLabel "name_type" "x: Single, "
- $cell175 setScope "name_type" "cl" "scopePhase"
- $cell175 setScope "name_type" "de" "scopeSystem"
-
- set cell176 [$row172 addCell parameter 0.0]
- $cell176 setLabel "name_type" "y: Single"
- $cell176 setScope "name_type" "cl" "scopePhase"
- $cell176 setScope "name_type" "de" "scopeSystem"
-
- set row177 [$diag addRow method 0.0]
- $row177 setLabel "name_type" "MouseUp() \n"
- $row177 setProp "has_parmlist" "1"
-
- set cell178 [$row177 addCell parameter 0.0]
- $cell178 setLabel "name_type" "button: Integer, "
- $cell178 setScope "name_type" "cl" "scopePhase"
- $cell178 setScope "name_type" "de" "scopeSystem"
-
- set cell179 [$row177 addCell parameter 0.0]
- $cell179 setLabel "name_type" "shift: Integer, "
- $cell179 setScope "name_type" "cl" "scopePhase"
- $cell179 setScope "name_type" "de" "scopeSystem"
-
- set cell180 [$row177 addCell parameter 0.0]
- $cell180 setLabel "name_type" "x: Single, "
- $cell180 setScope "name_type" "cl" "scopePhase"
- $cell180 setScope "name_type" "de" "scopeSystem"
-
- set cell181 [$row177 addCell parameter 0.0]
- $cell181 setLabel "name_type" "y: Single"
- $cell181 setScope "name_type" "cl" "scopePhase"
- $cell181 setScope "name_type" "de" "scopeSystem"
-
- set row182 [$diag addRow method 0.0]
- $row182 setLabel "name_type" "Paint() \n"
- $row182 setProp "has_parmlist" "1"
-
- set row183 [$diag addRow method 0.0]
- $row183 setLabel "name_type" "Resize()"
- $row183 setProp "has_parmlist" "1"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new Menu "vb_gui_lib" "" "" "" "" "" 1]
-
- set row184 [$diag addRow method 0.0]
- $row184 setLabel "name_type" "Click()"
- $row184 setProp "has_parmlist" "1"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CAD new leafcontrols3 "vb_gui_lib" "" "" "" "" "" 1]
-
- set node186 [$diag addNode cad_class 1360.0 800.0 120.0 37.3333]
- $node186 setLabel "name" "LeafControl"
- $node186 setProp "is_folded" "1"
- $node186 setScope "name" "cl" "scopePhase"
-
- set node187 [$diag addNode cad_class 1056.0 1392.0 413.333 265.333]
- $node187 setLabel "name" "VScrollBar"
- $node187 setScope "name" "cl" "scopePhase"
-
- set node188 [$diag addNode cad_class 800.0 976.0 417.333 265.333]
- $node188 setLabel "name" "Data"
- $node188 setScope "name" "cl" "scopePhase"
-
- set node189 [$diag addNode cad_class 1280.0 976.0 413.333 265.333]
- $node189 setLabel "name" "HScrollBar"
- $node189 setScope "name" "cl" "scopePhase"
-
- set node190 [$diag addNode cad_class 1552.0 1392.0 208.0 116.0]
- $node190 setLabel "name" "Line"
- $node190 setScope "name" "cl" "scopePhase"
-
- set node185 [$diag addRake generalization $node186 $node188 1424.0 816.0 1008.0 1072.0 944.0]
-
- set conn191 [$node185 getInConn]
- set segm192 [$conn191 getFirstSegm]
-
- set conn193 [$node185 getFirstOutConn]
- set segm194 [$conn193 getFirstSegm]
-
- set conn195 [$diag addConn generalization_conn $node185 $node189 1488.0 944.0 1488.0 992.0]
- set segm196 [$conn195 getFirstSegm]
-
- set conn197 [$diag addConn generalization_conn $node185 $node190 1760.0 944.0 1760.0 1408.0]
- set segm198 [$conn197 getFirstSegm]
-
- set conn199 [$diag addConn generalization_conn $node185 $node187 1248.0 944.0 1248.0 1424.0]
- set segm200 [$conn199 getFirstSegm]
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new CheckBox "vb_gui_lib" "" "" "" "" "" 1]
-
- set row201 [$diag addRow method 0.0]
- $row201 setLabel "name_type" "Click()\n"
- $row201 setProp "has_parmlist" "1"
-
- set row202 [$diag addRow method 0.0]
- $row202 setLabel "name_type" "DragDrop() \n"
- $row202 setProp "has_parmlist" "1"
-
- set cell203 [$row202 addCell parameter 0.0]
- $cell203 setLabel "name_type" "source: Control, "
- $cell203 setScope "name_type" "cl" "scopePhase"
- $cell203 setScope "name_type" "de" "scopeSystem"
-
- set cell204 [$row202 addCell parameter 0.0]
- $cell204 setLabel "name_type" "x: Single, "
- $cell204 setScope "name_type" "cl" "scopePhase"
- $cell204 setScope "name_type" "de" "scopeSystem"
-
- set cell205 [$row202 addCell parameter 0.0]
- $cell205 setLabel "name_type" "y: Single"
- $cell205 setScope "name_type" "cl" "scopePhase"
- $cell205 setScope "name_type" "de" "scopeSystem"
-
- set row206 [$diag addRow method 0.0]
- $row206 setLabel "name_type" "DragOver() \n"
- $row206 setProp "has_parmlist" "1"
-
- set cell207 [$row206 addCell parameter 0.0]
- $cell207 setLabel "name_type" "source: Control, "
- $cell207 setScope "name_type" "cl" "scopePhase"
- $cell207 setScope "name_type" "de" "scopeSystem"
-
- set cell208 [$row206 addCell parameter 0.0]
- $cell208 setLabel "name_type" "x: Single, "
- $cell208 setScope "name_type" "cl" "scopePhase"
- $cell208 setScope "name_type" "de" "scopeSystem"
-
- set cell209 [$row206 addCell parameter 0.0]
- $cell209 setLabel "name_type" "y: Single, "
- $cell209 setScope "name_type" "cl" "scopePhase"
- $cell209 setScope "name_type" "de" "scopeSystem"
-
- set cell210 [$row206 addCell parameter 0.0]
- $cell210 setLabel "name_type" "state: Integer"
- $cell210 setScope "name_type" "cl" "scopePhase"
- $cell210 setScope "name_type" "de" "scopeSystem"
-
- set row211 [$diag addRow method 0.0]
- $row211 setLabel "name_type" "GotFocus()\n"
- $row211 setProp "has_parmlist" "1"
-
- set row212 [$diag addRow method 0.0]
- $row212 setLabel "name_type" "KeyDown() \n"
- $row212 setProp "has_parmlist" "1"
-
- set cell213 [$row212 addCell parameter 0.0]
- $cell213 setLabel "name_type" "keycode: Integer, "
- $cell213 setScope "name_type" "cl" "scopePhase"
- $cell213 setScope "name_type" "de" "scopeSystem"
-
- set cell214 [$row212 addCell parameter 0.0]
- $cell214 setLabel "name_type" "shift:Integer"
- $cell214 setScope "name_type" "cl" "scopePhase"
- $cell214 setScope "name_type" "de" "scopeSystem"
-
- set row215 [$diag addRow method 0.0]
- $row215 setLabel "name_type" "KeyPress() \n"
- $row215 setProp "has_parmlist" "1"
-
- set cell216 [$row215 addCell parameter 0.0]
- $cell216 setLabel "name_type" "keyascii: Integer"
- $cell216 setScope "name_type" "cl" "scopePhase"
- $cell216 setScope "name_type" "de" "scopeSystem"
-
- set row217 [$diag addRow method 0.0]
- $row217 setLabel "name_type" "KeyUp() \n"
- $row217 setProp "has_parmlist" "1"
-
- set cell218 [$row217 addCell parameter 0.0]
- $cell218 setLabel "name_type" "keycode: Integer, "
- $cell218 setScope "name_type" "cl" "scopePhase"
- $cell218 setScope "name_type" "de" "scopeSystem"
-
- set cell219 [$row217 addCell parameter 0.0]
- $cell219 setLabel "name_type" "shift: Integer"
- $cell219 setScope "name_type" "cl" "scopePhase"
- $cell219 setScope "name_type" "de" "scopeSystem"
-
- set row220 [$diag addRow method 0.0]
- $row220 setLabel "name_type" "LostFocus() \n"
- $row220 setProp "has_parmlist" "1"
-
- set row221 [$diag addRow method 0.0]
- $row221 setLabel "name_type" "MouseDown() \n"
- $row221 setProp "has_parmlist" "1"
-
- set cell222 [$row221 addCell parameter 0.0]
- $cell222 setLabel "name_type" "button: Integer, "
- $cell222 setScope "name_type" "cl" "scopePhase"
- $cell222 setScope "name_type" "de" "scopeSystem"
-
- set cell223 [$row221 addCell parameter 0.0]
- $cell223 setLabel "name_type" "shift: Integer, "
- $cell223 setScope "name_type" "cl" "scopePhase"
- $cell223 setScope "name_type" "de" "scopeSystem"
-
- set cell224 [$row221 addCell parameter 0.0]
- $cell224 setLabel "name_type" "x: Single, "
- $cell224 setScope "name_type" "cl" "scopePhase"
- $cell224 setScope "name_type" "de" "scopeSystem"
-
- set cell225 [$row221 addCell parameter 0.0]
- $cell225 setLabel "name_type" "y: Single"
- $cell225 setScope "name_type" "cl" "scopePhase"
- $cell225 setScope "name_type" "de" "scopeSystem"
-
- set row226 [$diag addRow method 0.0]
- $row226 setLabel "name_type" "MouseMove() \n"
- $row226 setProp "has_parmlist" "1"
-
- set cell227 [$row226 addCell parameter 0.0]
- $cell227 setLabel "name_type" "button: Integer, "
- $cell227 setScope "name_type" "cl" "scopePhase"
- $cell227 setScope "name_type" "de" "scopeSystem"
-
- set cell228 [$row226 addCell parameter 0.0]
- $cell228 setLabel "name_type" "shift: Integer, "
- $cell228 setScope "name_type" "cl" "scopePhase"
- $cell228 setScope "name_type" "de" "scopeSystem"
-
- set cell229 [$row226 addCell parameter 0.0]
- $cell229 setLabel "name_type" "x: Single, "
- $cell229 setScope "name_type" "cl" "scopePhase"
- $cell229 setScope "name_type" "de" "scopeSystem"
-
- set cell230 [$row226 addCell parameter 0.0]
- $cell230 setLabel "name_type" "y: Single"
- $cell230 setScope "name_type" "cl" "scopePhase"
- $cell230 setScope "name_type" "de" "scopeSystem"
-
- set row231 [$diag addRow method 0.0]
- $row231 setLabel "name_type" "MouseUp() "
- $row231 setProp "has_parmlist" "1"
-
- set cell232 [$row231 addCell parameter 0.0]
- $cell232 setLabel "name_type" "button: Integer, "
- $cell232 setScope "name_type" "cl" "scopePhase"
- $cell232 setScope "name_type" "de" "scopeSystem"
-
- set cell233 [$row231 addCell parameter 0.0]
- $cell233 setLabel "name_type" "shift: Integer, "
- $cell233 setScope "name_type" "cl" "scopePhase"
- $cell233 setScope "name_type" "de" "scopeSystem"
-
- set cell234 [$row231 addCell parameter 0.0]
- $cell234 setLabel "name_type" "x: Single, "
- $cell234 setScope "name_type" "cl" "scopePhase"
- $cell234 setScope "name_type" "de" "scopeSystem"
-
- set cell235 [$row231 addCell parameter 0.0]
- $cell235 setLabel "name_type" "y: Single"
- $cell235 setScope "name_type" "cl" "scopePhase"
- $cell235 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new ComboBox "vb_gui_lib" "" "" "" "" "" 1]
-
- set row236 [$diag addRow method 0.0]
- $row236 setLabel "name_type" "Change()\n"
- $row236 setProp "has_parmlist" "1"
-
- set row237 [$diag addRow method 0.0]
- $row237 setLabel "name_type" "Click()\n"
- $row237 setProp "has_parmlist" "1"
-
- set row238 [$diag addRow method 0.0]
- $row238 setLabel "name_type" "DbClick() \n"
- $row238 setProp "has_parmlist" "1"
-
- set row239 [$diag addRow method 0.0]
- $row239 setLabel "name_type" "DragDrop() \n"
- $row239 setProp "has_parmlist" "1"
-
- set cell240 [$row239 addCell parameter 0.0]
- $cell240 setLabel "name_type" "source: Control, "
- $cell240 setScope "name_type" "cl" "scopePhase"
- $cell240 setScope "name_type" "de" "scopeSystem"
-
- set cell241 [$row239 addCell parameter 0.0]
- $cell241 setLabel "name_type" "x: Single, "
- $cell241 setScope "name_type" "cl" "scopePhase"
- $cell241 setScope "name_type" "de" "scopeSystem"
-
- set cell242 [$row239 addCell parameter 0.0]
- $cell242 setLabel "name_type" "y: Single"
- $cell242 setScope "name_type" "cl" "scopePhase"
- $cell242 setScope "name_type" "de" "scopeSystem"
-
- set row243 [$diag addRow method 0.0]
- $row243 setLabel "name_type" "DragOver() \n"
- $row243 setProp "has_parmlist" "1"
-
- set cell244 [$row243 addCell parameter 0.0]
- $cell244 setLabel "name_type" "source: Control, "
- $cell244 setScope "name_type" "cl" "scopePhase"
- $cell244 setScope "name_type" "de" "scopeSystem"
-
- set cell245 [$row243 addCell parameter 0.0]
- $cell245 setLabel "name_type" "x: Single, "
- $cell245 setScope "name_type" "cl" "scopePhase"
- $cell245 setScope "name_type" "de" "scopeSystem"
-
- set cell246 [$row243 addCell parameter 0.0]
- $cell246 setLabel "name_type" "y: Single, "
- $cell246 setScope "name_type" "cl" "scopePhase"
- $cell246 setScope "name_type" "de" "scopeSystem"
-
- set cell247 [$row243 addCell parameter 0.0]
- $cell247 setLabel "name_type" "state: Integer"
- $cell247 setScope "name_type" "cl" "scopePhase"
- $cell247 setScope "name_type" "de" "scopeSystem"
-
- set row248 [$diag addRow method 0.0]
- $row248 setLabel "name_type" "DropDown()\n"
- $row248 setProp "has_parmlist" "1"
-
- set row249 [$diag addRow method 0.0]
- $row249 setLabel "name_type" "GotFocus()\n"
- $row249 setProp "has_parmlist" "1"
-
- set row250 [$diag addRow method 0.0]
- $row250 setLabel "name_type" "KeyDown() \n"
- $row250 setProp "has_parmlist" "1"
-
- set cell251 [$row250 addCell parameter 0.0]
- $cell251 setLabel "name_type" "keycode: Integer, "
- $cell251 setScope "name_type" "cl" "scopePhase"
- $cell251 setScope "name_type" "de" "scopeSystem"
-
- set cell252 [$row250 addCell parameter 0.0]
- $cell252 setLabel "name_type" "shift:Integer"
- $cell252 setScope "name_type" "cl" "scopePhase"
- $cell252 setScope "name_type" "de" "scopeSystem"
-
- set row253 [$diag addRow method 0.0]
- $row253 setLabel "name_type" "KeyPress() \n"
- $row253 setProp "has_parmlist" "1"
-
- set cell254 [$row253 addCell parameter 0.0]
- $cell254 setLabel "name_type" "keyascii: Integer"
- $cell254 setScope "name_type" "cl" "scopePhase"
- $cell254 setScope "name_type" "de" "scopeSystem"
-
- set row255 [$diag addRow method 0.0]
- $row255 setLabel "name_type" "KeyUp() \n"
- $row255 setProp "has_parmlist" "1"
-
- set cell256 [$row255 addCell parameter 0.0]
- $cell256 setLabel "name_type" "keycode: Integer, "
- $cell256 setScope "name_type" "cl" "scopePhase"
- $cell256 setScope "name_type" "de" "scopeSystem"
-
- set cell257 [$row255 addCell parameter 0.0]
- $cell257 setLabel "name_type" "shift: Integer"
- $cell257 setScope "name_type" "cl" "scopePhase"
- $cell257 setScope "name_type" "de" "scopeSystem"
-
- set row258 [$diag addRow method 0.0]
- $row258 setLabel "name_type" "LostFocus() "
- $row258 setProp "has_parmlist" "1"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new CommandButton "vb_gui_lib" "" "" "" "" "" 1]
-
- set row259 [$diag addRow method 0.0]
- $row259 setLabel "name_type" "Click()\n"
- $row259 setProp "has_parmlist" "1"
-
- set row260 [$diag addRow method 0.0]
- $row260 setLabel "name_type" "DragDrop() \n"
- $row260 setProp "has_parmlist" "1"
-
- set cell261 [$row260 addCell parameter 0.0]
- $cell261 setLabel "name_type" "source: Control, "
- $cell261 setScope "name_type" "cl" "scopePhase"
- $cell261 setScope "name_type" "de" "scopeSystem"
-
- set cell262 [$row260 addCell parameter 0.0]
- $cell262 setLabel "name_type" "x: Single, "
- $cell262 setScope "name_type" "cl" "scopePhase"
- $cell262 setScope "name_type" "de" "scopeSystem"
-
- set cell263 [$row260 addCell parameter 0.0]
- $cell263 setLabel "name_type" "y: Single"
- $cell263 setScope "name_type" "cl" "scopePhase"
- $cell263 setScope "name_type" "de" "scopeSystem"
-
- set row264 [$diag addRow method 0.0]
- $row264 setLabel "name_type" "DragOver() \n"
- $row264 setProp "has_parmlist" "1"
-
- set cell265 [$row264 addCell parameter 0.0]
- $cell265 setLabel "name_type" "source: Control, "
- $cell265 setScope "name_type" "cl" "scopePhase"
- $cell265 setScope "name_type" "de" "scopeSystem"
-
- set cell266 [$row264 addCell parameter 0.0]
- $cell266 setLabel "name_type" "x: Single, "
- $cell266 setScope "name_type" "cl" "scopePhase"
- $cell266 setScope "name_type" "de" "scopeSystem"
-
- set cell267 [$row264 addCell parameter 0.0]
- $cell267 setLabel "name_type" "y: Single, "
- $cell267 setScope "name_type" "cl" "scopePhase"
- $cell267 setScope "name_type" "de" "scopeSystem"
-
- set cell268 [$row264 addCell parameter 0.0]
- $cell268 setLabel "name_type" "state: Integer"
- $cell268 setScope "name_type" "cl" "scopePhase"
- $cell268 setScope "name_type" "de" "scopeSystem"
-
- set row269 [$diag addRow method 0.0]
- $row269 setLabel "name_type" "GotFocus()\n"
- $row269 setProp "has_parmlist" "1"
-
- set row270 [$diag addRow method 0.0]
- $row270 setLabel "name_type" "KeyDown() \n"
- $row270 setProp "has_parmlist" "1"
-
- set cell271 [$row270 addCell parameter 0.0]
- $cell271 setLabel "name_type" "keycode: Integer, "
- $cell271 setScope "name_type" "cl" "scopePhase"
- $cell271 setScope "name_type" "de" "scopeSystem"
-
- set cell272 [$row270 addCell parameter 0.0]
- $cell272 setLabel "name_type" "shift:Integer"
- $cell272 setScope "name_type" "cl" "scopePhase"
- $cell272 setScope "name_type" "de" "scopeSystem"
-
- set row273 [$diag addRow method 0.0]
- $row273 setLabel "name_type" "KeyPress() \n"
- $row273 setProp "has_parmlist" "1"
-
- set cell274 [$row273 addCell parameter 0.0]
- $cell274 setLabel "name_type" "keyascii: Integer"
- $cell274 setScope "name_type" "cl" "scopePhase"
- $cell274 setScope "name_type" "de" "scopeSystem"
-
- set row275 [$diag addRow method 0.0]
- $row275 setLabel "name_type" "KeyUp() \n"
- $row275 setProp "has_parmlist" "1"
-
- set cell276 [$row275 addCell parameter 0.0]
- $cell276 setLabel "name_type" "keycode: Integer, "
- $cell276 setScope "name_type" "cl" "scopePhase"
- $cell276 setScope "name_type" "de" "scopeSystem"
-
- set cell277 [$row275 addCell parameter 0.0]
- $cell277 setLabel "name_type" "shift: Integer"
- $cell277 setScope "name_type" "cl" "scopePhase"
- $cell277 setScope "name_type" "de" "scopeSystem"
-
- set row278 [$diag addRow method 0.0]
- $row278 setLabel "name_type" "LostFocus() \n"
- $row278 setProp "has_parmlist" "1"
-
- set row279 [$diag addRow method 0.0]
- $row279 setLabel "name_type" "MouseDown() \n"
- $row279 setProp "has_parmlist" "1"
-
- set cell280 [$row279 addCell parameter 0.0]
- $cell280 setLabel "name_type" "button: Integer, "
- $cell280 setScope "name_type" "cl" "scopePhase"
- $cell280 setScope "name_type" "de" "scopeSystem"
-
- set cell281 [$row279 addCell parameter 0.0]
- $cell281 setLabel "name_type" "shift: Integer, "
- $cell281 setScope "name_type" "cl" "scopePhase"
- $cell281 setScope "name_type" "de" "scopeSystem"
-
- set cell282 [$row279 addCell parameter 0.0]
- $cell282 setLabel "name_type" "x: Single, "
- $cell282 setScope "name_type" "cl" "scopePhase"
- $cell282 setScope "name_type" "de" "scopeSystem"
-
- set cell283 [$row279 addCell parameter 0.0]
- $cell283 setLabel "name_type" "y: Single"
- $cell283 setScope "name_type" "cl" "scopePhase"
- $cell283 setScope "name_type" "de" "scopeSystem"
-
- set row284 [$diag addRow method 0.0]
- $row284 setLabel "name_type" "MouseMove() \n"
- $row284 setProp "has_parmlist" "1"
-
- set cell285 [$row284 addCell parameter 0.0]
- $cell285 setLabel "name_type" "button: Integer, "
- $cell285 setScope "name_type" "cl" "scopePhase"
- $cell285 setScope "name_type" "de" "scopeSystem"
-
- set cell286 [$row284 addCell parameter 0.0]
- $cell286 setLabel "name_type" "shift: Integer, "
- $cell286 setScope "name_type" "cl" "scopePhase"
- $cell286 setScope "name_type" "de" "scopeSystem"
-
- set cell287 [$row284 addCell parameter 0.0]
- $cell287 setLabel "name_type" "x: Single, "
- $cell287 setScope "name_type" "cl" "scopePhase"
- $cell287 setScope "name_type" "de" "scopeSystem"
-
- set cell288 [$row284 addCell parameter 0.0]
- $cell288 setLabel "name_type" "y: Single"
- $cell288 setScope "name_type" "cl" "scopePhase"
- $cell288 setScope "name_type" "de" "scopeSystem"
-
- set row289 [$diag addRow method 0.0]
- $row289 setLabel "name_type" "MouseUp() "
- $row289 setProp "has_parmlist" "1"
-
- set cell290 [$row289 addCell parameter 0.0]
- $cell290 setLabel "name_type" "button: Integer, "
- $cell290 setScope "name_type" "cl" "scopePhase"
- $cell290 setScope "name_type" "de" "scopeSystem"
-
- set cell291 [$row289 addCell parameter 0.0]
- $cell291 setLabel "name_type" "shift: Integer, "
- $cell291 setScope "name_type" "cl" "scopePhase"
- $cell291 setScope "name_type" "de" "scopeSystem"
-
- set cell292 [$row289 addCell parameter 0.0]
- $cell292 setLabel "name_type" "x: Single, "
- $cell292 setScope "name_type" "cl" "scopePhase"
- $cell292 setScope "name_type" "de" "scopeSystem"
-
- set cell293 [$row289 addCell parameter 0.0]
- $cell293 setLabel "name_type" "y: Single"
- $cell293 setScope "name_type" "cl" "scopePhase"
- $cell293 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new Data "vb_gui_lib" "" "" "" "" "" 1]
-
- set row294 [$diag addRow method 0.0]
- $row294 setLabel "name_type" "DragDrop() \n"
- $row294 setProp "has_parmlist" "1"
-
- set cell295 [$row294 addCell parameter 0.0]
- $cell295 setLabel "name_type" "source: Control, "
- $cell295 setScope "name_type" "cl" "scopePhase"
- $cell295 setScope "name_type" "de" "scopeSystem"
-
- set cell296 [$row294 addCell parameter 0.0]
- $cell296 setLabel "name_type" "x: Single, "
- $cell296 setScope "name_type" "cl" "scopePhase"
- $cell296 setScope "name_type" "de" "scopeSystem"
-
- set cell297 [$row294 addCell parameter 0.0]
- $cell297 setLabel "name_type" "y: Single"
- $cell297 setScope "name_type" "cl" "scopePhase"
- $cell297 setScope "name_type" "de" "scopeSystem"
-
- set row298 [$diag addRow method 0.0]
- $row298 setLabel "name_type" "DragOver() \n"
- $row298 setProp "has_parmlist" "1"
-
- set cell299 [$row298 addCell parameter 0.0]
- $cell299 setLabel "name_type" "source: Control, "
- $cell299 setScope "name_type" "cl" "scopePhase"
- $cell299 setScope "name_type" "de" "scopeSystem"
-
- set cell300 [$row298 addCell parameter 0.0]
- $cell300 setLabel "name_type" "x: Single, "
- $cell300 setScope "name_type" "cl" "scopePhase"
- $cell300 setScope "name_type" "de" "scopeSystem"
-
- set cell301 [$row298 addCell parameter 0.0]
- $cell301 setLabel "name_type" "y: Single, "
- $cell301 setScope "name_type" "cl" "scopePhase"
- $cell301 setScope "name_type" "de" "scopeSystem"
-
- set cell302 [$row298 addCell parameter 0.0]
- $cell302 setLabel "name_type" "state: Integer"
- $cell302 setScope "name_type" "cl" "scopePhase"
- $cell302 setScope "name_type" "de" "scopeSystem"
-
- set row303 [$diag addRow method 0.0]
- $row303 setLabel "name_type" "Error ()\n"
- $row303 setProp "has_parmlist" "1"
-
- set cell304 [$row303 addCell parameter 0.0]
- $cell304 setLabel "name_type" "dataerr: Integer, "
- $cell304 setScope "name_type" "cl" "scopePhase"
- $cell304 setScope "name_type" "de" "scopeSystem"
-
- set cell305 [$row303 addCell parameter 0.0]
- $cell305 setLabel "name_type" "response: Integer"
- $cell305 setScope "name_type" "cl" "scopePhase"
- $cell305 setScope "name_type" "de" "scopeSystem"
-
- set row306 [$diag addRow method 0.0]
- $row306 setLabel "name_type" "MouseDown() \n"
- $row306 setProp "has_parmlist" "1"
-
- set cell307 [$row306 addCell parameter 0.0]
- $cell307 setLabel "name_type" "button: Integer, "
- $cell307 setScope "name_type" "cl" "scopePhase"
- $cell307 setScope "name_type" "de" "scopeSystem"
-
- set cell308 [$row306 addCell parameter 0.0]
- $cell308 setLabel "name_type" "shift: Integer, "
- $cell308 setScope "name_type" "cl" "scopePhase"
- $cell308 setScope "name_type" "de" "scopeSystem"
-
- set cell309 [$row306 addCell parameter 0.0]
- $cell309 setLabel "name_type" "x: Single, "
- $cell309 setScope "name_type" "cl" "scopePhase"
- $cell309 setScope "name_type" "de" "scopeSystem"
-
- set cell310 [$row306 addCell parameter 0.0]
- $cell310 setLabel "name_type" "y: Single"
- $cell310 setScope "name_type" "cl" "scopePhase"
- $cell310 setScope "name_type" "de" "scopeSystem"
-
- set row311 [$diag addRow method 0.0]
- $row311 setLabel "name_type" "MouseMove() \n"
- $row311 setProp "has_parmlist" "1"
-
- set cell312 [$row311 addCell parameter 0.0]
- $cell312 setLabel "name_type" "button: Integer, "
- $cell312 setScope "name_type" "cl" "scopePhase"
- $cell312 setScope "name_type" "de" "scopeSystem"
-
- set cell313 [$row311 addCell parameter 0.0]
- $cell313 setLabel "name_type" "shift: Integer, "
- $cell313 setScope "name_type" "cl" "scopePhase"
- $cell313 setScope "name_type" "de" "scopeSystem"
-
- set cell314 [$row311 addCell parameter 0.0]
- $cell314 setLabel "name_type" "x: Single, "
- $cell314 setScope "name_type" "cl" "scopePhase"
- $cell314 setScope "name_type" "de" "scopeSystem"
-
- set cell315 [$row311 addCell parameter 0.0]
- $cell315 setLabel "name_type" "y: Single"
- $cell315 setScope "name_type" "cl" "scopePhase"
- $cell315 setScope "name_type" "de" "scopeSystem"
-
- set row316 [$diag addRow method 0.0]
- $row316 setLabel "name_type" "MouseUp() \n"
- $row316 setProp "has_parmlist" "1"
-
- set cell317 [$row316 addCell parameter 0.0]
- $cell317 setLabel "name_type" "button: Integer, "
- $cell317 setScope "name_type" "cl" "scopePhase"
- $cell317 setScope "name_type" "de" "scopeSystem"
-
- set cell318 [$row316 addCell parameter 0.0]
- $cell318 setLabel "name_type" "shift: Integer, "
- $cell318 setScope "name_type" "cl" "scopePhase"
- $cell318 setScope "name_type" "de" "scopeSystem"
-
- set cell319 [$row316 addCell parameter 0.0]
- $cell319 setLabel "name_type" "x: Single, "
- $cell319 setScope "name_type" "cl" "scopePhase"
- $cell319 setScope "name_type" "de" "scopeSystem"
-
- set cell320 [$row316 addCell parameter 0.0]
- $cell320 setLabel "name_type" "y: Single"
- $cell320 setScope "name_type" "cl" "scopePhase"
- $cell320 setScope "name_type" "de" "scopeSystem"
-
- set row321 [$diag addRow method 0.0]
- $row321 setLabel "name_type" "Reposition()\n"
- $row321 setProp "has_parmlist" "1"
-
- set row322 [$diag addRow method 0.0]
- $row322 setLabel "name_type" "Resize() \n"
- $row322 setProp "has_parmlist" "1"
-
- set row323 [$diag addRow method 0.0]
- $row323 setLabel "name_type" "Validate()"
- $row323 setProp "has_parmlist" "1"
-
- set cell324 [$row323 addCell parameter 0.0]
- $cell324 setLabel "name_type" "action: Integer, "
- $cell324 setScope "name_type" "cl" "scopePhase"
- $cell324 setScope "name_type" "de" "scopeSystem"
-
- set cell325 [$row323 addCell parameter 0.0]
- $cell325 setLabel "name_type" "save: Integer"
- $cell325 setScope "name_type" "cl" "scopePhase"
- $cell325 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new ListBox "vb_gui_lib" "" "" "" "" "" 1]
-
- set row326 [$diag addRow method 0.0]
- $row326 setLabel "name_type" "Click()\n"
- $row326 setProp "has_parmlist" "1"
-
- set row327 [$diag addRow method 0.0]
- $row327 setLabel "name_type" "DbClick() \n"
- $row327 setProp "has_parmlist" "1"
-
- set row328 [$diag addRow method 0.0]
- $row328 setLabel "name_type" "DragDrop() \n"
- $row328 setProp "has_parmlist" "1"
-
- set cell329 [$row328 addCell parameter 0.0]
- $cell329 setLabel "name_type" "source: Control, "
- $cell329 setScope "name_type" "cl" "scopePhase"
- $cell329 setScope "name_type" "de" "scopeSystem"
-
- set cell330 [$row328 addCell parameter 0.0]
- $cell330 setLabel "name_type" "x: Single, "
- $cell330 setScope "name_type" "cl" "scopePhase"
- $cell330 setScope "name_type" "de" "scopeSystem"
-
- set cell331 [$row328 addCell parameter 0.0]
- $cell331 setLabel "name_type" "y: Single"
- $cell331 setScope "name_type" "cl" "scopePhase"
- $cell331 setScope "name_type" "de" "scopeSystem"
-
- set row332 [$diag addRow method 0.0]
- $row332 setLabel "name_type" "DragOver() \n"
- $row332 setProp "has_parmlist" "1"
-
- set cell333 [$row332 addCell parameter 0.0]
- $cell333 setLabel "name_type" "source: Control, "
- $cell333 setScope "name_type" "cl" "scopePhase"
- $cell333 setScope "name_type" "de" "scopeSystem"
-
- set cell334 [$row332 addCell parameter 0.0]
- $cell334 setLabel "name_type" "x: Single, "
- $cell334 setScope "name_type" "cl" "scopePhase"
- $cell334 setScope "name_type" "de" "scopeSystem"
-
- set cell335 [$row332 addCell parameter 0.0]
- $cell335 setLabel "name_type" "y: Single, "
- $cell335 setScope "name_type" "cl" "scopePhase"
- $cell335 setScope "name_type" "de" "scopeSystem"
-
- set cell336 [$row332 addCell parameter 0.0]
- $cell336 setLabel "name_type" "state: Integer"
- $cell336 setScope "name_type" "cl" "scopePhase"
- $cell336 setScope "name_type" "de" "scopeSystem"
-
- set row337 [$diag addRow method 0.0]
- $row337 setLabel "name_type" "GotFocus()\n"
- $row337 setProp "has_parmlist" "1"
-
- set row338 [$diag addRow method 0.0]
- $row338 setLabel "name_type" "KeyDown() \n"
- $row338 setProp "has_parmlist" "1"
-
- set cell339 [$row338 addCell parameter 0.0]
- $cell339 setLabel "name_type" "keycode: Integer, "
- $cell339 setScope "name_type" "cl" "scopePhase"
- $cell339 setScope "name_type" "de" "scopeSystem"
-
- set cell340 [$row338 addCell parameter 0.0]
- $cell340 setLabel "name_type" "shift:Integer"
- $cell340 setScope "name_type" "cl" "scopePhase"
- $cell340 setScope "name_type" "de" "scopeSystem"
-
- set row341 [$diag addRow method 0.0]
- $row341 setLabel "name_type" "KeyPress() \n"
- $row341 setProp "has_parmlist" "1"
-
- set cell342 [$row341 addCell parameter 0.0]
- $cell342 setLabel "name_type" "keyascii: Integer"
- $cell342 setScope "name_type" "cl" "scopePhase"
- $cell342 setScope "name_type" "de" "scopeSystem"
-
- set row343 [$diag addRow method 0.0]
- $row343 setLabel "name_type" "KeyUp() \n"
- $row343 setProp "has_parmlist" "1"
-
- set cell344 [$row343 addCell parameter 0.0]
- $cell344 setLabel "name_type" "keycode: Integer, "
- $cell344 setScope "name_type" "cl" "scopePhase"
- $cell344 setScope "name_type" "de" "scopeSystem"
-
- set cell345 [$row343 addCell parameter 0.0]
- $cell345 setLabel "name_type" "shift: Integer"
- $cell345 setScope "name_type" "cl" "scopePhase"
- $cell345 setScope "name_type" "de" "scopeSystem"
-
- set row346 [$diag addRow method 0.0]
- $row346 setLabel "name_type" "LostFocus() \n"
- $row346 setProp "has_parmlist" "1"
-
- set row347 [$diag addRow method 0.0]
- $row347 setLabel "name_type" "MouseDown() \n"
- $row347 setProp "has_parmlist" "1"
-
- set cell348 [$row347 addCell parameter 0.0]
- $cell348 setLabel "name_type" "button: Integer, "
- $cell348 setScope "name_type" "cl" "scopePhase"
- $cell348 setScope "name_type" "de" "scopeSystem"
-
- set cell349 [$row347 addCell parameter 0.0]
- $cell349 setLabel "name_type" "shift: Integer, "
- $cell349 setScope "name_type" "cl" "scopePhase"
- $cell349 setScope "name_type" "de" "scopeSystem"
-
- set cell350 [$row347 addCell parameter 0.0]
- $cell350 setLabel "name_type" "x: Single, "
- $cell350 setScope "name_type" "cl" "scopePhase"
- $cell350 setScope "name_type" "de" "scopeSystem"
-
- set cell351 [$row347 addCell parameter 0.0]
- $cell351 setLabel "name_type" "y: Single"
- $cell351 setScope "name_type" "cl" "scopePhase"
- $cell351 setScope "name_type" "de" "scopeSystem"
-
- set row352 [$diag addRow method 0.0]
- $row352 setLabel "name_type" "MouseMove() \n"
- $row352 setProp "has_parmlist" "1"
-
- set cell353 [$row352 addCell parameter 0.0]
- $cell353 setLabel "name_type" "button: Integer, "
- $cell353 setScope "name_type" "cl" "scopePhase"
- $cell353 setScope "name_type" "de" "scopeSystem"
-
- set cell354 [$row352 addCell parameter 0.0]
- $cell354 setLabel "name_type" "shift: Integer, "
- $cell354 setScope "name_type" "cl" "scopePhase"
- $cell354 setScope "name_type" "de" "scopeSystem"
-
- set cell355 [$row352 addCell parameter 0.0]
- $cell355 setLabel "name_type" "x: Single, "
- $cell355 setScope "name_type" "cl" "scopePhase"
- $cell355 setScope "name_type" "de" "scopeSystem"
-
- set cell356 [$row352 addCell parameter 0.0]
- $cell356 setLabel "name_type" "y: Single"
- $cell356 setScope "name_type" "cl" "scopePhase"
- $cell356 setScope "name_type" "de" "scopeSystem"
-
- set row357 [$diag addRow method 0.0]
- $row357 setLabel "name_type" "MouseUp() "
- $row357 setProp "has_parmlist" "1"
-
- set cell358 [$row357 addCell parameter 0.0]
- $cell358 setLabel "name_type" "button: Integer, "
- $cell358 setScope "name_type" "cl" "scopePhase"
- $cell358 setScope "name_type" "de" "scopeSystem"
-
- set cell359 [$row357 addCell parameter 0.0]
- $cell359 setLabel "name_type" "shift: Integer, "
- $cell359 setScope "name_type" "cl" "scopePhase"
- $cell359 setScope "name_type" "de" "scopeSystem"
-
- set cell360 [$row357 addCell parameter 0.0]
- $cell360 setLabel "name_type" "x: Single, "
- $cell360 setScope "name_type" "cl" "scopePhase"
- $cell360 setScope "name_type" "de" "scopeSystem"
-
- set cell361 [$row357 addCell parameter 0.0]
- $cell361 setLabel "name_type" "y: Single"
- $cell361 setScope "name_type" "cl" "scopePhase"
- $cell361 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new DirListBox "vb_gui_lib" "" "" "" "" "" 1]
-
- set row362 [$diag addRow method 0.0]
- $row362 setLabel "name_type" "Change()\n"
- $row362 setProp "has_parmlist" "1"
-
- set row363 [$diag addRow method 0.0]
- $row363 setLabel "name_type" "Click() \n"
- $row363 setProp "has_parmlist" "1"
-
- set row364 [$diag addRow method 0.0]
- $row364 setLabel "name_type" "DragDrop() \n"
- $row364 setProp "has_parmlist" "1"
-
- set cell365 [$row364 addCell parameter 0.0]
- $cell365 setLabel "name_type" "source: Control, "
- $cell365 setScope "name_type" "cl" "scopePhase"
- $cell365 setScope "name_type" "de" "scopeSystem"
-
- set cell366 [$row364 addCell parameter 0.0]
- $cell366 setLabel "name_type" "x: Single, "
- $cell366 setScope "name_type" "cl" "scopePhase"
- $cell366 setScope "name_type" "de" "scopeSystem"
-
- set cell367 [$row364 addCell parameter 0.0]
- $cell367 setLabel "name_type" "y: Single"
- $cell367 setScope "name_type" "cl" "scopePhase"
- $cell367 setScope "name_type" "de" "scopeSystem"
-
- set row368 [$diag addRow method 0.0]
- $row368 setLabel "name_type" "DragOver() \n"
- $row368 setProp "has_parmlist" "1"
-
- set cell369 [$row368 addCell parameter 0.0]
- $cell369 setLabel "name_type" "source: Control, "
- $cell369 setScope "name_type" "cl" "scopePhase"
- $cell369 setScope "name_type" "de" "scopeSystem"
-
- set cell370 [$row368 addCell parameter 0.0]
- $cell370 setLabel "name_type" "x: Single, "
- $cell370 setScope "name_type" "cl" "scopePhase"
- $cell370 setScope "name_type" "de" "scopeSystem"
-
- set cell371 [$row368 addCell parameter 0.0]
- $cell371 setLabel "name_type" "y: Single, "
- $cell371 setScope "name_type" "cl" "scopePhase"
- $cell371 setScope "name_type" "de" "scopeSystem"
-
- set cell372 [$row368 addCell parameter 0.0]
- $cell372 setLabel "name_type" "state: Integer"
- $cell372 setScope "name_type" "cl" "scopePhase"
- $cell372 setScope "name_type" "de" "scopeSystem"
-
- set row373 [$diag addRow method 0.0]
- $row373 setLabel "name_type" "GotFocus()\n"
- $row373 setProp "has_parmlist" "1"
-
- set row374 [$diag addRow method 0.0]
- $row374 setLabel "name_type" "KeyDown() \n"
- $row374 setProp "has_parmlist" "1"
-
- set cell375 [$row374 addCell parameter 0.0]
- $cell375 setLabel "name_type" "keycode: Integer, "
- $cell375 setScope "name_type" "cl" "scopePhase"
- $cell375 setScope "name_type" "de" "scopeSystem"
-
- set cell376 [$row374 addCell parameter 0.0]
- $cell376 setLabel "name_type" "shift:Integer"
- $cell376 setScope "name_type" "cl" "scopePhase"
- $cell376 setScope "name_type" "de" "scopeSystem"
-
- set row377 [$diag addRow method 0.0]
- $row377 setLabel "name_type" "KeyPress() \n"
- $row377 setProp "has_parmlist" "1"
-
- set cell378 [$row377 addCell parameter 0.0]
- $cell378 setLabel "name_type" "keyascii: Integer"
- $cell378 setScope "name_type" "cl" "scopePhase"
- $cell378 setScope "name_type" "de" "scopeSystem"
-
- set row379 [$diag addRow method 0.0]
- $row379 setLabel "name_type" "KeyUp() \n"
- $row379 setProp "has_parmlist" "1"
-
- set cell380 [$row379 addCell parameter 0.0]
- $cell380 setLabel "name_type" "keycode: Integer, "
- $cell380 setScope "name_type" "cl" "scopePhase"
- $cell380 setScope "name_type" "de" "scopeSystem"
-
- set cell381 [$row379 addCell parameter 0.0]
- $cell381 setLabel "name_type" "shift: Integer"
- $cell381 setScope "name_type" "cl" "scopePhase"
- $cell381 setScope "name_type" "de" "scopeSystem"
-
- set row382 [$diag addRow method 0.0]
- $row382 setLabel "name_type" "LostFocus() \n"
- $row382 setProp "has_parmlist" "1"
-
- set row383 [$diag addRow method 0.0]
- $row383 setLabel "name_type" "MouseDown() \n"
- $row383 setProp "has_parmlist" "1"
-
- set cell384 [$row383 addCell parameter 0.0]
- $cell384 setLabel "name_type" "button: Integer, "
- $cell384 setScope "name_type" "cl" "scopePhase"
- $cell384 setScope "name_type" "de" "scopeSystem"
-
- set cell385 [$row383 addCell parameter 0.0]
- $cell385 setLabel "name_type" "shift: Integer, "
- $cell385 setScope "name_type" "cl" "scopePhase"
- $cell385 setScope "name_type" "de" "scopeSystem"
-
- set cell386 [$row383 addCell parameter 0.0]
- $cell386 setLabel "name_type" "x: Single, "
- $cell386 setScope "name_type" "cl" "scopePhase"
- $cell386 setScope "name_type" "de" "scopeSystem"
-
- set cell387 [$row383 addCell parameter 0.0]
- $cell387 setLabel "name_type" "y: Single"
- $cell387 setScope "name_type" "cl" "scopePhase"
- $cell387 setScope "name_type" "de" "scopeSystem"
-
- set row388 [$diag addRow method 0.0]
- $row388 setLabel "name_type" "MouseMove() \n"
- $row388 setProp "has_parmlist" "1"
-
- set cell389 [$row388 addCell parameter 0.0]
- $cell389 setLabel "name_type" "button: Integer, "
- $cell389 setScope "name_type" "cl" "scopePhase"
- $cell389 setScope "name_type" "de" "scopeSystem"
-
- set cell390 [$row388 addCell parameter 0.0]
- $cell390 setLabel "name_type" "shift: Integer, "
- $cell390 setScope "name_type" "cl" "scopePhase"
- $cell390 setScope "name_type" "de" "scopeSystem"
-
- set cell391 [$row388 addCell parameter 0.0]
- $cell391 setLabel "name_type" "x: Single, "
- $cell391 setScope "name_type" "cl" "scopePhase"
- $cell391 setScope "name_type" "de" "scopeSystem"
-
- set cell392 [$row388 addCell parameter 0.0]
- $cell392 setLabel "name_type" "y: Single"
- $cell392 setScope "name_type" "cl" "scopePhase"
- $cell392 setScope "name_type" "de" "scopeSystem"
-
- set row393 [$diag addRow method 0.0]
- $row393 setLabel "name_type" "MouseUp() "
- $row393 setProp "has_parmlist" "1"
-
- set cell394 [$row393 addCell parameter 0.0]
- $cell394 setLabel "name_type" "button: Integer, "
- $cell394 setScope "name_type" "cl" "scopePhase"
- $cell394 setScope "name_type" "de" "scopeSystem"
-
- set cell395 [$row393 addCell parameter 0.0]
- $cell395 setLabel "name_type" "shift: Integer, "
- $cell395 setScope "name_type" "cl" "scopePhase"
- $cell395 setScope "name_type" "de" "scopeSystem"
-
- set cell396 [$row393 addCell parameter 0.0]
- $cell396 setLabel "name_type" "x: Single, "
- $cell396 setScope "name_type" "cl" "scopePhase"
- $cell396 setScope "name_type" "de" "scopeSystem"
-
- set cell397 [$row393 addCell parameter 0.0]
- $cell397 setLabel "name_type" "y: Single"
- $cell397 setScope "name_type" "cl" "scopePhase"
- $cell397 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new DriveListBox "vb_gui_lib" "" "" "" "" "" 1]
-
- set row398 [$diag addRow method 0.0]
- $row398 setLabel "name_type" "Change()\n"
- $row398 setProp "has_parmlist" "1"
-
- set row399 [$diag addRow method 0.0]
- $row399 setLabel "name_type" "DragDrop() \n"
- $row399 setProp "has_parmlist" "1"
-
- set cell400 [$row399 addCell parameter 0.0]
- $cell400 setLabel "name_type" "source: Control, "
- $cell400 setScope "name_type" "cl" "scopePhase"
- $cell400 setScope "name_type" "de" "scopeSystem"
-
- set cell401 [$row399 addCell parameter 0.0]
- $cell401 setLabel "name_type" "x: Single, "
- $cell401 setScope "name_type" "cl" "scopePhase"
- $cell401 setScope "name_type" "de" "scopeSystem"
-
- set cell402 [$row399 addCell parameter 0.0]
- $cell402 setLabel "name_type" "y: Single"
- $cell402 setScope "name_type" "cl" "scopePhase"
- $cell402 setScope "name_type" "de" "scopeSystem"
-
- set row403 [$diag addRow method 0.0]
- $row403 setLabel "name_type" "DragOver() \n"
- $row403 setProp "has_parmlist" "1"
-
- set cell404 [$row403 addCell parameter 0.0]
- $cell404 setLabel "name_type" "source: Control, "
- $cell404 setScope "name_type" "cl" "scopePhase"
- $cell404 setScope "name_type" "de" "scopeSystem"
-
- set cell405 [$row403 addCell parameter 0.0]
- $cell405 setLabel "name_type" "x: Single, "
- $cell405 setScope "name_type" "cl" "scopePhase"
- $cell405 setScope "name_type" "de" "scopeSystem"
-
- set cell406 [$row403 addCell parameter 0.0]
- $cell406 setLabel "name_type" "y: Single, "
- $cell406 setScope "name_type" "cl" "scopePhase"
- $cell406 setScope "name_type" "de" "scopeSystem"
-
- set cell407 [$row403 addCell parameter 0.0]
- $cell407 setLabel "name_type" "state: Integer"
- $cell407 setScope "name_type" "cl" "scopePhase"
- $cell407 setScope "name_type" "de" "scopeSystem"
-
- set row408 [$diag addRow method 0.0]
- $row408 setLabel "name_type" "GotFocus()\n"
- $row408 setProp "has_parmlist" "1"
-
- set row409 [$diag addRow method 0.0]
- $row409 setLabel "name_type" "KeyDown() \n"
- $row409 setProp "has_parmlist" "1"
-
- set cell410 [$row409 addCell parameter 0.0]
- $cell410 setLabel "name_type" "keycode: Integer, "
- $cell410 setScope "name_type" "cl" "scopePhase"
- $cell410 setScope "name_type" "de" "scopeSystem"
-
- set cell411 [$row409 addCell parameter 0.0]
- $cell411 setLabel "name_type" "shift:Integer"
- $cell411 setScope "name_type" "cl" "scopePhase"
- $cell411 setScope "name_type" "de" "scopeSystem"
-
- set row412 [$diag addRow method 0.0]
- $row412 setLabel "name_type" "KeyPress() \n"
- $row412 setProp "has_parmlist" "1"
-
- set cell413 [$row412 addCell parameter 0.0]
- $cell413 setLabel "name_type" "keyascii: Integer"
- $cell413 setScope "name_type" "cl" "scopePhase"
- $cell413 setScope "name_type" "de" "scopeSystem"
-
- set row414 [$diag addRow method 0.0]
- $row414 setLabel "name_type" "KeyUp() \n"
- $row414 setProp "has_parmlist" "1"
-
- set cell415 [$row414 addCell parameter 0.0]
- $cell415 setLabel "name_type" "keycode: Integer, "
- $cell415 setScope "name_type" "cl" "scopePhase"
- $cell415 setScope "name_type" "de" "scopeSystem"
-
- set cell416 [$row414 addCell parameter 0.0]
- $cell416 setLabel "name_type" "shift: Integer"
- $cell416 setScope "name_type" "cl" "scopePhase"
- $cell416 setScope "name_type" "de" "scopeSystem"
-
- set row417 [$diag addRow method 0.0]
- $row417 setLabel "name_type" "LostFocus() "
- $row417 setProp "has_parmlist" "1"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new FileListBox "vb_gui_lib" "" "" "" "" "" 1]
-
- set row418 [$diag addRow method 0.0]
- $row418 setLabel "name_type" "Click()\n"
- $row418 setProp "has_parmlist" "1"
-
- set row419 [$diag addRow method 0.0]
- $row419 setLabel "name_type" "DbClick() \n"
- $row419 setProp "has_parmlist" "1"
-
- set row420 [$diag addRow method 0.0]
- $row420 setLabel "name_type" "DragDrop() \n"
- $row420 setProp "has_parmlist" "1"
-
- set cell421 [$row420 addCell parameter 0.0]
- $cell421 setLabel "name_type" "source: Control, "
- $cell421 setScope "name_type" "cl" "scopePhase"
- $cell421 setScope "name_type" "de" "scopeSystem"
-
- set cell422 [$row420 addCell parameter 0.0]
- $cell422 setLabel "name_type" "x: Single, "
- $cell422 setScope "name_type" "cl" "scopePhase"
- $cell422 setScope "name_type" "de" "scopeSystem"
-
- set cell423 [$row420 addCell parameter 0.0]
- $cell423 setLabel "name_type" "y: Single"
- $cell423 setScope "name_type" "cl" "scopePhase"
- $cell423 setScope "name_type" "de" "scopeSystem"
-
- set row424 [$diag addRow method 0.0]
- $row424 setLabel "name_type" "DragOver() \n"
- $row424 setProp "has_parmlist" "1"
-
- set cell425 [$row424 addCell parameter 0.0]
- $cell425 setLabel "name_type" "source: Control, "
- $cell425 setScope "name_type" "cl" "scopePhase"
- $cell425 setScope "name_type" "de" "scopeSystem"
-
- set cell426 [$row424 addCell parameter 0.0]
- $cell426 setLabel "name_type" "x: Single, "
- $cell426 setScope "name_type" "cl" "scopePhase"
- $cell426 setScope "name_type" "de" "scopeSystem"
-
- set cell427 [$row424 addCell parameter 0.0]
- $cell427 setLabel "name_type" "y: Single, "
- $cell427 setScope "name_type" "cl" "scopePhase"
- $cell427 setScope "name_type" "de" "scopeSystem"
-
- set cell428 [$row424 addCell parameter 0.0]
- $cell428 setLabel "name_type" "state: Integer"
- $cell428 setScope "name_type" "cl" "scopePhase"
- $cell428 setScope "name_type" "de" "scopeSystem"
-
- set row429 [$diag addRow method 0.0]
- $row429 setLabel "name_type" "GotFocus()\n"
- $row429 setProp "has_parmlist" "1"
-
- set row430 [$diag addRow method 0.0]
- $row430 setLabel "name_type" "KeyDown() \n"
- $row430 setProp "has_parmlist" "1"
-
- set cell431 [$row430 addCell parameter 0.0]
- $cell431 setLabel "name_type" "keycode: Integer, "
- $cell431 setScope "name_type" "cl" "scopePhase"
- $cell431 setScope "name_type" "de" "scopeSystem"
-
- set cell432 [$row430 addCell parameter 0.0]
- $cell432 setLabel "name_type" "shift:Integer"
- $cell432 setScope "name_type" "cl" "scopePhase"
- $cell432 setScope "name_type" "de" "scopeSystem"
-
- set row433 [$diag addRow method 0.0]
- $row433 setLabel "name_type" "KeyPress() \n"
- $row433 setProp "has_parmlist" "1"
-
- set cell434 [$row433 addCell parameter 0.0]
- $cell434 setLabel "name_type" "keyascii: Integer"
- $cell434 setScope "name_type" "cl" "scopePhase"
- $cell434 setScope "name_type" "de" "scopeSystem"
-
- set row435 [$diag addRow method 0.0]
- $row435 setLabel "name_type" "KeyUp() \n"
- $row435 setProp "has_parmlist" "1"
-
- set cell436 [$row435 addCell parameter 0.0]
- $cell436 setLabel "name_type" "keycode: Integer, "
- $cell436 setScope "name_type" "cl" "scopePhase"
- $cell436 setScope "name_type" "de" "scopeSystem"
-
- set cell437 [$row435 addCell parameter 0.0]
- $cell437 setLabel "name_type" "shift: Integer"
- $cell437 setScope "name_type" "cl" "scopePhase"
- $cell437 setScope "name_type" "de" "scopeSystem"
-
- set row438 [$diag addRow method 0.0]
- $row438 setLabel "name_type" "LostFocus() \n"
- $row438 setProp "has_parmlist" "1"
-
- set row439 [$diag addRow method 0.0]
- $row439 setLabel "name_type" "MouseDown() \n"
- $row439 setProp "has_parmlist" "1"
-
- set cell440 [$row439 addCell parameter 0.0]
- $cell440 setLabel "name_type" "button: Integer, "
- $cell440 setScope "name_type" "cl" "scopePhase"
- $cell440 setScope "name_type" "de" "scopeSystem"
-
- set cell441 [$row439 addCell parameter 0.0]
- $cell441 setLabel "name_type" "shift: Integer, "
- $cell441 setScope "name_type" "cl" "scopePhase"
- $cell441 setScope "name_type" "de" "scopeSystem"
-
- set cell442 [$row439 addCell parameter 0.0]
- $cell442 setLabel "name_type" "x: Single, "
- $cell442 setScope "name_type" "cl" "scopePhase"
- $cell442 setScope "name_type" "de" "scopeSystem"
-
- set cell443 [$row439 addCell parameter 0.0]
- $cell443 setLabel "name_type" "y: Single"
- $cell443 setScope "name_type" "cl" "scopePhase"
- $cell443 setScope "name_type" "de" "scopeSystem"
-
- set row444 [$diag addRow method 0.0]
- $row444 setLabel "name_type" "MouseMove() \n"
- $row444 setProp "has_parmlist" "1"
-
- set cell445 [$row444 addCell parameter 0.0]
- $cell445 setLabel "name_type" "button: Integer, "
- $cell445 setScope "name_type" "cl" "scopePhase"
- $cell445 setScope "name_type" "de" "scopeSystem"
-
- set cell446 [$row444 addCell parameter 0.0]
- $cell446 setLabel "name_type" "shift: Integer, "
- $cell446 setScope "name_type" "cl" "scopePhase"
- $cell446 setScope "name_type" "de" "scopeSystem"
-
- set cell447 [$row444 addCell parameter 0.0]
- $cell447 setLabel "name_type" "x: Single, "
- $cell447 setScope "name_type" "cl" "scopePhase"
- $cell447 setScope "name_type" "de" "scopeSystem"
-
- set cell448 [$row444 addCell parameter 0.0]
- $cell448 setLabel "name_type" "y: Single"
- $cell448 setScope "name_type" "cl" "scopePhase"
- $cell448 setScope "name_type" "de" "scopeSystem"
-
- set row449 [$diag addRow method 0.0]
- $row449 setLabel "name_type" "MouseUp() \n"
- $row449 setProp "has_parmlist" "1"
-
- set cell450 [$row449 addCell parameter 0.0]
- $cell450 setLabel "name_type" "button: Integer, "
- $cell450 setScope "name_type" "cl" "scopePhase"
- $cell450 setScope "name_type" "de" "scopeSystem"
-
- set cell451 [$row449 addCell parameter 0.0]
- $cell451 setLabel "name_type" "shift: Integer, "
- $cell451 setScope "name_type" "cl" "scopePhase"
- $cell451 setScope "name_type" "de" "scopeSystem"
-
- set cell452 [$row449 addCell parameter 0.0]
- $cell452 setLabel "name_type" "x: Single, "
- $cell452 setScope "name_type" "cl" "scopePhase"
- $cell452 setScope "name_type" "de" "scopeSystem"
-
- set cell453 [$row449 addCell parameter 0.0]
- $cell453 setLabel "name_type" "y: Single"
- $cell453 setScope "name_type" "cl" "scopePhase"
- $cell453 setScope "name_type" "de" "scopeSystem"
-
- set row454 [$diag addRow method 0.0]
- $row454 setLabel "name_type" "PathChange()\n"
- $row454 setProp "has_parmlist" "1"
-
- set row455 [$diag addRow method 0.0]
- $row455 setLabel "name_type" "PatternChange()"
- $row455 setProp "has_parmlist" "1"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CAD new leafcontrols1 "vb_gui_lib" "" "" "" "" "" 1]
-
- set node457 [$diag addNode cad_class 768.0 624.0 120.0 37.3333]
- $node457 setLabel "name" "LeafControl"
- $node457 setProp "is_folded" "1"
- $node457 setScope "name" "cl" "scopePhase"
-
- set node458 [$diag addNode cad_class 464.0 1104.0 417.333 321.333]
- $node458 setLabel "name" "TextBox"
- $node458 setScope "name" "cl" "scopePhase"
-
- set node459 [$diag addNode cad_class 224.0 784.0 417.333 302.667]
- $node459 setLabel "name" "CheckBox"
- $node459 setScope "name" "cl" "scopePhase"
-
- set node460 [$diag addNode cad_class 672.0 784.0 413.333 302.667]
- $node460 setLabel "name" "ComboBox"
- $node460 setScope "name" "cl" "scopePhase"
-
- set node461 [$diag addNode cad_class 896.0 1104.0 417.333 302.667]
- $node461 setLabel "name" "CommandButton"
- $node461 setScope "name" "cl" "scopePhase"
-
- set node456 [$diag addRake generalization $node457 $node459 832.0 640.0 432.0 880.0 768.0]
-
- set conn462 [$node456 getInConn]
- set segm463 [$conn462 getFirstSegm]
-
- set conn464 [$node456 getFirstOutConn]
- set segm465 [$conn464 getFirstSegm]
-
- set conn466 [$diag addConn generalization_conn $node456 $node460 880.0 768.0 880.0 800.0]
- set segm467 [$conn466 getFirstSegm]
-
- set conn468 [$diag addConn generalization_conn $node456 $node461 1104.0 768.0 1104.0 1120.0]
- set segm469 [$conn468 getFirstSegm]
-
- set conn470 [$diag addConn generalization_conn $node456 $node458 656.0 768.0 656.0 1136.0]
- set segm471 [$conn470 getFirstSegm]
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new TextBox "vb_gui_lib" "" "" "" "" "" 1]
-
- set row472 [$diag addRow method 0.0]
- $row472 setLabel "name_type" "Click()\n"
- $row472 setProp "has_parmlist" "1"
-
- set row473 [$diag addRow method 0.0]
- $row473 setLabel "name_type" "DbClick() \n"
- $row473 setProp "has_parmlist" "1"
-
- set row474 [$diag addRow method 0.0]
- $row474 setLabel "name_type" "DragDrop() \n"
- $row474 setProp "has_parmlist" "1"
-
- set cell475 [$row474 addCell parameter 0.0]
- $cell475 setLabel "name_type" "source: Control, "
- $cell475 setScope "name_type" "cl" "scopePhase"
- $cell475 setScope "name_type" "de" "scopeSystem"
-
- set cell476 [$row474 addCell parameter 0.0]
- $cell476 setLabel "name_type" "x: Single, "
- $cell476 setScope "name_type" "cl" "scopePhase"
- $cell476 setScope "name_type" "de" "scopeSystem"
-
- set cell477 [$row474 addCell parameter 0.0]
- $cell477 setLabel "name_type" "y: Single"
- $cell477 setScope "name_type" "cl" "scopePhase"
- $cell477 setScope "name_type" "de" "scopeSystem"
-
- set row478 [$diag addRow method 0.0]
- $row478 setLabel "name_type" "DragOver() \n"
- $row478 setProp "has_parmlist" "1"
-
- set cell479 [$row478 addCell parameter 0.0]
- $cell479 setLabel "name_type" "source: Control, "
- $cell479 setScope "name_type" "cl" "scopePhase"
- $cell479 setScope "name_type" "de" "scopeSystem"
-
- set cell480 [$row478 addCell parameter 0.0]
- $cell480 setLabel "name_type" "x: Single, "
- $cell480 setScope "name_type" "cl" "scopePhase"
- $cell480 setScope "name_type" "de" "scopeSystem"
-
- set cell481 [$row478 addCell parameter 0.0]
- $cell481 setLabel "name_type" "y: Single, "
- $cell481 setScope "name_type" "cl" "scopePhase"
- $cell481 setScope "name_type" "de" "scopeSystem"
-
- set cell482 [$row478 addCell parameter 0.0]
- $cell482 setLabel "name_type" "state: Integer"
- $cell482 setScope "name_type" "cl" "scopePhase"
- $cell482 setScope "name_type" "de" "scopeSystem"
-
- set row483 [$diag addRow method 0.0]
- $row483 setLabel "name_type" "GotFocus()\n"
- $row483 setProp "has_parmlist" "1"
-
- set row484 [$diag addRow method 0.0]
- $row484 setLabel "name_type" "KeyDown() \n"
- $row484 setProp "has_parmlist" "1"
-
- set cell485 [$row484 addCell parameter 0.0]
- $cell485 setLabel "name_type" "keycode: Integer, "
- $cell485 setScope "name_type" "cl" "scopePhase"
- $cell485 setScope "name_type" "de" "scopeSystem"
-
- set cell486 [$row484 addCell parameter 0.0]
- $cell486 setLabel "name_type" "shift:Integer"
- $cell486 setScope "name_type" "cl" "scopePhase"
- $cell486 setScope "name_type" "de" "scopeSystem"
-
- set row487 [$diag addRow method 0.0]
- $row487 setLabel "name_type" "KeyPress() \n"
- $row487 setProp "has_parmlist" "1"
-
- set cell488 [$row487 addCell parameter 0.0]
- $cell488 setLabel "name_type" "keyascii: Integer"
- $cell488 setScope "name_type" "cl" "scopePhase"
- $cell488 setScope "name_type" "de" "scopeSystem"
-
- set row489 [$diag addRow method 0.0]
- $row489 setLabel "name_type" "KeyUp() \n"
- $row489 setProp "has_parmlist" "1"
-
- set cell490 [$row489 addCell parameter 0.0]
- $cell490 setLabel "name_type" "keycode: Integer, "
- $cell490 setScope "name_type" "cl" "scopePhase"
- $cell490 setScope "name_type" "de" "scopeSystem"
-
- set cell491 [$row489 addCell parameter 0.0]
- $cell491 setLabel "name_type" "shift: Integer"
- $cell491 setScope "name_type" "cl" "scopePhase"
- $cell491 setScope "name_type" "de" "scopeSystem"
-
- set row492 [$diag addRow method 0.0]
- $row492 setLabel "name_type" "LostFocus() \n"
- $row492 setProp "has_parmlist" "1"
-
- set row493 [$diag addRow method 0.0]
- $row493 setLabel "name_type" "MouseDown() \n"
- $row493 setProp "has_parmlist" "1"
-
- set cell494 [$row493 addCell parameter 0.0]
- $cell494 setLabel "name_type" "button: Integer, "
- $cell494 setScope "name_type" "cl" "scopePhase"
- $cell494 setScope "name_type" "de" "scopeSystem"
-
- set cell495 [$row493 addCell parameter 0.0]
- $cell495 setLabel "name_type" "shift: Integer, "
- $cell495 setScope "name_type" "cl" "scopePhase"
- $cell495 setScope "name_type" "de" "scopeSystem"
-
- set cell496 [$row493 addCell parameter 0.0]
- $cell496 setLabel "name_type" "x: Single, "
- $cell496 setScope "name_type" "cl" "scopePhase"
- $cell496 setScope "name_type" "de" "scopeSystem"
-
- set cell497 [$row493 addCell parameter 0.0]
- $cell497 setLabel "name_type" "y: Single"
- $cell497 setScope "name_type" "cl" "scopePhase"
- $cell497 setScope "name_type" "de" "scopeSystem"
-
- set row498 [$diag addRow method 0.0]
- $row498 setLabel "name_type" "MouseMove() \n"
- $row498 setProp "has_parmlist" "1"
-
- set cell499 [$row498 addCell parameter 0.0]
- $cell499 setLabel "name_type" "button: Integer, "
- $cell499 setScope "name_type" "cl" "scopePhase"
- $cell499 setScope "name_type" "de" "scopeSystem"
-
- set cell500 [$row498 addCell parameter 0.0]
- $cell500 setLabel "name_type" "shift: Integer, "
- $cell500 setScope "name_type" "cl" "scopePhase"
- $cell500 setScope "name_type" "de" "scopeSystem"
-
- set cell501 [$row498 addCell parameter 0.0]
- $cell501 setLabel "name_type" "x: Single, "
- $cell501 setScope "name_type" "cl" "scopePhase"
- $cell501 setScope "name_type" "de" "scopeSystem"
-
- set cell502 [$row498 addCell parameter 0.0]
- $cell502 setLabel "name_type" "y: Single"
- $cell502 setScope "name_type" "cl" "scopePhase"
- $cell502 setScope "name_type" "de" "scopeSystem"
-
- set row503 [$diag addRow method 0.0]
- $row503 setLabel "name_type" "MouseUp() "
- $row503 setProp "has_parmlist" "1"
-
- set cell504 [$row503 addCell parameter 0.0]
- $cell504 setLabel "name_type" "button: Integer, "
- $cell504 setScope "name_type" "cl" "scopePhase"
- $cell504 setScope "name_type" "de" "scopeSystem"
-
- set cell505 [$row503 addCell parameter 0.0]
- $cell505 setLabel "name_type" "shift: Integer, "
- $cell505 setScope "name_type" "cl" "scopePhase"
- $cell505 setScope "name_type" "de" "scopeSystem"
-
- set cell506 [$row503 addCell parameter 0.0]
- $cell506 setLabel "name_type" "x: Single, "
- $cell506 setScope "name_type" "cl" "scopePhase"
- $cell506 setScope "name_type" "de" "scopeSystem"
-
- set cell507 [$row503 addCell parameter 0.0]
- $cell507 setLabel "name_type" "y: Single"
- $cell507 setScope "name_type" "cl" "scopePhase"
- $cell507 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CAD new leafcontrols2 "vb_gui_lib" "" "" "" "" "" 1]
-
- set node509 [$diag addNode cad_class 1360.0 800.0 120.0 30.0]
- $node509 setLabel "name" "LeafControl"
- $node509 setProp "is_folded" "1"
- $node509 setScope "name" "cl" "scopePhase"
-
- set node510 [$diag addNode cad_class 1056.0 1392.0 417.0 248.0]
- $node510 setLabel "name" "ListBox"
- $node510 setScope "name" "cl" "scopePhase"
-
- set node511 [$diag addNode cad_class 800.0 976.0 417.0 276.0]
- $node511 setLabel "name" "FileListBox"
- $node511 setScope "name" "cl" "scopePhase"
-
- set node512 [$diag addNode cad_class 1280.0 976.0 417.0 248.0]
- $node512 setLabel "name" "DirListBox"
- $node512 setScope "name" "cl" "scopePhase"
-
- set node513 [$diag addNode cad_class 1552.0 1392.0 412.0 192.0]
- $node513 setLabel "name" "DriveListBox"
- $node513 setScope "name" "cl" "scopePhase"
-
- set node508 [$diag addRake generalization $node509 $node511 1424.0 816.0 1008.0 1072.0 944.0]
-
- set conn514 [$node508 getInConn]
- set segm515 [$conn514 getFirstSegm]
-
- set conn516 [$node508 getFirstOutConn]
- set segm517 [$conn516 getFirstSegm]
-
- set conn518 [$diag addConn generalization_conn $node508 $node512 1488.0 944.0 1488.0 992.0]
- set segm519 [$conn518 getFirstSegm]
-
- set conn520 [$diag addConn generalization_conn $node508 $node513 1760.0 944.0 1760.0 1408.0]
- set segm521 [$conn520 getFirstSegm]
-
- set conn522 [$diag addConn generalization_conn $node508 $node510 1248.0 944.0 1248.0 1424.0]
- set segm523 [$conn522 getFirstSegm]
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new HScrollBar "vb_gui_lib" "" "" "" "" "" 1]
-
- set row524 [$diag addRow method 0.0]
- $row524 setLabel "name_type" "Change()\n"
- $row524 setProp "has_parmlist" "1"
-
- set row525 [$diag addRow method 0.0]
- $row525 setLabel "name_type" "DragDrop() \n"
- $row525 setProp "has_parmlist" "1"
-
- set cell526 [$row525 addCell parameter 0.0]
- $cell526 setLabel "name_type" "source: Control, "
- $cell526 setScope "name_type" "cl" "scopePhase"
- $cell526 setScope "name_type" "de" "scopeSystem"
-
- set cell527 [$row525 addCell parameter 0.0]
- $cell527 setLabel "name_type" "x: Single, "
- $cell527 setScope "name_type" "cl" "scopePhase"
- $cell527 setScope "name_type" "de" "scopeSystem"
-
- set cell528 [$row525 addCell parameter 0.0]
- $cell528 setLabel "name_type" "y: Single"
- $cell528 setScope "name_type" "cl" "scopePhase"
- $cell528 setScope "name_type" "de" "scopeSystem"
-
- set row529 [$diag addRow method 0.0]
- $row529 setLabel "name_type" "DragOver() \n"
- $row529 setProp "has_parmlist" "1"
-
- set cell530 [$row529 addCell parameter 0.0]
- $cell530 setLabel "name_type" "source: Control, "
- $cell530 setScope "name_type" "cl" "scopePhase"
- $cell530 setScope "name_type" "de" "scopeSystem"
-
- set cell531 [$row529 addCell parameter 0.0]
- $cell531 setLabel "name_type" "x: Single, "
- $cell531 setScope "name_type" "cl" "scopePhase"
- $cell531 setScope "name_type" "de" "scopeSystem"
-
- set cell532 [$row529 addCell parameter 0.0]
- $cell532 setLabel "name_type" "y: Single, "
- $cell532 setScope "name_type" "cl" "scopePhase"
- $cell532 setScope "name_type" "de" "scopeSystem"
-
- set cell533 [$row529 addCell parameter 0.0]
- $cell533 setLabel "name_type" "state: Integer"
- $cell533 setScope "name_type" "cl" "scopePhase"
- $cell533 setScope "name_type" "de" "scopeSystem"
-
- set row534 [$diag addRow method 0.0]
- $row534 setLabel "name_type" "GotFocus()\n"
- $row534 setProp "has_parmlist" "1"
-
- set row535 [$diag addRow method 0.0]
- $row535 setLabel "name_type" "KeyDown() \n"
- $row535 setProp "has_parmlist" "1"
-
- set cell536 [$row535 addCell parameter 0.0]
- $cell536 setLabel "name_type" "keycode: Integer, "
- $cell536 setScope "name_type" "cl" "scopePhase"
- $cell536 setScope "name_type" "de" "scopeSystem"
-
- set cell537 [$row535 addCell parameter 0.0]
- $cell537 setLabel "name_type" "shift:Integer"
- $cell537 setScope "name_type" "cl" "scopePhase"
- $cell537 setScope "name_type" "de" "scopeSystem"
-
- set row538 [$diag addRow method 0.0]
- $row538 setLabel "name_type" "KeyPress() \n"
- $row538 setProp "has_parmlist" "1"
-
- set cell539 [$row538 addCell parameter 0.0]
- $cell539 setLabel "name_type" "keyascii: Integer"
- $cell539 setScope "name_type" "cl" "scopePhase"
- $cell539 setScope "name_type" "de" "scopeSystem"
-
- set row540 [$diag addRow method 0.0]
- $row540 setLabel "name_type" "KeyUp() \n"
- $row540 setProp "has_parmlist" "1"
-
- set cell541 [$row540 addCell parameter 0.0]
- $cell541 setLabel "name_type" "keycode: Integer, "
- $cell541 setScope "name_type" "cl" "scopePhase"
- $cell541 setScope "name_type" "de" "scopeSystem"
-
- set cell542 [$row540 addCell parameter 0.0]
- $cell542 setLabel "name_type" "shift: Integer"
- $cell542 setScope "name_type" "cl" "scopePhase"
- $cell542 setScope "name_type" "de" "scopeSystem"
-
- set row543 [$diag addRow method 0.0]
- $row543 setLabel "name_type" "LostFocus() \n"
- $row543 setProp "has_parmlist" "1"
-
- set row544 [$diag addRow method 0.0]
- $row544 setLabel "name_type" "Scroll()"
- $row544 setProp "has_parmlist" "1"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new VScrollBar "vb_gui_lib" "" "" "" "" "" 1]
-
- set row545 [$diag addRow method 0.0]
- $row545 setLabel "name_type" "Change()\n"
- $row545 setProp "has_parmlist" "1"
-
- set row546 [$diag addRow method 0.0]
- $row546 setLabel "name_type" "DragDrop() \n"
- $row546 setProp "has_parmlist" "1"
-
- set cell547 [$row546 addCell parameter 0.0]
- $cell547 setLabel "name_type" "source: Control, "
- $cell547 setScope "name_type" "cl" "scopePhase"
- $cell547 setScope "name_type" "de" "scopeSystem"
-
- set cell548 [$row546 addCell parameter 0.0]
- $cell548 setLabel "name_type" "x: Single, "
- $cell548 setScope "name_type" "cl" "scopePhase"
- $cell548 setScope "name_type" "de" "scopeSystem"
-
- set cell549 [$row546 addCell parameter 0.0]
- $cell549 setLabel "name_type" "y: Single"
- $cell549 setScope "name_type" "cl" "scopePhase"
- $cell549 setScope "name_type" "de" "scopeSystem"
-
- set row550 [$diag addRow method 0.0]
- $row550 setLabel "name_type" "DragOver() \n"
- $row550 setProp "has_parmlist" "1"
-
- set cell551 [$row550 addCell parameter 0.0]
- $cell551 setLabel "name_type" "source: Control, "
- $cell551 setScope "name_type" "cl" "scopePhase"
- $cell551 setScope "name_type" "de" "scopeSystem"
-
- set cell552 [$row550 addCell parameter 0.0]
- $cell552 setLabel "name_type" "x: Single, "
- $cell552 setScope "name_type" "cl" "scopePhase"
- $cell552 setScope "name_type" "de" "scopeSystem"
-
- set cell553 [$row550 addCell parameter 0.0]
- $cell553 setLabel "name_type" "y: Single, "
- $cell553 setScope "name_type" "cl" "scopePhase"
- $cell553 setScope "name_type" "de" "scopeSystem"
-
- set cell554 [$row550 addCell parameter 0.0]
- $cell554 setLabel "name_type" "state: Integer"
- $cell554 setScope "name_type" "cl" "scopePhase"
- $cell554 setScope "name_type" "de" "scopeSystem"
-
- set row555 [$diag addRow method 0.0]
- $row555 setLabel "name_type" "GotFocus()\n"
- $row555 setProp "has_parmlist" "1"
-
- set row556 [$diag addRow method 0.0]
- $row556 setLabel "name_type" "KeyDown() \n"
- $row556 setProp "has_parmlist" "1"
-
- set cell557 [$row556 addCell parameter 0.0]
- $cell557 setLabel "name_type" "keycode: Integer, "
- $cell557 setScope "name_type" "cl" "scopePhase"
- $cell557 setScope "name_type" "de" "scopeSystem"
-
- set cell558 [$row556 addCell parameter 0.0]
- $cell558 setLabel "name_type" "shift:Integer"
- $cell558 setScope "name_type" "cl" "scopePhase"
- $cell558 setScope "name_type" "de" "scopeSystem"
-
- set row559 [$diag addRow method 0.0]
- $row559 setLabel "name_type" "KeyPress() \n"
- $row559 setProp "has_parmlist" "1"
-
- set cell560 [$row559 addCell parameter 0.0]
- $cell560 setLabel "name_type" "keyascii: Integer"
- $cell560 setScope "name_type" "cl" "scopePhase"
- $cell560 setScope "name_type" "de" "scopeSystem"
-
- set row561 [$diag addRow method 0.0]
- $row561 setLabel "name_type" "KeyUp() \n"
- $row561 setProp "has_parmlist" "1"
-
- set cell562 [$row561 addCell parameter 0.0]
- $cell562 setLabel "name_type" "keycode: Integer, "
- $cell562 setScope "name_type" "cl" "scopePhase"
- $cell562 setScope "name_type" "de" "scopeSystem"
-
- set cell563 [$row561 addCell parameter 0.0]
- $cell563 setLabel "name_type" "shift: Integer"
- $cell563 setScope "name_type" "cl" "scopePhase"
- $cell563 setScope "name_type" "de" "scopeSystem"
-
- set row564 [$diag addRow method 0.0]
- $row564 setLabel "name_type" "LostFocus() \n"
- $row564 setProp "has_parmlist" "1"
-
- set row565 [$diag addRow method 0.0]
- $row565 setLabel "name_type" "Scroll()"
- $row565 setProp "has_parmlist" "1"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CAD new leafcontrols4 "vb_gui_lib" "" "" "" "" "" 1]
-
- set node567 [$diag addNode cad_class 1360.0 800.0 120.0 37.3333]
- $node567 setLabel "name" "LeafControl"
- $node567 setProp "is_folded" "1"
- $node567 setScope "name" "cl" "scopePhase"
-
- set node568 [$diag addNode cad_class 1056.0 1392.0 417.333 340.0]
- $node568 setLabel "name" "Label"
- $node568 setScope "name" "cl" "scopePhase"
-
- set node569 [$diag addNode cad_class 800.0 976.0 417.333 228.0]
- $node569 setLabel "name" "Image"
- $node569 setScope "name" "cl" "scopePhase"
-
- set node570 [$diag addNode cad_class 1280.0 976.0 425.333 377.333]
- $node570 setLabel "name" "OLE"
- $node570 setScope "name" "cl" "scopePhase"
-
- set node571 [$diag addNode cad_class 1552.0 1392.0 208.0 116.0]
- $node571 setLabel "name" "Shape"
- $node571 setScope "name" "cl" "scopePhase"
-
- set node566 [$diag addRake generalization $node567 $node569 1424.0 816.0 1008.0 1072.0 944.0]
-
- set conn572 [$node566 getInConn]
- set segm573 [$conn572 getFirstSegm]
-
- set conn574 [$node566 getFirstOutConn]
- set segm575 [$conn574 getFirstSegm]
-
- set conn576 [$diag addConn generalization_conn $node566 $node570 1488.0 944.0 1488.0 992.0]
- set segm577 [$conn576 getFirstSegm]
-
- set conn578 [$diag addConn generalization_conn $node566 $node571 1760.0 944.0 1760.0 1408.0]
- set segm579 [$conn578 getFirstSegm]
-
- set conn580 [$diag addConn generalization_conn $node566 $node568 1248.0 944.0 1248.0 1424.0]
- set segm581 [$conn580 getFirstSegm]
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new Image "vb_gui_lib" "" "" "" "" "" 1]
-
- set row582 [$diag addRow method 0.0]
- $row582 setLabel "name_type" "Click()\n"
- $row582 setProp "has_parmlist" "1"
-
- set row583 [$diag addRow method 0.0]
- $row583 setLabel "name_type" "DbClick() \n"
- $row583 setProp "has_parmlist" "1"
-
- set row584 [$diag addRow method 0.0]
- $row584 setLabel "name_type" "DragDrop() \n"
- $row584 setProp "has_parmlist" "1"
-
- set cell585 [$row584 addCell parameter 0.0]
- $cell585 setLabel "name_type" "source: Control, "
- $cell585 setScope "name_type" "cl" "scopePhase"
- $cell585 setScope "name_type" "de" "scopeSystem"
-
- set cell586 [$row584 addCell parameter 0.0]
- $cell586 setLabel "name_type" "x: Single, "
- $cell586 setScope "name_type" "cl" "scopePhase"
- $cell586 setScope "name_type" "de" "scopeSystem"
-
- set cell587 [$row584 addCell parameter 0.0]
- $cell587 setLabel "name_type" "y: Single"
- $cell587 setScope "name_type" "cl" "scopePhase"
- $cell587 setScope "name_type" "de" "scopeSystem"
-
- set row588 [$diag addRow method 0.0]
- $row588 setLabel "name_type" "DragOver() \n"
- $row588 setProp "has_parmlist" "1"
-
- set cell589 [$row588 addCell parameter 0.0]
- $cell589 setLabel "name_type" "source: Control, "
- $cell589 setScope "name_type" "cl" "scopePhase"
- $cell589 setScope "name_type" "de" "scopeSystem"
-
- set cell590 [$row588 addCell parameter 0.0]
- $cell590 setLabel "name_type" "x: Single, "
- $cell590 setScope "name_type" "cl" "scopePhase"
- $cell590 setScope "name_type" "de" "scopeSystem"
-
- set cell591 [$row588 addCell parameter 0.0]
- $cell591 setLabel "name_type" "y: Single, "
- $cell591 setScope "name_type" "cl" "scopePhase"
- $cell591 setScope "name_type" "de" "scopeSystem"
-
- set cell592 [$row588 addCell parameter 0.0]
- $cell592 setLabel "name_type" "state: Integer"
- $cell592 setScope "name_type" "cl" "scopePhase"
- $cell592 setScope "name_type" "de" "scopeSystem"
-
- set row593 [$diag addRow method 0.0]
- $row593 setLabel "name_type" "MouseDown() \n"
- $row593 setProp "has_parmlist" "1"
-
- set cell594 [$row593 addCell parameter 0.0]
- $cell594 setLabel "name_type" "button: Integer, "
- $cell594 setScope "name_type" "cl" "scopePhase"
- $cell594 setScope "name_type" "de" "scopeSystem"
-
- set cell595 [$row593 addCell parameter 0.0]
- $cell595 setLabel "name_type" "shift: Integer, "
- $cell595 setScope "name_type" "cl" "scopePhase"
- $cell595 setScope "name_type" "de" "scopeSystem"
-
- set cell596 [$row593 addCell parameter 0.0]
- $cell596 setLabel "name_type" "x: Single, "
- $cell596 setScope "name_type" "cl" "scopePhase"
- $cell596 setScope "name_type" "de" "scopeSystem"
-
- set cell597 [$row593 addCell parameter 0.0]
- $cell597 setLabel "name_type" "y: Single"
- $cell597 setScope "name_type" "cl" "scopePhase"
- $cell597 setScope "name_type" "de" "scopeSystem"
-
- set row598 [$diag addRow method 0.0]
- $row598 setLabel "name_type" "MouseMove() \n"
- $row598 setProp "has_parmlist" "1"
-
- set cell599 [$row598 addCell parameter 0.0]
- $cell599 setLabel "name_type" "button: Integer, "
- $cell599 setScope "name_type" "cl" "scopePhase"
- $cell599 setScope "name_type" "de" "scopeSystem"
-
- set cell600 [$row598 addCell parameter 0.0]
- $cell600 setLabel "name_type" "shift: Integer, "
- $cell600 setScope "name_type" "cl" "scopePhase"
- $cell600 setScope "name_type" "de" "scopeSystem"
-
- set cell601 [$row598 addCell parameter 0.0]
- $cell601 setLabel "name_type" "x: Single, "
- $cell601 setScope "name_type" "cl" "scopePhase"
- $cell601 setScope "name_type" "de" "scopeSystem"
-
- set cell602 [$row598 addCell parameter 0.0]
- $cell602 setLabel "name_type" "y: Single"
- $cell602 setScope "name_type" "cl" "scopePhase"
- $cell602 setScope "name_type" "de" "scopeSystem"
-
- set row603 [$diag addRow method 0.0]
- $row603 setLabel "name_type" "MouseUp() "
- $row603 setProp "has_parmlist" "1"
-
- set cell604 [$row603 addCell parameter 0.0]
- $cell604 setLabel "name_type" "button: Integer, "
- $cell604 setScope "name_type" "cl" "scopePhase"
- $cell604 setScope "name_type" "de" "scopeSystem"
-
- set cell605 [$row603 addCell parameter 0.0]
- $cell605 setLabel "name_type" "shift: Integer, "
- $cell605 setScope "name_type" "cl" "scopePhase"
- $cell605 setScope "name_type" "de" "scopeSystem"
-
- set cell606 [$row603 addCell parameter 0.0]
- $cell606 setLabel "name_type" "x: Single, "
- $cell606 setScope "name_type" "cl" "scopePhase"
- $cell606 setScope "name_type" "de" "scopeSystem"
-
- set cell607 [$row603 addCell parameter 0.0]
- $cell607 setLabel "name_type" "y: Single"
- $cell607 setScope "name_type" "cl" "scopePhase"
- $cell607 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new Label "vb_gui_lib" "" "" "" "" "" 1]
-
- set row608 [$diag addRow method 0.0]
- $row608 setLabel "name_type" "Change()\n"
- $row608 setProp "has_parmlist" "1"
-
- set row609 [$diag addRow method 0.0]
- $row609 setLabel "name_type" "Click()\n"
- $row609 setProp "has_parmlist" "1"
-
- set row610 [$diag addRow method 0.0]
- $row610 setLabel "name_type" "DbClick() \n"
- $row610 setProp "has_parmlist" "1"
-
- set row611 [$diag addRow method 0.0]
- $row611 setLabel "name_type" "Deactivate()\n"
- $row611 setProp "has_parmlist" "1"
-
- set row612 [$diag addRow method 0.0]
- $row612 setLabel "name_type" "DragDrop() \n"
- $row612 setProp "has_parmlist" "1"
-
- set cell613 [$row612 addCell parameter 0.0]
- $cell613 setLabel "name_type" "source: Control, "
- $cell613 setScope "name_type" "cl" "scopePhase"
- $cell613 setScope "name_type" "de" "scopeSystem"
-
- set cell614 [$row612 addCell parameter 0.0]
- $cell614 setLabel "name_type" "x: Single, "
- $cell614 setScope "name_type" "cl" "scopePhase"
- $cell614 setScope "name_type" "de" "scopeSystem"
-
- set cell615 [$row612 addCell parameter 0.0]
- $cell615 setLabel "name_type" "y: Single"
- $cell615 setScope "name_type" "cl" "scopePhase"
- $cell615 setScope "name_type" "de" "scopeSystem"
-
- set row616 [$diag addRow method 0.0]
- $row616 setLabel "name_type" "DragOver() \n"
- $row616 setProp "has_parmlist" "1"
-
- set cell617 [$row616 addCell parameter 0.0]
- $cell617 setLabel "name_type" "source: Control, "
- $cell617 setScope "name_type" "cl" "scopePhase"
- $cell617 setScope "name_type" "de" "scopeSystem"
-
- set cell618 [$row616 addCell parameter 0.0]
- $cell618 setLabel "name_type" "x: Single, "
- $cell618 setScope "name_type" "cl" "scopePhase"
- $cell618 setScope "name_type" "de" "scopeSystem"
-
- set cell619 [$row616 addCell parameter 0.0]
- $cell619 setLabel "name_type" "y: Single, "
- $cell619 setScope "name_type" "cl" "scopePhase"
- $cell619 setScope "name_type" "de" "scopeSystem"
-
- set cell620 [$row616 addCell parameter 0.0]
- $cell620 setLabel "name_type" "state: Integer"
- $cell620 setScope "name_type" "cl" "scopePhase"
- $cell620 setScope "name_type" "de" "scopeSystem"
-
- set row621 [$diag addRow method 0.0]
- $row621 setLabel "name_type" "LinkClose() \n"
- $row621 setProp "has_parmlist" "1"
-
- set row622 [$diag addRow method 0.0]
- $row622 setLabel "name_type" "LinkError() \n"
- $row622 setProp "has_parmlist" "1"
-
- set cell623 [$row622 addCell parameter 0.0]
- $cell623 setLabel "name_type" "linkerr: Integer"
- $cell623 setScope "name_type" "cl" "scopePhase"
- $cell623 setScope "name_type" "de" "scopeSystem"
-
- set row624 [$diag addRow method 0.0]
- $row624 setLabel "name_type" "LinkNotify()\n"
- $row624 setProp "has_parmlist" "1"
-
- set row625 [$diag addRow method 0.0]
- $row625 setLabel "name_type" "LinkOpen() \n"
- $row625 setProp "has_parmlist" "1"
-
- set cell626 [$row625 addCell parameter 0.0]
- $cell626 setLabel "name_type" "cancel: Integer"
- $cell626 setScope "name_type" "cl" "scopePhase"
- $cell626 setScope "name_type" "de" "scopeSystem"
-
- set row627 [$diag addRow method 0.0]
- $row627 setLabel "name_type" "MouseDown() \n"
- $row627 setProp "has_parmlist" "1"
-
- set cell628 [$row627 addCell parameter 0.0]
- $cell628 setLabel "name_type" "button: Integer, "
- $cell628 setScope "name_type" "cl" "scopePhase"
- $cell628 setScope "name_type" "de" "scopeSystem"
-
- set cell629 [$row627 addCell parameter 0.0]
- $cell629 setLabel "name_type" "shift: Integer, "
- $cell629 setScope "name_type" "cl" "scopePhase"
- $cell629 setScope "name_type" "de" "scopeSystem"
-
- set cell630 [$row627 addCell parameter 0.0]
- $cell630 setLabel "name_type" "x: Single, "
- $cell630 setScope "name_type" "cl" "scopePhase"
- $cell630 setScope "name_type" "de" "scopeSystem"
-
- set cell631 [$row627 addCell parameter 0.0]
- $cell631 setLabel "name_type" "y: Single"
- $cell631 setScope "name_type" "cl" "scopePhase"
- $cell631 setScope "name_type" "de" "scopeSystem"
-
- set row632 [$diag addRow method 0.0]
- $row632 setLabel "name_type" "MouseMove() \n"
- $row632 setProp "has_parmlist" "1"
-
- set cell633 [$row632 addCell parameter 0.0]
- $cell633 setLabel "name_type" "button: Integer, "
- $cell633 setScope "name_type" "cl" "scopePhase"
- $cell633 setScope "name_type" "de" "scopeSystem"
-
- set cell634 [$row632 addCell parameter 0.0]
- $cell634 setLabel "name_type" "shift: Integer, "
- $cell634 setScope "name_type" "cl" "scopePhase"
- $cell634 setScope "name_type" "de" "scopeSystem"
-
- set cell635 [$row632 addCell parameter 0.0]
- $cell635 setLabel "name_type" "x: Single, "
- $cell635 setScope "name_type" "cl" "scopePhase"
- $cell635 setScope "name_type" "de" "scopeSystem"
-
- set cell636 [$row632 addCell parameter 0.0]
- $cell636 setLabel "name_type" "y: Single"
- $cell636 setScope "name_type" "cl" "scopePhase"
- $cell636 setScope "name_type" "de" "scopeSystem"
-
- set row637 [$diag addRow method 0.0]
- $row637 setLabel "name_type" "MouseUp() "
- $row637 setProp "has_parmlist" "1"
-
- set cell638 [$row637 addCell parameter 0.0]
- $cell638 setLabel "name_type" "button: Integer, "
- $cell638 setScope "name_type" "cl" "scopePhase"
- $cell638 setScope "name_type" "de" "scopeSystem"
-
- set cell639 [$row637 addCell parameter 0.0]
- $cell639 setLabel "name_type" "shift: Integer, "
- $cell639 setScope "name_type" "cl" "scopePhase"
- $cell639 setScope "name_type" "de" "scopeSystem"
-
- set cell640 [$row637 addCell parameter 0.0]
- $cell640 setLabel "name_type" "x: Single, "
- $cell640 setScope "name_type" "cl" "scopePhase"
- $cell640 setScope "name_type" "de" "scopeSystem"
-
- set cell641 [$row637 addCell parameter 0.0]
- $cell641 setLabel "name_type" "y: Single"
- $cell641 setScope "name_type" "cl" "scopePhase"
- $cell641 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new OLE "vb_gui_lib" "" "" "" "" "" 1]
-
- set row642 [$diag addRow method 0.0]
- $row642 setLabel "name_type" "Click()\n"
- $row642 setProp "has_parmlist" "1"
-
- set row643 [$diag addRow method 0.0]
- $row643 setLabel "name_type" "DbClick()\n"
- $row643 setProp "has_parmlist" "1"
-
- set row644 [$diag addRow method 0.0]
- $row644 setLabel "name_type" "DragDrop() \n"
- $row644 setProp "has_parmlist" "1"
-
- set cell645 [$row644 addCell parameter 0.0]
- $cell645 setLabel "name_type" "source: Control, "
- $cell645 setScope "name_type" "cl" "scopePhase"
- $cell645 setScope "name_type" "de" "scopeSystem"
-
- set cell646 [$row644 addCell parameter 0.0]
- $cell646 setLabel "name_type" "x: Single, "
- $cell646 setScope "name_type" "cl" "scopePhase"
- $cell646 setScope "name_type" "de" "scopeSystem"
-
- set cell647 [$row644 addCell parameter 0.0]
- $cell647 setLabel "name_type" "y: Single"
- $cell647 setScope "name_type" "cl" "scopePhase"
- $cell647 setScope "name_type" "de" "scopeSystem"
-
- set row648 [$diag addRow method 0.0]
- $row648 setLabel "name_type" "DragOver() \n"
- $row648 setProp "has_parmlist" "1"
-
- set cell649 [$row648 addCell parameter 0.0]
- $cell649 setLabel "name_type" "source: Control, "
- $cell649 setScope "name_type" "cl" "scopePhase"
- $cell649 setScope "name_type" "de" "scopeSystem"
-
- set cell650 [$row648 addCell parameter 0.0]
- $cell650 setLabel "name_type" "x: Single, "
- $cell650 setScope "name_type" "cl" "scopePhase"
- $cell650 setScope "name_type" "de" "scopeSystem"
-
- set cell651 [$row648 addCell parameter 0.0]
- $cell651 setLabel "name_type" "y: Single, "
- $cell651 setScope "name_type" "cl" "scopePhase"
- $cell651 setScope "name_type" "de" "scopeSystem"
-
- set cell652 [$row648 addCell parameter 0.0]
- $cell652 setLabel "name_type" "state: Integer"
- $cell652 setScope "name_type" "cl" "scopePhase"
- $cell652 setScope "name_type" "de" "scopeSystem"
-
- set row653 [$diag addRow method 0.0]
- $row653 setLabel "name_type" "GotFocus()\n"
- $row653 setProp "has_parmlist" "1"
-
- set row654 [$diag addRow method 0.0]
- $row654 setLabel "name_type" "KeyDown() \n"
- $row654 setProp "has_parmlist" "1"
-
- set cell655 [$row654 addCell parameter 0.0]
- $cell655 setLabel "name_type" "keycode: Integer, "
- $cell655 setScope "name_type" "cl" "scopePhase"
- $cell655 setScope "name_type" "de" "scopeSystem"
-
- set cell656 [$row654 addCell parameter 0.0]
- $cell656 setLabel "name_type" "shift:Integer"
- $cell656 setScope "name_type" "cl" "scopePhase"
- $cell656 setScope "name_type" "de" "scopeSystem"
-
- set row657 [$diag addRow method 0.0]
- $row657 setLabel "name_type" "KeyPress() \n"
- $row657 setProp "has_parmlist" "1"
-
- set cell658 [$row657 addCell parameter 0.0]
- $cell658 setLabel "name_type" "keyascii: Integer"
- $cell658 setScope "name_type" "cl" "scopePhase"
- $cell658 setScope "name_type" "de" "scopeSystem"
-
- set row659 [$diag addRow method 0.0]
- $row659 setLabel "name_type" "KeyUp() \n"
- $row659 setProp "has_parmlist" "1"
-
- set cell660 [$row659 addCell parameter 0.0]
- $cell660 setLabel "name_type" "keycode: Integer, "
- $cell660 setScope "name_type" "cl" "scopePhase"
- $cell660 setScope "name_type" "de" "scopeSystem"
-
- set cell661 [$row659 addCell parameter 0.0]
- $cell661 setLabel "name_type" "shift: Integer"
- $cell661 setScope "name_type" "cl" "scopePhase"
- $cell661 setScope "name_type" "de" "scopeSystem"
-
- set row662 [$diag addRow method 0.0]
- $row662 setLabel "name_type" "LostFocus() \n"
- $row662 setProp "has_parmlist" "1"
-
- set row663 [$diag addRow method 0.0]
- $row663 setLabel "name_type" "MouseDown() \n"
- $row663 setProp "has_parmlist" "1"
-
- set cell664 [$row663 addCell parameter 0.0]
- $cell664 setLabel "name_type" "button: Integer, "
- $cell664 setScope "name_type" "cl" "scopePhase"
- $cell664 setScope "name_type" "de" "scopeSystem"
-
- set cell665 [$row663 addCell parameter 0.0]
- $cell665 setLabel "name_type" "shift: Integer, "
- $cell665 setScope "name_type" "cl" "scopePhase"
- $cell665 setScope "name_type" "de" "scopeSystem"
-
- set cell666 [$row663 addCell parameter 0.0]
- $cell666 setLabel "name_type" "x: Single, "
- $cell666 setScope "name_type" "cl" "scopePhase"
- $cell666 setScope "name_type" "de" "scopeSystem"
-
- set cell667 [$row663 addCell parameter 0.0]
- $cell667 setLabel "name_type" "y: Single"
- $cell667 setScope "name_type" "cl" "scopePhase"
- $cell667 setScope "name_type" "de" "scopeSystem"
-
- set row668 [$diag addRow method 0.0]
- $row668 setLabel "name_type" "MouseMove() \n"
- $row668 setProp "has_parmlist" "1"
-
- set cell669 [$row668 addCell parameter 0.0]
- $cell669 setLabel "name_type" "button: Integer, "
- $cell669 setScope "name_type" "cl" "scopePhase"
- $cell669 setScope "name_type" "de" "scopeSystem"
-
- set cell670 [$row668 addCell parameter 0.0]
- $cell670 setLabel "name_type" "shift: Integer, "
- $cell670 setScope "name_type" "cl" "scopePhase"
- $cell670 setScope "name_type" "de" "scopeSystem"
-
- set cell671 [$row668 addCell parameter 0.0]
- $cell671 setLabel "name_type" "x: Single, "
- $cell671 setScope "name_type" "cl" "scopePhase"
- $cell671 setScope "name_type" "de" "scopeSystem"
-
- set cell672 [$row668 addCell parameter 0.0]
- $cell672 setLabel "name_type" "y: Single"
- $cell672 setScope "name_type" "cl" "scopePhase"
- $cell672 setScope "name_type" "de" "scopeSystem"
-
- set row673 [$diag addRow method 0.0]
- $row673 setLabel "name_type" "MouseUp() \n"
- $row673 setProp "has_parmlist" "1"
-
- set cell674 [$row673 addCell parameter 0.0]
- $cell674 setLabel "name_type" "button: Integer, "
- $cell674 setScope "name_type" "cl" "scopePhase"
- $cell674 setScope "name_type" "de" "scopeSystem"
-
- set cell675 [$row673 addCell parameter 0.0]
- $cell675 setLabel "name_type" "shift: Integer, "
- $cell675 setScope "name_type" "cl" "scopePhase"
- $cell675 setScope "name_type" "de" "scopeSystem"
-
- set cell676 [$row673 addCell parameter 0.0]
- $cell676 setLabel "name_type" "x: Single, "
- $cell676 setScope "name_type" "cl" "scopePhase"
- $cell676 setScope "name_type" "de" "scopeSystem"
-
- set cell677 [$row673 addCell parameter 0.0]
- $cell677 setLabel "name_type" "y: Single"
- $cell677 setScope "name_type" "cl" "scopePhase"
- $cell677 setScope "name_type" "de" "scopeSystem"
-
- set row678 [$diag addRow method 0.0]
- $row678 setLabel "name_type" "ObjectMove()\n"
- $row678 setProp "has_parmlist" "1"
-
- set cell679 [$row678 addCell parameter 0.0]
- $cell679 setLabel "name_type" "left: Single, "
- $cell679 setScope "name_type" "cl" "scopePhase"
- $cell679 setScope "name_type" "de" "scopeSystem"
-
- set cell680 [$row678 addCell parameter 0.0]
- $cell680 setLabel "name_type" "top: Single, "
- $cell680 setScope "name_type" "cl" "scopePhase"
- $cell680 setScope "name_type" "de" "scopeSystem"
-
- set cell681 [$row678 addCell parameter 0.0]
- $cell681 setLabel "name_type" "width: Single, "
- $cell681 setScope "name_type" "cl" "scopePhase"
- $cell681 setScope "name_type" "de" "scopeSystem"
-
- set cell682 [$row678 addCell parameter 0.0]
- $cell682 setLabel "name_type" "height: Single"
- $cell682 setScope "name_type" "cl" "scopePhase"
- $cell682 setScope "name_type" "de" "scopeSystem"
-
- set row683 [$diag addRow method 0.0]
- $row683 setLabel "name_type" "Resize() \n"
- $row683 setProp "has_parmlist" "1"
-
- set row684 [$diag addRow method 0.0]
- $row684 setLabel "name_type" "Updated ()"
- $row684 setProp "has_parmlist" "1"
-
- set cell685 [$row684 addCell parameter 0.0]
- $cell685 setLabel "name_type" "code: Integer"
- $cell685 setScope "name_type" "cl" "scopePhase"
- $cell685 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CAD new leafcontrols5 "vb_gui_lib" "" "" "" "" "" 1]
-
- set node687 [$diag addNode cad_class 1360.0 800.0 120.0 30.0]
- $node687 setLabel "name" "LeafControl"
- $node687 setProp "is_folded" "1"
- $node687 setScope "name" "cl" "scopePhase"
-
- set node688 [$diag addNode cad_class 976.0 1008.0 417.0 248.0]
- $node688 setLabel "name" "OptionButton"
- $node688 setScope "name" "cl" "scopePhase"
-
- set node689 [$diag addNode cad_class 1456.0 1008.0 208.0 94.0]
- $node689 setLabel "name" "Timer"
- $node689 setScope "name" "cl" "scopePhase"
-
- set node686 [$diag addRake generalization $node687 $node688 1424.0 816.0 1184.0 1104.0 944.0]
-
- set conn690 [$node686 getInConn]
- set segm691 [$conn690 getFirstSegm]
-
- set conn692 [$node686 getFirstOutConn]
- set segm693 [$conn692 getFirstSegm]
-
- set conn694 [$diag addConn generalization_conn $node686 $node689 1568.0 944.0 1568.0 1024.0]
- set segm695 [$conn694 getFirstSegm]
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new OptionButton "vb_gui_lib" "" "" "" "" "" 1]
-
- set row696 [$diag addRow method 0.0]
- $row696 setLabel "name_type" "Click()\n"
- $row696 setProp "has_parmlist" "1"
-
- set row697 [$diag addRow method 0.0]
- $row697 setLabel "name_type" "DbClick() \n"
- $row697 setProp "has_parmlist" "1"
-
- set row698 [$diag addRow method 0.0]
- $row698 setLabel "name_type" "DragDrop() \n"
- $row698 setProp "has_parmlist" "1"
-
- set cell699 [$row698 addCell parameter 0.0]
- $cell699 setLabel "name_type" "source: Control, "
- $cell699 setScope "name_type" "cl" "scopePhase"
- $cell699 setScope "name_type" "de" "scopeSystem"
-
- set cell700 [$row698 addCell parameter 0.0]
- $cell700 setLabel "name_type" "x: Single, "
- $cell700 setScope "name_type" "cl" "scopePhase"
- $cell700 setScope "name_type" "de" "scopeSystem"
-
- set cell701 [$row698 addCell parameter 0.0]
- $cell701 setLabel "name_type" "y: Single"
- $cell701 setScope "name_type" "cl" "scopePhase"
- $cell701 setScope "name_type" "de" "scopeSystem"
-
- set row702 [$diag addRow method 0.0]
- $row702 setLabel "name_type" "DragOver() \n"
- $row702 setProp "has_parmlist" "1"
-
- set cell703 [$row702 addCell parameter 0.0]
- $cell703 setLabel "name_type" "source: Control, "
- $cell703 setScope "name_type" "cl" "scopePhase"
- $cell703 setScope "name_type" "de" "scopeSystem"
-
- set cell704 [$row702 addCell parameter 0.0]
- $cell704 setLabel "name_type" "x: Single, "
- $cell704 setScope "name_type" "cl" "scopePhase"
- $cell704 setScope "name_type" "de" "scopeSystem"
-
- set cell705 [$row702 addCell parameter 0.0]
- $cell705 setLabel "name_type" "y: Single, "
- $cell705 setScope "name_type" "cl" "scopePhase"
- $cell705 setScope "name_type" "de" "scopeSystem"
-
- set cell706 [$row702 addCell parameter 0.0]
- $cell706 setLabel "name_type" "state: Integer"
- $cell706 setScope "name_type" "cl" "scopePhase"
- $cell706 setScope "name_type" "de" "scopeSystem"
-
- set row707 [$diag addRow method 0.0]
- $row707 setLabel "name_type" "GotFocus()\n"
- $row707 setProp "has_parmlist" "1"
-
- set row708 [$diag addRow method 0.0]
- $row708 setLabel "name_type" "KeyDown() \n"
- $row708 setProp "has_parmlist" "1"
-
- set cell709 [$row708 addCell parameter 0.0]
- $cell709 setLabel "name_type" "keycode: Integer, "
- $cell709 setScope "name_type" "cl" "scopePhase"
- $cell709 setScope "name_type" "de" "scopeSystem"
-
- set cell710 [$row708 addCell parameter 0.0]
- $cell710 setLabel "name_type" "shift:Integer"
- $cell710 setScope "name_type" "cl" "scopePhase"
- $cell710 setScope "name_type" "de" "scopeSystem"
-
- set row711 [$diag addRow method 0.0]
- $row711 setLabel "name_type" "KeyPress() \n"
- $row711 setProp "has_parmlist" "1"
-
- set cell712 [$row711 addCell parameter 0.0]
- $cell712 setLabel "name_type" "keyascii: Integer"
- $cell712 setScope "name_type" "cl" "scopePhase"
- $cell712 setScope "name_type" "de" "scopeSystem"
-
- set row713 [$diag addRow method 0.0]
- $row713 setLabel "name_type" "KeyUp() \n"
- $row713 setProp "has_parmlist" "1"
-
- set cell714 [$row713 addCell parameter 0.0]
- $cell714 setLabel "name_type" "keycode: Integer, "
- $cell714 setScope "name_type" "cl" "scopePhase"
- $cell714 setScope "name_type" "de" "scopeSystem"
-
- set cell715 [$row713 addCell parameter 0.0]
- $cell715 setLabel "name_type" "shift: Integer"
- $cell715 setScope "name_type" "cl" "scopePhase"
- $cell715 setScope "name_type" "de" "scopeSystem"
-
- set row716 [$diag addRow method 0.0]
- $row716 setLabel "name_type" "LostFocus() \n"
- $row716 setProp "has_parmlist" "1"
-
- set row717 [$diag addRow method 0.0]
- $row717 setLabel "name_type" "MouseDown() \n"
- $row717 setProp "has_parmlist" "1"
-
- set cell718 [$row717 addCell parameter 0.0]
- $cell718 setLabel "name_type" "button: Integer, "
- $cell718 setScope "name_type" "cl" "scopePhase"
- $cell718 setScope "name_type" "de" "scopeSystem"
-
- set cell719 [$row717 addCell parameter 0.0]
- $cell719 setLabel "name_type" "shift: Integer, "
- $cell719 setScope "name_type" "cl" "scopePhase"
- $cell719 setScope "name_type" "de" "scopeSystem"
-
- set cell720 [$row717 addCell parameter 0.0]
- $cell720 setLabel "name_type" "x: Single, "
- $cell720 setScope "name_type" "cl" "scopePhase"
- $cell720 setScope "name_type" "de" "scopeSystem"
-
- set cell721 [$row717 addCell parameter 0.0]
- $cell721 setLabel "name_type" "y: Single"
- $cell721 setScope "name_type" "cl" "scopePhase"
- $cell721 setScope "name_type" "de" "scopeSystem"
-
- set row722 [$diag addRow method 0.0]
- $row722 setLabel "name_type" "MouseMove() \n"
- $row722 setProp "has_parmlist" "1"
-
- set cell723 [$row722 addCell parameter 0.0]
- $cell723 setLabel "name_type" "button: Integer, "
- $cell723 setScope "name_type" "cl" "scopePhase"
- $cell723 setScope "name_type" "de" "scopeSystem"
-
- set cell724 [$row722 addCell parameter 0.0]
- $cell724 setLabel "name_type" "shift: Integer, "
- $cell724 setScope "name_type" "cl" "scopePhase"
- $cell724 setScope "name_type" "de" "scopeSystem"
-
- set cell725 [$row722 addCell parameter 0.0]
- $cell725 setLabel "name_type" "x: Single, "
- $cell725 setScope "name_type" "cl" "scopePhase"
- $cell725 setScope "name_type" "de" "scopeSystem"
-
- set cell726 [$row722 addCell parameter 0.0]
- $cell726 setLabel "name_type" "y: Single"
- $cell726 setScope "name_type" "cl" "scopePhase"
- $cell726 setScope "name_type" "de" "scopeSystem"
-
- set row727 [$diag addRow method 0.0]
- $row727 setLabel "name_type" "MouseUp() "
- $row727 setProp "has_parmlist" "1"
-
- set cell728 [$row727 addCell parameter 0.0]
- $cell728 setLabel "name_type" "button: Integer, "
- $cell728 setScope "name_type" "cl" "scopePhase"
- $cell728 setScope "name_type" "de" "scopeSystem"
-
- set cell729 [$row727 addCell parameter 0.0]
- $cell729 setLabel "name_type" "shift: Integer, "
- $cell729 setScope "name_type" "cl" "scopePhase"
- $cell729 setScope "name_type" "de" "scopeSystem"
-
- set cell730 [$row727 addCell parameter 0.0]
- $cell730 setLabel "name_type" "x: Single, "
- $cell730 setScope "name_type" "cl" "scopePhase"
- $cell730 setScope "name_type" "de" "scopeSystem"
-
- set cell731 [$row727 addCell parameter 0.0]
- $cell731 setLabel "name_type" "y: Single"
- $cell731 setScope "name_type" "cl" "scopePhase"
- $cell731 setScope "name_type" "de" "scopeSystem"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new Timer "vb_gui_lib" "" "" "" "" "" 1]
-
- set row732 [$diag addRow method 0.0]
- $row732 setLabel "name_type" "Timer()"
- $row732 setProp "has_parmlist" "1"
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CAD new nodecontrols1 "vb_gui_lib" "" "" "" "" "" 1]
-
- set node734 [$diag addNode cad_class 816.0 512.0 120.0 37.3333]
- $node734 setLabel "name" "NodeControl"
- $node734 setProp "is_folded" "1"
- $node734 setScope "name" "cl" "scopePhase"
-
- set node735 [$diag addNode cad_class 272.0 672.0 421.333 228.0]
- $node735 setLabel "name" "Frame"
- $node735 setScope "name" "cl" "scopePhase"
-
- set node736 [$diag addNode cad_class 720.0 672.0 421.333 452.0]
- $node736 setLabel "name" "PictureBox"
- $node736 setScope "name" "cl" "scopePhase"
-
- set node737 [$diag addNode cad_class 1168.0 672.0 120.0 116.0]
- $node737 setLabel "name" "Menu"
- $node737 setScope "name" "cl" "scopePhase"
-
- set node733 [$diag addRake generalization $node734 $node735 864.0 544.0 480.0 704.0 624.0]
-
- set conn738 [$node733 getInConn]
- set segm739 [$conn738 getFirstSegm]
-
- set conn740 [$node733 getFirstOutConn]
- set segm741 [$conn740 getFirstSegm]
-
- set conn742 [$diag addConn generalization_conn $node733 $node736 864.0 624.0 864.0 688.0]
- set segm743 [$conn742 getFirstSegm]
-
- set conn744 [$diag addConn generalization_conn $node733 $node737 1232.0 624.0 1232.0 688.0]
- set segm745 [$conn744 getFirstSegm]
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new Shape "vb_gui_lib" "" "" "" "" "" 1]
-
- $diag save
-
- # Generator: et.tcl /main/hindenburg/16
- # Argument(s): -e -dphase -a/usr16/mahe/VisualBasicGUI.tcl
- # Interpreter to use: Otsh V5.2.1/A3
- #
- OTShRegister::importTool
-
- set diag [CDM new Line "vb_gui_lib" "" "" "" "" "" 1]
-
- $diag save
-