PC World 1998 October/PCWorld_1998-10_cd.bin/software/prehled/komix/DATA.Z/VisualBasicGUI.tcl

Text File | 1997-08-04 | 113KB | 3,424 lines

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new Form "vb_library" "" "" "" "" "" 1]

set row1 [$diag addRow method 0.0]
$row1 setProp is_event Yes
$row1 setLabel "name_type" "Activate()\n"
$row1 setProp "has_parmlist" "1"

set row2 [$diag addRow method 0.0]
$row2 setProp is_event Yes
$row2 setLabel "name_type" "Click()\n"
$row2 setProp "has_parmlist" "1"

set row3 [$diag addRow method 0.0]
$row3 setProp is_event Yes
$row3 setLabel "name_type" "DbClick() \n"
$row3 setProp "has_parmlist" "1"

set row4 [$diag addRow method 0.0]
$row4 setProp is_event Yes
$row4 setLabel "name_type" "Deactivate()\n"
$row4 setProp "has_parmlist" "1"

set row5 [$diag addRow method 0.0]
$row5 setProp is_event Yes
$row5 setLabel "name_type" "DragDrop() \n"
$row5 setProp "has_parmlist" "1"

set cell6 [$row5 addCell parameter 0.0]
$cell6 setLabel "name_type" "source: Control, "
$cell6 setScope "name_type" "cl" "scopePhase"
$cell6 setScope "name_type" "de" "scopeSystem"

set cell7 [$row5 addCell parameter 0.0]
$cell7 setLabel "name_type" "x: Single, "
$cell7 setScope "name_type" "cl" "scopePhase"

set cell8 [$row5 addCell parameter 0.0]
$cell8 setLabel "name_type" "y: Single"
$cell8 setScope "name_type" "cl" "scopePhase"

set row9 [$diag addRow method 0.0]
$row9 setProp is_event Yes
$row9 setLabel "name_type" "DragOver() \n"
$row9 setProp "has_parmlist" "1"

set cell10 [$row9 addCell parameter 0.0]
$cell10 setLabel "name_type" "source: Control, "
$cell10 setScope "name_type" "cl" "scopePhase"
$cell10 setScope "name_type" "de" "scopeSystem"

set cell11 [$row9 addCell parameter 0.0]
$cell11 setLabel "name_type" "x: Single, "
$cell11 setScope "name_type" "cl" "scopePhase"

set cell12 [$row9 addCell parameter 0.0]
$cell12 setLabel "name_type" "y: Single, "
$cell12 setScope "name_type" "cl" "scopePhase"

set cell13 [$row9 addCell parameter 0.0]
$cell13 setLabel "name_type" "state: Integer"
$cell13 setScope "name_type" "cl" "scopePhase"

set row14 [$diag addRow method 0.0]
$row14 setProp is_event Yes
$row14 setLabel "name_type" "GotFocus()\n"
$row14 setProp "has_parmlist" "1"

set row15 [$diag addRow method 0.0]
$row15 setProp is_event Yes
$row15 setLabel "name_type" "Initialize() \n"
$row15 setProp "has_parmlist" "1"

set row16 [$diag addRow method 0.0]
$row16 setProp is_event Yes
$row16 setLabel "name_type" "KeyDown() \n"
$row16 setProp "has_parmlist" "1"

set cell17 [$row16 addCell parameter 0.0]
$cell17 setLabel "name_type" "keycode: Integer, "
$cell17 setScope "name_type" "cl" "scopePhase"

set cell18 [$row16 addCell parameter 0.0]
$cell18 setLabel "name_type" "shift:Integer"
$cell18 setScope "name_type" "cl" "scopePhase"

set row19 [$diag addRow method 0.0]
$row19 setProp is_event Yes
$row19 setLabel "name_type" "KeyPress() \n"
$row19 setProp "has_parmlist" "1"

set cell20 [$row19 addCell parameter 0.0]
$cell20 setLabel "name_type" "keyascii: Integer"
$cell20 setScope "name_type" "cl" "scopePhase"

set row21 [$diag addRow method 0.0]
$row21 setProp is_event Yes
$row21 setLabel "name_type" "KeyUp() \n"
$row21 setProp "has_parmlist" "1"

set cell22 [$row21 addCell parameter 0.0]
$cell22 setLabel "name_type" "keycode: Integer, "
$cell22 setScope "name_type" "cl" "scopePhase"

set cell23 [$row21 addCell parameter 0.0]
$cell23 setLabel "name_type" "shift: Integer"
$cell23 setScope "name_type" "cl" "scopePhase"

set row24 [$diag addRow method 0.0]
$row24 setProp is_event Yes
$row24 setLabel "name_type" "LinkClose() \n"
$row24 setProp "has_parmlist" "1"

set row25 [$diag addRow method 0.0]
$row25 setProp is_event Yes
$row25 setLabel "name_type" "LinkError() \n"
$row25 setProp "has_parmlist" "1"

set cell26 [$row25 addCell parameter 0.0]
$cell26 setLabel "name_type" "linkerr: Integer"
$cell26 setScope "name_type" "cl" "scopePhase"

set row27 [$diag addRow method 0.0]
$row27 setProp is_event Yes
$row27 setLabel "name_type" "LinkExecute() \n"
$row27 setProp "has_parmlist" "1"

set cell28 [$row27 addCell parameter 0.0]
$cell28 setLabel "name_type" "cmdstr: String, "
$cell28 setScope "name_type" "cl" "scopePhase"

set cell29 [$row27 addCell parameter 0.0]
$cell29 setLabel "name_type" "cancel: Integer"
$cell29 setScope "name_type" "cl" "scopePhase"

set row30 [$diag addRow method 0.0]
$row30 setProp is_event Yes
$row30 setLabel "name_type" "LinkOpen() \n"
$row30 setProp "has_parmlist" "1"

set cell31 [$row30 addCell parameter 0.0]
$cell31 setLabel "name_type" "cancel: Integer"
$cell31 setScope "name_type" "cl" "scopePhase"

set row32 [$diag addRow method 0.0]
$row32 setProp is_event Yes
$row32 setLabel "name_type" "Load() \n"
$row32 setProp "has_parmlist" "1"

set row33 [$diag addRow method 0.0]
$row33 setProp is_event Yes
$row33 setLabel "name_type" "LostFocus() \n"
$row33 setProp "has_parmlist" "1"

set row34 [$diag addRow method 0.0]
$row34 setProp is_event Yes
$row34 setLabel "name_type" "MouseDown() \n"
$row34 setProp "has_parmlist" "1"

set cell35 [$row34 addCell parameter 0.0]
$cell35 setLabel "name_type" "button: Integer, "
$cell35 setScope "name_type" "cl" "scopePhase"

set cell36 [$row34 addCell parameter 0.0]
$cell36 setLabel "name_type" "shift: Integer, "
$cell36 setScope "name_type" "cl" "scopePhase"

set cell37 [$row34 addCell parameter 0.0]
$cell37 setLabel "name_type" "x: Single, "
$cell37 setScope "name_type" "cl" "scopePhase"

set cell38 [$row34 addCell parameter 0.0]
$cell38 setLabel "name_type" "y: Single"
$cell38 setScope "name_type" "cl" "scopePhase"

set row39 [$diag addRow method 0.0]
$row39 setProp is_event Yes
$row39 setLabel "name_type" "MouseMove() \n"
$row39 setProp "has_parmlist" "1"

set cell40 [$row39 addCell parameter 0.0]
$cell40 setLabel "name_type" "button: Integer, "
$cell40 setScope "name_type" "cl" "scopePhase"

set cell41 [$row39 addCell parameter 0.0]
$cell41 setLabel "name_type" "shift: Integer, "
$cell41 setScope "name_type" "cl" "scopePhase"

set cell42 [$row39 addCell parameter 0.0]
$cell42 setLabel "name_type" "x: Single, "
$cell42 setScope "name_type" "cl" "scopePhase"

set cell43 [$row39 addCell parameter 0.0]
$cell43 setLabel "name_type" "y: Single"
$cell43 setScope "name_type" "cl" "scopePhase"

set row44 [$diag addRow method 0.0]
$row44 setProp is_event Yes
$row44 setLabel "name_type" "MouseUp()  \n"
$row44 setProp "has_parmlist" "1"

set cell45 [$row44 addCell parameter 0.0]
$cell45 setLabel "name_type" "button: Integer, "
$cell45 setScope "name_type" "cl" "scopePhase"

set cell46 [$row44 addCell parameter 0.0]
$cell46 setLabel "name_type" "shift: Integer, "
$cell46 setScope "name_type" "cl" "scopePhase"

set cell47 [$row44 addCell parameter 0.0]
$cell47 setLabel "name_type" "x: Single, "
$cell47 setScope "name_type" "cl" "scopePhase"

set cell48 [$row44 addCell parameter 0.0]
$cell48 setLabel "name_type" "y: Single"
$cell48 setScope "name_type" "cl" "scopePhase"

set row49 [$diag addRow method 0.0]
$row49 setProp is_event Yes
$row49 setLabel "name_type" "Paint()\n"
$row49 setProp "has_parmlist" "1"

set row50 [$diag addRow method 0.0]
$row50 setProp is_event Yes
$row50 setLabel "name_type" "QueryUnload() \n"
$row50 setProp "has_parmlist" "1"

set cell51 [$row50 addCell parameter 0.0]
$cell51 setLabel "name_type" "cancel: Integer, "
$cell51 setScope "name_type" "cl" "scopePhase"

set cell52 [$row50 addCell parameter 0.0]
$cell52 setLabel "name_type" "unloadmode: Integer"
$cell52 setScope "name_type" "cl" "scopePhase"

set row53 [$diag addRow method 0.0]
$row53 setProp is_event Yes
$row53 setLabel "name_type" "Resize() \n"
$row53 setProp "has_parmlist" "1"

set row54 [$diag addRow method 0.0]
$row54 setProp is_event Yes
$row54 setLabel "name_type" "Terminate() \n"
$row54 setProp "has_parmlist" "1"

set row55 [$diag addRow method 0.0]
$row55 setProp is_event Yes
$row55 setLabel "name_type" "Unload() "
$row55 setProp "has_parmlist" "1"

set cell56 [$row55 addCell parameter 0.0]
$cell56 setLabel "name_type" "cancel: Integer"
$cell56 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CAD new windows "vb_library" "" "" "" "" "" 1]

set node57 [$diag addNode cad_class 16.0 656.0 417.0 430.0]
$node57 setLabel "name" "Form"
$node57 setScope "name" "cl" "scopePhase"

set node58 [$diag addNode cad_class 528.0 656.0 417.0 346.0]
$node58 setLabel "name" "MDIForm"
$node58 setScope "name" "cl" "scopePhase"

set node60 [$diag addNode cad_class 448.0 480.0 120.0 32.0]
$node60 setLabel "name" "Window"
$node60 setProp "is_folded" "1"
$node60 setScope "name" "cl" "scopePhase"

set node59 [$diag addRake generalization $node60 $node57 512.0 512.0 224.0 656.0 592.0]

set conn61 [$node59 getInConn]
set segm62 [$conn61 getFirstSegm]

set conn63 [$node59 getFirstOutConn]
set segm64 [$conn63 getFirstSegm]

set conn65 [$diag addConn generalization_conn $node59 $node58 768.0 592.0 768.0 672.0]
set segm66 [$conn65 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new MDIForm "vb_library" "" "" "" "" "" 1]

set row67 [$diag addRow method 0.0]
$row67 setProp is_event Yes
$row67 setLabel "name_type" "Activate()\n"
$row67 setProp "has_parmlist" "1"

set row68 [$diag addRow method 0.0]
$row68 setProp is_event Yes
$row68 setLabel "name_type" "Click()\n"
$row68 setProp "has_parmlist" "1"

set row69 [$diag addRow method 0.0]
$row69 setProp is_event Yes
$row69 setLabel "name_type" "DbClick() \n"
$row69 setProp "has_parmlist" "1"

set row70 [$diag addRow method 0.0]
$row70 setProp is_event Yes
$row70 setLabel "name_type" "Deactivate()\n"
$row70 setProp "has_parmlist" "1"

set row71 [$diag addRow method 0.0]
$row71 setProp is_event Yes
$row71 setLabel "name_type" "DragDrop() \n"
$row71 setProp "has_parmlist" "1"

set cell72 [$row71 addCell parameter 0.0]
$cell72 setLabel "name_type" "source: Control, "
$cell72 setScope "name_type" "cl" "scopePhase"
$cell72 setScope "name_type" "de" "scopeSystem"

set cell73 [$row71 addCell parameter 0.0]
$cell73 setLabel "name_type" "x: Single, "
$cell73 setScope "name_type" "cl" "scopePhase"

set cell74 [$row71 addCell parameter 0.0]
$cell74 setLabel "name_type" "y: Single"
$cell74 setScope "name_type" "cl" "scopePhase"

set row75 [$diag addRow method 0.0]
$row75 setProp is_event Yes
$row75 setLabel "name_type" "DragOver() \n"
$row75 setProp "has_parmlist" "1"

set cell76 [$row75 addCell parameter 0.0]
$cell76 setLabel "name_type" "source: Control, "
$cell76 setScope "name_type" "cl" "scopePhase"
$cell76 setScope "name_type" "de" "scopeSystem"

