PC World 1997 November/PCWorld_1997-11_cd.bin/software/programy/komix/DATA.Z/VisualBasicGUI.tcl

Text File | 1997-02-06 | 124KB | 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