set cell77 [$row75 addCell parameter 0.0]
$cell77 setLabel "name_type" "x: Single, "
$cell77 setScope "name_type" "cl" "scopePhase"

set cell78 [$row75 addCell parameter 0.0]
$cell78 setLabel "name_type" "y: Single, "
$cell78 setScope "name_type" "cl" "scopePhase"

set cell79 [$row75 addCell parameter 0.0]
$cell79 setLabel "name_type" "state: Integer"
$cell79 setScope "name_type" "cl" "scopePhase"

set row80 [$diag addRow method 0.0]
$row80 setProp is_event Yes
$row80 setLabel "name_type" "Initialize() \n"
$row80 setProp "has_parmlist" "1"

set row81 [$diag addRow method 0.0]
$row81 setProp is_event Yes
$row81 setLabel "name_type" "LinkClose() \n"
$row81 setProp "has_parmlist" "1"

set row82 [$diag addRow method 0.0]
$row82 setProp is_event Yes
$row82 setLabel "name_type" "LinkError() \n"
$row82 setProp "has_parmlist" "1"

set cell83 [$row82 addCell parameter 0.0]
$cell83 setLabel "name_type" "linkerr: Integer"
$cell83 setScope "name_type" "cl" "scopePhase"

set row84 [$diag addRow method 0.0]
$row84 setProp is_event Yes
$row84 setLabel "name_type" "LinkExecute() \n"
$row84 setProp "has_parmlist" "1"

set cell85 [$row84 addCell parameter 0.0]
$cell85 setLabel "name_type" "cmdstr: String, "
$cell85 setScope "name_type" "cl" "scopePhase"

set cell86 [$row84 addCell parameter 0.0]
$cell86 setLabel "name_type" "cancel: Integer"
$cell86 setScope "name_type" "cl" "scopePhase"

set row87 [$diag addRow method 0.0]
$row87 setProp is_event Yes
$row87 setLabel "name_type" "LinkOpen() \n"
$row87 setProp "has_parmlist" "1"

set cell88 [$row87 addCell parameter 0.0]
$cell88 setLabel "name_type" "cancel: Integer"
$cell88 setScope "name_type" "cl" "scopePhase"

set row89 [$diag addRow method 0.0]
$row89 setProp is_event Yes
$row89 setLabel "name_type" "Load() \n"
$row89 setProp "has_parmlist" "1"

set row90 [$diag addRow method 0.0]
$row90 setProp is_event Yes
$row90 setLabel "name_type" "MouseDown() \n"
$row90 setProp "has_parmlist" "1"

set cell91 [$row90 addCell parameter 0.0]
$cell91 setLabel "name_type" "button: Integer, "
$cell91 setScope "name_type" "cl" "scopePhase"

set cell92 [$row90 addCell parameter 0.0]
$cell92 setLabel "name_type" "shift: Integer, "
$cell92 setScope "name_type" "cl" "scopePhase"

set cell93 [$row90 addCell parameter 0.0]
$cell93 setLabel "name_type" "x: Single, "
$cell93 setScope "name_type" "cl" "scopePhase"

set cell94 [$row90 addCell parameter 0.0]
$cell94 setLabel "name_type" "y: Single"
$cell94 setScope "name_type" "cl" "scopePhase"

set row95 [$diag addRow method 0.0]
$row95 setProp is_event Yes
$row95 setLabel "name_type" "MouseMove() \n"
$row95 setProp "has_parmlist" "1"

set cell96 [$row95 addCell parameter 0.0]
$cell96 setLabel "name_type" "button: Integer, "
$cell96 setScope "name_type" "cl" "scopePhase"

set cell97 [$row95 addCell parameter 0.0]
$cell97 setLabel "name_type" "shift: Integer, "
$cell97 setScope "name_type" "cl" "scopePhase"

set cell98 [$row95 addCell parameter 0.0]
$cell98 setLabel "name_type" "x: Single, "
$cell98 setScope "name_type" "cl" "scopePhase"

set cell99 [$row95 addCell parameter 0.0]
$cell99 setLabel "name_type" "y: Single"
$cell99 setScope "name_type" "cl" "scopePhase"

set row100 [$diag addRow method 0.0]
$row100 setProp is_event Yes
$row100 setLabel "name_type" "MouseUp()  \n"
$row100 setProp "has_parmlist" "1"

set cell101 [$row100 addCell parameter 0.0]
$cell101 setLabel "name_type" "button: Integer, "
$cell101 setScope "name_type" "cl" "scopePhase"

set cell102 [$row100 addCell parameter 0.0]
$cell102 setLabel "name_type" "shift: Integer, "
$cell102 setScope "name_type" "cl" "scopePhase"

set cell103 [$row100 addCell parameter 0.0]
$cell103 setLabel "name_type" "x: Single, "
$cell103 setScope "name_type" "cl" "scopePhase"

set cell104 [$row100 addCell parameter 0.0]
$cell104 setLabel "name_type" "y: Single"
$cell104 setScope "name_type" "cl" "scopePhase"

set row105 [$diag addRow method 0.0]
$row105 setProp is_event Yes
$row105 setLabel "name_type" "QueryUnload() \n"
$row105 setProp "has_parmlist" "1"

set cell106 [$row105 addCell parameter 0.0]
$cell106 setLabel "name_type" "cancel: Integer, "
$cell106 setScope "name_type" "cl" "scopePhase"

set cell107 [$row105 addCell parameter 0.0]
$cell107 setLabel "name_type" "unloadmode: Integer"
$cell107 setScope "name_type" "cl" "scopePhase"

set row108 [$diag addRow method 0.0]
$row108 setProp is_event Yes
$row108 setLabel "name_type" "Resize() \n"
$row108 setProp "has_parmlist" "1"

set row109 [$diag addRow method 0.0]
$row109 setProp is_event Yes
$row109 setLabel "name_type" "Terminate() \n"
$row109 setProp "has_parmlist" "1"

set row110 [$diag addRow method 0.0]
$row110 setProp is_event Yes
$row110 setLabel "name_type" "Unload() "
$row110 setProp "has_parmlist" "1"

set cell111 [$row110 addCell parameter 0.0]
$cell111 setLabel "name_type" "cancel: Integer"
$cell111 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new Frame "vb_library" "" "" "" "" "" 1]

set row112 [$diag addRow method 0.0]
$row112 setProp is_event Yes
$row112 setLabel "name_type" "Click() \n"
$row112 setProp "has_parmlist" "1"

set row113 [$diag addRow method 0.0]
$row113 setProp is_event Yes
$row113 setLabel "name_type" "DblClick() \n"
$row113 setProp "has_parmlist" "1"

set row114 [$diag addRow method 0.0]
$row114 setProp is_event Yes
$row114 setLabel "name_type" "DragDrop()\n"
$row114 setProp "has_parmlist" "1"

set cell115 [$row114 addCell parameter 0.0]
$cell115 setLabel "name_type" "source: Control, "
$cell115 setScope "name_type" "cl" "scopePhase"
$cell115 setScope "name_type" "de" "scopeSystem"

set cell116 [$row114 addCell parameter 0.0]
$cell116 setLabel "name_type" "x: Single, "
$cell116 setScope "name_type" "cl" "scopePhase"

set cell117 [$row114 addCell parameter 0.0]
$cell117 setLabel "name_type" "y: Single"
$cell117 setScope "name_type" "cl" "scopePhase"

set row118 [$diag addRow method 0.0]
$row118 setProp is_event Yes
$row118 setLabel "name_type" "DragOver() \n"
$row118 setProp "has_parmlist" "1"

set cell119 [$row118 addCell parameter 0.0]
$cell119 setLabel "name_type" "source: Control, "
$cell119 setScope "name_type" "cl" "scopePhase"
$cell119 setScope "name_type" "de" "scopeSystem"

set cell120 [$row118 addCell parameter 0.0]
$cell120 setLabel "name_type" "x: Single, "
$cell120 setScope "name_type" "cl" "scopePhase"

set cell121 [$row118 addCell parameter 0.0]
$cell121 setLabel "name_type" "y: Single, "
$cell121 setScope "name_type" "cl" "scopePhase"

set cell122 [$row118 addCell parameter 0.0]
$cell122 setLabel "name_type" "state: Integer"
$cell122 setScope "name_type" "cl" "scopePhase"

set row123 [$diag addRow method 0.0]
$row123 setProp is_event Yes
$row123 setLabel "name_type" "MouseDown()  \n"
$row123 setProp "has_parmlist" "1"

set cell124 [$row123 addCell parameter 0.0]
$cell124 setLabel "name_type" "button: Integer, "
$cell124 setScope "name_type" "cl" "scopePhase"

set cell125 [$row123 addCell parameter 0.0]
$cell125 setLabel "name_type" "shift: Integer, "
$cell125 setScope "name_type" "cl" "scopePhase"

set cell126 [$row123 addCell parameter 0.0]
$cell126 setLabel "name_type" "x: Single, "
$cell126 setScope "name_type" "cl" "scopePhase"

set cell127 [$row123 addCell parameter 0.0]
$cell127 setLabel "name_type" "y: Single"
$cell127 setScope "name_type" "cl" "scopePhase"

set row128 [$diag addRow method 0.0]
$row128 setProp is_event Yes
$row128 setLabel "name_type" "MouseMove()  \n"
$row128 setProp "has_parmlist" "1"

set cell129 [$row128 addCell parameter 0.0]
$cell129 setLabel "name_type" "button: Integer, "
$cell129 setScope "name_type" "cl" "scopePhase"

set cell130 [$row128 addCell parameter 0.0]
$cell130 setLabel "name_type" "shift: Integer, "
$cell130 setScope "name_type" "cl" "scopePhase"

set cell131 [$row128 addCell parameter 0.0]
$cell131 setLabel "name_type" "x: Single, "
$cell131 setScope "name_type" "cl" "scopePhase"

set cell132 [$row128 addCell parameter 0.0]
$cell132 setLabel "name_type" "y: Single"
$cell132 setScope "name_type" "cl" "scopePhase"

set row133 [$diag addRow method 0.0]
$row133 setProp is_event Yes
$row133 setLabel "name_type" "MouseUp()  "
$row133 setProp "has_parmlist" "1"

set cell134 [$row133 addCell parameter 0.0]
$cell134 setLabel "name_type" "button: Integer, "
$cell134 setScope "name_type" "cl" "scopePhase"

set cell135 [$row133 addCell parameter 0.0]
$cell135 setLabel "name_type" "shift: Integer, "
$cell135 setScope "name_type" "cl" "scopePhase"

set cell136 [$row133 addCell parameter 0.0]
$cell136 setLabel "name_type" "x: Single, "
$cell136 setScope "name_type" "cl" "scopePhase"

set cell137 [$row133 addCell parameter 0.0]
$cell137 setLabel "name_type" "y: Single"
$cell137 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new PictureBox "vb_library" "" "" "" "" "" 1]

set row138 [$diag addRow method 0.0]
$row138 setProp is_event Yes
$row138 setLabel "name_type" "Change()\n"
$row138 setProp "has_parmlist" "1"

set row139 [$diag addRow method 0.0]
$row139 setProp is_event Yes
$row139 setLabel "name_type" "Click()\n"
$row139 setProp "has_parmlist" "1"

set row140 [$diag addRow method 0.0]
$row140 setProp is_event Yes
$row140 setLabel "name_type" "DblClick()\n"
$row140 setProp "has_parmlist" "1"

set row141 [$diag addRow method 0.0]
$row141 setProp is_event Yes
$row141 setLabel "name_type" "DragDrop() \n"
$row141 setProp "has_parmlist" "1"

set cell142 [$row141 addCell parameter 0.0]
$cell142 setLabel "name_type" "source: Control, "
$cell142 setScope "name_type" "cl" "scopePhase"
$cell142 setScope "name_type" "de" "scopeSystem"

set cell143 [$row141 addCell parameter 0.0]
$cell143 setLabel "name_type" "x: Single, "
$cell143 setScope "name_type" "cl" "scopePhase"

set cell144 [$row141 addCell parameter 0.0]
$cell144 setLabel "name_type" "y: Single"
$cell144 setScope "name_type" "cl" "scopePhase"

set row145 [$diag addRow method 0.0]
$row145 setProp is_event Yes
$row145 setLabel "name_type" "DragOver() \n"
$row145 setProp "has_parmlist" "1"

set cell146 [$row145 addCell parameter 0.0]
$cell146 setLabel "name_type" "source: Control, "
$cell146 setScope "name_type" "cl" "scopePhase"
$cell146 setScope "name_type" "de" "scopeSystem"

set cell147 [$row145 addCell parameter 0.0]
$cell147 setLabel "name_type" "x: Single, "
$cell147 setScope "name_type" "cl" "scopePhase"

set cell148 [$row145 addCell parameter 0.0]
$cell148 setLabel "name_type" "y: Single, "
$cell148 setScope "name_type" "cl" "scopePhase"

set cell149 [$row145 addCell parameter 0.0]
$cell149 setLabel "name_type" "state: Integer"
$cell149 setScope "name_type" "cl" "scopePhase"

set row150 [$diag addRow method 0.0]
$row150 setProp is_event Yes
$row150 setLabel "name_type" "GotFocus()\n"
$row150 setProp "has_parmlist" "1"

set row151 [$diag addRow method 0.0]
$row151 setProp is_event Yes
$row151 setLabel "name_type" "KeyDown() \n"
$row151 setProp "has_parmlist" "1"

set cell152 [$row151 addCell parameter 0.0]
$cell152 setLabel "name_type" "keycode: Integer, "
$cell152 setScope "name_type" "cl" "scopePhase"

set cell153 [$row151 addCell parameter 0.0]
$cell153 setLabel "name_type" "shift:Integer"
$cell153 setScope "name_type" "cl" "scopePhase"

set row154 [$diag addRow method 0.0]
$row154 setProp is_event Yes
$row154 setLabel "name_type" "KeyPress() \n"
$row154 setProp "has_parmlist" "1"

set cell155 [$row154 addCell parameter 0.0]
$cell155 setLabel "name_type" "keyascii: Integer"
$cell155 setScope "name_type" "cl" "scopePhase"

set row156 [$diag addRow method 0.0]
$row156 setProp is_event Yes
$row156 setLabel "name_type" "KeyUp()  \n"
$row156 setProp "has_parmlist" "1"

set cell157 [$row156 addCell parameter 0.0]
$cell157 setLabel "name_type" "keycode: Integer, "
$cell157 setScope "name_type" "cl" "scopePhase"

set cell158 [$row156 addCell parameter 0.0]
$cell158 setLabel "name_type" "shift: Integer"
$cell158 setScope "name_type" "cl" "scopePhase"

set row159 [$diag addRow method 0.0]
$row159 setProp is_event Yes
$row159 setLabel "name_type" "LinkClose()\n"
$row159 setProp "has_parmlist" "1"

set row160 [$diag addRow method 0.0]
$row160 setProp is_event Yes
$row160 setLabel "name_type" "LinkError()  \n"
$row160 setProp "has_parmlist" "1"

set cell161 [$row160 addCell parameter 0.0]
$cell161 setLabel "name_type" "linkerr: Integer"
$cell161 setScope "name_type" "cl" "scopePhase"

set row162 [$diag addRow method 0.0]
$row162 setProp is_event Yes
$row162 setLabel "name_type" "LinkNotify() \n"
$row162 setProp "has_parmlist" "1"

set row163 [$diag addRow method 0.0]
$row163 setProp is_event Yes
$row163 setLabel "name_type" "LinkOpen()  \n"
$row163 setProp "has_parmlist" "1"

set cell164 [$row163 addCell parameter 0.0]
$cell164 setLabel "name_type" "cancel: Integer"
$cell164 setScope "name_type" "cl" "scopePhase"

set row165 [$diag addRow method 0.0]
$row165 setProp is_event Yes
$row165 setLabel "name_type" "LostFocus()\n"
$row165 setProp "has_parmlist" "1"

set row166 [$diag addRow method 0.0]
$row166 setProp is_event Yes
$row166 setLabel "name_type" "MouseDown()  \n"
$row166 setProp "has_parmlist" "1"

set cell167 [$row166 addCell parameter 0.0]
$cell167 setLabel "name_type" "button: Integer, "
$cell167 setScope "name_type" "cl" "scopePhase"

set cell168 [$row166 addCell parameter 0.0]
$cell168 setLabel "name_type" "shift: Integer, "
$cell168 setScope "name_type" "cl" "scopePhase"

set cell169 [$row166 addCell parameter 0.0]
$cell169 setLabel "name_type" "x: Single, "
$cell169 setScope "name_type" "cl" "scopePhase"

set cell170 [$row166 addCell parameter 0.0]
$cell170 setLabel "name_type" "y: Single"
$cell170 setScope "name_type" "cl" "scopePhase"

set row171 [$diag addRow method 0.0]
$row171 setProp is_event Yes
$row171 setLabel "name_type" "MouseMove()  \n"
$row171 setProp "has_parmlist" "1"

set cell172 [$row171 addCell parameter 0.0]
$cell172 setLabel "name_type" "button: Integer, "
$cell172 setScope "name_type" "cl" "scopePhase"

set cell173 [$row171 addCell parameter 0.0]
$cell173 setLabel "name_type" "shift: Integer, "
$cell173 setScope "name_type" "cl" "scopePhase"

set cell174 [$row171 addCell parameter 0.0]
$cell174 setLabel "name_type" "x: Single, "
$cell174 setScope "name_type" "cl" "scopePhase"

set cell175 [$row171 addCell parameter 0.0]
$cell175 setLabel "name_type" "y: Single"
$cell175 setScope "name_type" "cl" "scopePhase"

set row176 [$diag addRow method 0.0]
$row176 setProp is_event Yes
$row176 setLabel "name_type" "MouseUp()  \n"
$row176 setProp "has_parmlist" "1"

set cell177 [$row176 addCell parameter 0.0]
$cell177 setLabel "name_type" "button: Integer, "
$cell177 setScope "name_type" "cl" "scopePhase"

set cell178 [$row176 addCell parameter 0.0]
$cell178 setLabel "name_type" "shift: Integer, "
$cell178 setScope "name_type" "cl" "scopePhase"

set cell179 [$row176 addCell parameter 0.0]
$cell179 setLabel "name_type" "x: Single, "
$cell179 setScope "name_type" "cl" "scopePhase"

set cell180 [$row176 addCell parameter 0.0]
$cell180 setLabel "name_type" "y: Single"
$cell180 setScope "name_type" "cl" "scopePhase"

set row181 [$diag addRow method 0.0]
$row181 setProp is_event Yes
$row181 setLabel "name_type" "Paint() \n"
$row181 setProp "has_parmlist" "1"

set row182 [$diag addRow method 0.0]
$row182 setProp is_event Yes
$row182 setLabel "name_type" "Resize()"
$row182 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new Menu "vb_library" "" "" "" "" "" 1]

set row183 [$diag addRow method 0.0]
$row183 setProp is_event Yes
$row183 setLabel "name_type" "Click()"
$row183 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CAD new leafcontrols3 "vb_library" "" "" "" "" "" 1]

set node185 [$diag addNode cad_class 1360.0 800.0 120.0 37.3333]
$node185 setLabel "name" "LeafControl"
$node185 setProp "is_folded" "1"
$node185 setScope "name" "cl" "scopePhase"

set node186 [$diag addNode cad_class 1056.0 1392.0 413.333 265.333]
$node186 setLabel "name" "VScrollBar"
$node186 setScope "name" "cl" "scopePhase"

set node187 [$diag addNode cad_class 800.0 976.0 417.333 265.333]
$node187 setLabel "name" "Data"
$node187 setScope "name" "cl" "scopePhase"

set node188 [$diag addNode cad_class 1280.0 976.0 413.333 265.333]
$node188 setLabel "name" "HScrollBar"
$node188 setScope "name" "cl" "scopePhase"

set node189 [$diag addNode cad_class 1552.0 1392.0 208.0 116.0]
$node189 setLabel "name" "Line"
$node189 setScope "name" "cl" "scopePhase"

set node184 [$diag addRake generalization $node185 $node187 1424.0 816.0 1008.0 1072.0 944.0]

set conn190 [$node184 getInConn]
set segm191 [$conn190 getFirstSegm]

set conn192 [$node184 getFirstOutConn]
set segm193 [$conn192 getFirstSegm]

set conn194 [$diag addConn generalization_conn $node184 $node188 1488.0 944.0 1488.0 992.0]
set segm195 [$conn194 getFirstSegm]

set conn196 [$diag addConn generalization_conn $node184 $node189 1760.0 944.0 1760.0 1408.0]
set segm197 [$conn196 getFirstSegm]

set conn198 [$diag addConn generalization_conn $node184 $node186 1248.0 944.0 1248.0 1424.0]
set segm199 [$conn198 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new CheckBox "vb_library" "" "" "" "" "" 1]

set row200 [$diag addRow method 0.0]
$row200 setProp is_event Yes
$row200 setLabel "name_type" "Click()\n"
$row200 setProp "has_parmlist" "1"

set row201 [$diag addRow method 0.0]
$row201 setProp is_event Yes
$row201 setLabel "name_type" "DragDrop() \n"
$row201 setProp "has_parmlist" "1"

set cell202 [$row201 addCell parameter 0.0]
$cell202 setLabel "name_type" "source: Control, "
$cell202 setScope "name_type" "cl" "scopePhase"
$cell202 setScope "name_type" "de" "scopeSystem"

set cell203 [$row201 addCell parameter 0.0]
$cell203 setLabel "name_type" "x: Single, "
$cell203 setScope "name_type" "cl" "scopePhase"

set cell204 [$row201 addCell parameter 0.0]
$cell204 setLabel "name_type" "y: Single"
$cell204 setScope "name_type" "cl" "scopePhase"

set row205 [$diag addRow method 0.0]
$row205 setProp is_event Yes
$row205 setLabel "name_type" "DragOver() \n"
$row205 setProp "has_parmlist" "1"

set cell206 [$row205 addCell parameter 0.0]
$cell206 setLabel "name_type" "source: Control, "
$cell206 setScope "name_type" "cl" "scopePhase"
$cell206 setScope "name_type" "de" "scopeSystem"

set cell207 [$row205 addCell parameter 0.0]
$cell207 setLabel "name_type" "x: Single, "
$cell207 setScope "name_type" "cl" "scopePhase"

set cell208 [$row205 addCell parameter 0.0]
$cell208 setLabel "name_type" "y: Single, "
$cell208 setScope "name_type" "cl" "scopePhase"

set cell209 [$row205 addCell parameter 0.0]
$cell209 setLabel "name_type" "state: Integer"
$cell209 setScope "name_type" "cl" "scopePhase"

set row210 [$diag addRow method 0.0]
$row210 setProp is_event Yes
$row210 setLabel "name_type" "GotFocus()\n"
$row210 setProp "has_parmlist" "1"

set row211 [$diag addRow method 0.0]
$row211 setProp is_event Yes
$row211 setLabel "name_type" "KeyDown() \n"
$row211 setProp "has_parmlist" "1"

set cell212 [$row211 addCell parameter 0.0]
$cell212 setLabel "name_type" "keycode: Integer, "
$cell212 setScope "name_type" "cl" "scopePhase"

set cell213 [$row211 addCell parameter 0.0]
$cell213 setLabel "name_type" "shift:Integer"
$cell213 setScope "name_type" "cl" "scopePhase"

set row214 [$diag addRow method 0.0]
$row214 setProp is_event Yes
$row214 setLabel "name_type" "KeyPress() \n"
$row214 setProp "has_parmlist" "1"

set cell215 [$row214 addCell parameter 0.0]
$cell215 setLabel "name_type" "keyascii: Integer"
$cell215 setScope "name_type" "cl" "scopePhase"

set row216 [$diag addRow method 0.0]
$row216 setProp is_event Yes
$row216 setLabel "name_type" "KeyUp() \n"
$row216 setProp "has_parmlist" "1"

set cell217 [$row216 addCell parameter 0.0]
$cell217 setLabel "name_type" "keycode: Integer, "
$cell217 setScope "name_type" "cl" "scopePhase"

set cell218 [$row216 addCell parameter 0.0]
$cell218 setLabel "name_type" "shift: Integer"
$cell218 setScope "name_type" "cl" "scopePhase"

set row219 [$diag addRow method 0.0]
$row219 setProp is_event Yes
$row219 setLabel "name_type" "LostFocus() \n"
$row219 setProp "has_parmlist" "1"

set row220 [$diag addRow method 0.0]
$row220 setProp is_event Yes
$row220 setLabel "name_type" "MouseDown() \n"
$row220 setProp "has_parmlist" "1"

set cell221 [$row220 addCell parameter 0.0]
$cell221 setLabel "name_type" "button: Integer, "
$cell221 setScope "name_type" "cl" "scopePhase"

set cell222 [$row220 addCell parameter 0.0]
$cell222 setLabel "name_type" "shift: Integer, "
$cell222 setScope "name_type" "cl" "scopePhase"

set cell223 [$row220 addCell parameter 0.0]
$cell223 setLabel "name_type" "x: Single, "
$cell223 setScope "name_type" "cl" "scopePhase"

set cell224 [$row220 addCell parameter 0.0]
$cell224 setLabel "name_type" "y: Single"
$cell224 setScope "name_type" "cl" "scopePhase"

set row225 [$diag addRow method 0.0]
$row225 setProp is_event Yes
$row225 setLabel "name_type" "MouseMove() \n"
$row225 setProp "has_parmlist" "1"

set cell226 [$row225 addCell parameter 0.0]
$cell226 setLabel "name_type" "button: Integer, "
$cell226 setScope "name_type" "cl" "scopePhase"

set cell227 [$row225 addCell parameter 0.0]
$cell227 setLabel "name_type" "shift: Integer, "
$cell227 setScope "name_type" "cl" "scopePhase"

set cell228 [$row225 addCell parameter 0.0]
$cell228 setLabel "name_type" "x: Single, "
$cell228 setScope "name_type" "cl" "scopePhase"

set cell229 [$row225 addCell parameter 0.0]
$cell229 setLabel "name_type" "y: Single"
$cell229 setScope "name_type" "cl" "scopePhase"

set row230 [$diag addRow method 0.0]
$row230 setProp is_event Yes
$row230 setLabel "name_type" "MouseUp()  "
$row230 setProp "has_parmlist" "1"

set cell231 [$row230 addCell parameter 0.0]
$cell231 setLabel "name_type" "button: Integer, "
$cell231 setScope "name_type" "cl" "scopePhase"

set cell232 [$row230 addCell parameter 0.0]
$cell232 setLabel "name_type" "shift: Integer, "
$cell232 setScope "name_type" "cl" "scopePhase"

set cell233 [$row230 addCell parameter 0.0]
$cell233 setLabel "name_type" "x: Single, "
$cell233 setScope "name_type" "cl" "scopePhase"

set cell234 [$row230 addCell parameter 0.0]
$cell234 setLabel "name_type" "y: Single"
$cell234 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new ComboBox "vb_library" "" "" "" "" "" 1]

set row235 [$diag addRow method 0.0]
$row235 setProp is_event Yes
$row235 setLabel "name_type" "Change()\n"
$row235 setProp "has_parmlist" "1"

set row236 [$diag addRow method 0.0]
$row236 setProp is_event Yes
$row236 setLabel "name_type" "Click()\n"
$row236 setProp "has_parmlist" "1"

set row237 [$diag addRow method 0.0]
$row237 setProp is_event Yes
$row237 setLabel "name_type" "DbClick() \n"
$row237 setProp "has_parmlist" "1"

set row238 [$diag addRow method 0.0]
$row238 setProp is_event Yes
$row238 setLabel "name_type" "DragDrop() \n"
$row238 setProp "has_parmlist" "1"

set cell239 [$row238 addCell parameter 0.0]
$cell239 setLabel "name_type" "source: Control, "
$cell239 setScope "name_type" "cl" "scopePhase"
$cell239 setScope "name_type" "de" "scopeSystem"

set cell240 [$row238 addCell parameter 0.0]
$cell240 setLabel "name_type" "x: Single, "
$cell240 setScope "name_type" "cl" "scopePhase"

set cell241 [$row238 addCell parameter 0.0]
$cell241 setLabel "name_type" "y: Single"
$cell241 setScope "name_type" "cl" "scopePhase"

set row242 [$diag addRow method 0.0]
$row242 setProp is_event Yes
$row242 setLabel "name_type" "DragOver() \n"
$row242 setProp "has_parmlist" "1"

set cell243 [$row242 addCell parameter 0.0]
$cell243 setLabel "name_type" "source: Control, "
$cell243 setScope "name_type" "cl" "scopePhase"
$cell243 setScope "name_type" "de" "scopeSystem"

set cell244 [$row242 addCell parameter 0.0]
$cell244 setLabel "name_type" "x: Single, "
$cell244 setScope "name_type" "cl" "scopePhase"

set cell245 [$row242 addCell parameter 0.0]
$cell245 setLabel "name_type" "y: Single, "
$cell245 setScope "name_type" "cl" "scopePhase"

set cell246 [$row242 addCell parameter 0.0]
$cell246 setLabel "name_type" "state: Integer"
$cell246 setScope "name_type" "cl" "scopePhase"

set row247 [$diag addRow method 0.0]
$row247 setProp is_event Yes
$row247 setLabel "name_type" "DropDown()\n"
$row247 setProp "has_parmlist" "1"

set row248 [$diag addRow method 0.0]
$row248 setProp is_event Yes
$row248 setLabel "name_type" "GotFocus()\n"
$row248 setProp "has_parmlist" "1"

set row249 [$diag addRow method 0.0]
$row249 setProp is_event Yes
$row249 setLabel "name_type" "KeyDown() \n"
$row249 setProp "has_parmlist" "1"

set cell250 [$row249 addCell parameter 0.0]
$cell250 setLabel "name_type" "keycode: Integer, "
$cell250 setScope "name_type" "cl" "scopePhase"

set cell251 [$row249 addCell parameter 0.0]
$cell251 setLabel "name_type" "shift:Integer"
$cell251 setScope "name_type" "cl" "scopePhase"

set row252 [$diag addRow method 0.0]
$row252 setProp is_event Yes
$row252 setLabel "name_type" "KeyPress() \n"
$row252 setProp "has_parmlist" "1"

set cell253 [$row252 addCell parameter 0.0]
$cell253 setLabel "name_type" "keyascii: Integer"
$cell253 setScope "name_type" "cl" "scopePhase"

set row254 [$diag addRow method 0.0]
$row254 setProp is_event Yes
$row254 setLabel "name_type" "KeyUp() \n"
$row254 setProp "has_parmlist" "1"

set cell255 [$row254 addCell parameter 0.0]
$cell255 setLabel "name_type" "keycode: Integer, "
$cell255 setScope "name_type" "cl" "scopePhase"

set cell256 [$row254 addCell parameter 0.0]
$cell256 setLabel "name_type" "shift: Integer"
$cell256 setScope "name_type" "cl" "scopePhase"

set row257 [$diag addRow method 0.0]
$row257 setProp is_event Yes
$row257 setLabel "name_type" "LostFocus() "
$row257 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new CommandButton "vb_library" "" "" "" "" "" 1]

set row258 [$diag addRow method 0.0]
$row258 setProp is_event Yes
$row258 setLabel "name_type" "Click()\n"
$row258 setProp "has_parmlist" "1"

set row259 [$diag addRow method 0.0]
$row259 setProp is_event Yes
$row259 setLabel "name_type" "DragDrop() \n"
$row259 setProp "has_parmlist" "1"

set cell260 [$row259 addCell parameter 0.0]
$cell260 setLabel "name_type" "source: Control, "
$cell260 setScope "name_type" "cl" "scopePhase"
$cell260 setScope "name_type" "de" "scopeSystem"

set cell261 [$row259 addCell parameter 0.0]
$cell261 setLabel "name_type" "x: Single, "
$cell261 setScope "name_type" "cl" "scopePhase"

set cell262 [$row259 addCell parameter 0.0]
$cell262 setLabel "name_type" "y: Single"
$cell262 setScope "name_type" "cl" "scopePhase"

set row263 [$diag addRow method 0.0]
$row263 setProp is_event Yes
$row263 setLabel "name_type" "DragOver() \n"
$row263 setProp "has_parmlist" "1"

set cell264 [$row263 addCell parameter 0.0]
$cell264 setLabel "name_type" "source: Control, "
$cell264 setScope "name_type" "cl" "scopePhase"
$cell264 setScope "name_type" "de" "scopeSystem"

set cell265 [$row263 addCell parameter 0.0]
$cell265 setLabel "name_type" "x: Single, "
$cell265 setScope "name_type" "cl" "scopePhase"

set cell266 [$row263 addCell parameter 0.0]
$cell266 setLabel "name_type" "y: Single, "
$cell266 setScope "name_type" "cl" "scopePhase"

set cell267 [$row263 addCell parameter 0.0]
$cell267 setLabel "name_type" "state: Integer"
$cell267 setScope "name_type" "cl" "scopePhase"

set row268 [$diag addRow method 0.0]
$row268 setProp is_event Yes
$row268 setLabel "name_type" "GotFocus()\n"
$row268 setProp "has_parmlist" "1"

set row269 [$diag addRow method 0.0]
$row269 setProp is_event Yes
$row269 setLabel "name_type" "KeyDown() \n"
$row269 setProp "has_parmlist" "1"

set cell270 [$row269 addCell parameter 0.0]
$cell270 setLabel "name_type" "keycode: Integer, "
$cell270 setScope "name_type" "cl" "scopePhase"

set cell271 [$row269 addCell parameter 0.0]
$cell271 setLabel "name_type" "shift:Integer"
$cell271 setScope "name_type" "cl" "scopePhase"

set row272 [$diag addRow method 0.0]
$row272 setProp is_event Yes
$row272 setLabel "name_type" "KeyPress() \n"
$row272 setProp "has_parmlist" "1"

set cell273 [$row272 addCell parameter 0.0]
$cell273 setLabel "name_type" "keyascii: Integer"
$cell273 setScope "name_type" "cl" "scopePhase"

set row274 [$diag addRow method 0.0]
$row274 setProp is_event Yes
$row274 setLabel "name_type" "KeyUp() \n"
$row274 setProp "has_parmlist" "1"

set cell275 [$row274 addCell parameter 0.0]
$cell275 setLabel "name_type" "keycode: Integer, "
$cell275 setScope "name_type" "cl" "scopePhase"

set cell276 [$row274 addCell parameter 0.0]
$cell276 setLabel "name_type" "shift: Integer"
$cell276 setScope "name_type" "cl" "scopePhase"

set row277 [$diag addRow method 0.0]
$row277 setProp is_event Yes
$row277 setLabel "name_type" "LostFocus() \n"
$row277 setProp "has_parmlist" "1"

set row278 [$diag addRow method 0.0]
$row278 setProp is_event Yes
$row278 setLabel "name_type" "MouseDown() \n"
$row278 setProp "has_parmlist" "1"

set cell279 [$row278 addCell parameter 0.0]
$cell279 setLabel "name_type" "button: Integer, "
$cell279 setScope "name_type" "cl" "scopePhase"

set cell280 [$row278 addCell parameter 0.0]
$cell280 setLabel "name_type" "shift: Integer, "
$cell280 setScope "name_type" "cl" "scopePhase"

set cell281 [$row278 addCell parameter 0.0]
$cell281 setLabel "name_type" "x: Single, "
$cell281 setScope "name_type" "cl" "scopePhase"

set cell282 [$row278 addCell parameter 0.0]
$cell282 setLabel "name_type" "y: Single"
$cell282 setScope "name_type" "cl" "scopePhase"

set row283 [$diag addRow method 0.0]
$row283 setProp is_event Yes
$row283 setLabel "name_type" "MouseMove() \n"
$row283 setProp "has_parmlist" "1"

set cell284 [$row283 addCell parameter 0.0]
$cell284 setLabel "name_type" "button: Integer, "
$cell284 setScope "name_type" "cl" "scopePhase"

set cell285 [$row283 addCell parameter 0.0]
$cell285 setLabel "name_type" "shift: Integer, "
$cell285 setScope "name_type" "cl" "scopePhase"

set cell286 [$row283 addCell parameter 0.0]
$cell286 setLabel "name_type" "x: Single, "
$cell286 setScope "name_type" "cl" "scopePhase"

set cell287 [$row283 addCell parameter 0.0]
$cell287 setLabel "name_type" "y: Single"
$cell287 setScope "name_type" "cl" "scopePhase"

set row288 [$diag addRow method 0.0]
$row288 setProp is_event Yes
$row288 setLabel "name_type" "MouseUp()  "
$row288 setProp "has_parmlist" "1"

set cell289 [$row288 addCell parameter 0.0]
$cell289 setLabel "name_type" "button: Integer, "
$cell289 setScope "name_type" "cl" "scopePhase"

set cell290 [$row288 addCell parameter 0.0]
$cell290 setLabel "name_type" "shift: Integer, "
$cell290 setScope "name_type" "cl" "scopePhase"

set cell291 [$row288 addCell parameter 0.0]
$cell291 setLabel "name_type" "x: Single, "
$cell291 setScope "name_type" "cl" "scopePhase"

set cell292 [$row288 addCell parameter 0.0]
$cell292 setLabel "name_type" "y: Single"
$cell292 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new Data "vb_library" "" "" "" "" "" 1]

set row293 [$diag addRow method 0.0]
$row293 setProp is_event Yes
$row293 setLabel "name_type" "DragDrop() \n"
$row293 setProp "has_parmlist" "1"

set cell294 [$row293 addCell parameter 0.0]
$cell294 setLabel "name_type" "source: Control, "
$cell294 setScope "name_type" "cl" "scopePhase"
$cell294 setScope "name_type" "de" "scopeSystem"

set cell295 [$row293 addCell parameter 0.0]
$cell295 setLabel "name_type" "x: Single, "
$cell295 setScope "name_type" "cl" "scopePhase"

set cell296 [$row293 addCell parameter 0.0]
$cell296 setLabel "name_type" "y: Single"
$cell296 setScope "name_type" "cl" "scopePhase"

set row297 [$diag addRow method 0.0]
$row297 setProp is_event Yes
$row297 setLabel "name_type" "DragOver() \n"
$row297 setProp "has_parmlist" "1"

set cell298 [$row297 addCell parameter 0.0]
$cell298 setLabel "name_type" "source: Control, "
$cell298 setScope "name_type" "cl" "scopePhase"
$cell298 setScope "name_type" "de" "scopeSystem"

set cell299 [$row297 addCell parameter 0.0]
$cell299 setLabel "name_type" "x: Single, "
$cell299 setScope "name_type" "cl" "scopePhase"

set cell300 [$row297 addCell parameter 0.0]
$cell300 setLabel "name_type" "y: Single, "
$cell300 setScope "name_type" "cl" "scopePhase"

set cell301 [$row297 addCell parameter 0.0]
$cell301 setLabel "name_type" "state: Integer"
$cell301 setScope "name_type" "cl" "scopePhase"

set row302 [$diag addRow method 0.0]
$row302 setProp is_event Yes
$row302 setLabel "name_type" "Error ()\n"
$row302 setProp "has_parmlist" "1"

set cell303 [$row302 addCell parameter 0.0]
$cell303 setLabel "name_type" "dataerr: Integer, "
$cell303 setScope "name_type" "cl" "scopePhase"

set cell304 [$row302 addCell parameter 0.0]
$cell304 setLabel "name_type" "response: Integer"
$cell304 setScope "name_type" "cl" "scopePhase"

set row305 [$diag addRow method 0.0]
$row305 setProp is_event Yes
$row305 setLabel "name_type" "MouseDown() \n"
$row305 setProp "has_parmlist" "1"

set cell306 [$row305 addCell parameter 0.0]
$cell306 setLabel "name_type" "button: Integer, "
$cell306 setScope "name_type" "cl" "scopePhase"

set cell307 [$row305 addCell parameter 0.0]
$cell307 setLabel "name_type" "shift: Integer, "
$cell307 setScope "name_type" "cl" "scopePhase"

set cell308 [$row305 addCell parameter 0.0]
$cell308 setLabel "name_type" "x: Single, "
$cell308 setScope "name_type" "cl" "scopePhase"

set cell309 [$row305 addCell parameter 0.0]
$cell309 setLabel "name_type" "y: Single"
$cell309 setScope "name_type" "cl" "scopePhase"

set row310 [$diag addRow method 0.0]
$row310 setProp is_event Yes
$row310 setLabel "name_type" "MouseMove() \n"
$row310 setProp "has_parmlist" "1"

set cell311 [$row310 addCell parameter 0.0]
$cell311 setLabel "name_type" "button: Integer, "
$cell311 setScope "name_type" "cl" "scopePhase"

set cell312 [$row310 addCell parameter 0.0]
$cell312 setLabel "name_type" "shift: Integer, "
$cell312 setScope "name_type" "cl" "scopePhase"

set cell313 [$row310 addCell parameter 0.0]
$cell313 setLabel "name_type" "x: Single, "
$cell313 setScope "name_type" "cl" "scopePhase"

set cell314 [$row310 addCell parameter 0.0]
$cell314 setLabel "name_type" "y: Single"
$cell314 setScope "name_type" "cl" "scopePhase"

set row315 [$diag addRow method 0.0]
$row315 setProp is_event Yes
$row315 setLabel "name_type" "MouseUp()  \n"
$row315 setProp "has_parmlist" "1"

set cell316 [$row315 addCell parameter 0.0]
$cell316 setLabel "name_type" "button: Integer, "
$cell316 setScope "name_type" "cl" "scopePhase"

set cell317 [$row315 addCell parameter 0.0]
$cell317 setLabel "name_type" "shift: Integer, "
$cell317 setScope "name_type" "cl" "scopePhase"

set cell318 [$row315 addCell parameter 0.0]
$cell318 setLabel "name_type" "x: Single, "
$cell318 setScope "name_type" "cl" "scopePhase"

set cell319 [$row315 addCell parameter 0.0]
$cell319 setLabel "name_type" "y: Single"
$cell319 setScope "name_type" "cl" "scopePhase"

set row320 [$diag addRow method 0.0]
$row320 setProp is_event Yes
$row320 setLabel "name_type" "Reposition()\n"
$row320 setProp "has_parmlist" "1"

set row321 [$diag addRow method 0.0]
$row321 setProp is_event Yes
$row321 setLabel "name_type" "Resize() \n"
$row321 setProp "has_parmlist" "1"

set row322 [$diag addRow method 0.0]
$row322 setProp is_event Yes
$row322 setLabel "name_type" "Validate()"
$row322 setProp "has_parmlist" "1"

set cell323 [$row322 addCell parameter 0.0]
$cell323 setLabel "name_type" "action: Integer, "
$cell323 setScope "name_type" "cl" "scopePhase"

set cell324 [$row322 addCell parameter 0.0]
$cell324 setLabel "name_type" "save: Integer"
$cell324 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new ListBox "vb_library" "" "" "" "" "" 1]

set row325 [$diag addRow method 0.0]
$row325 setProp is_event Yes
$row325 setLabel "name_type" "Click()\n"
$row325 setProp "has_parmlist" "1"

set row326 [$diag addRow method 0.0]
$row326 setProp is_event Yes
$row326 setLabel "name_type" "DbClick() \n"
$row326 setProp "has_parmlist" "1"

set row327 [$diag addRow method 0.0]
$row327 setProp is_event Yes
$row327 setLabel "name_type" "DragDrop() \n"
$row327 setProp "has_parmlist" "1"

set cell328 [$row327 addCell parameter 0.0]
$cell328 setLabel "name_type" "source: Control, "
$cell328 setScope "name_type" "cl" "scopePhase"
$cell328 setScope "name_type" "de" "scopeSystem"

set cell329 [$row327 addCell parameter 0.0]
$cell329 setLabel "name_type" "x: Single, "
$cell329 setScope "name_type" "cl" "scopePhase"

set cell330 [$row327 addCell parameter 0.0]
$cell330 setLabel "name_type" "y: Single"
$cell330 setScope "name_type" "cl" "scopePhase"

set row331 [$diag addRow method 0.0]
$row331 setProp is_event Yes
$row331 setLabel "name_type" "DragOver() \n"
$row331 setProp "has_parmlist" "1"

set cell332 [$row331 addCell parameter 0.0]
$cell332 setLabel "name_type" "source: Control, "
$cell332 setScope "name_type" "cl" "scopePhase"
$cell332 setScope "name_type" "de" "scopeSystem"

set cell333 [$row331 addCell parameter 0.0]
$cell333 setLabel "name_type" "x: Single, "
$cell333 setScope "name_type" "cl" "scopePhase"

set cell334 [$row331 addCell parameter 0.0]
$cell334 setLabel "name_type" "y: Single, "
$cell334 setScope "name_type" "cl" "scopePhase"

set cell335 [$row331 addCell parameter 0.0]
$cell335 setLabel "name_type" "state: Integer"
$cell335 setScope "name_type" "cl" "scopePhase"

set row336 [$diag addRow method 0.0]
$row336 setProp is_event Yes
$row336 setLabel "name_type" "GotFocus()\n"
$row336 setProp "has_parmlist" "1"

set row337 [$diag addRow method 0.0]
$row337 setProp is_event Yes
$row337 setLabel "name_type" "KeyDown() \n"
$row337 setProp "has_parmlist" "1"

set cell338 [$row337 addCell parameter 0.0]
$cell338 setLabel "name_type" "keycode: Integer, "
$cell338 setScope "name_type" "cl" "scopePhase"

set cell339 [$row337 addCell parameter 0.0]
$cell339 setLabel "name_type" "shift:Integer"
$cell339 setScope "name_type" "cl" "scopePhase"

set row340 [$diag addRow method 0.0]
$row340 setProp is_event Yes
$row340 setLabel "name_type" "KeyPress() \n"
$row340 setProp "has_parmlist" "1"

set cell341 [$row340 addCell parameter 0.0]
$cell341 setLabel "name_type" "keyascii: Integer"
$cell341 setScope "name_type" "cl" "scopePhase"

set row342 [$diag addRow method 0.0]
$row342 setProp is_event Yes
$row342 setLabel "name_type" "KeyUp() \n"
$row342 setProp "has_parmlist" "1"

set cell343 [$row342 addCell parameter 0.0]
$cell343 setLabel "name_type" "keycode: Integer, "
$cell343 setScope "name_type" "cl" "scopePhase"

set cell344 [$row342 addCell parameter 0.0]
$cell344 setLabel "name_type" "shift: Integer"
$cell344 setScope "name_type" "cl" "scopePhase"

set row345 [$diag addRow method 0.0]
$row345 setProp is_event Yes
$row345 setLabel "name_type" "LostFocus() \n"
$row345 setProp "has_parmlist" "1"

set row346 [$diag addRow method 0.0]
$row346 setProp is_event Yes
$row346 setLabel "name_type" "MouseDown() \n"
$row346 setProp "has_parmlist" "1"

set cell347 [$row346 addCell parameter 0.0]
$cell347 setLabel "name_type" "button: Integer, "
$cell347 setScope "name_type" "cl" "scopePhase"

set cell348 [$row346 addCell parameter 0.0]
$cell348 setLabel "name_type" "shift: Integer, "
$cell348 setScope "name_type" "cl" "scopePhase"

set cell349 [$row346 addCell parameter 0.0]
$cell349 setLabel "name_type" "x: Single, "
$cell349 setScope "name_type" "cl" "scopePhase"

set cell350 [$row346 addCell parameter 0.0]
$cell350 setLabel "name_type" "y: Single"
$cell350 setScope "name_type" "cl" "scopePhase"

set row351 [$diag addRow method 0.0]
$row351 setProp is_event Yes
$row351 setLabel "name_type" "MouseMove() \n"
$row351 setProp "has_parmlist" "1"

set cell352 [$row351 addCell parameter 0.0]
$cell352 setLabel "name_type" "button: Integer, "
$cell352 setScope "name_type" "cl" "scopePhase"

set cell353 [$row351 addCell parameter 0.0]
$cell353 setLabel "name_type" "shift: Integer, "
$cell353 setScope "name_type" "cl" "scopePhase"

set cell354 [$row351 addCell parameter 0.0]
$cell354 setLabel "name_type" "x: Single, "
$cell354 setScope "name_type" "cl" "scopePhase"

set cell355 [$row351 addCell parameter 0.0]
$cell355 setLabel "name_type" "y: Single"
$cell355 setScope "name_type" "cl" "scopePhase"

set row356 [$diag addRow method 0.0]
$row356 setProp is_event Yes
$row356 setLabel "name_type" "MouseUp()  "
$row356 setProp "has_parmlist" "1"

set cell357 [$row356 addCell parameter 0.0]
$cell357 setLabel "name_type" "button: Integer, "
$cell357 setScope "name_type" "cl" "scopePhase"

set cell358 [$row356 addCell parameter 0.0]
$cell358 setLabel "name_type" "shift: Integer, "
$cell358 setScope "name_type" "cl" "scopePhase"

set cell359 [$row356 addCell parameter 0.0]
$cell359 setLabel "name_type" "x: Single, "
$cell359 setScope "name_type" "cl" "scopePhase"

set cell360 [$row356 addCell parameter 0.0]
$cell360 setLabel "name_type" "y: Single"
$cell360 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new DirListBox "vb_library" "" "" "" "" "" 1]

set row361 [$diag addRow method 0.0]
$row361 setProp is_event Yes
$row361 setLabel "name_type" "Change()\n"
$row361 setProp "has_parmlist" "1"

set row362 [$diag addRow method 0.0]
$row362 setProp is_event Yes
$row362 setLabel "name_type" "Click() \n"
$row362 setProp "has_parmlist" "1"

set row363 [$diag addRow method 0.0]
$row363 setProp is_event Yes
$row363 setLabel "name_type" "DragDrop() \n"
$row363 setProp "has_parmlist" "1"

set cell364 [$row363 addCell parameter 0.0]
$cell364 setLabel "name_type" "source: Control, "
$cell364 setScope "name_type" "cl" "scopePhase"
$cell364 setScope "name_type" "de" "scopeSystem"

set cell365 [$row363 addCell parameter 0.0]
$cell365 setLabel "name_type" "x: Single, "
$cell365 setScope "name_type" "cl" "scopePhase"

set cell366 [$row363 addCell parameter 0.0]
$cell366 setLabel "name_type" "y: Single"
$cell366 setScope "name_type" "cl" "scopePhase"

set row367 [$diag addRow method 0.0]
$row367 setProp is_event Yes
$row367 setLabel "name_type" "DragOver() \n"
$row367 setProp "has_parmlist" "1"

set cell368 [$row367 addCell parameter 0.0]
$cell368 setLabel "name_type" "source: Control, "
$cell368 setScope "name_type" "cl" "scopePhase"
$cell368 setScope "name_type" "de" "scopeSystem"

set cell369 [$row367 addCell parameter 0.0]
$cell369 setLabel "name_type" "x: Single, "
$cell369 setScope "name_type" "cl" "scopePhase"

set cell370 [$row367 addCell parameter 0.0]
$cell370 setLabel "name_type" "y: Single, "
$cell370 setScope "name_type" "cl" "scopePhase"

set cell371 [$row367 addCell parameter 0.0]
$cell371 setLabel "name_type" "state: Integer"
$cell371 setScope "name_type" "cl" "scopePhase"

set row372 [$diag addRow method 0.0]
$row372 setProp is_event Yes
$row372 setLabel "name_type" "GotFocus()\n"
$row372 setProp "has_parmlist" "1"

set row373 [$diag addRow method 0.0]
$row373 setProp is_event Yes
$row373 setLabel "name_type" "KeyDown() \n"
$row373 setProp "has_parmlist" "1"

set cell374 [$row373 addCell parameter 0.0]
$cell374 setLabel "name_type" "keycode: Integer, "
$cell374 setScope "name_type" "cl" "scopePhase"

set cell375 [$row373 addCell parameter 0.0]
$cell375 setLabel "name_type" "shift:Integer"
$cell375 setScope "name_type" "cl" "scopePhase"

set row376 [$diag addRow method 0.0]
$row376 setProp is_event Yes
$row376 setLabel "name_type" "KeyPress() \n"
$row376 setProp "has_parmlist" "1"

set cell377 [$row376 addCell parameter 0.0]
$cell377 setLabel "name_type" "keyascii: Integer"
$cell377 setScope "name_type" "cl" "scopePhase"

set row378 [$diag addRow method 0.0]
$row378 setProp is_event Yes
$row378 setLabel "name_type" "KeyUp() \n"
$row378 setProp "has_parmlist" "1"

set cell379 [$row378 addCell parameter 0.0]
$cell379 setLabel "name_type" "keycode: Integer, "
$cell379 setScope "name_type" "cl" "scopePhase"

set cell380 [$row378 addCell parameter 0.0]
$cell380 setLabel "name_type" "shift: Integer"
$cell380 setScope "name_type" "cl" "scopePhase"

set row381 [$diag addRow method 0.0]
$row381 setProp is_event Yes
$row381 setLabel "name_type" "LostFocus() \n"
$row381 setProp "has_parmlist" "1"

set row382 [$diag addRow method 0.0]
$row382 setProp is_event Yes
$row382 setLabel "name_type" "MouseDown() \n"
$row382 setProp "has_parmlist" "1"

set cell383 [$row382 addCell parameter 0.0]
$cell383 setLabel "name_type" "button: Integer, "
$cell383 setScope "name_type" "cl" "scopePhase"

set cell384 [$row382 addCell parameter 0.0]
$cell384 setLabel "name_type" "shift: Integer, "
$cell384 setScope "name_type" "cl" "scopePhase"

set cell385 [$row382 addCell parameter 0.0]
$cell385 setLabel "name_type" "x: Single, "
$cell385 setScope "name_type" "cl" "scopePhase"

set cell386 [$row382 addCell parameter 0.0]
$cell386 setLabel "name_type" "y: Single"
$cell386 setScope "name_type" "cl" "scopePhase"

set row387 [$diag addRow method 0.0]
$row387 setProp is_event Yes
$row387 setLabel "name_type" "MouseMove() \n"
$row387 setProp "has_parmlist" "1"

set cell388 [$row387 addCell parameter 0.0]
$cell388 setLabel "name_type" "button: Integer, "
$cell388 setScope "name_type" "cl" "scopePhase"

set cell389 [$row387 addCell parameter 0.0]
$cell389 setLabel "name_type" "shift: Integer, "
$cell389 setScope "name_type" "cl" "scopePhase"

set cell390 [$row387 addCell parameter 0.0]
$cell390 setLabel "name_type" "x: Single, "
$cell390 setScope "name_type" "cl" "scopePhase"

set cell391 [$row387 addCell parameter 0.0]
$cell391 setLabel "name_type" "y: Single"
$cell391 setScope "name_type" "cl" "scopePhase"

set row392 [$diag addRow method 0.0]
$row392 setProp is_event Yes
$row392 setLabel "name_type" "MouseUp()  "
$row392 setProp "has_parmlist" "1"

set cell393 [$row392 addCell parameter 0.0]
$cell393 setLabel "name_type" "button: Integer, "
$cell393 setScope "name_type" "cl" "scopePhase"

set cell394 [$row392 addCell parameter 0.0]
$cell394 setLabel "name_type" "shift: Integer, "
$cell394 setScope "name_type" "cl" "scopePhase"

set cell395 [$row392 addCell parameter 0.0]
$cell395 setLabel "name_type" "x: Single, "
$cell395 setScope "name_type" "cl" "scopePhase"

set cell396 [$row392 addCell parameter 0.0]
$cell396 setLabel "name_type" "y: Single"
$cell396 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new DriveListBox "vb_library" "" "" "" "" "" 1]

set row397 [$diag addRow method 0.0]
$row397 setProp is_event Yes
$row397 setLabel "name_type" "Change()\n"
$row397 setProp "has_parmlist" "1"

set row398 [$diag addRow method 0.0]
$row398 setProp is_event Yes
$row398 setLabel "name_type" "DragDrop() \n"
$row398 setProp "has_parmlist" "1"

set cell399 [$row398 addCell parameter 0.0]
$cell399 setLabel "name_type" "source: Control, "
$cell399 setScope "name_type" "cl" "scopePhase"
$cell399 setScope "name_type" "de" "scopeSystem"

set cell400 [$row398 addCell parameter 0.0]
$cell400 setLabel "name_type" "x: Single, "
$cell400 setScope "name_type" "cl" "scopePhase"

set cell401 [$row398 addCell parameter 0.0]
$cell401 setLabel "name_type" "y: Single"
$cell401 setScope "name_type" "cl" "scopePhase"

set row402 [$diag addRow method 0.0]
$row402 setProp is_event Yes
$row402 setLabel "name_type" "DragOver() \n"
$row402 setProp "has_parmlist" "1"

set cell403 [$row402 addCell parameter 0.0]
$cell403 setLabel "name_type" "source: Control, "
$cell403 setScope "name_type" "cl" "scopePhase"
$cell403 setScope "name_type" "de" "scopeSystem"

set cell404 [$row402 addCell parameter 0.0]
$cell404 setLabel "name_type" "x: Single, "
$cell404 setScope "name_type" "cl" "scopePhase"

set cell405 [$row402 addCell parameter 0.0]
$cell405 setLabel "name_type" "y: Single, "
$cell405 setScope "name_type" "cl" "scopePhase"

set cell406 [$row402 addCell parameter 0.0]
$cell406 setLabel "name_type" "state: Integer"
$cell406 setScope "name_type" "cl" "scopePhase"

set row407 [$diag addRow method 0.0]
$row407 setProp is_event Yes
$row407 setLabel "name_type" "GotFocus()\n"
$row407 setProp "has_parmlist" "1"

set row408 [$diag addRow method 0.0]
$row408 setProp is_event Yes
$row408 setLabel "name_type" "KeyDown() \n"
$row408 setProp "has_parmlist" "1"

set cell409 [$row408 addCell parameter 0.0]
$cell409 setLabel "name_type" "keycode: Integer, "
$cell409 setScope "name_type" "cl" "scopePhase"

set cell410 [$row408 addCell parameter 0.0]
$cell410 setLabel "name_type" "shift:Integer"
$cell410 setScope "name_type" "cl" "scopePhase"

set row411 [$diag addRow method 0.0]
$row411 setProp is_event Yes
$row411 setLabel "name_type" "KeyPress() \n"
$row411 setProp "has_parmlist" "1"

set cell412 [$row411 addCell parameter 0.0]
$cell412 setLabel "name_type" "keyascii: Integer"
$cell412 setScope "name_type" "cl" "scopePhase"

set row413 [$diag addRow method 0.0]
$row413 setProp is_event Yes
$row413 setLabel "name_type" "KeyUp() \n"
$row413 setProp "has_parmlist" "1"

set cell414 [$row413 addCell parameter 0.0]
$cell414 setLabel "name_type" "keycode: Integer, "
$cell414 setScope "name_type" "cl" "scopePhase"

set cell415 [$row413 addCell parameter 0.0]
$cell415 setLabel "name_type" "shift: Integer"
$cell415 setScope "name_type" "cl" "scopePhase"

set row416 [$diag addRow method 0.0]
$row416 setProp is_event Yes
$row416 setLabel "name_type" "LostFocus() "
$row416 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new FileListBox "vb_library" "" "" "" "" "" 1]

set row417 [$diag addRow method 0.0]
$row417 setProp is_event Yes
$row417 setLabel "name_type" "Click()\n"
$row417 setProp "has_parmlist" "1"

set row418 [$diag addRow method 0.0]
$row418 setProp is_event Yes
$row418 setLabel "name_type" "DbClick() \n"
$row418 setProp "has_parmlist" "1"

set row419 [$diag addRow method 0.0]
$row419 setProp is_event Yes
$row419 setLabel "name_type" "DragDrop() \n"
$row419 setProp "has_parmlist" "1"

set cell420 [$row419 addCell parameter 0.0]
$cell420 setLabel "name_type" "source: Control, "
$cell420 setScope "name_type" "cl" "scopePhase"
$cell420 setScope "name_type" "de" "scopeSystem"

set cell421 [$row419 addCell parameter 0.0]
$cell421 setLabel "name_type" "x: Single, "
$cell421 setScope "name_type" "cl" "scopePhase"

set cell422 [$row419 addCell parameter 0.0]
$cell422 setLabel "name_type" "y: Single"
$cell422 setScope "name_type" "cl" "scopePhase"

set row423 [$diag addRow method 0.0]
$row423 setProp is_event Yes
$row423 setLabel "name_type" "DragOver() \n"
$row423 setProp "has_parmlist" "1"

set cell424 [$row423 addCell parameter 0.0]
$cell424 setLabel "name_type" "source: Control, "
$cell424 setScope "name_type" "cl" "scopePhase"
$cell424 setScope "name_type" "de" "scopeSystem"

set cell425 [$row423 addCell parameter 0.0]
$cell425 setLabel "name_type" "x: Single, "
$cell425 setScope "name_type" "cl" "scopePhase"

set cell426 [$row423 addCell parameter 0.0]
$cell426 setLabel "name_type" "y: Single, "
$cell426 setScope "name_type" "cl" "scopePhase"

set cell427 [$row423 addCell parameter 0.0]
$cell427 setLabel "name_type" "state: Integer"
$cell427 setScope "name_type" "cl" "scopePhase"

set row428 [$diag addRow method 0.0]
$row428 setProp is_event Yes
$row428 setLabel "name_type" "GotFocus()\n"
$row428 setProp "has_parmlist" "1"

set row429 [$diag addRow method 0.0]
$row429 setProp is_event Yes
$row429 setLabel "name_type" "KeyDown() \n"
$row429 setProp "has_parmlist" "1"

set cell430 [$row429 addCell parameter 0.0]
$cell430 setLabel "name_type" "keycode: Integer, "
$cell430 setScope "name_type" "cl" "scopePhase"

set cell431 [$row429 addCell parameter 0.0]
$cell431 setLabel "name_type" "shift:Integer"
$cell431 setScope "name_type" "cl" "scopePhase"

set row432 [$diag addRow method 0.0]
$row432 setProp is_event Yes
$row432 setLabel "name_type" "KeyPress() \n"
$row432 setProp "has_parmlist" "1"

set cell433 [$row432 addCell parameter 0.0]
$cell433 setLabel "name_type" "keyascii: Integer"
$cell433 setScope "name_type" "cl" "scopePhase"

set row434 [$diag addRow method 0.0]
$row434 setProp is_event Yes
$row434 setLabel "name_type" "KeyUp() \n"
$row434 setProp "has_parmlist" "1"

set cell435 [$row434 addCell parameter 0.0]
$cell435 setLabel "name_type" "keycode: Integer, "
$cell435 setScope "name_type" "cl" "scopePhase"

set cell436 [$row434 addCell parameter 0.0]
$cell436 setLabel "name_type" "shift: Integer"
$cell436 setScope "name_type" "cl" "scopePhase"

set row437 [$diag addRow method 0.0]
$row437 setProp is_event Yes
$row437 setLabel "name_type" "LostFocus() \n"
$row437 setProp "has_parmlist" "1"

set row438 [$diag addRow method 0.0]
$row438 setProp is_event Yes
$row438 setLabel "name_type" "MouseDown() \n"
$row438 setProp "has_parmlist" "1"

set cell439 [$row438 addCell parameter 0.0]
$cell439 setLabel "name_type" "button: Integer, "
$cell439 setScope "name_type" "cl" "scopePhase"

set cell440 [$row438 addCell parameter 0.0]
$cell440 setLabel "name_type" "shift: Integer, "
$cell440 setScope "name_type" "cl" "scopePhase"

set cell441 [$row438 addCell parameter 0.0]
$cell441 setLabel "name_type" "x: Single, "
$cell441 setScope "name_type" "cl" "scopePhase"

set cell442 [$row438 addCell parameter 0.0]
$cell442 setLabel "name_type" "y: Single"
$cell442 setScope "name_type" "cl" "scopePhase"

set row443 [$diag addRow method 0.0]
$row443 setProp is_event Yes
$row443 setLabel "name_type" "MouseMove() \n"
$row443 setProp "has_parmlist" "1"

set cell444 [$row443 addCell parameter 0.0]
$cell444 setLabel "name_type" "button: Integer, "
$cell444 setScope "name_type" "cl" "scopePhase"

set cell445 [$row443 addCell parameter 0.0]
$cell445 setLabel "name_type" "shift: Integer, "
$cell445 setScope "name_type" "cl" "scopePhase"

set cell446 [$row443 addCell parameter 0.0]
$cell446 setLabel "name_type" "x: Single, "
$cell446 setScope "name_type" "cl" "scopePhase"

set cell447 [$row443 addCell parameter 0.0]
$cell447 setLabel "name_type" "y: Single"
$cell447 setScope "name_type" "cl" "scopePhase"

set row448 [$diag addRow method 0.0]
$row448 setProp is_event Yes
$row448 setLabel "name_type" "MouseUp()  \n"
$row448 setProp "has_parmlist" "1"

set cell449 [$row448 addCell parameter 0.0]
$cell449 setLabel "name_type" "button: Integer, "
$cell449 setScope "name_type" "cl" "scopePhase"

set cell450 [$row448 addCell parameter 0.0]
$cell450 setLabel "name_type" "shift: Integer, "
$cell450 setScope "name_type" "cl" "scopePhase"

set cell451 [$row448 addCell parameter 0.0]
$cell451 setLabel "name_type" "x: Single, "
$cell451 setScope "name_type" "cl" "scopePhase"

set cell452 [$row448 addCell parameter 0.0]
$cell452 setLabel "name_type" "y: Single"
$cell452 setScope "name_type" "cl" "scopePhase"

set row453 [$diag addRow method 0.0]
$row453 setProp is_event Yes
$row453 setLabel "name_type" "PathChange()\n"
$row453 setProp "has_parmlist" "1"

set row454 [$diag addRow method 0.0]
$row454 setProp is_event Yes
$row454 setLabel "name_type" "PatternChange()"
$row454 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CAD new leafcontrols1 "vb_library" "" "" "" "" "" 1]

set node456 [$diag addNode cad_class 768.0 624.0 120.0 45.3333]
$node456 setLabel "name" "LeafControl"
$node456 setProp "is_folded" "1"
$node456 setScope "name" "cl" "scopePhase"

set node457 [$diag addNode cad_class 464.0 1104.0 322.667 265.333]
$node457 setLabel "name" "TextBox"
$node457 setScope "name" "cl" "scopePhase"

set node458 [$diag addNode cad_class 224.0 784.0 322.667 238.667]
$node458 setLabel "name" "CheckBox"
$node458 setScope "name" "cl" "scopePhase"

set node459 [$diag addNode cad_class 672.0 784.0 313.333 238.667]
$node459 setLabel "name" "ComboBox"
$node459 setScope "name" "cl" "scopePhase"

set node460 [$diag addNode cad_class 896.0 1104.0 322.667 238.667]
$node460 setLabel "name" "CommandButton"
$node460 setScope "name" "cl" "scopePhase"

set node455 [$diag addRake generalization $node456 $node458 832.0 640.0 432.0 880.0 768.0]

set conn461 [$node455 getInConn]
set segm462 [$conn461 getFirstSegm]

set conn463 [$node455 getFirstOutConn]
set segm464 [$conn463 getFirstSegm]

set conn465 [$diag addConn generalization_conn $node455 $node459 880.0 768.5 880.0 800.0]
set segm466 [$conn465 getFirstSegm]

set conn467 [$diag addConn generalization_conn $node455 $node460 1104.0 768.5 1104.0 1120.0]
set segm468 [$conn467 getFirstSegm]

set conn469 [$diag addConn generalization_conn $node455 $node457 656.0 768.5 656.0 1136.0]
set segm470 [$conn469 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new TextBox "vb_library" "" "" "" "" "" 1]

set row471 [$diag addRow method 0.0]
$row471 setProp is_event Yes
$row471 setLabel "name_type" "Change()\n"
$row471 setProp "has_parmlist" "1"

set row472 [$diag addRow method 0.0]
$row472 setProp is_event Yes
$row472 setLabel "name_type" "Click()\n"
$row472 setProp "has_parmlist" "1"

set row473 [$diag addRow method 0.0]
$row473 setProp is_event Yes
$row473 setLabel "name_type" "DbClick() \n"
$row473 setProp "has_parmlist" "1"

set row474 [$diag addRow method 0.0]
$row474 setProp is_event Yes
$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"

set cell477 [$row474 addCell parameter 0.0]
$cell477 setLabel "name_type" "y: Single"
$cell477 setScope "name_type" "cl" "scopePhase"

set row478 [$diag addRow method 0.0]
$row478 setProp is_event Yes
$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"

set cell481 [$row478 addCell parameter 0.0]
$cell481 setLabel "name_type" "y: Single, "
$cell481 setScope "name_type" "cl" "scopePhase"

set cell482 [$row478 addCell parameter 0.0]
$cell482 setLabel "name_type" "state: Integer"
$cell482 setScope "name_type" "cl" "scopePhase"

set row483 [$diag addRow method 0.0]
$row483 setProp is_event Yes
$row483 setLabel "name_type" "GotFocus()\n"
$row483 setProp "has_parmlist" "1"

set row484 [$diag addRow method 0.0]
$row484 setProp is_event Yes
$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"

set cell486 [$row484 addCell parameter 0.0]
$cell486 setLabel "name_type" "shift:Integer"
$cell486 setScope "name_type" "cl" "scopePhase"

set row487 [$diag addRow method 0.0]
$row487 setProp is_event Yes
$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"

set row489 [$diag addRow method 0.0]
$row489 setProp is_event Yes
$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"

set cell491 [$row489 addCell parameter 0.0]
$cell491 setLabel "name_type" "shift: Integer"
$cell491 setScope "name_type" "cl" "scopePhase"

set row492 [$diag addRow method 0.0]
$row492 setProp is_event Yes
$row492 setLabel "name_type" "LostFocus() \n"
$row492 setProp "has_parmlist" "1"

set row493 [$diag addRow method 0.0]
$row493 setProp is_event Yes
$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"

set cell495 [$row493 addCell parameter 0.0]
$cell495 setLabel "name_type" "shift: Integer, "
$cell495 setScope "name_type" "cl" "scopePhase"

set cell496 [$row493 addCell parameter 0.0]
$cell496 setLabel "name_type" "x: Single, "
$cell496 setScope "name_type" "cl" "scopePhase"

set cell497 [$row493 addCell parameter 0.0]
$cell497 setLabel "name_type" "y: Single"
$cell497 setScope "name_type" "cl" "scopePhase"

set row498 [$diag addRow method 0.0]
$row498 setProp is_event Yes
$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"

set cell500 [$row498 addCell parameter 0.0]
$cell500 setLabel "name_type" "shift: Integer, "
$cell500 setScope "name_type" "cl" "scopePhase"

set cell501 [$row498 addCell parameter 0.0]
$cell501 setLabel "name_type" "x: Single, "
$cell501 setScope "name_type" "cl" "scopePhase"

set cell502 [$row498 addCell parameter 0.0]
$cell502 setLabel "name_type" "y: Single"
$cell502 setScope "name_type" "cl" "scopePhase"

set row503 [$diag addRow method 0.0]
$row503 setProp is_event Yes
$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"

set cell505 [$row503 addCell parameter 0.0]
$cell505 setLabel "name_type" "shift: Integer, "
$cell505 setScope "name_type" "cl" "scopePhase"

set cell506 [$row503 addCell parameter 0.0]
$cell506 setLabel "name_type" "x: Single, "
$cell506 setScope "name_type" "cl" "scopePhase"

set cell507 [$row503 addCell parameter 0.0]
$cell507 setLabel "name_type" "y: Single"
$cell507 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CAD new leafcontrols2 "vb_library" "" "" "" "" "" 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/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new HScrollBar "vb_library" "" "" "" "" "" 1]

set row524 [$diag addRow method 0.0]
$row524 setProp is_event Yes
$row524 setLabel "name_type" "Change()\n"
$row524 setProp "has_parmlist" "1"

set row525 [$diag addRow method 0.0]
$row525 setProp is_event Yes
$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"

set cell528 [$row525 addCell parameter 0.0]
$cell528 setLabel "name_type" "y: Single"
$cell528 setScope "name_type" "cl" "scopePhase"

set row529 [$diag addRow method 0.0]
$row529 setProp is_event Yes
$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"

set cell532 [$row529 addCell parameter 0.0]
$cell532 setLabel "name_type" "y: Single, "
$cell532 setScope "name_type" "cl" "scopePhase"

set cell533 [$row529 addCell parameter 0.0]
$cell533 setLabel "name_type" "state: Integer"
$cell533 setScope "name_type" "cl" "scopePhase"

set row534 [$diag addRow method 0.0]
$row534 setProp is_event Yes
$row534 setLabel "name_type" "GotFocus()\n"
$row534 setProp "has_parmlist" "1"

set row535 [$diag addRow method 0.0]
$row535 setProp is_event Yes
$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"

set cell537 [$row535 addCell parameter 0.0]
$cell537 setLabel "name_type" "shift:Integer"
$cell537 setScope "name_type" "cl" "scopePhase"

set row538 [$diag addRow method 0.0]
$row538 setProp is_event Yes
$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"

set row540 [$diag addRow method 0.0]
$row540 setProp is_event Yes
$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"

set cell542 [$row540 addCell parameter 0.0]
$cell542 setLabel "name_type" "shift: Integer"
$cell542 setScope "name_type" "cl" "scopePhase"

set row543 [$diag addRow method 0.0]
$row543 setProp is_event Yes
$row543 setLabel "name_type" "LostFocus() \n"
$row543 setProp "has_parmlist" "1"

set row544 [$diag addRow method 0.0]
$row544 setProp is_event Yes
$row544 setLabel "name_type" "Scroll()"
$row544 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new VScrollBar "vb_library" "" "" "" "" "" 1]

set row545 [$diag addRow method 0.0]
$row545 setProp is_event Yes
$row545 setLabel "name_type" "Change()\n"
$row545 setProp "has_parmlist" "1"

set row546 [$diag addRow method 0.0]
$row546 setProp is_event Yes
$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"

set cell549 [$row546 addCell parameter 0.0]
$cell549 setLabel "name_type" "y: Single"
$cell549 setScope "name_type" "cl" "scopePhase"

set row550 [$diag addRow method 0.0]
$row550 setProp is_event Yes
$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"

set cell553 [$row550 addCell parameter 0.0]
$cell553 setLabel "name_type" "y: Single, "
$cell553 setScope "name_type" "cl" "scopePhase"

set cell554 [$row550 addCell parameter 0.0]
$cell554 setLabel "name_type" "state: Integer"
$cell554 setScope "name_type" "cl" "scopePhase"

set row555 [$diag addRow method 0.0]
$row555 setProp is_event Yes
$row555 setLabel "name_type" "GotFocus()\n"
$row555 setProp "has_parmlist" "1"

set row556 [$diag addRow method 0.0]
$row556 setProp is_event Yes
$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"

set cell558 [$row556 addCell parameter 0.0]
$cell558 setLabel "name_type" "shift:Integer"
$cell558 setScope "name_type" "cl" "scopePhase"

set row559 [$diag addRow method 0.0]
$row559 setProp is_event Yes
$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"

set row561 [$diag addRow method 0.0]
$row561 setProp is_event Yes
$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"

set cell563 [$row561 addCell parameter 0.0]
$cell563 setLabel "name_type" "shift: Integer"
$cell563 setScope "name_type" "cl" "scopePhase"

set row564 [$diag addRow method 0.0]
$row564 setProp is_event Yes
$row564 setLabel "name_type" "LostFocus() \n"
$row564 setProp "has_parmlist" "1"

set row565 [$diag addRow method 0.0]
$row565 setProp is_event Yes
$row565 setLabel "name_type" "Scroll()"
$row565 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CAD new leafcontrols4 "vb_library" "" "" "" "" "" 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/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new Image "vb_library" "" "" "" "" "" 1]

set row582 [$diag addRow method 0.0]
$row582 setProp is_event Yes
$row582 setLabel "name_type" "Click()\n"
$row582 setProp "has_parmlist" "1"

set row583 [$diag addRow method 0.0]
$row583 setProp is_event Yes
$row583 setLabel "name_type" "DbClick() \n"
$row583 setProp "has_parmlist" "1"

set row584 [$diag addRow method 0.0]
$row584 setProp is_event Yes
$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"

set cell587 [$row584 addCell parameter 0.0]
$cell587 setLabel "name_type" "y: Single"
$cell587 setScope "name_type" "cl" "scopePhase"

set row588 [$diag addRow method 0.0]
$row588 setProp is_event Yes
$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"

set cell591 [$row588 addCell parameter 0.0]
$cell591 setLabel "name_type" "y: Single, "
$cell591 setScope "name_type" "cl" "scopePhase"

set cell592 [$row588 addCell parameter 0.0]
$cell592 setLabel "name_type" "state: Integer"
$cell592 setScope "name_type" "cl" "scopePhase"

set row593 [$diag addRow method 0.0]
$row593 setProp is_event Yes
$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"

set cell595 [$row593 addCell parameter 0.0]
$cell595 setLabel "name_type" "shift: Integer, "
$cell595 setScope "name_type" "cl" "scopePhase"

set cell596 [$row593 addCell parameter 0.0]
$cell596 setLabel "name_type" "x: Single, "
$cell596 setScope "name_type" "cl" "scopePhase"

set cell597 [$row593 addCell parameter 0.0]
$cell597 setLabel "name_type" "y: Single"
$cell597 setScope "name_type" "cl" "scopePhase"

set row598 [$diag addRow method 0.0]
$row598 setProp is_event Yes
$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"

set cell600 [$row598 addCell parameter 0.0]
$cell600 setLabel "name_type" "shift: Integer, "
$cell600 setScope "name_type" "cl" "scopePhase"

set cell601 [$row598 addCell parameter 0.0]
$cell601 setLabel "name_type" "x: Single, "
$cell601 setScope "name_type" "cl" "scopePhase"

set cell602 [$row598 addCell parameter 0.0]
$cell602 setLabel "name_type" "y: Single"
$cell602 setScope "name_type" "cl" "scopePhase"

set row603 [$diag addRow method 0.0]
$row603 setProp is_event Yes
$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"

set cell605 [$row603 addCell parameter 0.0]
$cell605 setLabel "name_type" "shift: Integer, "
$cell605 setScope "name_type" "cl" "scopePhase"

set cell606 [$row603 addCell parameter 0.0]
$cell606 setLabel "name_type" "x: Single, "
$cell606 setScope "name_type" "cl" "scopePhase"

set cell607 [$row603 addCell parameter 0.0]
$cell607 setLabel "name_type" "y: Single"
$cell607 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new Label "vb_library" "" "" "" "" "" 1]

set row608 [$diag addRow method 0.0]
$row608 setProp is_event Yes
$row608 setLabel "name_type" "Change()\n"
$row608 setProp "has_parmlist" "1"

set row609 [$diag addRow method 0.0]
$row609 setProp is_event Yes
$row609 setLabel "name_type" "Click()\n"
$row609 setProp "has_parmlist" "1"

set row610 [$diag addRow method 0.0]
$row610 setProp is_event Yes
$row610 setLabel "name_type" "DbClick() \n"
$row610 setProp "has_parmlist" "1"

set row611 [$diag addRow method 0.0]
$row611 setProp is_event Yes
$row611 setLabel "name_type" "Deactivate()\n"
$row611 setProp "has_parmlist" "1"

set row612 [$diag addRow method 0.0]
$row612 setProp is_event Yes
$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"

set cell615 [$row612 addCell parameter 0.0]
$cell615 setLabel "name_type" "y: Single"
$cell615 setScope "name_type" "cl" "scopePhase"

set row616 [$diag addRow method 0.0]
$row616 setProp is_event Yes
$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"

set cell619 [$row616 addCell parameter 0.0]
$cell619 setLabel "name_type" "y: Single, "
$cell619 setScope "name_type" "cl" "scopePhase"

set cell620 [$row616 addCell parameter 0.0]
$cell620 setLabel "name_type" "state: Integer"
$cell620 setScope "name_type" "cl" "scopePhase"

set row621 [$diag addRow method 0.0]
$row621 setProp is_event Yes
$row621 setLabel "name_type" "LinkClose() \n"
$row621 setProp "has_parmlist" "1"

set row622 [$diag addRow method 0.0]
$row622 setProp is_event Yes
$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"

set row624 [$diag addRow method 0.0]
$row624 setProp is_event Yes
$row624 setLabel "name_type" "LinkNotify()\n"
$row624 setProp "has_parmlist" "1"

set row625 [$diag addRow method 0.0]
$row625 setProp is_event Yes
$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"

set row627 [$diag addRow method 0.0]
$row627 setProp is_event Yes
$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"

set cell629 [$row627 addCell parameter 0.0]
$cell629 setLabel "name_type" "shift: Integer, "
$cell629 setScope "name_type" "cl" "scopePhase"

set cell630 [$row627 addCell parameter 0.0]
$cell630 setLabel "name_type" "x: Single, "
$cell630 setScope "name_type" "cl" "scopePhase"

set cell631 [$row627 addCell parameter 0.0]
$cell631 setLabel "name_type" "y: Single"
$cell631 setScope "name_type" "cl" "scopePhase"

set row632 [$diag addRow method 0.0]
$row632 setProp is_event Yes
$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"

set cell634 [$row632 addCell parameter 0.0]
$cell634 setLabel "name_type" "shift: Integer, "
$cell634 setScope "name_type" "cl" "scopePhase"

set cell635 [$row632 addCell parameter 0.0]
$cell635 setLabel "name_type" "x: Single, "
$cell635 setScope "name_type" "cl" "scopePhase"

set cell636 [$row632 addCell parameter 0.0]
$cell636 setLabel "name_type" "y: Single"
$cell636 setScope "name_type" "cl" "scopePhase"

set row637 [$diag addRow method 0.0]
$row637 setProp is_event Yes
$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"

set cell639 [$row637 addCell parameter 0.0]
$cell639 setLabel "name_type" "shift: Integer, "
$cell639 setScope "name_type" "cl" "scopePhase"

set cell640 [$row637 addCell parameter 0.0]
$cell640 setLabel "name_type" "x: Single, "
$cell640 setScope "name_type" "cl" "scopePhase"

set cell641 [$row637 addCell parameter 0.0]
$cell641 setLabel "name_type" "y: Single"
$cell641 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new OLE "vb_library" "" "" "" "" "" 1]

set row642 [$diag addRow method 0.0]
$row642 setProp is_event Yes
$row642 setLabel "name_type" "Click()\n"
$row642 setProp "has_parmlist" "1"

set row643 [$diag addRow method 0.0]
$row643 setProp is_event Yes
$row643 setLabel "name_type" "DbClick()\n"
$row643 setProp "has_parmlist" "1"

set row644 [$diag addRow method 0.0]
$row644 setProp is_event Yes
$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"

set cell647 [$row644 addCell parameter 0.0]
$cell647 setLabel "name_type" "y: Single"
$cell647 setScope "name_type" "cl" "scopePhase"

set row648 [$diag addRow method 0.0]
$row648 setProp is_event Yes
$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"

set cell651 [$row648 addCell parameter 0.0]
$cell651 setLabel "name_type" "y: Single, "
$cell651 setScope "name_type" "cl" "scopePhase"

set cell652 [$row648 addCell parameter 0.0]
$cell652 setLabel "name_type" "state: Integer"
$cell652 setScope "name_type" "cl" "scopePhase"

set row653 [$diag addRow method 0.0]
$row653 setProp is_event Yes
$row653 setLabel "name_type" "GotFocus()\n"
$row653 setProp "has_parmlist" "1"

set row654 [$diag addRow method 0.0]
$row654 setProp is_event Yes
$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"

set cell656 [$row654 addCell parameter 0.0]
$cell656 setLabel "name_type" "shift:Integer"
$cell656 setScope "name_type" "cl" "scopePhase"

set row657 [$diag addRow method 0.0]
$row657 setProp is_event Yes
$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"

set row659 [$diag addRow method 0.0]
$row659 setProp is_event Yes
$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"

set cell661 [$row659 addCell parameter 0.0]
$cell661 setLabel "name_type" "shift: Integer"
$cell661 setScope "name_type" "cl" "scopePhase"

set row662 [$diag addRow method 0.0]
$row662 setProp is_event Yes
$row662 setLabel "name_type" "LostFocus() \n"
$row662 setProp "has_parmlist" "1"

set row663 [$diag addRow method 0.0]
$row663 setProp is_event Yes
$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"

set cell665 [$row663 addCell parameter 0.0]
$cell665 setLabel "name_type" "shift: Integer, "
$cell665 setScope "name_type" "cl" "scopePhase"

set cell666 [$row663 addCell parameter 0.0]
$cell666 setLabel "name_type" "x: Single, "
$cell666 setScope "name_type" "cl" "scopePhase"

set cell667 [$row663 addCell parameter 0.0]
$cell667 setLabel "name_type" "y: Single"
$cell667 setScope "name_type" "cl" "scopePhase"

set row668 [$diag addRow method 0.0]
$row668 setProp is_event Yes
$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"

set cell670 [$row668 addCell parameter 0.0]
$cell670 setLabel "name_type" "shift: Integer, "
$cell670 setScope "name_type" "cl" "scopePhase"

set cell671 [$row668 addCell parameter 0.0]
$cell671 setLabel "name_type" "x: Single, "
$cell671 setScope "name_type" "cl" "scopePhase"

set cell672 [$row668 addCell parameter 0.0]
$cell672 setLabel "name_type" "y: Single"
$cell672 setScope "name_type" "cl" "scopePhase"

set row673 [$diag addRow method 0.0]
$row673 setProp is_event Yes
$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"

set cell675 [$row673 addCell parameter 0.0]
$cell675 setLabel "name_type" "shift: Integer, "
$cell675 setScope "name_type" "cl" "scopePhase"

set cell676 [$row673 addCell parameter 0.0]
$cell676 setLabel "name_type" "x: Single, "
$cell676 setScope "name_type" "cl" "scopePhase"

set cell677 [$row673 addCell parameter 0.0]
$cell677 setLabel "name_type" "y: Single"
$cell677 setScope "name_type" "cl" "scopePhase"

set row678 [$diag addRow method 0.0]
$row678 setProp is_event Yes
$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"

set cell680 [$row678 addCell parameter 0.0]
$cell680 setLabel "name_type" "top: Single, "
$cell680 setScope "name_type" "cl" "scopePhase"

set cell681 [$row678 addCell parameter 0.0]
$cell681 setLabel "name_type" "width: Single, "
$cell681 setScope "name_type" "cl" "scopePhase"

set cell682 [$row678 addCell parameter 0.0]
$cell682 setLabel "name_type" "height: Single"
$cell682 setScope "name_type" "cl" "scopePhase"

set row683 [$diag addRow method 0.0]
$row683 setProp is_event Yes
$row683 setLabel "name_type" "Resize() \n"
$row683 setProp "has_parmlist" "1"

set row684 [$diag addRow method 0.0]
$row684 setProp is_event Yes
$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"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CAD new leafcontrols5 "vb_library" "" "" "" "" "" 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/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new OptionButton "vb_library" "" "" "" "" "" 1]

set row696 [$diag addRow method 0.0]
$row696 setProp is_event Yes
$row696 setLabel "name_type" "Click()\n"
$row696 setProp "has_parmlist" "1"

set row697 [$diag addRow method 0.0]
$row697 setProp is_event Yes
$row697 setLabel "name_type" "DbClick() \n"
$row697 setProp "has_parmlist" "1"

set row698 [$diag addRow method 0.0]
$row698 setProp is_event Yes
$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"

set cell701 [$row698 addCell parameter 0.0]
$cell701 setLabel "name_type" "y: Single"
$cell701 setScope "name_type" "cl" "scopePhase"

set row702 [$diag addRow method 0.0]
$row702 setProp is_event Yes
$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"

set cell705 [$row702 addCell parameter 0.0]
$cell705 setLabel "name_type" "y: Single, "
$cell705 setScope "name_type" "cl" "scopePhase"

set cell706 [$row702 addCell parameter 0.0]
$cell706 setLabel "name_type" "state: Integer"
$cell706 setScope "name_type" "cl" "scopePhase"

set row707 [$diag addRow method 0.0]
$row707 setProp is_event Yes
$row707 setLabel "name_type" "GotFocus()\n"
$row707 setProp "has_parmlist" "1"

set row708 [$diag addRow method 0.0]
$row708 setProp is_event Yes
$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"

set cell710 [$row708 addCell parameter 0.0]
$cell710 setLabel "name_type" "shift:Integer"
$cell710 setScope "name_type" "cl" "scopePhase"

set row711 [$diag addRow method 0.0]
$row711 setProp is_event Yes
$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"

set row713 [$diag addRow method 0.0]
$row713 setProp is_event Yes
$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"

set cell715 [$row713 addCell parameter 0.0]
$cell715 setLabel "name_type" "shift: Integer"
$cell715 setScope "name_type" "cl" "scopePhase"

set row716 [$diag addRow method 0.0]
$row716 setProp is_event Yes
$row716 setLabel "name_type" "LostFocus() \n"
$row716 setProp "has_parmlist" "1"

set row717 [$diag addRow method 0.0]
$row717 setProp is_event Yes
$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"

set cell719 [$row717 addCell parameter 0.0]
$cell719 setLabel "name_type" "shift: Integer, "
$cell719 setScope "name_type" "cl" "scopePhase"

set cell720 [$row717 addCell parameter 0.0]
$cell720 setLabel "name_type" "x: Single, "
$cell720 setScope "name_type" "cl" "scopePhase"

set cell721 [$row717 addCell parameter 0.0]
$cell721 setLabel "name_type" "y: Single"
$cell721 setScope "name_type" "cl" "scopePhase"

set row722 [$diag addRow method 0.0]
$row722 setProp is_event Yes
$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"

set cell724 [$row722 addCell parameter 0.0]
$cell724 setLabel "name_type" "shift: Integer, "
$cell724 setScope "name_type" "cl" "scopePhase"

set cell725 [$row722 addCell parameter 0.0]
$cell725 setLabel "name_type" "x: Single, "
$cell725 setScope "name_type" "cl" "scopePhase"

set cell726 [$row722 addCell parameter 0.0]
$cell726 setLabel "name_type" "y: Single"
$cell726 setScope "name_type" "cl" "scopePhase"

set row727 [$diag addRow method 0.0]
$row727 setProp is_event Yes
$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"

set cell729 [$row727 addCell parameter 0.0]
$cell729 setLabel "name_type" "shift: Integer, "
$cell729 setScope "name_type" "cl" "scopePhase"

set cell730 [$row727 addCell parameter 0.0]
$cell730 setLabel "name_type" "x: Single, "
$cell730 setScope "name_type" "cl" "scopePhase"

set cell731 [$row727 addCell parameter 0.0]
$cell731 setLabel "name_type" "y: Single"
$cell731 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new Timer "vb_library" "" "" "" "" "" 1]

set row732 [$diag addRow method 0.0]
$row732 setProp is_event Yes
$row732 setLabel "name_type" "Timer()"
$row732 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CAD new nodecontrols1 "vb_library" "" "" "" "" "" 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/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new Shape "vb_library" "" "" "" "" "" 1]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CDM new Line "vb_library" "" "" "" "" "" 1]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -dphase -e -g -avb_library
# Interpreter to use: Otsh V6.1.1/00
#
OTShRegister::importTool

set diag [CAD new miscellaneous "vb_library" "" "" "" "" "" 1]

set node746 [$diag addNode cad_class 752.0 816.0 120.0 45.3333]
$node746 setLabel "name" "Control"
$node746 setProp "is_folded" "1"
$node746 setScope "name" "cl" "scopePhase"

set node747 [$diag addNode cad_class 976.0 816.0 120.0 45.3333]
$node747 setLabel "name" "Collection"
$node747 setProp "is_folded" "1"
$node747 setScope "name" "cl" "scopePhase"

set node748 [$diag addNode cad_class 528.0 816.0 120.0 45.3333]
$node748 setLabel "name" "ClassSet"
$node748 setProp "is_folded" "1"
$node748 setScope "name" "cl" "scopePhase"

$diag save