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

Text File | 1997-04-11 | 335.4 KB | 9,040 lines

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TBitBtn "DelphiVCL" "" "" "" "" "" 1]

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

set cell2 [$row1 addCell parameter 0.0]
$cell2 setLabel "name_type" "Sender: TObject"
$cell2 setScope "name_type" "cl" "scopePhase"
$cell2 setProp "is_vcl" "1" "name_type" "cl"
$cell2 setProp "libunit" "System" "name_type" "cl"
$cell2 setScope "name_type" "de" "scopeSystem"

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

set cell4 [$row3 addCell parameter 0.0]
$cell4 setLabel "name_type" "Sender: TObject, "
$cell4 setScope "name_type" "cl" "scopePhase"
$cell4 setProp "is_vcl" "1" "name_type" "cl"
$cell4 setProp "libunit" "System" "name_type" "cl"
$cell4 setScope "name_type" "de" "scopeSystem"

set cell5 [$row3 addCell parameter 0.0]
$cell5 setLabel "name_type" "Source: TObject, "
$cell5 setScope "name_type" "cl" "scopePhase"
$cell5 setProp "is_vcl" "1" "name_type" "cl"
$cell5 setProp "libunit" "System" "name_type" "cl"
$cell5 setScope "name_type" "de" "scopeSystem"

set cell6 [$row3 addCell parameter 0.0]
$cell6 setLabel "name_type" "X: int, "
$cell6 setScope "name_type" "cl" "scopePhase"
$cell6 setScope "name_type" "de" "scopeSystem"

set cell7 [$row3 addCell parameter 0.0]
$cell7 setLabel "name_type" "Y: int"
$cell7 setScope "name_type" "cl" "scopePhase"
$cell7 setScope "name_type" "de" "scopeSystem"

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

set cell9 [$row8 addCell parameter 0.0]
$cell9 setLabel "name_type" "Sender: TObject, "
$cell9 setScope "name_type" "cl" "scopePhase"
$cell9 setProp "is_vcl" "1" "name_type" "cl"
$cell9 setProp "libunit" "System" "name_type" "cl"
$cell9 setScope "name_type" "de" "scopeSystem"

set cell10 [$row8 addCell parameter 0.0]
$cell10 setLabel "name_type" "Source: TObject, "
$cell10 setScope "name_type" "cl" "scopePhase"
$cell10 setProp "is_vcl" "1" "name_type" "cl"
$cell10 setProp "libunit" "System" "name_type" "cl"
$cell10 setScope "name_type" "de" "scopeSystem"

set cell11 [$row8 addCell parameter 0.0]
$cell11 setLabel "name_type" "X: int, "
$cell11 setScope "name_type" "cl" "scopePhase"
$cell11 setScope "name_type" "de" "scopeSystem"

set cell12 [$row8 addCell parameter 0.0]
$cell12 setLabel "name_type" "Y: int, "
$cell12 setScope "name_type" "cl" "scopePhase"
$cell12 setScope "name_type" "de" "scopeSystem"

set cell13 [$row8 addCell parameter 0.0]
$cell13 setLabel "name_type" "State: TDragState, "
$cell13 setScope "name_type" "cl" "scopePhase"
$cell13 setProp "is_vcl" "1" "name_type" "cl"
$cell13 setProp "libunit" "Controls" "name_type" "cl"
$cell13 setScope "name_type" "de" "scopeSystem"

set cell14 [$row8 addCell parameter 0.0]
$cell14 setLabel "name_type" "Accept: bool"
$cell14 setProp "pass_by" "Variable"
$cell14 setScope "name_type" "cl" "scopePhase"
$cell14 setScope "name_type" "de" "scopeSystem"

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

set cell16 [$row15 addCell parameter 0.0]
$cell16 setLabel "name_type" "Sender: TObject, "
$cell16 setScope "name_type" "cl" "scopePhase"
$cell16 setProp "is_vcl" "1" "name_type" "cl"
$cell16 setProp "libunit" "System" "name_type" "cl"
$cell16 setScope "name_type" "de" "scopeSystem"

set cell17 [$row15 addCell parameter 0.0]
$cell17 setLabel "name_type" "Source: TObject, "
$cell17 setScope "name_type" "cl" "scopePhase"
$cell17 setProp "is_vcl" "1" "name_type" "cl"
$cell17 setProp "libunit" "System" "name_type" "cl"
$cell17 setScope "name_type" "de" "scopeSystem"

set cell18 [$row15 addCell parameter 0.0]
$cell18 setLabel "name_type" "X: int, "
$cell18 setScope "name_type" "cl" "scopePhase"
$cell18 setScope "name_type" "de" "scopeSystem"

set cell19 [$row15 addCell parameter 0.0]
$cell19 setLabel "name_type" "Y: int"
$cell19 setScope "name_type" "cl" "scopePhase"
$cell19 setScope "name_type" "de" "scopeSystem"

set row20 [$diag addRow method 0.0]
$row20 setLabel "name_type" "Enter()\n"
$row20 setProp "has_parmlist" "1"
$row20 setProp "is_event" "1"

set cell21 [$row20 addCell parameter 0.0]
$cell21 setLabel "name_type" "Sender: TObject"
$cell21 setScope "name_type" "cl" "scopePhase"
$cell21 setProp "is_vcl" "1" "name_type" "cl"
$cell21 setProp "libunit" "System" "name_type" "cl"
$cell21 setScope "name_type" "de" "scopeSystem"

set row22 [$diag addRow method 0.0]
$row22 setLabel "name_type" "Exit()\n"
$row22 setProp "has_parmlist" "1"
$row22 setProp "is_event" "1"

set cell23 [$row22 addCell parameter 0.0]
$cell23 setLabel "name_type" "Sender: TObject"
$cell23 setScope "name_type" "cl" "scopePhase"
$cell23 setProp "is_vcl" "1" "name_type" "cl"
$cell23 setProp "libunit" "System" "name_type" "cl"
$cell23 setScope "name_type" "de" "scopeSystem"

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

set cell25 [$row24 addCell parameter 0.0]
$cell25 setLabel "name_type" "Sender: TObject, "
$cell25 setScope "name_type" "cl" "scopePhase"
$cell25 setProp "is_vcl" "1" "name_type" "cl"
$cell25 setProp "libunit" "System" "name_type" "cl"
$cell25 setScope "name_type" "de" "scopeSystem"

set cell26 [$row24 addCell parameter 0.0]
$cell26 setLabel "name_type" "Key: word, "
$cell26 setProp "pass_by" "Variable"
$cell26 setScope "name_type" "cl" "scopePhase"
$cell26 setScope "name_type" "de" "scopeSystem"

set cell27 [$row24 addCell parameter 0.0]
$cell27 setLabel "name_type" "Shift: TShiftState"
$cell27 setScope "name_type" "cl" "scopePhase"
$cell27 setProp "is_vcl" "1" "name_type" "cl"
$cell27 setProp "libunit" "Classes" "name_type" "cl"
$cell27 setScope "name_type" "de" "scopeSystem"

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

set cell29 [$row28 addCell parameter 0.0]
$cell29 setLabel "name_type" "Sender: TObject, "
$cell29 setScope "name_type" "cl" "scopePhase"
$cell29 setProp "is_vcl" "1" "name_type" "cl"
$cell29 setProp "libunit" "System" "name_type" "cl"
$cell29 setScope "name_type" "de" "scopeSystem"

set cell30 [$row28 addCell parameter 0.0]
$cell30 setLabel "name_type" "Key: char"
$cell30 setProp "pass_by" "Variable"
$cell30 setScope "name_type" "cl" "scopePhase"
$cell30 setScope "name_type" "de" "scopeSystem"

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

set cell32 [$row31 addCell parameter 0.0]
$cell32 setLabel "name_type" "Sender: TObject, "
$cell32 setScope "name_type" "cl" "scopePhase"
$cell32 setProp "is_vcl" "1" "name_type" "cl"
$cell32 setProp "libunit" "System" "name_type" "cl"
$cell32 setScope "name_type" "de" "scopeSystem"

set cell33 [$row31 addCell parameter 0.0]
$cell33 setLabel "name_type" "Key: word, "
$cell33 setScope "name_type" "cl" "scopePhase"
$cell33 setScope "name_type" "de" "scopeSystem"

set cell34 [$row31 addCell parameter 0.0]
$cell34 setLabel "name_type" "Shift: TShiftState"
$cell34 setScope "name_type" "cl" "scopePhase"
$cell34 setProp "is_vcl" "1" "name_type" "cl"
$cell34 setProp "libunit" "Classes" "name_type" "cl"
$cell34 setScope "name_type" "de" "scopeSystem"

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

set cell36 [$row35 addCell parameter 0.0]
$cell36 setLabel "name_type" "Sender: TObject, "
$cell36 setScope "name_type" "cl" "scopePhase"
$cell36 setProp "is_vcl" "1" "name_type" "cl"
$cell36 setProp "libunit" "System" "name_type" "cl"
$cell36 setScope "name_type" "de" "scopeSystem"

set cell37 [$row35 addCell parameter 0.0]
$cell37 setLabel "name_type" "Button: TMouseButton, "
$cell37 setScope "name_type" "cl" "scopePhase"
$cell37 setProp "is_vcl" "1" "name_type" "cl"
$cell37 setProp "libunit" "Controls" "name_type" "cl"
$cell37 setScope "name_type" "de" "scopeSystem"

set cell38 [$row35 addCell parameter 0.0]
$cell38 setLabel "name_type" "Shift: TShiftState, "
$cell38 setScope "name_type" "cl" "scopePhase"
$cell38 setProp "is_vcl" "1" "name_type" "cl"
$cell38 setProp "libunit" "Classes" "name_type" "cl"
$cell38 setScope "name_type" "de" "scopeSystem"

set cell39 [$row35 addCell parameter 0.0]
$cell39 setLabel "name_type" "X: int, "
$cell39 setScope "name_type" "cl" "scopePhase"
$cell39 setScope "name_type" "de" "scopeSystem"

set cell40 [$row35 addCell parameter 0.0]
$cell40 setLabel "name_type" "Y: int"
$cell40 setScope "name_type" "cl" "scopePhase"
$cell40 setScope "name_type" "de" "scopeSystem"

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

set cell42 [$row41 addCell parameter 0.0]
$cell42 setLabel "name_type" "Sender: TObject, "
$cell42 setScope "name_type" "cl" "scopePhase"
$cell42 setProp "is_vcl" "1" "name_type" "cl"
$cell42 setProp "libunit" "System" "name_type" "cl"
$cell42 setScope "name_type" "de" "scopeSystem"

set cell43 [$row41 addCell parameter 0.0]
$cell43 setLabel "name_type" "Shift: TShiftState, "
$cell43 setScope "name_type" "cl" "scopePhase"
$cell43 setProp "is_vcl" "1" "name_type" "cl"
$cell43 setProp "libunit" "Classes" "name_type" "cl"
$cell43 setScope "name_type" "de" "scopeSystem"

set cell44 [$row41 addCell parameter 0.0]
$cell44 setLabel "name_type" "X: int, "
$cell44 setScope "name_type" "cl" "scopePhase"
$cell44 setScope "name_type" "de" "scopeSystem"

set cell45 [$row41 addCell parameter 0.0]
$cell45 setLabel "name_type" "Y: int"
$cell45 setScope "name_type" "cl" "scopePhase"
$cell45 setScope "name_type" "de" "scopeSystem"

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

set cell47 [$row46 addCell parameter 0.0]
$cell47 setLabel "name_type" "Sender: TObject, "
$cell47 setScope "name_type" "cl" "scopePhase"
$cell47 setProp "is_vcl" "1" "name_type" "cl"
$cell47 setProp "libunit" "System" "name_type" "cl"
$cell47 setScope "name_type" "de" "scopeSystem"

set cell48 [$row46 addCell parameter 0.0]
$cell48 setLabel "name_type" "Button: TMouseButton, "
$cell48 setScope "name_type" "cl" "scopePhase"
$cell48 setProp "is_vcl" "1" "name_type" "cl"
$cell48 setProp "libunit" "Controls" "name_type" "cl"
$cell48 setScope "name_type" "de" "scopeSystem"

set cell49 [$row46 addCell parameter 0.0]
$cell49 setLabel "name_type" "Shift: TShiftState, "
$cell49 setScope "name_type" "cl" "scopePhase"
$cell49 setProp "is_vcl" "1" "name_type" "cl"
$cell49 setProp "libunit" "Classes" "name_type" "cl"
$cell49 setScope "name_type" "de" "scopeSystem"

set cell50 [$row46 addCell parameter 0.0]
$cell50 setLabel "name_type" "X: int, "
$cell50 setScope "name_type" "cl" "scopePhase"
$cell50 setScope "name_type" "de" "scopeSystem"

set cell51 [$row46 addCell parameter 0.0]
$cell51 setLabel "name_type" "Y: int"
$cell51 setScope "name_type" "cl" "scopePhase"
$cell51 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new ButtonsClasses "DelphiVCL" "" "" "" "" "" 1]

set node54 [$diag addNode cad_class 768.0 768.0 120.0 33.0]
$node54 setLabel "name" "TSpeedButton"
$node54 setProp "is_folded" "1"
$node54 setScope "name" "cl" "scopePhase"
$node54 setProp "is_vcl" "1" "name" "cl"
$node54 setProp "libunit" "Other" "name" "cl"
$node54 setProp "userlib" "Buttons" "name" "cl"

set node55 [$diag addNode cad_class 768.0 656.0 131.0 33.0]
$node55 setLabel "name" "TGraphicControl"
$node55 setProp "is_folded" "1"
$node55 setScope "name" "cl" "scopePhase"
$node55 setProp "is_vcl" "1" "name" "cl"
$node55 setProp "libunit" "Controls" "name" "cl"

set node56 [$diag addNode cad_class 560.0 656.0 120.0 33.0]
$node56 setLabel "name" "TButton"
$node56 setProp "is_folded" "1"
$node56 setScope "name" "cl" "scopePhase"
$node56 setProp "is_vcl" "1" "name" "cl"
$node56 setProp "libunit" "StdCtrls" "name" "cl"

set node57 [$diag addNode cad_class 560.0 768.0 120.0 33.0]
$node57 setLabel "name" "TBitBtn"
$node57 setProp "is_folded" "1"
$node57 setScope "name" "cl" "scopePhase"
$node57 setProp "is_vcl" "1" "name" "cl"
$node57 setProp "libunit" "Other" "name" "cl"
$node57 setProp "userlib" "Buttons" "name" "cl"

set node52 [$diag addRake generalization $node55 $node54 832.0 688.0 832.0 784.0 735.5]

set conn58 [$node52 getInConn]
set segm59 [$conn58 getFirstSegm]

set conn60 [$node52 getFirstOutConn]
set segm61 [$conn60 getFirstSegm]

set node53 [$diag addRake generalization $node56 $node57 624.0 688.0 624.0 768.0 728.0]

set conn62 [$node53 getInConn]
set segm63 [$conn62 getFirstSegm]

set conn64 [$node53 getFirstOutConn]
set segm65 [$conn64 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TSpeedButton "DelphiVCL" "" "" "" "" "" 1]

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

set cell67 [$row66 addCell parameter 0.0]
$cell67 setLabel "name_type" "Sender: TObject"
$cell67 setScope "name_type" "cl" "scopePhase"
$cell67 setProp "is_vcl" "1" "name_type" "cl"
$cell67 setProp "libunit" "System" "name_type" "cl"
$cell67 setScope "name_type" "de" "scopeSystem"

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

set cell69 [$row68 addCell parameter 0.0]
$cell69 setLabel "name_type" "Sender: TObject"
$cell69 setScope "name_type" "cl" "scopePhase"
$cell69 setProp "is_vcl" "1" "name_type" "cl"
$cell69 setProp "libunit" "System" "name_type" "cl"
$cell69 setScope "name_type" "de" "scopeSystem"

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

set cell71 [$row70 addCell parameter 0.0]
$cell71 setLabel "name_type" "Sender: TObject, "
$cell71 setScope "name_type" "cl" "scopePhase"
$cell71 setProp "is_vcl" "1" "name_type" "cl"
$cell71 setProp "libunit" "System" "name_type" "cl"
$cell71 setScope "name_type" "de" "scopeSystem"

set cell72 [$row70 addCell parameter 0.0]
$cell72 setLabel "name_type" "Button: TMouseButton, "
$cell72 setScope "name_type" "cl" "scopePhase"
$cell72 setProp "is_vcl" "1" "name_type" "cl"
$cell72 setProp "libunit" "Controls" "name_type" "cl"
$cell72 setScope "name_type" "de" "scopeSystem"

set cell73 [$row70 addCell parameter 0.0]
$cell73 setLabel "name_type" "Shift: TShiftState, "
$cell73 setScope "name_type" "cl" "scopePhase"
$cell73 setProp "is_vcl" "1" "name_type" "cl"
$cell73 setProp "libunit" "Classes" "name_type" "cl"
$cell73 setScope "name_type" "de" "scopeSystem"

set cell74 [$row70 addCell parameter 0.0]
$cell74 setLabel "name_type" "X: int, "
$cell74 setScope "name_type" "cl" "scopePhase"
$cell74 setScope "name_type" "de" "scopeSystem"

set cell75 [$row70 addCell parameter 0.0]
$cell75 setLabel "name_type" "Y: int"
$cell75 setScope "name_type" "cl" "scopePhase"
$cell75 setScope "name_type" "de" "scopeSystem"

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

set cell77 [$row76 addCell parameter 0.0]
$cell77 setLabel "name_type" "Sender: TObject, "
$cell77 setScope "name_type" "cl" "scopePhase"
$cell77 setProp "is_vcl" "1" "name_type" "cl"
$cell77 setProp "libunit" "System" "name_type" "cl"
$cell77 setScope "name_type" "de" "scopeSystem"

set cell78 [$row76 addCell parameter 0.0]
$cell78 setLabel "name_type" "Shift: TShiftState, "
$cell78 setScope "name_type" "cl" "scopePhase"
$cell78 setProp "is_vcl" "1" "name_type" "cl"
$cell78 setProp "libunit" "Classes" "name_type" "cl"
$cell78 setScope "name_type" "de" "scopeSystem"

set cell79 [$row76 addCell parameter 0.0]
$cell79 setLabel "name_type" "X: int, "
$cell79 setScope "name_type" "cl" "scopePhase"
$cell79 setScope "name_type" "de" "scopeSystem"

set cell80 [$row76 addCell parameter 0.0]
$cell80 setLabel "name_type" "Y: int"
$cell80 setScope "name_type" "cl" "scopePhase"
$cell80 setScope "name_type" "de" "scopeSystem"

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

set cell82 [$row81 addCell parameter 0.0]
$cell82 setLabel "name_type" "Sender: TObject, "
$cell82 setScope "name_type" "cl" "scopePhase"
$cell82 setProp "is_vcl" "1" "name_type" "cl"
$cell82 setProp "libunit" "System" "name_type" "cl"
$cell82 setScope "name_type" "de" "scopeSystem"

set cell83 [$row81 addCell parameter 0.0]
$cell83 setLabel "name_type" "Button: TMouseButton, "
$cell83 setScope "name_type" "cl" "scopePhase"
$cell83 setProp "is_vcl" "1" "name_type" "cl"
$cell83 setProp "libunit" "Controls" "name_type" "cl"
$cell83 setScope "name_type" "de" "scopeSystem"

set cell84 [$row81 addCell parameter 0.0]
$cell84 setLabel "name_type" "Shift: TShiftState, "
$cell84 setScope "name_type" "cl" "scopePhase"
$cell84 setProp "is_vcl" "1" "name_type" "cl"
$cell84 setProp "libunit" "Classes" "name_type" "cl"
$cell84 setScope "name_type" "de" "scopeSystem"

set cell85 [$row81 addCell parameter 0.0]
$cell85 setLabel "name_type" "X: int, "
$cell85 setScope "name_type" "cl" "scopePhase"
$cell85 setScope "name_type" "de" "scopeSystem"

set cell86 [$row81 addCell parameter 0.0]
$cell86 setLabel "name_type" "Y: int"
$cell86 setScope "name_type" "cl" "scopePhase"
$cell86 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new DBClasses "DelphiVCL" "" "" "" "" "" 1]

set node88 [$diag addNode cad_class 1280.0 896.0 120.0 33.0]
$node88 setLabel "name" "TDataBase"
$node88 setProp "is_folded" "1"
$node88 setScope "name" "cl" "scopePhase"
$node88 setProp "is_vcl" "1" "name" "cl"
$node88 setProp "libunit" "Other" "name" "cl"
$node88 setProp "userlib" "DB" "name" "cl"

set node89 [$diag addNode cad_class 1120.0 896.0 120.0 33.0]
$node89 setLabel "name" "TDataSource"
$node89 setProp "is_folded" "1"
$node89 setScope "name" "cl" "scopePhase"
$node89 setProp "is_vcl" "1" "name" "cl"
$node89 setProp "libunit" "Other" "name" "cl"
$node89 setProp "userlib" "DB" "name" "cl"

set node90 [$diag addNode cad_class 1040.0 800.0 120.0 33.0]
$node90 setLabel "name" "TComponent"
$node90 setProp "is_folded" "1"
$node90 setScope "name" "cl" "scopePhase"
$node90 setProp "is_vcl" "1" "name" "cl"
$node90 setProp "libunit" "Classes" "name" "cl"

set node91 [$diag addNode cad_class 960.0 896.0 120.0 33.0]
$node91 setLabel "name" "TSession"
$node91 setProp "is_folded" "1"
$node91 setScope "name" "cl" "scopePhase"
$node91 setProp "is_vcl" "1" "name" "cl"
$node91 setProp "libunit" "Other" "name" "cl"
$node91 setProp "userlib" "DB" "name" "cl"

set node92 [$diag addNode cad_class 800.0 896.0 120.0 33.0]
$node92 setLabel "name" "TField"
$node92 setProp "is_folded" "1"
$node92 setScope "name" "cl" "scopePhase"
$node92 setProp "is_vcl" "1" "name" "cl"
$node92 setProp "libunit" "Other" "name" "cl"
$node92 setProp "userlib" "DB" "name" "cl"

set node87 [$diag addRake generalization $node90 $node88 1104.0 832.0 1344.0 912.0 872.0]

set conn93 [$node87 getInConn]
set segm94 [$conn93 getFirstSegm]

set conn95 [$node87 getFirstOutConn]
set segm96 [$conn95 getFirstSegm]

set conn97 [$diag addConn generalization_conn $node87 $node89 1136.0 872.5 1184.0 896.0]
set segm98 [$conn97 getFirstSegm]

set conn99 [$diag addConn generalization_conn $node87 $node91 1136.0 872.5 1024.0 912.0]
set segm100 [$conn99 getFirstSegm]

set conn101 [$diag addConn generalization_conn $node87 $node92 1114.0 872.5 864.0 912.0]
set segm102 [$conn101 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new DialogsClasses "DelphiVCL" "" "" "" "" "" 1]

set node107 [$diag addNode cad_class 1280.0 752.0 157.0 33.0]
$node107 setLabel "name" "TPrinterSetupDialog"
$node107 setProp "is_folded" "1"
$node107 setScope "name" "cl" "scopePhase"
$node107 setProp "is_vcl" "1" "name" "cl"
$node107 setProp "libunit" "Other" "name" "cl"
$node107 setProp "userlib" "Dialogs" "name" "cl"

set node108 [$diag addNode cad_class 1136.0 752.0 120.0 33.0]
$node108 setLabel "name" "TPrintDialog"
$node108 setProp "is_folded" "1"
$node108 setScope "name" "cl" "scopePhase"
$node108 setProp "is_vcl" "1" "name" "cl"
$node108 setProp "libunit" "Other" "name" "cl"
$node108 setProp "userlib" "Dialogs" "name" "cl"

set node109 [$diag addNode cad_class 992.0 848.0 120.0 33.0]
$node109 setLabel "name" "TSaveDialog"
$node109 setProp "is_folded" "1"
$node109 setScope "name" "cl" "scopePhase"
$node109 setProp "is_vcl" "1" "name" "cl"
$node109 setProp "libunit" "Other" "name" "cl"
$node109 setProp "userlib" "Dialogs" "name" "cl"

set node110 [$diag addNode cad_class 992.0 752.0 120.0 33.0]
$node110 setLabel "name" "TOpenDialog"
$node110 setProp "is_folded" "1"
$node110 setScope "name" "cl" "scopePhase"
$node110 setProp "is_vcl" "1" "name" "cl"
$node110 setProp "libunit" "Other" "name" "cl"
$node110 setProp "userlib" "Dialogs" "name" "cl"

set node111 [$diag addNode cad_class 848.0 752.0 120.0 33.0]
$node111 setLabel "name" "TFontDialog"
$node111 setProp "is_folded" "1"
$node111 setScope "name" "cl" "scopePhase"
$node111 setProp "is_vcl" "1" "name" "cl"
$node111 setProp "libunit" "Other" "name" "cl"
$node111 setProp "userlib" "Dialogs" "name" "cl"

set node112 [$diag addNode cad_class 704.0 848.0 124.0 33.0]
$node112 setLabel "name" "TReplaceDialog"
$node112 setProp "is_folded" "1"
$node112 setScope "name" "cl" "scopePhase"
$node112 setProp "is_vcl" "1" "name" "cl"
$node112 setProp "libunit" "Other" "name" "cl"
$node112 setProp "userlib" "Dialogs" "name" "cl"

set node113 [$diag addNode cad_class 704.0 752.0 120.0 33.0]
$node113 setLabel "name" "TFindDialog"
$node113 setProp "is_folded" "1"
$node113 setScope "name" "cl" "scopePhase"
$node113 setProp "is_vcl" "1" "name" "cl"
$node113 setProp "libunit" "Other" "name" "cl"
$node113 setProp "userlib" "Dialogs" "name" "cl"

set node114 [$diag addNode cad_class 560.0 752.0 120.0 33.0]
$node114 setLabel "name" "TColorDialog"
$node114 setProp "is_folded" "1"
$node114 setScope "name" "cl" "scopePhase"
$node114 setProp "is_vcl" "1" "name" "cl"
$node114 setProp "libunit" "Other" "name" "cl"
$node114 setProp "userlib" "Dialogs" "name" "cl"

set node115 [$diag addNode cad_class 912.0 656.0 130.0 33.0]
$node115 setLabel "name" "TCommonDialog"
$node115 setProp "is_folded" "1"
$node115 setScope "name" "cl" "scopePhase"
$node115 setProp "is_vcl" "1" "name" "cl"
$node115 setProp "libunit" "Other" "name" "cl"
$node115 setProp "userlib" "Dialogs" "name" "cl"

set node116 [$diag addNode cad_class 912.0 560.0 120.0 33.0]
$node116 setLabel "name" "TComponent"
$node116 setProp "is_folded" "1"
$node116 setScope "name" "cl" "scopePhase"
$node116 setProp "is_vcl" "1" "name" "cl"
$node116 setProp "libunit" "Classes" "name" "cl"

set node103 [$diag addRake generalization $node110 $node109 1056.0 784.0 1056.0 864.0 824.0]

set conn117 [$node103 getInConn]
set segm118 [$conn117 getFirstSegm]

set conn119 [$node103 getFirstOutConn]
set segm120 [$conn119 getFirstSegm]

set node104 [$diag addRake generalization $node113 $node112 768.0 784.0 768.0 864.0 824.0]

set conn121 [$node104 getInConn]
set segm122 [$conn121 getFirstSegm]

set conn123 [$node104 getFirstOutConn]
set segm124 [$conn123 getFirstSegm]

set node105 [$diag addRake generalization $node115 $node114 976.0 688.0 624.0 752.0 720.0]

set conn125 [$node105 getInConn]
set segm126 [$conn125 getFirstSegm]

set conn127 [$node105 getFirstOutConn]
set segm128 [$conn127 getFirstSegm]

set conn129 [$diag addConn generalization_conn $node105 $node107 976.0 720.5 1360.0 768.0]
set segm130 [$conn129 getFirstSegm]

set conn131 [$diag addConn generalization_conn $node105 $node108 976.0 720.5 1200.0 768.0]
set segm132 [$conn131 getFirstSegm]

set conn133 [$diag addConn generalization_conn $node105 $node110 976.0 720.5 1056.0 752.0]
set segm134 [$conn133 getFirstSegm]

set conn135 [$diag addConn generalization_conn $node105 $node111 976.0 720.5 912.0 768.0]
set segm136 [$conn135 getFirstSegm]

set conn137 [$diag addConn generalization_conn $node105 $node113 986.0 720.5 768.0 752.0]
set segm138 [$conn137 getFirstSegm]

set node106 [$diag addRake generalization $node116 $node115 976.0 592.0 976.0 672.0 632.0]

set conn139 [$node106 getInConn]
set segm140 [$conn139 getFirstSegm]

set conn141 [$node106 getFirstOutConn]
set segm142 [$conn141 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TFindDialog "DelphiVCL" "" "" "" "" "" 1]

set row143 [$diag addRow method 0.0]
$row143 setLabel "name_type" "Find()"
$row143 setProp "has_parmlist" "1"
$row143 setProp "is_event" "1"

set cell144 [$row143 addCell parameter 0.0]
$cell144 setLabel "name_type" "Sender: TObject"
$cell144 setScope "name_type" "cl" "scopePhase"
$cell144 setProp "is_vcl" "1" "name_type" "cl"
$cell144 setProp "libunit" "System" "name_type" "cl"
$cell144 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TReplaceDialog "DelphiVCL" "" "" "" "" "" 1]

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

set cell146 [$row145 addCell parameter 0.0]
$cell146 setLabel "name_type" "Sender: TObject"
$cell146 setScope "name_type" "cl" "scopePhase"
$cell146 setProp "is_vcl" "1" "name_type" "cl"
$cell146 setProp "libunit" "System" "name_type" "cl"
$cell146 setScope "name_type" "de" "scopeSystem"

set row147 [$diag addRow method 0.0]
$row147 setLabel "name_type" "Replace()"
$row147 setProp "has_parmlist" "1"
$row147 setProp "is_event" "1"

set cell148 [$row147 addCell parameter 0.0]
$cell148 setLabel "name_type" "Sender: TObject"
$cell148 setScope "name_type" "cl" "scopePhase"
$cell148 setProp "is_vcl" "1" "name_type" "cl"
$cell148 setProp "libunit" "System" "name_type" "cl"
$cell148 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TFontDialog "DelphiVCL" "" "" "" "" "" 1]

set row149 [$diag addRow method 0.0]
$row149 setLabel "name_type" "Apply()"
$row149 setProp "has_parmlist" "1"
$row149 setProp "is_event" "1"

set cell150 [$row149 addCell parameter 0.0]
$cell150 setLabel "name_type" "Sender: TObject, "
$cell150 setScope "name_type" "cl" "scopePhase"
$cell150 setProp "is_vcl" "1" "name_type" "cl"
$cell150 setProp "libunit" "System" "name_type" "cl"
$cell150 setScope "name_type" "de" "scopeSystem"

set cell151 [$row149 addCell parameter 0.0]
$cell151 setLabel "name_type" "Wnd: HWND"
$cell151 setScope "name_type" "cl" "scopePhase"
$cell151 setProp "is_vcl" "1" "name_type" "cl"
$cell151 setProp "libunit" "System" "name_type" "cl"
$cell151 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new RTLTypes "DelphiVCL" "" "" "" "" "" 1]

set node152 [$diag addNode cad_class 640.0 624.0 120.0 33.0]
$node152 setLabel "name" "TObject"
$node152 setProp "is_folded" "1"
$node152 setScope "name" "cl" "scopePhase"
$node152 setProp "is_vcl" "1" "name" "cl"
$node152 setProp "libunit" "System" "name" "cl"

set node153 [$diag addNode cad_class 480.0 624.0 120.0 33.0]
$node153 setLabel "name" "HWND"
$node153 setProp "is_folded" "1"
$node153 setScope "name" "cl" "scopePhase"
$node153 setProp "is_vcl" "1" "name" "cl"
$node153 setProp "libunit" "System" "name" "cl"

set node154 [$diag addNode cad_class 320.0 624.0 120.0 33.0]
$node154 setLabel "name" "TRect"
$node154 setProp "is_folded" "1"
$node154 setScope "name" "cl" "scopePhase"
$node154 setProp "is_vcl" "1" "name" "cl"
$node154 setProp "libunit" "Other" "name" "cl"
$node154 setProp "userlib" "Windows" "name" "cl"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TObject "DelphiVCL" "" "" "" "" "" 1]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new ClassDict "DelphiVCL" "" "" "" "" "" 1]

set node155 [$diag addNode cad_class 864.0 704.0 123.0 119.0]
$node155 setLabel "name" "TClassDictElem"
$node155 setScope "name" "cl" "scopePhase"
$node155 setProp "is_vcl" "1" "name" "cl"
$node155 setProp "libunit" "Other" "name" "cl"
$node155 setProp "userlib" "ClassDict" "name" "cl"

set node156 [$diag addNode cad_class 512.0 704.0 212.0 231.0]
$node156 setLabel "name" "TClassDict"
$node156 setScope "name" "cl" "scopePhase"
$node156 setProp "is_vcl" "1" "name" "cl"
$node156 setProp "libunit" "Other" "name" "cl"
$node156 setProp "userlib" "ClassDict" "name" "cl"

set conn157 [$diag addConn association $node156 $node155 720.0 768.0 880.0 768.0]
$conn157 setLabel "role_end" "elem"
$conn157 setProp "mult_kind_end" "many"
$conn157 setProp "mult_kind_start" "optional"
set segm158 [$conn157 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new FormsClasses "DelphiVCL" "" "" "" "" "" 1]

set node160 [$diag addNode cad_class 1376.0 800.0 120.0 33.0]
$node160 setLabel "name" "TDesigner"
$node160 setProp "is_folded" "1"
$node160 setScope "name" "cl" "scopePhase"
$node160 setProp "is_vcl" "1" "name" "cl"
$node160 setProp "libunit" "Forms" "name" "cl"

set node161 [$diag addNode cad_class 1216.0 688.0 120.0 33.0]
$node161 setLabel "name" "TObject"
$node161 setProp "is_folded" "1"
$node161 setScope "name" "cl" "scopePhase"
$node161 setProp "is_vcl" "1" "name" "cl"
$node161 setProp "libunit" "System" "name" "cl"

set node166 [$diag addNode cad_class 1104.0 1312.0 120.0 33.0]
$node166 setLabel "name" "TScrollBox"
$node166 setProp "is_folded" "1"
$node166 setScope "name" "cl" "scopePhase"
$node166 setProp "is_vcl" "1" "name" "cl"
$node166 setProp "libunit" "Forms" "name" "cl"

set node167 [$diag addNode cad_class 1312.0 1008.0 120.0 33.0]
$node167 setLabel "name" "TScreen"
$node167 setProp "is_folded" "1"
$node167 setScope "name" "cl" "scopePhase"
$node167 setProp "is_vcl" "1" "name" "cl"
$node167 setProp "libunit" "Forms" "name" "cl"

set node168 [$diag addNode cad_class 944.0 1312.0 120.0 33.0]
$node168 setLabel "name" "TForm"
$node168 setProp "is_folded" "1"
$node168 setScope "name" "cl" "scopePhase"
$node168 setProp "is_declaration" "1" "name" "cl"
$node168 setProp "is_vcl" "1" "name" "cl"
$node168 setProp "libunit" "Forms" "name" "cl"

set node169 [$diag addNode cad_class 1008.0 1200.0 166.0 35.0]
$node169 setLabel "name" "TScrollingWinControl"
$node169 setProp "is_folded" "1"
$node169 setScope "name" "cl" "scopePhase"
$node169 setProp "is_vcl" "1" "name" "cl"
$node169 setProp "libunit" "Forms" "name" "cl"

set node170 [$diag addNode cad_class 960.0 912.0 141.0 33.0]
$node170 setLabel "name" "TControlScrollBar"
$node170 setProp "is_folded" "1"
$node170 setScope "name" "cl" "scopePhase"
$node170 setProp "is_vcl" "1" "name" "cl"
$node170 setProp "libunit" "Forms" "name" "cl"

set node171 [$diag addNode cad_class 1168.0 1008.0 120.0 33.0]
$node171 setLabel "name" "TApplication"
$node171 setProp "is_folded" "1"
$node171 setScope "name" "cl" "scopePhase"
$node171 setProp "is_vcl" "1" "name" "cl"
$node171 setProp "libunit" "Forms" "name" "cl"

set node172 [$diag addNode cad_class 1024.0 1104.0 120.0 33.0]
$node172 setLabel "name" "TWinControl"
$node172 setProp "is_folded" "1"
$node172 setScope "name" "cl" "scopePhase"
$node172 setProp "is_vcl" "1" "name" "cl"
$node172 setProp "libunit" "Controls" "name" "cl"

set node173 [$diag addNode cad_class 1056.0 800.0 120.0 33.0]
$node173 setLabel "name" "TPersistent"
$node173 setProp "is_folded" "1"
$node173 setScope "name" "cl" "scopePhase"
$node173 setProp "is_vcl" "1" "name" "cl"
$node173 setProp "libunit" "Classes" "name" "cl"

set node174 [$diag addNode cad_class 1216.0 912.0 120.0 33.0]
$node174 setLabel "name" "TComponent"
$node174 setProp "is_folded" "1"
$node174 setScope "name" "cl" "scopePhase"
$node174 setProp "is_vcl" "1" "name" "cl"
$node174 setProp "libunit" "Classes" "name" "cl"

set node159 [$diag addRake generalization $node161 $node160 1280.0 720.0 1440.0 816.0 768.0]

set conn175 [$node159 getInConn]
set segm176 [$conn175 getFirstSegm]

set conn177 [$node159 getFirstOutConn]
set segm178 [$conn177 getFirstSegm]

set node162 [$diag addRake generalization $node169 $node166 1088.0 1235.0 1168.0 1328.0 1279.5]

set conn179 [$node162 getInConn]
set segm180 [$conn179 getFirstSegm]

set conn181 [$node162 getFirstOutConn]
set segm182 [$conn181 getFirstSegm]

set conn183 [$diag addConn generalization_conn $node162 $node168 1098.0 1280.0 1008.0 1328.0]
set segm184 [$conn183 getFirstSegm]

set node163 [$diag addRake generalization $node172 $node169 1088.0 1136.0 1088.0 1216.0 1167.5]

set conn185 [$node163 getInConn]
set segm186 [$conn185 getFirstSegm]

set conn187 [$node163 getFirstOutConn]
set segm188 [$conn187 getFirstSegm]

set node164 [$diag addRake generalization $node173 $node170 1120.0 832.0 1040.0 928.0 863.5]

set conn189 [$node164 getInConn]
set segm190 [$conn189 getFirstSegm]

set conn191 [$node164 getFirstOutConn]
set segm192 [$conn191 getFirstSegm]

set node165 [$diag addRake generalization $node174 $node167 1280.0 944.0 1392.0 1024.0 975.5]

set conn193 [$node165 getInConn]
set segm194 [$conn193 getFirstSegm]

set conn195 [$node165 getFirstOutConn]
set segm196 [$conn195 getFirstSegm]

set conn197 [$diag addConn generalization_conn $node165 $node171 1248.0 976.0 1248.0 1024.0]
set segm198 [$conn197 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TScreen "DelphiVCL" "" "" "" "" "" 1]

set row199 [$diag addRow method 0.0]
$row199 setLabel "name_type" "ActiveControlChange()\n"
$row199 setProp "has_parmlist" "1"
$row199 setProp "is_event" "1"

set cell200 [$row199 addCell parameter 0.0]
$cell200 setLabel "name_type" "Sender: TObject"
$cell200 setScope "name_type" "cl" "scopePhase"
$cell200 setProp "is_vcl" "1" "name_type" "cl"
$cell200 setProp "libunit" "System" "name_type" "cl"
$cell200 setScope "name_type" "de" "scopeSystem"

set row201 [$diag addRow method 0.0]
$row201 setLabel "name_type" "ActiveFormChange()"
$row201 setProp "has_parmlist" "1"
$row201 setProp "is_event" "1"

set cell202 [$row201 addCell parameter 0.0]
$cell202 setLabel "name_type" "Sender: TObject"
$cell202 setScope "name_type" "cl" "scopePhase"
$cell202 setProp "is_vcl" "1" "name_type" "cl"
$cell202 setProp "libunit" "System" "name_type" "cl"
$cell202 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TApplication "DelphiVCL" "" "" "" "" "" 1]

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

set cell204 [$row203 addCell parameter 0.0]
$cell204 setLabel "name_type" "Sender: TObject"
$cell204 setScope "name_type" "cl" "scopePhase"
$cell204 setProp "is_vcl" "1" "name_type" "cl"
$cell204 setProp "libunit" "System" "name_type" "cl"
$cell204 setScope "name_type" "de" "scopeSystem"

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

set cell206 [$row205 addCell parameter 0.0]
$cell206 setLabel "name_type" "Sender: TObject"
$cell206 setScope "name_type" "cl" "scopePhase"
$cell206 setProp "is_vcl" "1" "name_type" "cl"
$cell206 setProp "libunit" "System" "name_type" "cl"
$cell206 setScope "name_type" "de" "scopeSystem"

set row207 [$diag addRow method 0.0]
$row207 setLabel "name_type" "Exception()\n"
$row207 setProp "has_parmlist" "1"
$row207 setProp "is_event" "1"

set cell208 [$row207 addCell parameter 0.0]
$cell208 setLabel "name_type" "Sender: TObject, "
$cell208 setScope "name_type" "cl" "scopePhase"
$cell208 setProp "is_vcl" "1" "name_type" "cl"
$cell208 setProp "libunit" "System" "name_type" "cl"
$cell208 setScope "name_type" "de" "scopeSystem"

set cell209 [$row207 addCell parameter 0.0]
$cell209 setLabel "name_type" "E: Exception"
$cell209 setScope "name_type" "cl" "scopePhase"
$cell209 setProp "is_vcl" "1" "name_type" "cl"
$cell209 setProp "libunit" "SysUtils" "name_type" "cl"
$cell209 setScope "name_type" "de" "scopeSystem"

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

set cell211 [$row210 addCell parameter 0.0]
$cell211 setLabel "name_type" "Command: word, "
$cell211 setScope "name_type" "cl" "scopePhase"
$cell211 setScope "name_type" "de" "scopeSystem"

set cell212 [$row210 addCell parameter 0.0]
$cell212 setLabel "name_type" "Data: longint, "
$cell212 setScope "name_type" "cl" "scopePhase"
$cell212 setScope "name_type" "de" "scopeSystem"

set cell213 [$row210 addCell parameter 0.0]
$cell213 setLabel "name_type" "CallHelp: boolean"
$cell213 setProp "pass_by" "Variable"
$cell213 setScope "name_type" "cl" "scopePhase"
$cell213 setScope "name_type" "de" "scopeSystem"

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

set cell215 [$row214 addCell parameter 0.0]
$cell215 setLabel "name_type" "Sender: TObject"
$cell215 setScope "name_type" "cl" "scopePhase"
$cell215 setProp "is_vcl" "1" "name_type" "cl"
$cell215 setProp "libunit" "System" "name_type" "cl"
$cell215 setScope "name_type" "de" "scopeSystem"

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

set cell217 [$row216 addCell parameter 0.0]
$cell217 setLabel "name_type" "Sender: TObject, "
$cell217 setScope "name_type" "cl" "scopePhase"
$cell217 setProp "is_vcl" "1" "name_type" "cl"
$cell217 setProp "libunit" "System" "name_type" "cl"
$cell217 setScope "name_type" "de" "scopeSystem"

set cell218 [$row216 addCell parameter 0.0]
$cell218 setLabel "name_type" "Done: boolean"
$cell218 setProp "pass_by" "Variable"
$cell218 setScope "name_type" "cl" "scopePhase"
$cell218 setScope "name_type" "de" "scopeSystem"

set row219 [$diag addRow method 0.0]
$row219 setLabel "name_type" "Message()"
$row219 setProp "has_parmlist" "1"
$row219 setProp "is_event" "1"

set cell220 [$row219 addCell parameter 0.0]
$cell220 setLabel "name_type" "Msg: TMsg, "
$cell220 setProp "pass_by" "Variable"
$cell220 setScope "name_type" "cl" "scopePhase"
$cell220 setProp "is_vcl" "1" "name_type" "cl"
$cell220 setProp "libunit" "Forms" "name_type" "cl"
$cell220 setScope "name_type" "de" "scopeSystem"

set cell221 [$row219 addCell parameter 0.0]
$cell221 setLabel "name_type" "Handled: boolean"
$cell221 setProp "pass_by" "Variable"
$cell221 setScope "name_type" "cl" "scopePhase"
$cell221 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TScrollBox "DelphiVCL" "" "" "" "" "" 1]

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

set cell223 [$row222 addCell parameter 0.0]
$cell223 setLabel "name_type" "Sender: TObject"
$cell223 setScope "name_type" "cl" "scopePhase"
$cell223 setProp "is_vcl" "1" "name_type" "cl"
$cell223 setProp "libunit" "System" "name_type" "cl"
$cell223 setScope "name_type" "de" "scopeSystem"

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

set cell225 [$row224 addCell parameter 0.0]
$cell225 setLabel "name_type" "Sender: TObject"
$cell225 setScope "name_type" "cl" "scopePhase"
$cell225 setProp "is_vcl" "1" "name_type" "cl"
$cell225 setProp "libunit" "System" "name_type" "cl"
$cell225 setScope "name_type" "de" "scopeSystem"

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

set cell227 [$row226 addCell parameter 0.0]
$cell227 setLabel "name_type" "Sender: TObject, "
$cell227 setScope "name_type" "cl" "scopePhase"
$cell227 setProp "is_vcl" "1" "name_type" "cl"
$cell227 setProp "libunit" "System" "name_type" "cl"
$cell227 setScope "name_type" "de" "scopeSystem"

set cell228 [$row226 addCell parameter 0.0]
$cell228 setLabel "name_type" "Source: TObject, "
$cell228 setScope "name_type" "cl" "scopePhase"
$cell228 setProp "is_vcl" "1" "name_type" "cl"
$cell228 setProp "libunit" "System" "name_type" "cl"
$cell228 setScope "name_type" "de" "scopeSystem"

set cell229 [$row226 addCell parameter 0.0]
$cell229 setLabel "name_type" "X: int, "
$cell229 setScope "name_type" "cl" "scopePhase"
$cell229 setScope "name_type" "de" "scopeSystem"

set cell230 [$row226 addCell parameter 0.0]
$cell230 setLabel "name_type" "Y: int"
$cell230 setScope "name_type" "cl" "scopePhase"
$cell230 setScope "name_type" "de" "scopeSystem"

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

set cell232 [$row231 addCell parameter 0.0]
$cell232 setLabel "name_type" "Sender: TObject, "
$cell232 setScope "name_type" "cl" "scopePhase"
$cell232 setProp "is_vcl" "1" "name_type" "cl"
$cell232 setProp "libunit" "System" "name_type" "cl"
$cell232 setScope "name_type" "de" "scopeSystem"

set cell233 [$row231 addCell parameter 0.0]
$cell233 setLabel "name_type" "Source: TObject, "
$cell233 setScope "name_type" "cl" "scopePhase"
$cell233 setProp "is_vcl" "1" "name_type" "cl"
$cell233 setProp "libunit" "System" "name_type" "cl"
$cell233 setScope "name_type" "de" "scopeSystem"

set cell234 [$row231 addCell parameter 0.0]
$cell234 setLabel "name_type" "X: int, "
$cell234 setScope "name_type" "cl" "scopePhase"
$cell234 setScope "name_type" "de" "scopeSystem"

set cell235 [$row231 addCell parameter 0.0]
$cell235 setLabel "name_type" "Y: int, "
$cell235 setScope "name_type" "cl" "scopePhase"
$cell235 setScope "name_type" "de" "scopeSystem"

set cell236 [$row231 addCell parameter 0.0]
$cell236 setLabel "name_type" "State: TDragState, "
$cell236 setScope "name_type" "cl" "scopePhase"
$cell236 setProp "is_vcl" "1" "name_type" "cl"
$cell236 setProp "libunit" "Controls" "name_type" "cl"
$cell236 setScope "name_type" "de" "scopeSystem"

set cell237 [$row231 addCell parameter 0.0]
$cell237 setLabel "name_type" "Accept: bool"
$cell237 setProp "pass_by" "Variable"
$cell237 setScope "name_type" "cl" "scopePhase"
$cell237 setScope "name_type" "de" "scopeSystem"

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

set cell239 [$row238 addCell parameter 0.0]
$cell239 setLabel "name_type" "Sender: TObject, "
$cell239 setScope "name_type" "cl" "scopePhase"
$cell239 setProp "is_vcl" "1" "name_type" "cl"
$cell239 setProp "libunit" "System" "name_type" "cl"
$cell239 setScope "name_type" "de" "scopeSystem"

set cell240 [$row238 addCell parameter 0.0]
$cell240 setLabel "name_type" "Source: TObject, "
$cell240 setScope "name_type" "cl" "scopePhase"
$cell240 setProp "is_vcl" "1" "name_type" "cl"
$cell240 setProp "libunit" "System" "name_type" "cl"
$cell240 setScope "name_type" "de" "scopeSystem"

set cell241 [$row238 addCell parameter 0.0]
$cell241 setLabel "name_type" "X: int, "
$cell241 setScope "name_type" "cl" "scopePhase"
$cell241 setScope "name_type" "de" "scopeSystem"

set cell242 [$row238 addCell parameter 0.0]
$cell242 setLabel "name_type" "Y: int"
$cell242 setScope "name_type" "cl" "scopePhase"
$cell242 setScope "name_type" "de" "scopeSystem"

set row243 [$diag addRow method 0.0]
$row243 setLabel "name_type" "Enter()\n"
$row243 setProp "has_parmlist" "1"
$row243 setProp "is_event" "1"

set cell244 [$row243 addCell parameter 0.0]
$cell244 setLabel "name_type" "Sender: TObject"
$cell244 setScope "name_type" "cl" "scopePhase"
$cell244 setProp "is_vcl" "1" "name_type" "cl"
$cell244 setProp "libunit" "System" "name_type" "cl"
$cell244 setScope "name_type" "de" "scopeSystem"

set row245 [$diag addRow method 0.0]
$row245 setLabel "name_type" "Exit()\n"
$row245 setProp "has_parmlist" "1"
$row245 setProp "is_event" "1"

set cell246 [$row245 addCell parameter 0.0]
$cell246 setLabel "name_type" "Sender: TObject"
$cell246 setScope "name_type" "cl" "scopePhase"
$cell246 setProp "is_vcl" "1" "name_type" "cl"
$cell246 setProp "libunit" "System" "name_type" "cl"
$cell246 setScope "name_type" "de" "scopeSystem"

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

set cell248 [$row247 addCell parameter 0.0]
$cell248 setLabel "name_type" "Sender: TObject, "
$cell248 setScope "name_type" "cl" "scopePhase"
$cell248 setProp "is_vcl" "1" "name_type" "cl"
$cell248 setProp "libunit" "System" "name_type" "cl"
$cell248 setScope "name_type" "de" "scopeSystem"

set cell249 [$row247 addCell parameter 0.0]
$cell249 setLabel "name_type" "Button: TMouseButton, "
$cell249 setScope "name_type" "cl" "scopePhase"
$cell249 setProp "is_vcl" "1" "name_type" "cl"
$cell249 setProp "libunit" "Controls" "name_type" "cl"
$cell249 setScope "name_type" "de" "scopeSystem"

set cell250 [$row247 addCell parameter 0.0]
$cell250 setLabel "name_type" "Shift: TShiftState, "
$cell250 setScope "name_type" "cl" "scopePhase"
$cell250 setProp "is_vcl" "1" "name_type" "cl"
$cell250 setProp "libunit" "Classes" "name_type" "cl"
$cell250 setScope "name_type" "de" "scopeSystem"

set cell251 [$row247 addCell parameter 0.0]
$cell251 setLabel "name_type" "X: int, "
$cell251 setScope "name_type" "cl" "scopePhase"
$cell251 setScope "name_type" "de" "scopeSystem"

set cell252 [$row247 addCell parameter 0.0]
$cell252 setLabel "name_type" "Y: int"
$cell252 setScope "name_type" "cl" "scopePhase"
$cell252 setScope "name_type" "de" "scopeSystem"

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

set cell254 [$row253 addCell parameter 0.0]
$cell254 setLabel "name_type" "Sender: TObject, "
$cell254 setScope "name_type" "cl" "scopePhase"
$cell254 setProp "is_vcl" "1" "name_type" "cl"
$cell254 setProp "libunit" "System" "name_type" "cl"
$cell254 setScope "name_type" "de" "scopeSystem"

set cell255 [$row253 addCell parameter 0.0]
$cell255 setLabel "name_type" "Shift: TShiftState, "
$cell255 setScope "name_type" "cl" "scopePhase"
$cell255 setProp "is_vcl" "1" "name_type" "cl"
$cell255 setProp "libunit" "Classes" "name_type" "cl"
$cell255 setScope "name_type" "de" "scopeSystem"

set cell256 [$row253 addCell parameter 0.0]
$cell256 setLabel "name_type" "X: int, "
$cell256 setScope "name_type" "cl" "scopePhase"
$cell256 setScope "name_type" "de" "scopeSystem"

set cell257 [$row253 addCell parameter 0.0]
$cell257 setLabel "name_type" "Y: int"
$cell257 setScope "name_type" "cl" "scopePhase"
$cell257 setScope "name_type" "de" "scopeSystem"

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

set cell259 [$row258 addCell parameter 0.0]
$cell259 setLabel "name_type" "Sender: TObject, "
$cell259 setScope "name_type" "cl" "scopePhase"
$cell259 setProp "is_vcl" "1" "name_type" "cl"
$cell259 setProp "libunit" "System" "name_type" "cl"
$cell259 setScope "name_type" "de" "scopeSystem"

set cell260 [$row258 addCell parameter 0.0]
$cell260 setLabel "name_type" "Button: TMouseButton, "
$cell260 setScope "name_type" "cl" "scopePhase"
$cell260 setProp "is_vcl" "1" "name_type" "cl"
$cell260 setProp "libunit" "Controls" "name_type" "cl"
$cell260 setScope "name_type" "de" "scopeSystem"

set cell261 [$row258 addCell parameter 0.0]
$cell261 setLabel "name_type" "Shift: TShiftState, "
$cell261 setScope "name_type" "cl" "scopePhase"
$cell261 setProp "is_vcl" "1" "name_type" "cl"
$cell261 setProp "libunit" "Classes" "name_type" "cl"
$cell261 setScope "name_type" "de" "scopeSystem"

set cell262 [$row258 addCell parameter 0.0]
$cell262 setLabel "name_type" "X: int, "
$cell262 setScope "name_type" "cl" "scopePhase"
$cell262 setScope "name_type" "de" "scopeSystem"

set cell263 [$row258 addCell parameter 0.0]
$cell263 setLabel "name_type" "Y: int"
$cell263 setScope "name_type" "cl" "scopePhase"
$cell263 setScope "name_type" "de" "scopeSystem"

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

set cell265 [$row264 addCell parameter 0.0]
$cell265 setLabel "name_type" "Sender: TObject"
$cell265 setScope "name_type" "cl" "scopePhase"
$cell265 setProp "is_vcl" "1" "name_type" "cl"
$cell265 setProp "libunit" "System" "name_type" "cl"
$cell265 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TForm "DelphiVCL" "" "" "" "" "" 1]

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

set cell267 [$row266 addCell parameter 0.0]
$cell267 setLabel "name_type" "Sender: TObject"
$cell267 setScope "name_type" "cl" "scopePhase"
$cell267 setProp "is_vcl" "1" "name_type" "cl"
$cell267 setProp "libunit" "System" "name_type" "cl"
$cell267 setScope "name_type" "de" "scopeSystem"

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

set cell269 [$row268 addCell parameter 0.0]
$cell269 setLabel "name_type" "Sender: TObject"
$cell269 setScope "name_type" "cl" "scopePhase"
$cell269 setProp "is_vcl" "1" "name_type" "cl"
$cell269 setProp "libunit" "System" "name_type" "cl"
$cell269 setScope "name_type" "de" "scopeSystem"

set row270 [$diag addRow method 0.0]
$row270 setLabel "name_type" "Close()\n"
$row270 setProp "has_parmlist" "1"
$row270 setProp "is_event" "1"

set cell271 [$row270 addCell parameter 0.0]
$cell271 setLabel "name_type" "Sender: TObject, "
$cell271 setScope "name_type" "cl" "scopePhase"
$cell271 setProp "is_vcl" "1" "name_type" "cl"
$cell271 setProp "libunit" "System" "name_type" "cl"
$cell271 setScope "name_type" "de" "scopeSystem"

set cell272 [$row270 addCell parameter 0.0]
$cell272 setLabel "name_type" "Action: TCloseAction"
$cell272 setScope "name_type" "cl" "scopePhase"
$cell272 setProp "is_vcl" "1" "name_type" "cl"
$cell272 setScope "name_type" "de" "scopeSystem"

set row273 [$diag addRow method 0.0]
$row273 setLabel "name_type" "CloseQuery()\n"
$row273 setProp "has_parmlist" "1"
$row273 setProp "is_event" "1"

set cell274 [$row273 addCell parameter 0.0]
$cell274 setLabel "name_type" "Sender: TObject, "
$cell274 setScope "name_type" "cl" "scopePhase"
$cell274 setProp "is_vcl" "1" "name_type" "cl"
$cell274 setProp "libunit" "System" "name_type" "cl"
$cell274 setScope "name_type" "de" "scopeSystem"

set cell275 [$row273 addCell parameter 0.0]
$cell275 setLabel "name_type" "CanClose: bool"
$cell275 setScope "name_type" "cl" "scopePhase"
$cell275 setScope "name_type" "de" "scopeSystem"

set row276 [$diag addRow method 0.0]
$row276 setLabel "name_type" "Create()\n"
$row276 setProp "has_parmlist" "1"
$row276 setProp "is_event" "1"

set cell277 [$row276 addCell parameter 0.0]
$cell277 setLabel "name_type" "Sender: TObject"
$cell277 setScope "name_type" "cl" "scopePhase"
$cell277 setProp "is_vcl" "1" "name_type" "cl"
$cell277 setProp "libunit" "System" "name_type" "cl"
$cell277 setScope "name_type" "de" "scopeSystem"

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

set cell279 [$row278 addCell parameter 0.0]
$cell279 setLabel "name_type" "Sender: TObject"
$cell279 setScope "name_type" "cl" "scopePhase"
$cell279 setProp "is_vcl" "1" "name_type" "cl"
$cell279 setProp "libunit" "System" "name_type" "cl"
$cell279 setScope "name_type" "de" "scopeSystem"

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

set cell281 [$row280 addCell parameter 0.0]
$cell281 setLabel "name_type" "Sender: TObject"
$cell281 setScope "name_type" "cl" "scopePhase"
$cell281 setProp "is_vcl" "1" "name_type" "cl"
$cell281 setProp "libunit" "System" "name_type" "cl"
$cell281 setScope "name_type" "de" "scopeSystem"

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

set cell283 [$row282 addCell parameter 0.0]
$cell283 setLabel "name_type" "Sender: TObject"
$cell283 setScope "name_type" "cl" "scopePhase"
$cell283 setProp "is_vcl" "1" "name_type" "cl"
$cell283 setProp "libunit" "System" "name_type" "cl"
$cell283 setScope "name_type" "de" "scopeSystem"

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

set cell285 [$row284 addCell parameter 0.0]
$cell285 setLabel "name_type" "Sender: TObject, "
$cell285 setScope "name_type" "cl" "scopePhase"
$cell285 setProp "is_vcl" "1" "name_type" "cl"
$cell285 setProp "libunit" "System" "name_type" "cl"
$cell285 setScope "name_type" "de" "scopeSystem"

set cell286 [$row284 addCell parameter 0.0]
$cell286 setLabel "name_type" "Source: TObject, "
$cell286 setScope "name_type" "cl" "scopePhase"
$cell286 setProp "is_vcl" "1" "name_type" "cl"
$cell286 setProp "libunit" "System" "name_type" "cl"
$cell286 setScope "name_type" "de" "scopeSystem"

set cell287 [$row284 addCell parameter 0.0]
$cell287 setLabel "name_type" "X: int, "
$cell287 setScope "name_type" "cl" "scopePhase"
$cell287 setScope "name_type" "de" "scopeSystem"

set cell288 [$row284 addCell parameter 0.0]
$cell288 setLabel "name_type" "Y: int"
$cell288 setScope "name_type" "cl" "scopePhase"
$cell288 setScope "name_type" "de" "scopeSystem"

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

set cell290 [$row289 addCell parameter 0.0]
$cell290 setLabel "name_type" "Sender: TObject, "
$cell290 setScope "name_type" "cl" "scopePhase"
$cell290 setProp "is_vcl" "1" "name_type" "cl"
$cell290 setProp "libunit" "System" "name_type" "cl"
$cell290 setScope "name_type" "de" "scopeSystem"

set cell291 [$row289 addCell parameter 0.0]
$cell291 setLabel "name_type" "Source: TObject, "
$cell291 setScope "name_type" "cl" "scopePhase"
$cell291 setProp "is_vcl" "1" "name_type" "cl"
$cell291 setProp "libunit" "System" "name_type" "cl"
$cell291 setScope "name_type" "de" "scopeSystem"

set cell292 [$row289 addCell parameter 0.0]
$cell292 setLabel "name_type" "X: int, "
$cell292 setScope "name_type" "cl" "scopePhase"
$cell292 setScope "name_type" "de" "scopeSystem"

set cell293 [$row289 addCell parameter 0.0]
$cell293 setLabel "name_type" "Y: int, "
$cell293 setScope "name_type" "cl" "scopePhase"
$cell293 setScope "name_type" "de" "scopeSystem"

set cell294 [$row289 addCell parameter 0.0]
$cell294 setLabel "name_type" "State: TDragState, "
$cell294 setScope "name_type" "cl" "scopePhase"
$cell294 setProp "is_vcl" "1" "name_type" "cl"
$cell294 setProp "libunit" "Controls" "name_type" "cl"
$cell294 setScope "name_type" "de" "scopeSystem"

set cell295 [$row289 addCell parameter 0.0]
$cell295 setLabel "name_type" "Accept: bool"
$cell295 setProp "pass_by" "Variable"
$cell295 setScope "name_type" "cl" "scopePhase"
$cell295 setScope "name_type" "de" "scopeSystem"

set row296 [$diag addRow method 0.0]
$row296 setLabel "name_type" "Enter()\n"
$row296 setProp "has_parmlist" "1"
$row296 setProp "is_event" "1"

set cell297 [$row296 addCell parameter 0.0]
$cell297 setLabel "name_type" "Sender: TObject"
$cell297 setScope "name_type" "cl" "scopePhase"
$cell297 setProp "is_vcl" "1" "name_type" "cl"
$cell297 setProp "libunit" "System" "name_type" "cl"
$cell297 setScope "name_type" "de" "scopeSystem"

set row298 [$diag addRow method 0.0]
$row298 setLabel "name_type" "Exit()\n"
$row298 setProp "has_parmlist" "1"
$row298 setProp "is_event" "1"

set cell299 [$row298 addCell parameter 0.0]
$cell299 setLabel "name_type" "Sender: TObject"
$cell299 setScope "name_type" "cl" "scopePhase"
$cell299 setProp "is_vcl" "1" "name_type" "cl"
$cell299 setProp "libunit" "System" "name_type" "cl"
$cell299 setScope "name_type" "de" "scopeSystem"

set row300 [$diag addRow method 0.0]
$row300 setLabel "name_type" "Hide()\n"
$row300 setProp "has_parmlist" "1"
$row300 setProp "is_event" "1"

set cell301 [$row300 addCell parameter 0.0]
$cell301 setLabel "name_type" "Sender: TObject"
$cell301 setScope "name_type" "cl" "scopePhase"
$cell301 setProp "is_vcl" "1" "name_type" "cl"
$cell301 setProp "libunit" "System" "name_type" "cl"
$cell301 setScope "name_type" "de" "scopeSystem"

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

set cell303 [$row302 addCell parameter 0.0]
$cell303 setLabel "name_type" "Sender: TObject, "
$cell303 setScope "name_type" "cl" "scopePhase"
$cell303 setProp "is_vcl" "1" "name_type" "cl"
$cell303 setProp "libunit" "System" "name_type" "cl"
$cell303 setScope "name_type" "de" "scopeSystem"

set cell304 [$row302 addCell parameter 0.0]
$cell304 setLabel "name_type" "Key: word, "
$cell304 setProp "pass_by" "Variable"
$cell304 setScope "name_type" "cl" "scopePhase"
$cell304 setScope "name_type" "de" "scopeSystem"

set cell305 [$row302 addCell parameter 0.0]
$cell305 setLabel "name_type" "Shift: TShiftState"
$cell305 setScope "name_type" "cl" "scopePhase"
$cell305 setProp "is_vcl" "1" "name_type" "cl"
$cell305 setProp "libunit" "Classes" "name_type" "cl"
$cell305 setScope "name_type" "de" "scopeSystem"

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

set cell307 [$row306 addCell parameter 0.0]
$cell307 setLabel "name_type" "Sender: TObject, "
$cell307 setScope "name_type" "cl" "scopePhase"
$cell307 setProp "is_vcl" "1" "name_type" "cl"
$cell307 setProp "libunit" "System" "name_type" "cl"
$cell307 setScope "name_type" "de" "scopeSystem"

set cell308 [$row306 addCell parameter 0.0]
$cell308 setLabel "name_type" "Key: char"
$cell308 setScope "name_type" "cl" "scopePhase"
$cell308 setScope "name_type" "de" "scopeSystem"

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

set cell310 [$row309 addCell parameter 0.0]
$cell310 setLabel "name_type" "Sender: TObject, "
$cell310 setScope "name_type" "cl" "scopePhase"
$cell310 setProp "is_vcl" "1" "name_type" "cl"
$cell310 setProp "libunit" "System" "name_type" "cl"
$cell310 setScope "name_type" "de" "scopeSystem"

set cell311 [$row309 addCell parameter 0.0]
$cell311 setLabel "name_type" "Key: word, "
$cell311 setScope "name_type" "cl" "scopePhase"
$cell311 setScope "name_type" "de" "scopeSystem"

set cell312 [$row309 addCell parameter 0.0]
$cell312 setLabel "name_type" "Shift: TShiftState"
$cell312 setScope "name_type" "cl" "scopePhase"
$cell312 setProp "is_vcl" "1" "name_type" "cl"
$cell312 setProp "libunit" "Classes" "name_type" "cl"
$cell312 setScope "name_type" "de" "scopeSystem"

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

set cell314 [$row313 addCell parameter 0.0]
$cell314 setLabel "name_type" "Sender: TObject, "
$cell314 setScope "name_type" "cl" "scopePhase"
$cell314 setProp "is_vcl" "1" "name_type" "cl"
$cell314 setProp "libunit" "System" "name_type" "cl"
$cell314 setScope "name_type" "de" "scopeSystem"

set cell315 [$row313 addCell parameter 0.0]
$cell315 setLabel "name_type" "Button: TMouseButton, "
$cell315 setScope "name_type" "cl" "scopePhase"
$cell315 setProp "is_vcl" "1" "name_type" "cl"
$cell315 setProp "libunit" "Controls" "name_type" "cl"
$cell315 setScope "name_type" "de" "scopeSystem"

set cell316 [$row313 addCell parameter 0.0]
$cell316 setLabel "name_type" "Shift: TShiftState, "
$cell316 setScope "name_type" "cl" "scopePhase"
$cell316 setProp "is_vcl" "1" "name_type" "cl"
$cell316 setProp "libunit" "Classes" "name_type" "cl"
$cell316 setScope "name_type" "de" "scopeSystem"

set cell317 [$row313 addCell parameter 0.0]
$cell317 setLabel "name_type" "X: int, "
$cell317 setScope "name_type" "cl" "scopePhase"
$cell317 setScope "name_type" "de" "scopeSystem"

set cell318 [$row313 addCell parameter 0.0]
$cell318 setLabel "name_type" "Y: int"
$cell318 setScope "name_type" "cl" "scopePhase"
$cell318 setScope "name_type" "de" "scopeSystem"

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

set cell320 [$row319 addCell parameter 0.0]
$cell320 setLabel "name_type" "Sender: TObject, "
$cell320 setScope "name_type" "cl" "scopePhase"
$cell320 setProp "is_vcl" "1" "name_type" "cl"
$cell320 setProp "libunit" "System" "name_type" "cl"
$cell320 setScope "name_type" "de" "scopeSystem"

set cell321 [$row319 addCell parameter 0.0]
$cell321 setLabel "name_type" "Shift: TShiftState, "
$cell321 setScope "name_type" "cl" "scopePhase"
$cell321 setProp "is_vcl" "1" "name_type" "cl"
$cell321 setProp "libunit" "Classes" "name_type" "cl"
$cell321 setScope "name_type" "de" "scopeSystem"

set cell322 [$row319 addCell parameter 0.0]
$cell322 setLabel "name_type" "X: int, "
$cell322 setScope "name_type" "cl" "scopePhase"
$cell322 setScope "name_type" "de" "scopeSystem"

set cell323 [$row319 addCell parameter 0.0]
$cell323 setLabel "name_type" "Y: int"
$cell323 setScope "name_type" "cl" "scopePhase"
$cell323 setScope "name_type" "de" "scopeSystem"

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

set cell325 [$row324 addCell parameter 0.0]
$cell325 setLabel "name_type" "Sender: TObject, "
$cell325 setScope "name_type" "cl" "scopePhase"
$cell325 setProp "is_vcl" "1" "name_type" "cl"
$cell325 setProp "libunit" "System" "name_type" "cl"
$cell325 setScope "name_type" "de" "scopeSystem"

set cell326 [$row324 addCell parameter 0.0]
$cell326 setLabel "name_type" "Button: TMouseButton, "
$cell326 setScope "name_type" "cl" "scopePhase"
$cell326 setProp "is_vcl" "1" "name_type" "cl"
$cell326 setProp "libunit" "Controls" "name_type" "cl"
$cell326 setScope "name_type" "de" "scopeSystem"

set cell327 [$row324 addCell parameter 0.0]
$cell327 setLabel "name_type" "Shift: TShiftState, "
$cell327 setScope "name_type" "cl" "scopePhase"
$cell327 setProp "is_vcl" "1" "name_type" "cl"
$cell327 setProp "libunit" "Classes" "name_type" "cl"
$cell327 setScope "name_type" "de" "scopeSystem"

set cell328 [$row324 addCell parameter 0.0]
$cell328 setLabel "name_type" "X: int, "
$cell328 setScope "name_type" "cl" "scopePhase"
$cell328 setScope "name_type" "de" "scopeSystem"

set cell329 [$row324 addCell parameter 0.0]
$cell329 setLabel "name_type" "Y: int"
$cell329 setScope "name_type" "cl" "scopePhase"
$cell329 setScope "name_type" "de" "scopeSystem"

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

set cell331 [$row330 addCell parameter 0.0]
$cell331 setLabel "name_type" "Sender: TObject"
$cell331 setScope "name_type" "cl" "scopePhase"
$cell331 setProp "is_vcl" "1" "name_type" "cl"
$cell331 setProp "libunit" "System" "name_type" "cl"
$cell331 setScope "name_type" "de" "scopeSystem"

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

set cell333 [$row332 addCell parameter 0.0]
$cell333 setLabel "name_type" "Sender: TObject"
$cell333 setScope "name_type" "cl" "scopePhase"
$cell333 setProp "is_vcl" "1" "name_type" "cl"
$cell333 setProp "libunit" "System" "name_type" "cl"
$cell333 setScope "name_type" "de" "scopeSystem"

set row334 [$diag addRow method 0.0]
$row334 setLabel "name_type" "Show()"
$row334 setProp "has_parmlist" "1"
$row334 setProp "is_event" "1"

set cell335 [$row334 addCell parameter 0.0]
$cell335 setLabel "name_type" "Sender: TObject"
$cell335 setScope "name_type" "cl" "scopePhase"
$cell335 setProp "is_vcl" "1" "name_type" "cl"
$cell335 setProp "libunit" "System" "name_type" "cl"
$cell335 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new StdCtrlsClasses "DelphiVCL" "" "" "" "" "" 1]

set node336 [$diag addNode cad_class 768.0 896.0 120.0 33.0]
$node336 setLabel "name" "TScrollBar"
$node336 setProp "is_folded" "1"
$node336 setScope "name" "cl" "scopePhase"
$node336 setProp "is_vcl" "1" "name" "cl"
$node336 setProp "libunit" "StdCtrls" "name" "cl"

set node337 [$diag addNode cad_class 1808.0 992.0 120.0 33.0]
$node337 setLabel "name" "TRadioButton"
$node337 setProp "is_folded" "1"
$node337 setScope "name" "cl" "scopePhase"
$node337 setProp "is_vcl" "1" "name" "cl"
$node337 setProp "libunit" "StdCtrls" "name" "cl"

set node338 [$diag addNode cad_class 864.0 1088.0 120.0 33.0]
$node338 setLabel "name" "TMemo"
$node338 setProp "is_folded" "1"
$node338 setScope "name" "cl" "scopePhase"
$node338 setProp "is_vcl" "1" "name" "cl"
$node338 setProp "libunit" "StdCtrls" "name" "cl"

set node339 [$diag addNode cad_class 1200.0 992.0 120.0 33.0]
$node339 setLabel "name" "TListBox"
$node339 setProp "is_folded" "1"
$node339 setScope "name" "cl" "scopePhase"
$node339 setProp "is_vcl" "1" "name" "cl"
$node339 setProp "libunit" "StdCtrls" "name" "cl"

set node340 [$diag addNode cad_class 2384.0 992.0 120.0 33.0]
$node340 setLabel "name" "TLabel"
$node340 setProp "is_folded" "1"
$node340 setScope "name" "cl" "scopePhase"
$node340 setProp "is_vcl" "1" "name" "cl"
$node340 setProp "libunit" "StdCtrls" "name" "cl"

set node341 [$diag addNode cad_class 2192.0 1088.0 120.0 33.0]
$node341 setLabel "name" "TGroupBox"
$node341 setProp "is_folded" "1"
$node341 setScope "name" "cl" "scopePhase"
$node341 setProp "is_vcl" "1" "name" "cl"
$node341 setProp "libunit" "StdCtrls" "name" "cl"

set node342 [$diag addNode cad_class 1008.0 992.0 120.0 33.0]
$node342 setLabel "name" "TEdit"
$node342 setProp "is_folded" "1"
$node342 setScope "name" "cl" "scopePhase"
$node342 setProp "is_vcl" "1" "name" "cl"
$node342 setProp "libunit" "StdCtrls" "name" "cl"

set node343 [$diag addNode cad_class 864.0 992.0 120.0 33.0]
$node343 setLabel "name" "TCustomMemo"
$node343 setProp "is_folded" "1"
$node343 setScope "name" "cl" "scopePhase"
$node343 setProp "is_vcl" "1" "name" "cl"
$node343 setProp "libunit" "StdCtrls" "name" "cl"

set node344 [$diag addNode cad_class 1200.0 896.0 128.0 33.0]
$node344 setLabel "name" "TCustomListBox"
$node344 setProp "is_folded" "1"
$node344 setScope "name" "cl" "scopePhase"
$node344 setProp "is_vcl" "1" "name" "cl"
$node344 setProp "libunit" "StdCtrls" "name" "cl"

set node345 [$diag addNode cad_class 2384.0 896.0 120.0 33.0]
$node345 setLabel "name" "TCustomLabel"
$node345 setProp "is_folded" "1"
$node345 setScope "name" "cl" "scopePhase"
$node345 setProp "is_vcl" "1" "name" "cl"
$node345 setProp "libunit" "StdCtrls" "name" "cl"

set node346 [$diag addNode cad_class 928.0 896.0 120.0 33.0]
$node346 setLabel "name" "TCustomEdit"
$node346 setProp "is_folded" "1"
$node346 setScope "name" "cl" "scopePhase"
$node346 setProp "is_vcl" "1" "name" "cl"
$node346 setProp "libunit" "StdCtrls" "name" "cl"

set node347 [$diag addNode cad_class 1984.0 896.0 153.0 33.0]
$node347 setLabel "name" "TCustomComboBox"
$node347 setProp "is_folded" "1"
$node347 setScope "name" "cl" "scopePhase"
$node347 setProp "is_vcl" "1" "name" "cl"
$node347 setProp "libunit" "StdCtrls" "name" "cl"

set node348 [$diag addNode cad_class 1584.0 992.0 147.0 33.0]
$node348 setLabel "name" "TCustomCheckBox"
$node348 setProp "is_folded" "1"
$node348 setScope "name" "cl" "scopePhase"
$node348 setProp "is_vcl" "1" "name" "cl"
$node348 setProp "libunit" "StdCtrls" "name" "cl"

set node349 [$diag addNode cad_class 2000.0 992.0 120.0 33.0]
$node349 setLabel "name" "TComboBox"
$node349 setProp "is_folded" "1"
$node349 setScope "name" "cl" "scopePhase"
$node349 setProp "is_vcl" "1" "name" "cl"
$node349 setProp "libunit" "StdCtrls" "name" "cl"

set node350 [$diag addNode cad_class 1600.0 1088.0 120.0 33.0]
$node350 setLabel "name" "TCheckBox"
$node350 setProp "is_folded" "1"
$node350 setScope "name" "cl" "scopePhase"
$node350 setProp "is_vcl" "1" "name" "cl"
$node350 setProp "libunit" "StdCtrls" "name" "cl"

set node351 [$diag addNode cad_class 1600.0 896.0 123.0 33.0]
$node351 setLabel "name" "TButtonControl"
$node351 setProp "is_folded" "1"
$node351 setScope "name" "cl" "scopePhase"
$node351 setProp "is_vcl" "1" "name" "cl"
$node351 setProp "libunit" "StdCtrls" "name" "cl"

set node352 [$diag addNode cad_class 1392.0 992.0 120.0 33.0]
$node352 setLabel "name" "TButton"
$node352 setProp "is_folded" "1"
$node352 setScope "name" "cl" "scopePhase"
$node352 setProp "is_vcl" "1" "name" "cl"
$node352 setProp "libunit" "StdCtrls" "name" "cl"

set node364 [$diag addNode cad_class 2384.0 800.0 131.0 33.0]
$node364 setLabel "name" "TGraphicControl"
$node364 setProp "is_folded" "1"
$node364 setScope "name" "cl" "scopePhase"
$node364 setProp "is_vcl" "1" "name" "cl"
$node364 setProp "libunit" "Controls" "name" "cl"

set node365 [$diag addNode cad_class 2192.0 896.0 130.0 33.0]
$node365 setLabel "name" "TCustomControl"
$node365 setProp "is_folded" "1"
$node365 setScope "name" "cl" "scopePhase"
$node365 setProp "is_vcl" "1" "name" "cl"
$node365 setProp "libunit" "Controls" "name" "cl"

set node366 [$diag addNode cad_class 2176.0 992.0 147.0 33.0]
$node366 setLabel "name" "TCustomGroupBox"
$node366 setProp "is_folded" "1"
$node366 setScope "name" "cl" "scopePhase"
$node366 setProp "is_vcl" "1" "name" "cl"
$node366 setProp "libunit" "StdCtrls" "name" "cl"

set node367 [$diag addNode cad_class 1600.0 800.0 120.0 33.0]
$node367 setLabel "name" "TWinControl"
$node367 setProp "is_folded" "1"
$node367 setScope "name" "cl" "scopePhase"
$node367 setProp "is_vcl" "1" "name" "cl"
$node367 setProp "libunit" "Controls" "name" "cl"

set node353 [$diag addRake generalization $node345 $node340 2448.0 928.0 2448.0 1008.0 959.5]

set conn368 [$node353 getInConn]
set segm369 [$conn368 getFirstSegm]

set conn370 [$node353 getFirstOutConn]
set segm371 [$conn370 getFirstSegm]

set node354 [$diag addRake generalization $node364 $node345 2448.0 832.0 2448.0 912.0 863.5]

set conn372 [$node354 getInConn]
set segm373 [$conn372 getFirstSegm]

set conn374 [$node354 getFirstOutConn]
set segm375 [$conn374 getFirstSegm]

set node355 [$diag addRake generalization $node343 $node338 928.0 1024.0 928.0 1104.0 1064.0]

set conn376 [$node355 getInConn]
set segm377 [$conn376 getFirstSegm]

set conn378 [$node355 getFirstOutConn]
set segm379 [$conn378 getFirstSegm]

set node356 [$diag addRake generalization $node346 $node342 992.0 928.0 1072.0 1008.0 968.0]

set conn380 [$node356 getInConn]
set segm381 [$conn380 getFirstSegm]

set conn382 [$node356 getFirstOutConn]
set segm383 [$conn382 getFirstSegm]

set conn384 [$diag addConn generalization_conn $node356 $node343 1002.0 968.5 928.0 1008.0]
set segm385 [$conn384 getFirstSegm]

set node357 [$diag addRake generalization $node344 $node339 1264.0 928.0 1264.0 1008.0 968.0]

set conn386 [$node357 getInConn]
set segm387 [$conn386 getFirstSegm]

set conn388 [$node357 getFirstOutConn]
set segm389 [$conn388 getFirstSegm]

set node358 [$diag addRake generalization $node348 $node350 1664.0 1024.0 1664.0 1104.0 1064.0]

set conn390 [$node358 getInConn]
set segm391 [$conn390 getFirstSegm]

set conn392 [$node358 getFirstOutConn]
set segm393 [$conn392 getFirstSegm]

set node359 [$diag addRake generalization $node351 $node337 1664.0 928.0 1872.0 1024.0 968.0]

set conn394 [$node359 getInConn]
set segm395 [$conn394 getFirstSegm]

set conn396 [$node359 getFirstOutConn]
set segm397 [$conn396 getFirstSegm]

set conn398 [$diag addConn generalization_conn $node359 $node348 1664.0 968.5 1664.0 1008.0]
set segm399 [$conn398 getFirstSegm]

set conn400 [$diag addConn generalization_conn $node359 $node352 1674.0 968.5 1456.0 1008.0]
set segm401 [$conn400 getFirstSegm]

set node360 [$diag addRake generalization $node366 $node341 2256.0 1024.0 2256.0 1104.0 1064.0]

set conn402 [$node360 getInConn]
set segm403 [$conn402 getFirstSegm]

set conn404 [$node360 getFirstOutConn]
set segm405 [$conn404 getFirstSegm]

set node361 [$diag addRake generalization $node365 $node366 2256.0 928.0 2256.0 1008.0 968.0]

set conn406 [$node361 getInConn]
set segm407 [$conn406 getFirstSegm]

set conn408 [$node361 getFirstOutConn]
set segm409 [$conn408 getFirstSegm]

set node362 [$diag addRake generalization $node347 $node349 2064.0 928.0 2064.0 1008.0 968.0]

set conn410 [$node362 getInConn]
set segm411 [$conn410 getFirstSegm]

set conn412 [$node362 getFirstOutConn]
set segm413 [$conn412 getFirstSegm]

set node363 [$diag addRake generalization $node367 $node336 1664.0 832.0 832.0 912.0 872.0]

set conn414 [$node363 getInConn]
set segm415 [$conn414 getFirstSegm]

set conn416 [$node363 getFirstOutConn]
set segm417 [$conn416 getFirstSegm]

set conn418 [$diag addConn generalization_conn $node363 $node346 1664.0 872.5 992.0 912.0]
set segm419 [$conn418 getFirstSegm]

set conn420 [$diag addConn generalization_conn $node363 $node347 1664.0 872.5 2064.0 912.0]
set segm421 [$conn420 getFirstSegm]

set conn422 [$diag addConn generalization_conn $node363 $node344 1664.0 872.5 1264.0 896.0]
set segm423 [$conn422 getFirstSegm]

set conn424 [$diag addConn generalization_conn $node363 $node351 1674.0 872.5 1664.0 912.0]
set segm425 [$conn424 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TComboBox "DelphiVCL" "" "" "" "" "" 1]

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

set cell427 [$row426 addCell parameter 0.0]
$cell427 setLabel "name_type" "Sender: TField"
$cell427 setScope "name_type" "cl" "scopePhase"
$cell427 setProp "is_vcl" "1" "name_type" "cl"
$cell427 setProp "libunit" "Other" "name_type" "cl"
$cell427 setProp "userlib" "DB" "name_type" "cl"
$cell427 setScope "name_type" "de" "scopeSystem"

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

set cell429 [$row428 addCell parameter 0.0]
$cell429 setLabel "name_type" "Sender: TObject"
$cell429 setScope "name_type" "cl" "scopePhase"
$cell429 setProp "is_vcl" "1" "name_type" "cl"
$cell429 setProp "libunit" "System" "name_type" "cl"
$cell429 setScope "name_type" "de" "scopeSystem"

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

set cell431 [$row430 addCell parameter 0.0]
$cell431 setLabel "name_type" "Sender: TObject"
$cell431 setScope "name_type" "cl" "scopePhase"
$cell431 setProp "is_vcl" "1" "name_type" "cl"
$cell431 setProp "libunit" "System" "name_type" "cl"
$cell431 setScope "name_type" "de" "scopeSystem"

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

set cell433 [$row432 addCell parameter 0.0]
$cell433 setLabel "name_type" "Sender: TObject, "
$cell433 setScope "name_type" "cl" "scopePhase"
$cell433 setProp "is_vcl" "1" "name_type" "cl"
$cell433 setProp "libunit" "System" "name_type" "cl"
$cell433 setScope "name_type" "de" "scopeSystem"

set cell434 [$row432 addCell parameter 0.0]
$cell434 setLabel "name_type" "Source: TObject, "
$cell434 setScope "name_type" "cl" "scopePhase"
$cell434 setProp "is_vcl" "1" "name_type" "cl"
$cell434 setProp "libunit" "System" "name_type" "cl"
$cell434 setScope "name_type" "de" "scopeSystem"

set cell435 [$row432 addCell parameter 0.0]
$cell435 setLabel "name_type" "X: int, "
$cell435 setScope "name_type" "cl" "scopePhase"
$cell435 setScope "name_type" "de" "scopeSystem"

set cell436 [$row432 addCell parameter 0.0]
$cell436 setLabel "name_type" "Y: int"
$cell436 setScope "name_type" "cl" "scopePhase"
$cell436 setScope "name_type" "de" "scopeSystem"

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

set cell438 [$row437 addCell parameter 0.0]
$cell438 setLabel "name_type" "Sender: TObject, "
$cell438 setScope "name_type" "cl" "scopePhase"
$cell438 setProp "is_vcl" "1" "name_type" "cl"
$cell438 setProp "libunit" "System" "name_type" "cl"
$cell438 setScope "name_type" "de" "scopeSystem"

set cell439 [$row437 addCell parameter 0.0]
$cell439 setLabel "name_type" "Source: TObject, "
$cell439 setScope "name_type" "cl" "scopePhase"
$cell439 setProp "is_vcl" "1" "name_type" "cl"
$cell439 setProp "libunit" "System" "name_type" "cl"
$cell439 setScope "name_type" "de" "scopeSystem"

set cell440 [$row437 addCell parameter 0.0]
$cell440 setLabel "name_type" "X: int, "
$cell440 setScope "name_type" "cl" "scopePhase"
$cell440 setScope "name_type" "de" "scopeSystem"

set cell441 [$row437 addCell parameter 0.0]
$cell441 setLabel "name_type" "Y: int, "
$cell441 setScope "name_type" "cl" "scopePhase"
$cell441 setScope "name_type" "de" "scopeSystem"

set cell442 [$row437 addCell parameter 0.0]
$cell442 setLabel "name_type" "State: TDragState, "
$cell442 setScope "name_type" "cl" "scopePhase"
$cell442 setProp "is_vcl" "1" "name_type" "cl"
$cell442 setProp "libunit" "Controls" "name_type" "cl"
$cell442 setScope "name_type" "de" "scopeSystem"

set cell443 [$row437 addCell parameter 0.0]
$cell443 setLabel "name_type" "Accept: bool"
$cell443 setProp "pass_by" "Variable"
$cell443 setScope "name_type" "cl" "scopePhase"
$cell443 setScope "name_type" "de" "scopeSystem"

set row444 [$diag addRow method 0.0]
$row444 setLabel "name_type" "DrawItem()\n"
$row444 setProp "has_parmlist" "1"
$row444 setProp "is_event" "1"

set cell445 [$row444 addCell parameter 0.0]
$cell445 setLabel "name_type" "ListBox: TListBox, "
$cell445 setScope "name_type" "cl" "scopePhase"
$cell445 setProp "is_vcl" "1" "name_type" "cl"
$cell445 setProp "libunit" "StdCtrls" "name_type" "cl"
$cell445 setScope "name_type" "de" "scopeSystem"

set cell446 [$row444 addCell parameter 0.0]
$cell446 setLabel "name_type" "Index: int, "
$cell446 setScope "name_type" "cl" "scopePhase"
$cell446 setScope "name_type" "de" "scopeSystem"

set cell447 [$row444 addCell parameter 0.0]
$cell447 setLabel "name_type" "Rect: TRect, "
$cell447 setScope "name_type" "cl" "scopePhase"
$cell447 setProp "is_vcl" "1" "name_type" "cl"
$cell447 setProp "libunit" "Other" "name_type" "cl"
$cell447 setProp "userlib" "Windows" "name_type" "cl"
$cell447 setScope "name_type" "de" "scopeSystem"

set cell448 [$row444 addCell parameter 0.0]
$cell448 setLabel "name_type" "State: TOwnerDrawState"
$cell448 setScope "name_type" "cl" "scopePhase"
$cell448 setProp "is_vcl" "1" "name_type" "cl"
$cell448 setProp "libunit" "StdCtrls" "name_type" "cl"
$cell448 setScope "name_type" "de" "scopeSystem"

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

set cell450 [$row449 addCell parameter 0.0]
$cell450 setLabel "name_type" "Sender: TObject"
$cell450 setScope "name_type" "cl" "scopePhase"
$cell450 setProp "is_vcl" "1" "name_type" "cl"
$cell450 setProp "libunit" "System" "name_type" "cl"
$cell450 setScope "name_type" "de" "scopeSystem"

set row451 [$diag addRow method 0.0]
$row451 setLabel "name_type" "EndDrag()\n"
$row451 setProp "has_parmlist" "1"
$row451 setProp "is_event" "1"

set cell452 [$row451 addCell parameter 0.0]
$cell452 setLabel "name_type" "Sender: TObject, "
$cell452 setScope "name_type" "cl" "scopePhase"
$cell452 setProp "is_vcl" "1" "name_type" "cl"
$cell452 setProp "libunit" "System" "name_type" "cl"
$cell452 setScope "name_type" "de" "scopeSystem"

set cell453 [$row451 addCell parameter 0.0]
$cell453 setLabel "name_type" "Source: TObject, "
$cell453 setScope "name_type" "cl" "scopePhase"
$cell453 setProp "is_vcl" "1" "name_type" "cl"
$cell453 setProp "libunit" "System" "name_type" "cl"
$cell453 setScope "name_type" "de" "scopeSystem"

set cell454 [$row451 addCell parameter 0.0]
$cell454 setLabel "name_type" "X: int, "
$cell454 setScope "name_type" "cl" "scopePhase"
$cell454 setScope "name_type" "de" "scopeSystem"

set cell455 [$row451 addCell parameter 0.0]
$cell455 setLabel "name_type" "Y: int"
$cell455 setScope "name_type" "cl" "scopePhase"
$cell455 setScope "name_type" "de" "scopeSystem"

set row456 [$diag addRow method 0.0]
$row456 setLabel "name_type" "Enter()\n"
$row456 setProp "has_parmlist" "1"
$row456 setProp "is_event" "1"

set cell457 [$row456 addCell parameter 0.0]
$cell457 setLabel "name_type" "Sender: TObject"
$cell457 setScope "name_type" "cl" "scopePhase"
$cell457 setProp "is_vcl" "1" "name_type" "cl"
$cell457 setProp "libunit" "System" "name_type" "cl"
$cell457 setScope "name_type" "de" "scopeSystem"

set row458 [$diag addRow method 0.0]
$row458 setLabel "name_type" "Exit()\n"
$row458 setProp "has_parmlist" "1"
$row458 setProp "is_event" "1"

set cell459 [$row458 addCell parameter 0.0]
$cell459 setLabel "name_type" "Sender: TObject"
$cell459 setScope "name_type" "cl" "scopePhase"
$cell459 setProp "is_vcl" "1" "name_type" "cl"
$cell459 setProp "libunit" "System" "name_type" "cl"
$cell459 setScope "name_type" "de" "scopeSystem"

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

set cell461 [$row460 addCell parameter 0.0]
$cell461 setLabel "name_type" "Sender: TObject, "
$cell461 setScope "name_type" "cl" "scopePhase"
$cell461 setProp "is_vcl" "1" "name_type" "cl"
$cell461 setProp "libunit" "System" "name_type" "cl"
$cell461 setScope "name_type" "de" "scopeSystem"

set cell462 [$row460 addCell parameter 0.0]
$cell462 setLabel "name_type" "Key: word, "
$cell462 setProp "pass_by" "Variable"
$cell462 setScope "name_type" "cl" "scopePhase"
$cell462 setScope "name_type" "de" "scopeSystem"

set cell463 [$row460 addCell parameter 0.0]
$cell463 setLabel "name_type" "Shift: TShiftState"
$cell463 setScope "name_type" "cl" "scopePhase"
$cell463 setProp "is_vcl" "1" "name_type" "cl"
$cell463 setProp "libunit" "Classes" "name_type" "cl"
$cell463 setScope "name_type" "de" "scopeSystem"

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

set cell465 [$row464 addCell parameter 0.0]
$cell465 setLabel "name_type" "Sender: TObject, "
$cell465 setScope "name_type" "cl" "scopePhase"
$cell465 setProp "is_vcl" "1" "name_type" "cl"
$cell465 setProp "libunit" "System" "name_type" "cl"
$cell465 setScope "name_type" "de" "scopeSystem"

set cell466 [$row464 addCell parameter 0.0]
$cell466 setLabel "name_type" "Key: char"
$cell466 setProp "pass_by" "Variable"
$cell466 setScope "name_type" "cl" "scopePhase"
$cell466 setScope "name_type" "de" "scopeSystem"

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

set cell468 [$row467 addCell parameter 0.0]
$cell468 setLabel "name_type" "Sender: TObject, "
$cell468 setScope "name_type" "cl" "scopePhase"
$cell468 setProp "is_vcl" "1" "name_type" "cl"
$cell468 setProp "libunit" "System" "name_type" "cl"
$cell468 setScope "name_type" "de" "scopeSystem"

set cell469 [$row467 addCell parameter 0.0]
$cell469 setLabel "name_type" "Key: word, "
$cell469 setProp "pass_by" "Variable"
$cell469 setScope "name_type" "cl" "scopePhase"
$cell469 setScope "name_type" "de" "scopeSystem"

set cell470 [$row467 addCell parameter 0.0]
$cell470 setLabel "name_type" "Shift: TShiftState"
$cell470 setScope "name_type" "cl" "scopePhase"
$cell470 setProp "is_vcl" "1" "name_type" "cl"
$cell470 setProp "libunit" "Classes" "name_type" "cl"
$cell470 setScope "name_type" "de" "scopeSystem"

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

set cell472 [$row471 addCell parameter 0.0]
$cell472 setLabel "name_type" "Control: TWinControl, "
$cell472 setScope "name_type" "cl" "scopePhase"
$cell472 setProp "is_vcl" "1" "name_type" "cl"
$cell472 setProp "libunit" "Controls" "name_type" "cl"
$cell472 setScope "name_type" "de" "scopeSystem"

set cell473 [$row471 addCell parameter 0.0]
$cell473 setLabel "name_type" "Index: int, "
$cell473 setScope "name_type" "cl" "scopePhase"
$cell473 setScope "name_type" "de" "scopeSystem"

set cell474 [$row471 addCell parameter 0.0]
$cell474 setLabel "name_type" "Height: int"
$cell474 setProp "pass_by" "Variable"
$cell474 setScope "name_type" "cl" "scopePhase"
$cell474 setScope "name_type" "de" "scopeSystem"

set row475 [$diag addRow method 0.0]
$row475 setLabel "name_type" "StartDrag()"
$row475 setProp "has_parmlist" "1"
$row475 setProp "is_event" "1"

set cell476 [$row475 addCell parameter 0.0]
$cell476 setLabel "name_type" "Sender: TObject, "
$cell476 setScope "name_type" "cl" "scopePhase"
$cell476 setProp "is_vcl" "1" "name_type" "cl"
$cell476 setProp "libunit" "System" "name_type" "cl"
$cell476 setScope "name_type" "de" "scopeSystem"

set cell477 [$row475 addCell parameter 0.0]
$cell477 setLabel "name_type" "DragObject: TDragObject"
$cell477 setProp "pass_by" "Variable"
$cell477 setScope "name_type" "cl" "scopePhase"
$cell477 setProp "is_vcl" "1" "name_type" "cl"
$cell477 setProp "libunit" "Controls" "name_type" "cl"
$cell477 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TButton "DelphiVCL" "" "" "" "" "" 1]

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

set cell479 [$row478 addCell parameter 0.0]
$cell479 setLabel "name_type" "Sender: TObject"
$cell479 setScope "name_type" "cl" "scopePhase"
$cell479 setProp "is_vcl" "1" "name_type" "cl"
$cell479 setProp "libunit" "System" "name_type" "cl"
$cell479 setScope "name_type" "de" "scopeSystem"

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

set cell481 [$row480 addCell parameter 0.0]
$cell481 setLabel "name_type" "Sender: TObject, "
$cell481 setScope "name_type" "cl" "scopePhase"
$cell481 setProp "is_vcl" "1" "name_type" "cl"
$cell481 setProp "libunit" "System" "name_type" "cl"
$cell481 setScope "name_type" "de" "scopeSystem"

set cell482 [$row480 addCell parameter 0.0]
$cell482 setLabel "name_type" "Source: TObject, "
$cell482 setScope "name_type" "cl" "scopePhase"
$cell482 setProp "is_vcl" "1" "name_type" "cl"
$cell482 setProp "libunit" "System" "name_type" "cl"
$cell482 setScope "name_type" "de" "scopeSystem"

set cell483 [$row480 addCell parameter 0.0]
$cell483 setLabel "name_type" "X: int, "
$cell483 setScope "name_type" "cl" "scopePhase"
$cell483 setScope "name_type" "de" "scopeSystem"

set cell484 [$row480 addCell parameter 0.0]
$cell484 setLabel "name_type" "Y: int"
$cell484 setScope "name_type" "cl" "scopePhase"
$cell484 setScope "name_type" "de" "scopeSystem"

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

set cell486 [$row485 addCell parameter 0.0]
$cell486 setLabel "name_type" "Sender: TObject, "
$cell486 setScope "name_type" "cl" "scopePhase"
$cell486 setProp "is_vcl" "1" "name_type" "cl"
$cell486 setProp "libunit" "System" "name_type" "cl"
$cell486 setScope "name_type" "de" "scopeSystem"

set cell487 [$row485 addCell parameter 0.0]
$cell487 setLabel "name_type" "Source: TObject, "
$cell487 setScope "name_type" "cl" "scopePhase"
$cell487 setProp "is_vcl" "1" "name_type" "cl"
$cell487 setProp "libunit" "System" "name_type" "cl"
$cell487 setScope "name_type" "de" "scopeSystem"

set cell488 [$row485 addCell parameter 0.0]
$cell488 setLabel "name_type" "X: int, "
$cell488 setScope "name_type" "cl" "scopePhase"
$cell488 setScope "name_type" "de" "scopeSystem"

set cell489 [$row485 addCell parameter 0.0]
$cell489 setLabel "name_type" "Y: int, "
$cell489 setScope "name_type" "cl" "scopePhase"
$cell489 setScope "name_type" "de" "scopeSystem"

set cell490 [$row485 addCell parameter 0.0]
$cell490 setLabel "name_type" "State: TDragState, "
$cell490 setScope "name_type" "cl" "scopePhase"
$cell490 setProp "is_vcl" "1" "name_type" "cl"
$cell490 setProp "libunit" "Controls" "name_type" "cl"
$cell490 setScope "name_type" "de" "scopeSystem"

set cell491 [$row485 addCell parameter 0.0]
$cell491 setLabel "name_type" "Accept: bool"
$cell491 setProp "pass_by" "Variable"
$cell491 setScope "name_type" "cl" "scopePhase"
$cell491 setScope "name_type" "de" "scopeSystem"

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

set cell493 [$row492 addCell parameter 0.0]
$cell493 setLabel "name_type" "Sender: TObject, "
$cell493 setScope "name_type" "cl" "scopePhase"
$cell493 setProp "is_vcl" "1" "name_type" "cl"
$cell493 setProp "libunit" "System" "name_type" "cl"
$cell493 setScope "name_type" "de" "scopeSystem"

set cell494 [$row492 addCell parameter 0.0]
$cell494 setLabel "name_type" "Source: TObject, "
$cell494 setScope "name_type" "cl" "scopePhase"
$cell494 setProp "is_vcl" "1" "name_type" "cl"
$cell494 setProp "libunit" "System" "name_type" "cl"
$cell494 setScope "name_type" "de" "scopeSystem"

set cell495 [$row492 addCell parameter 0.0]
$cell495 setLabel "name_type" "X: int, "
$cell495 setScope "name_type" "cl" "scopePhase"
$cell495 setScope "name_type" "de" "scopeSystem"

set cell496 [$row492 addCell parameter 0.0]
$cell496 setLabel "name_type" "Y: int"
$cell496 setScope "name_type" "cl" "scopePhase"
$cell496 setScope "name_type" "de" "scopeSystem"

set row497 [$diag addRow method 0.0]
$row497 setLabel "name_type" "Enter()\n"
$row497 setProp "has_parmlist" "1"
$row497 setProp "is_event" "1"

set cell498 [$row497 addCell parameter 0.0]
$cell498 setLabel "name_type" "Sender: TObject"
$cell498 setScope "name_type" "cl" "scopePhase"
$cell498 setProp "is_vcl" "1" "name_type" "cl"
$cell498 setProp "libunit" "System" "name_type" "cl"
$cell498 setScope "name_type" "de" "scopeSystem"

set row499 [$diag addRow method 0.0]
$row499 setLabel "name_type" "Exit()\n"
$row499 setProp "has_parmlist" "1"
$row499 setProp "is_event" "1"

set cell500 [$row499 addCell parameter 0.0]
$cell500 setLabel "name_type" "Sender: TObject"
$cell500 setScope "name_type" "cl" "scopePhase"
$cell500 setProp "is_vcl" "1" "name_type" "cl"
$cell500 setProp "libunit" "System" "name_type" "cl"
$cell500 setScope "name_type" "de" "scopeSystem"

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

set cell502 [$row501 addCell parameter 0.0]
$cell502 setLabel "name_type" "Sender: TObject, "
$cell502 setScope "name_type" "cl" "scopePhase"
$cell502 setProp "is_vcl" "1" "name_type" "cl"
$cell502 setProp "libunit" "System" "name_type" "cl"
$cell502 setScope "name_type" "de" "scopeSystem"

set cell503 [$row501 addCell parameter 0.0]
$cell503 setLabel "name_type" "Key: word, "
$cell503 setProp "pass_by" "Variable"
$cell503 setScope "name_type" "cl" "scopePhase"
$cell503 setScope "name_type" "de" "scopeSystem"

set cell504 [$row501 addCell parameter 0.0]
$cell504 setLabel "name_type" "Shift: TShiftState"
$cell504 setScope "name_type" "cl" "scopePhase"
$cell504 setProp "is_vcl" "1" "name_type" "cl"
$cell504 setProp "libunit" "Classes" "name_type" "cl"
$cell504 setScope "name_type" "de" "scopeSystem"

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

set cell506 [$row505 addCell parameter 0.0]
$cell506 setLabel "name_type" "Sender: TObject, "
$cell506 setScope "name_type" "cl" "scopePhase"
$cell506 setProp "is_vcl" "1" "name_type" "cl"
$cell506 setProp "libunit" "System" "name_type" "cl"
$cell506 setScope "name_type" "de" "scopeSystem"

set cell507 [$row505 addCell parameter 0.0]
$cell507 setLabel "name_type" "Key: char"
$cell507 setProp "pass_by" "Variable"
$cell507 setScope "name_type" "cl" "scopePhase"
$cell507 setScope "name_type" "de" "scopeSystem"

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

set cell509 [$row508 addCell parameter 0.0]
$cell509 setLabel "name_type" "Sender: TObject, "
$cell509 setScope "name_type" "cl" "scopePhase"
$cell509 setProp "is_vcl" "1" "name_type" "cl"
$cell509 setProp "libunit" "System" "name_type" "cl"
$cell509 setScope "name_type" "de" "scopeSystem"

set cell510 [$row508 addCell parameter 0.0]
$cell510 setLabel "name_type" "Key: word, "
$cell510 setProp "pass_by" "Variable"
$cell510 setScope "name_type" "cl" "scopePhase"
$cell510 setScope "name_type" "de" "scopeSystem"

set cell511 [$row508 addCell parameter 0.0]
$cell511 setLabel "name_type" "Shift: TShiftState"
$cell511 setScope "name_type" "cl" "scopePhase"
$cell511 setProp "is_vcl" "1" "name_type" "cl"
$cell511 setProp "libunit" "Classes" "name_type" "cl"
$cell511 setScope "name_type" "de" "scopeSystem"

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

set cell513 [$row512 addCell parameter 0.0]
$cell513 setLabel "name_type" "Sender: TObject, "
$cell513 setScope "name_type" "cl" "scopePhase"
$cell513 setProp "is_vcl" "1" "name_type" "cl"
$cell513 setProp "libunit" "System" "name_type" "cl"
$cell513 setScope "name_type" "de" "scopeSystem"

set cell514 [$row512 addCell parameter 0.0]
$cell514 setLabel "name_type" "Button: TMouseButton, "
$cell514 setScope "name_type" "cl" "scopePhase"
$cell514 setProp "is_vcl" "1" "name_type" "cl"
$cell514 setProp "libunit" "Controls" "name_type" "cl"
$cell514 setScope "name_type" "de" "scopeSystem"

set cell515 [$row512 addCell parameter 0.0]
$cell515 setLabel "name_type" "Shift: TShiftState, "
$cell515 setScope "name_type" "cl" "scopePhase"
$cell515 setProp "is_vcl" "1" "name_type" "cl"
$cell515 setProp "libunit" "Classes" "name_type" "cl"
$cell515 setScope "name_type" "de" "scopeSystem"

set cell516 [$row512 addCell parameter 0.0]
$cell516 setLabel "name_type" "X: int, "
$cell516 setScope "name_type" "cl" "scopePhase"
$cell516 setScope "name_type" "de" "scopeSystem"

set cell517 [$row512 addCell parameter 0.0]
$cell517 setLabel "name_type" "Y: int"
$cell517 setScope "name_type" "cl" "scopePhase"
$cell517 setScope "name_type" "de" "scopeSystem"

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

set cell519 [$row518 addCell parameter 0.0]
$cell519 setLabel "name_type" "Sender: TObject, "
$cell519 setScope "name_type" "cl" "scopePhase"
$cell519 setProp "is_vcl" "1" "name_type" "cl"
$cell519 setProp "libunit" "System" "name_type" "cl"
$cell519 setScope "name_type" "de" "scopeSystem"

set cell520 [$row518 addCell parameter 0.0]
$cell520 setLabel "name_type" "Shift: TShiftState, "
$cell520 setScope "name_type" "cl" "scopePhase"
$cell520 setProp "is_vcl" "1" "name_type" "cl"
$cell520 setProp "libunit" "Classes" "name_type" "cl"
$cell520 setScope "name_type" "de" "scopeSystem"

set cell521 [$row518 addCell parameter 0.0]
$cell521 setLabel "name_type" "X: int, "
$cell521 setScope "name_type" "cl" "scopePhase"
$cell521 setScope "name_type" "de" "scopeSystem"

set cell522 [$row518 addCell parameter 0.0]
$cell522 setLabel "name_type" "Y: int"
$cell522 setScope "name_type" "cl" "scopePhase"
$cell522 setScope "name_type" "de" "scopeSystem"

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

set cell524 [$row523 addCell parameter 0.0]
$cell524 setLabel "name_type" "Sender: TObject, "
$cell524 setScope "name_type" "cl" "scopePhase"
$cell524 setProp "is_vcl" "1" "name_type" "cl"
$cell524 setProp "libunit" "System" "name_type" "cl"
$cell524 setScope "name_type" "de" "scopeSystem"

set cell525 [$row523 addCell parameter 0.0]
$cell525 setLabel "name_type" "Button: TMouseButton, "
$cell525 setScope "name_type" "cl" "scopePhase"
$cell525 setProp "is_vcl" "1" "name_type" "cl"
$cell525 setProp "libunit" "Controls" "name_type" "cl"
$cell525 setScope "name_type" "de" "scopeSystem"

set cell526 [$row523 addCell parameter 0.0]
$cell526 setLabel "name_type" "Shift: TShiftState, "
$cell526 setScope "name_type" "cl" "scopePhase"
$cell526 setProp "is_vcl" "1" "name_type" "cl"
$cell526 setProp "libunit" "Classes" "name_type" "cl"
$cell526 setScope "name_type" "de" "scopeSystem"

set cell527 [$row523 addCell parameter 0.0]
$cell527 setLabel "name_type" "X: int, "
$cell527 setScope "name_type" "cl" "scopePhase"
$cell527 setScope "name_type" "de" "scopeSystem"

set cell528 [$row523 addCell parameter 0.0]
$cell528 setLabel "name_type" "Y: int"
$cell528 setScope "name_type" "cl" "scopePhase"
$cell528 setScope "name_type" "de" "scopeSystem"

set row529 [$diag addRow method 0.0]
$row529 setLabel "name_type" "StartDrag()"
$row529 setProp "has_parmlist" "1"
$row529 setProp "is_event" "1"

set cell530 [$row529 addCell parameter 0.0]
$cell530 setLabel "name_type" "Sender: TObject, "
$cell530 setScope "name_type" "cl" "scopePhase"
$cell530 setProp "is_vcl" "1" "name_type" "cl"
$cell530 setProp "libunit" "System" "name_type" "cl"
$cell530 setScope "name_type" "de" "scopeSystem"

set cell531 [$row529 addCell parameter 0.0]
$cell531 setLabel "name_type" "DragObject: TDragObject"
$cell531 setProp "pass_by" "Variable"
$cell531 setScope "name_type" "cl" "scopePhase"
$cell531 setProp "is_vcl" "1" "name_type" "cl"
$cell531 setProp "libunit" "Controls" "name_type" "cl"
$cell531 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TEdit "DelphiVCL" "" "" "" "" "" 1]

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

set cell533 [$row532 addCell parameter 0.0]
$cell533 setLabel "name_type" "Sender: TField"
$cell533 setScope "name_type" "cl" "scopePhase"
$cell533 setProp "is_vcl" "1" "name_type" "cl"
$cell533 setProp "libunit" "Other" "name_type" "cl"
$cell533 setProp "userlib" "DB" "name_type" "cl"
$cell533 setScope "name_type" "de" "scopeSystem"

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

set cell535 [$row534 addCell parameter 0.0]
$cell535 setLabel "name_type" "Sender: TObject"
$cell535 setScope "name_type" "cl" "scopePhase"
$cell535 setProp "is_vcl" "1" "name_type" "cl"
$cell535 setProp "libunit" "System" "name_type" "cl"
$cell535 setScope "name_type" "de" "scopeSystem"

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

set cell537 [$row536 addCell parameter 0.0]
$cell537 setLabel "name_type" "Sender: TObject, "
$cell537 setScope "name_type" "cl" "scopePhase"
$cell537 setProp "is_vcl" "1" "name_type" "cl"
$cell537 setProp "libunit" "System" "name_type" "cl"
$cell537 setScope "name_type" "de" "scopeSystem"

set cell538 [$row536 addCell parameter 0.0]
$cell538 setLabel "name_type" "Source: TObject, "
$cell538 setScope "name_type" "cl" "scopePhase"
$cell538 setProp "is_vcl" "1" "name_type" "cl"
$cell538 setProp "libunit" "System" "name_type" "cl"
$cell538 setScope "name_type" "de" "scopeSystem"

set cell539 [$row536 addCell parameter 0.0]
$cell539 setLabel "name_type" "X: int, "
$cell539 setScope "name_type" "cl" "scopePhase"
$cell539 setScope "name_type" "de" "scopeSystem"

set cell540 [$row536 addCell parameter 0.0]
$cell540 setLabel "name_type" "Y: int"
$cell540 setScope "name_type" "cl" "scopePhase"
$cell540 setScope "name_type" "de" "scopeSystem"

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

set cell542 [$row541 addCell parameter 0.0]
$cell542 setLabel "name_type" "Sender: TObject, "
$cell542 setScope "name_type" "cl" "scopePhase"
$cell542 setProp "is_vcl" "1" "name_type" "cl"
$cell542 setProp "libunit" "System" "name_type" "cl"
$cell542 setScope "name_type" "de" "scopeSystem"

set cell543 [$row541 addCell parameter 0.0]
$cell543 setLabel "name_type" "Source: TObject, "
$cell543 setScope "name_type" "cl" "scopePhase"
$cell543 setProp "is_vcl" "1" "name_type" "cl"
$cell543 setProp "libunit" "System" "name_type" "cl"
$cell543 setScope "name_type" "de" "scopeSystem"

set cell544 [$row541 addCell parameter 0.0]
$cell544 setLabel "name_type" "X: int, "
$cell544 setScope "name_type" "cl" "scopePhase"
$cell544 setScope "name_type" "de" "scopeSystem"

set cell545 [$row541 addCell parameter 0.0]
$cell545 setLabel "name_type" "Y: int, "
$cell545 setScope "name_type" "cl" "scopePhase"
$cell545 setScope "name_type" "de" "scopeSystem"

set cell546 [$row541 addCell parameter 0.0]
$cell546 setLabel "name_type" "State: TDragState, "
$cell546 setScope "name_type" "cl" "scopePhase"
$cell546 setProp "is_vcl" "1" "name_type" "cl"
$cell546 setProp "libunit" "Controls" "name_type" "cl"
$cell546 setScope "name_type" "de" "scopeSystem"

set cell547 [$row541 addCell parameter 0.0]
$cell547 setLabel "name_type" "Accept: bool"
$cell547 setProp "pass_by" "Variable"
$cell547 setScope "name_type" "cl" "scopePhase"
$cell547 setScope "name_type" "de" "scopeSystem"

set row548 [$diag addRow method 0.0]
$row548 setLabel "name_type" "EndDrag()\n"
$row548 setProp "has_parmlist" "1"
$row548 setProp "is_event" "1"

set cell549 [$row548 addCell parameter 0.0]
$cell549 setLabel "name_type" "Sender: TObject, "
$cell549 setScope "name_type" "cl" "scopePhase"
$cell549 setProp "is_vcl" "1" "name_type" "cl"
$cell549 setProp "libunit" "System" "name_type" "cl"
$cell549 setScope "name_type" "de" "scopeSystem"

set cell550 [$row548 addCell parameter 0.0]
$cell550 setLabel "name_type" "Source: TObject, "
$cell550 setScope "name_type" "cl" "scopePhase"
$cell550 setProp "is_vcl" "1" "name_type" "cl"
$cell550 setProp "libunit" "System" "name_type" "cl"
$cell550 setScope "name_type" "de" "scopeSystem"

set cell551 [$row548 addCell parameter 0.0]
$cell551 setLabel "name_type" "X: int, "
$cell551 setScope "name_type" "cl" "scopePhase"
$cell551 setScope "name_type" "de" "scopeSystem"

set cell552 [$row548 addCell parameter 0.0]
$cell552 setLabel "name_type" "Y: int"
$cell552 setScope "name_type" "cl" "scopePhase"
$cell552 setScope "name_type" "de" "scopeSystem"

set row553 [$diag addRow method 0.0]
$row553 setLabel "name_type" "Enter()\n"
$row553 setProp "has_parmlist" "1"
$row553 setProp "is_event" "1"

set cell554 [$row553 addCell parameter 0.0]
$cell554 setLabel "name_type" "Sender: TObject"
$cell554 setScope "name_type" "cl" "scopePhase"
$cell554 setProp "is_vcl" "1" "name_type" "cl"
$cell554 setProp "libunit" "System" "name_type" "cl"
$cell554 setScope "name_type" "de" "scopeSystem"

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

set cell556 [$row555 addCell parameter 0.0]
$cell556 setLabel "name_type" "Sender: TObject"
$cell556 setScope "name_type" "cl" "scopePhase"
$cell556 setProp "is_vcl" "1" "name_type" "cl"
$cell556 setProp "libunit" "System" "name_type" "cl"
$cell556 setScope "name_type" "de" "scopeSystem"

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

set cell558 [$row557 addCell parameter 0.0]
$cell558 setLabel "name_type" "Sender: TObject, "
$cell558 setScope "name_type" "cl" "scopePhase"
$cell558 setProp "is_vcl" "1" "name_type" "cl"
$cell558 setProp "libunit" "System" "name_type" "cl"
$cell558 setScope "name_type" "de" "scopeSystem"

set cell559 [$row557 addCell parameter 0.0]
$cell559 setLabel "name_type" "Key: word, "
$cell559 setProp "pass_by" "Variable"
$cell559 setScope "name_type" "cl" "scopePhase"
$cell559 setScope "name_type" "de" "scopeSystem"

set cell560 [$row557 addCell parameter 0.0]
$cell560 setLabel "name_type" "Shift: TShiftState"
$cell560 setScope "name_type" "cl" "scopePhase"
$cell560 setProp "is_vcl" "1" "name_type" "cl"
$cell560 setProp "libunit" "Classes" "name_type" "cl"
$cell560 setScope "name_type" "de" "scopeSystem"

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

set cell562 [$row561 addCell parameter 0.0]
$cell562 setLabel "name_type" "Sender: TObject, "
$cell562 setScope "name_type" "cl" "scopePhase"
$cell562 setProp "is_vcl" "1" "name_type" "cl"
$cell562 setProp "libunit" "System" "name_type" "cl"
$cell562 setScope "name_type" "de" "scopeSystem"

set cell563 [$row561 addCell parameter 0.0]
$cell563 setLabel "name_type" "Key: char"
$cell563 setProp "pass_by" "Variable"
$cell563 setScope "name_type" "cl" "scopePhase"
$cell563 setScope "name_type" "de" "scopeSystem"

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

set cell565 [$row564 addCell parameter 0.0]
$cell565 setLabel "name_type" "Sender: TObject, "
$cell565 setScope "name_type" "cl" "scopePhase"
$cell565 setProp "is_vcl" "1" "name_type" "cl"
$cell565 setProp "libunit" "System" "name_type" "cl"
$cell565 setScope "name_type" "de" "scopeSystem"

set cell566 [$row564 addCell parameter 0.0]
$cell566 setLabel "name_type" "Key: word, "
$cell566 setProp "pass_by" "Variable"
$cell566 setScope "name_type" "cl" "scopePhase"
$cell566 setScope "name_type" "de" "scopeSystem"

set cell567 [$row564 addCell parameter 0.0]
$cell567 setLabel "name_type" "Shift: TShiftState"
$cell567 setScope "name_type" "cl" "scopePhase"
$cell567 setProp "is_vcl" "1" "name_type" "cl"
$cell567 setProp "libunit" "Classes" "name_type" "cl"
$cell567 setScope "name_type" "de" "scopeSystem"

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

set cell569 [$row568 addCell parameter 0.0]
$cell569 setLabel "name_type" "Sender: TObject, "
$cell569 setScope "name_type" "cl" "scopePhase"
$cell569 setProp "is_vcl" "1" "name_type" "cl"
$cell569 setProp "libunit" "System" "name_type" "cl"
$cell569 setScope "name_type" "de" "scopeSystem"

set cell570 [$row568 addCell parameter 0.0]
$cell570 setLabel "name_type" "Button: TMouseButton, "
$cell570 setScope "name_type" "cl" "scopePhase"
$cell570 setProp "is_vcl" "1" "name_type" "cl"
$cell570 setProp "libunit" "Controls" "name_type" "cl"
$cell570 setScope "name_type" "de" "scopeSystem"

set cell571 [$row568 addCell parameter 0.0]
$cell571 setLabel "name_type" "Shift: TShiftState, "
$cell571 setScope "name_type" "cl" "scopePhase"
$cell571 setProp "is_vcl" "1" "name_type" "cl"
$cell571 setProp "libunit" "Classes" "name_type" "cl"
$cell571 setScope "name_type" "de" "scopeSystem"

set cell572 [$row568 addCell parameter 0.0]
$cell572 setLabel "name_type" "X: int, "
$cell572 setScope "name_type" "cl" "scopePhase"
$cell572 setScope "name_type" "de" "scopeSystem"

set cell573 [$row568 addCell parameter 0.0]
$cell573 setLabel "name_type" "Y: int"
$cell573 setScope "name_type" "cl" "scopePhase"
$cell573 setScope "name_type" "de" "scopeSystem"

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

set cell575 [$row574 addCell parameter 0.0]
$cell575 setLabel "name_type" "Sender: TObject, "
$cell575 setScope "name_type" "cl" "scopePhase"
$cell575 setProp "is_vcl" "1" "name_type" "cl"
$cell575 setProp "libunit" "System" "name_type" "cl"
$cell575 setScope "name_type" "de" "scopeSystem"

set cell576 [$row574 addCell parameter 0.0]
$cell576 setLabel "name_type" "Shift: TShiftState, "
$cell576 setScope "name_type" "cl" "scopePhase"
$cell576 setProp "is_vcl" "1" "name_type" "cl"
$cell576 setProp "libunit" "Classes" "name_type" "cl"
$cell576 setScope "name_type" "de" "scopeSystem"

set cell577 [$row574 addCell parameter 0.0]
$cell577 setLabel "name_type" "X: int, "
$cell577 setScope "name_type" "cl" "scopePhase"
$cell577 setScope "name_type" "de" "scopeSystem"

set cell578 [$row574 addCell parameter 0.0]
$cell578 setLabel "name_type" "Y: int"
$cell578 setScope "name_type" "cl" "scopePhase"
$cell578 setScope "name_type" "de" "scopeSystem"

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

set cell580 [$row579 addCell parameter 0.0]
$cell580 setLabel "name_type" "Sender: TObject, "
$cell580 setScope "name_type" "cl" "scopePhase"
$cell580 setProp "is_vcl" "1" "name_type" "cl"
$cell580 setProp "libunit" "System" "name_type" "cl"
$cell580 setScope "name_type" "de" "scopeSystem"

set cell581 [$row579 addCell parameter 0.0]
$cell581 setLabel "name_type" "Button: TMouseButton, "
$cell581 setScope "name_type" "cl" "scopePhase"
$cell581 setProp "is_vcl" "1" "name_type" "cl"
$cell581 setProp "libunit" "Controls" "name_type" "cl"
$cell581 setScope "name_type" "de" "scopeSystem"

set cell582 [$row579 addCell parameter 0.0]
$cell582 setLabel "name_type" "Shift: TShiftState, "
$cell582 setScope "name_type" "cl" "scopePhase"
$cell582 setProp "is_vcl" "1" "name_type" "cl"
$cell582 setProp "libunit" "Classes" "name_type" "cl"
$cell582 setScope "name_type" "de" "scopeSystem"

set cell583 [$row579 addCell parameter 0.0]
$cell583 setLabel "name_type" "X: int, "
$cell583 setScope "name_type" "cl" "scopePhase"
$cell583 setScope "name_type" "de" "scopeSystem"

set cell584 [$row579 addCell parameter 0.0]
$cell584 setLabel "name_type" "Y: int"
$cell584 setScope "name_type" "cl" "scopePhase"
$cell584 setScope "name_type" "de" "scopeSystem"

set row585 [$diag addRow method 0.0]
$row585 setLabel "name_type" "StartDrag()"
$row585 setProp "has_parmlist" "1"
$row585 setProp "is_event" "1"

set cell586 [$row585 addCell parameter 0.0]
$cell586 setLabel "name_type" "Sender: TObject, "
$cell586 setScope "name_type" "cl" "scopePhase"
$cell586 setProp "is_vcl" "1" "name_type" "cl"
$cell586 setProp "libunit" "System" "name_type" "cl"
$cell586 setScope "name_type" "de" "scopeSystem"

set cell587 [$row585 addCell parameter 0.0]
$cell587 setLabel "name_type" "DragObject: TDragObject"
$cell587 setProp "pass_by" "Variable"
$cell587 setScope "name_type" "cl" "scopePhase"
$cell587 setProp "is_vcl" "1" "name_type" "cl"
$cell587 setProp "libunit" "Controls" "name_type" "cl"
$cell587 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TMemo "DelphiVCL" "" "" "" "" "" 1]

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

set cell589 [$row588 addCell parameter 0.0]
$cell589 setLabel "name_type" "Sender: TField"
$cell589 setScope "name_type" "cl" "scopePhase"
$cell589 setProp "is_vcl" "1" "name_type" "cl"
$cell589 setProp "libunit" "Other" "name_type" "cl"
$cell589 setProp "userlib" "DB" "name_type" "cl"
$cell589 setScope "name_type" "de" "scopeSystem"

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

set cell591 [$row590 addCell parameter 0.0]
$cell591 setLabel "name_type" "Sender: TObject"
$cell591 setScope "name_type" "cl" "scopePhase"
$cell591 setProp "is_vcl" "1" "name_type" "cl"
$cell591 setProp "libunit" "System" "name_type" "cl"
$cell591 setScope "name_type" "de" "scopeSystem"

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

set cell593 [$row592 addCell parameter 0.0]
$cell593 setLabel "name_type" "Sender: TObject"
$cell593 setScope "name_type" "cl" "scopePhase"
$cell593 setProp "is_vcl" "1" "name_type" "cl"
$cell593 setProp "libunit" "System" "name_type" "cl"
$cell593 setScope "name_type" "de" "scopeSystem"

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

set cell595 [$row594 addCell parameter 0.0]
$cell595 setLabel "name_type" "Sender: TObject, "
$cell595 setScope "name_type" "cl" "scopePhase"
$cell595 setProp "is_vcl" "1" "name_type" "cl"
$cell595 setProp "libunit" "System" "name_type" "cl"
$cell595 setScope "name_type" "de" "scopeSystem"

set cell596 [$row594 addCell parameter 0.0]
$cell596 setLabel "name_type" "Source: TObject, "
$cell596 setScope "name_type" "cl" "scopePhase"
$cell596 setProp "is_vcl" "1" "name_type" "cl"
$cell596 setProp "libunit" "System" "name_type" "cl"
$cell596 setScope "name_type" "de" "scopeSystem"

set cell597 [$row594 addCell parameter 0.0]
$cell597 setLabel "name_type" "X: int, "
$cell597 setScope "name_type" "cl" "scopePhase"
$cell597 setScope "name_type" "de" "scopeSystem"

set cell598 [$row594 addCell parameter 0.0]
$cell598 setLabel "name_type" "Y: int"
$cell598 setScope "name_type" "cl" "scopePhase"
$cell598 setScope "name_type" "de" "scopeSystem"

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

set cell600 [$row599 addCell parameter 0.0]
$cell600 setLabel "name_type" "Sender: TObject, "
$cell600 setScope "name_type" "cl" "scopePhase"
$cell600 setProp "is_vcl" "1" "name_type" "cl"
$cell600 setProp "libunit" "System" "name_type" "cl"
$cell600 setScope "name_type" "de" "scopeSystem"

set cell601 [$row599 addCell parameter 0.0]
$cell601 setLabel "name_type" "Source: TObject, "
$cell601 setScope "name_type" "cl" "scopePhase"
$cell601 setProp "is_vcl" "1" "name_type" "cl"
$cell601 setProp "libunit" "System" "name_type" "cl"
$cell601 setScope "name_type" "de" "scopeSystem"

set cell602 [$row599 addCell parameter 0.0]
$cell602 setLabel "name_type" "X: int, "
$cell602 setScope "name_type" "cl" "scopePhase"
$cell602 setScope "name_type" "de" "scopeSystem"

set cell603 [$row599 addCell parameter 0.0]
$cell603 setLabel "name_type" "Y: int, "
$cell603 setScope "name_type" "cl" "scopePhase"
$cell603 setScope "name_type" "de" "scopeSystem"

set cell604 [$row599 addCell parameter 0.0]
$cell604 setLabel "name_type" "State: TDragState, "
$cell604 setScope "name_type" "cl" "scopePhase"
$cell604 setProp "is_vcl" "1" "name_type" "cl"
$cell604 setProp "libunit" "Controls" "name_type" "cl"
$cell604 setScope "name_type" "de" "scopeSystem"

set cell605 [$row599 addCell parameter 0.0]
$cell605 setLabel "name_type" "Accept: bool"
$cell605 setProp "pass_by" "Variable"
$cell605 setScope "name_type" "cl" "scopePhase"
$cell605 setScope "name_type" "de" "scopeSystem"

set row606 [$diag addRow method 0.0]
$row606 setLabel "name_type" "EndDrag()\n"
$row606 setProp "has_parmlist" "1"
$row606 setProp "is_event" "1"

set cell607 [$row606 addCell parameter 0.0]
$cell607 setLabel "name_type" "Sender: TObject, "
$cell607 setScope "name_type" "cl" "scopePhase"
$cell607 setProp "is_vcl" "1" "name_type" "cl"
$cell607 setProp "libunit" "System" "name_type" "cl"
$cell607 setScope "name_type" "de" "scopeSystem"

set cell608 [$row606 addCell parameter 0.0]
$cell608 setLabel "name_type" "Source: TObject, "
$cell608 setScope "name_type" "cl" "scopePhase"
$cell608 setProp "is_vcl" "1" "name_type" "cl"
$cell608 setProp "libunit" "System" "name_type" "cl"
$cell608 setScope "name_type" "de" "scopeSystem"

set cell609 [$row606 addCell parameter 0.0]
$cell609 setLabel "name_type" "X: int, "
$cell609 setScope "name_type" "cl" "scopePhase"
$cell609 setScope "name_type" "de" "scopeSystem"

set cell610 [$row606 addCell parameter 0.0]
$cell610 setLabel "name_type" "Y: int"
$cell610 setScope "name_type" "cl" "scopePhase"
$cell610 setScope "name_type" "de" "scopeSystem"

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

set cell612 [$row611 addCell parameter 0.0]
$cell612 setLabel "name_type" "Sender: TObject"
$cell612 setScope "name_type" "cl" "scopePhase"
$cell612 setProp "is_vcl" "1" "name_type" "cl"
$cell612 setProp "libunit" "System" "name_type" "cl"
$cell612 setScope "name_type" "de" "scopeSystem"

set row613 [$diag addRow method 0.0]
$row613 setLabel "name_type" "Exit()\n"
$row613 setProp "has_parmlist" "1"
$row613 setProp "is_event" "1"

set cell614 [$row613 addCell parameter 0.0]
$cell614 setLabel "name_type" "Sender: TObject"
$cell614 setScope "name_type" "cl" "scopePhase"
$cell614 setProp "is_vcl" "1" "name_type" "cl"
$cell614 setProp "libunit" "System" "name_type" "cl"
$cell614 setScope "name_type" "de" "scopeSystem"

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

set cell616 [$row615 addCell parameter 0.0]
$cell616 setLabel "name_type" "Sender: TObject, "
$cell616 setScope "name_type" "cl" "scopePhase"
$cell616 setProp "is_vcl" "1" "name_type" "cl"
$cell616 setProp "libunit" "System" "name_type" "cl"
$cell616 setScope "name_type" "de" "scopeSystem"

set cell617 [$row615 addCell parameter 0.0]
$cell617 setLabel "name_type" "Key: word, "
$cell617 setProp "pass_by" "Variable"
$cell617 setScope "name_type" "cl" "scopePhase"
$cell617 setScope "name_type" "de" "scopeSystem"

set cell618 [$row615 addCell parameter 0.0]
$cell618 setLabel "name_type" "Shift: TShiftState"
$cell618 setScope "name_type" "cl" "scopePhase"
$cell618 setProp "is_vcl" "1" "name_type" "cl"
$cell618 setProp "libunit" "Classes" "name_type" "cl"
$cell618 setScope "name_type" "de" "scopeSystem"

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

set cell620 [$row619 addCell parameter 0.0]
$cell620 setLabel "name_type" "Sender: TObject, "
$cell620 setScope "name_type" "cl" "scopePhase"
$cell620 setProp "is_vcl" "1" "name_type" "cl"
$cell620 setProp "libunit" "System" "name_type" "cl"
$cell620 setScope "name_type" "de" "scopeSystem"

set cell621 [$row619 addCell parameter 0.0]
$cell621 setLabel "name_type" "Key: char"
$cell621 setProp "pass_by" "Variable"
$cell621 setScope "name_type" "cl" "scopePhase"
$cell621 setScope "name_type" "de" "scopeSystem"

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

set cell623 [$row622 addCell parameter 0.0]
$cell623 setLabel "name_type" "Sender: TObject, "
$cell623 setScope "name_type" "cl" "scopePhase"
$cell623 setProp "is_vcl" "1" "name_type" "cl"
$cell623 setProp "libunit" "System" "name_type" "cl"
$cell623 setScope "name_type" "de" "scopeSystem"

set cell624 [$row622 addCell parameter 0.0]
$cell624 setLabel "name_type" "Key: word, "
$cell624 setProp "pass_by" "Variable"
$cell624 setScope "name_type" "cl" "scopePhase"
$cell624 setScope "name_type" "de" "scopeSystem"

set cell625 [$row622 addCell parameter 0.0]
$cell625 setLabel "name_type" "Shift: TShiftState"
$cell625 setScope "name_type" "cl" "scopePhase"
$cell625 setProp "is_vcl" "1" "name_type" "cl"
$cell625 setProp "libunit" "Classes" "name_type" "cl"
$cell625 setScope "name_type" "de" "scopeSystem"

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

set cell627 [$row626 addCell parameter 0.0]
$cell627 setLabel "name_type" "Sender: TObject, "
$cell627 setScope "name_type" "cl" "scopePhase"
$cell627 setProp "is_vcl" "1" "name_type" "cl"
$cell627 setProp "libunit" "System" "name_type" "cl"
$cell627 setScope "name_type" "de" "scopeSystem"

set cell628 [$row626 addCell parameter 0.0]
$cell628 setLabel "name_type" "Button: TMouseButton, "
$cell628 setScope "name_type" "cl" "scopePhase"
$cell628 setProp "is_vcl" "1" "name_type" "cl"
$cell628 setProp "libunit" "Controls" "name_type" "cl"
$cell628 setScope "name_type" "de" "scopeSystem"

set cell629 [$row626 addCell parameter 0.0]
$cell629 setLabel "name_type" "Shift: TShiftState, "
$cell629 setScope "name_type" "cl" "scopePhase"
$cell629 setProp "is_vcl" "1" "name_type" "cl"
$cell629 setProp "libunit" "Classes" "name_type" "cl"
$cell629 setScope "name_type" "de" "scopeSystem"

set cell630 [$row626 addCell parameter 0.0]
$cell630 setLabel "name_type" "X: int, "
$cell630 setScope "name_type" "cl" "scopePhase"
$cell630 setScope "name_type" "de" "scopeSystem"

set cell631 [$row626 addCell parameter 0.0]
$cell631 setLabel "name_type" "Y: int"
$cell631 setScope "name_type" "cl" "scopePhase"
$cell631 setScope "name_type" "de" "scopeSystem"

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

set cell633 [$row632 addCell parameter 0.0]
$cell633 setLabel "name_type" "Sender: TObject, "
$cell633 setScope "name_type" "cl" "scopePhase"
$cell633 setProp "is_vcl" "1" "name_type" "cl"
$cell633 setProp "libunit" "System" "name_type" "cl"
$cell633 setScope "name_type" "de" "scopeSystem"

set cell634 [$row632 addCell parameter 0.0]
$cell634 setLabel "name_type" "Shift: TShiftState, "
$cell634 setScope "name_type" "cl" "scopePhase"
$cell634 setProp "is_vcl" "1" "name_type" "cl"
$cell634 setProp "libunit" "Classes" "name_type" "cl"
$cell634 setScope "name_type" "de" "scopeSystem"

set cell635 [$row632 addCell parameter 0.0]
$cell635 setLabel "name_type" "X: int, "
$cell635 setScope "name_type" "cl" "scopePhase"
$cell635 setScope "name_type" "de" "scopeSystem"

set cell636 [$row632 addCell parameter 0.0]
$cell636 setLabel "name_type" "Y: int"
$cell636 setScope "name_type" "cl" "scopePhase"
$cell636 setScope "name_type" "de" "scopeSystem"

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

set cell638 [$row637 addCell parameter 0.0]
$cell638 setLabel "name_type" "Sender: TObject, "
$cell638 setScope "name_type" "cl" "scopePhase"
$cell638 setProp "is_vcl" "1" "name_type" "cl"
$cell638 setProp "libunit" "System" "name_type" "cl"
$cell638 setScope "name_type" "de" "scopeSystem"

set cell639 [$row637 addCell parameter 0.0]
$cell639 setLabel "name_type" "Button: TMouseButton, "
$cell639 setScope "name_type" "cl" "scopePhase"
$cell639 setProp "is_vcl" "1" "name_type" "cl"
$cell639 setProp "libunit" "Controls" "name_type" "cl"
$cell639 setScope "name_type" "de" "scopeSystem"

set cell640 [$row637 addCell parameter 0.0]
$cell640 setLabel "name_type" "Shift: TShiftState, "
$cell640 setScope "name_type" "cl" "scopePhase"
$cell640 setProp "is_vcl" "1" "name_type" "cl"
$cell640 setProp "libunit" "Classes" "name_type" "cl"
$cell640 setScope "name_type" "de" "scopeSystem"

set cell641 [$row637 addCell parameter 0.0]
$cell641 setLabel "name_type" "X: int, "
$cell641 setScope "name_type" "cl" "scopePhase"
$cell641 setScope "name_type" "de" "scopeSystem"

set cell642 [$row637 addCell parameter 0.0]
$cell642 setLabel "name_type" "Y: int"
$cell642 setScope "name_type" "cl" "scopePhase"
$cell642 setScope "name_type" "de" "scopeSystem"

set row643 [$diag addRow method 0.0]
$row643 setLabel "name_type" "StartDrag()"
$row643 setProp "has_parmlist" "1"
$row643 setProp "is_event" "1"

set cell644 [$row643 addCell parameter 0.0]
$cell644 setLabel "name_type" "Sender: TObject, "
$cell644 setScope "name_type" "cl" "scopePhase"
$cell644 setProp "is_vcl" "1" "name_type" "cl"
$cell644 setProp "libunit" "System" "name_type" "cl"
$cell644 setScope "name_type" "de" "scopeSystem"

set cell645 [$row643 addCell parameter 0.0]
$cell645 setLabel "name_type" "DragObject: TDragObject"
$cell645 setProp "pass_by" "Variable"
$cell645 setScope "name_type" "cl" "scopePhase"
$cell645 setProp "is_vcl" "1" "name_type" "cl"
$cell645 setProp "libunit" "Controls" "name_type" "cl"
$cell645 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TLabel "DelphiVCL" "" "" "" "" "" 1]

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

set cell647 [$row646 addCell parameter 0.0]
$cell647 setLabel "name_type" "Sender: TObject"
$cell647 setScope "name_type" "cl" "scopePhase"
$cell647 setProp "is_vcl" "1" "name_type" "cl"
$cell647 setProp "libunit" "System" "name_type" "cl"
$cell647 setScope "name_type" "de" "scopeSystem"

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

set cell649 [$row648 addCell parameter 0.0]
$cell649 setLabel "name_type" "Sender: TObject"
$cell649 setScope "name_type" "cl" "scopePhase"
$cell649 setProp "is_vcl" "1" "name_type" "cl"
$cell649 setProp "libunit" "System" "name_type" "cl"
$cell649 setScope "name_type" "de" "scopeSystem"

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

set cell651 [$row650 addCell parameter 0.0]
$cell651 setLabel "name_type" "Sender: TObject, "
$cell651 setScope "name_type" "cl" "scopePhase"
$cell651 setProp "is_vcl" "1" "name_type" "cl"
$cell651 setProp "libunit" "System" "name_type" "cl"
$cell651 setScope "name_type" "de" "scopeSystem"

set cell652 [$row650 addCell parameter 0.0]
$cell652 setLabel "name_type" "Source: TObject, "
$cell652 setScope "name_type" "cl" "scopePhase"
$cell652 setProp "is_vcl" "1" "name_type" "cl"
$cell652 setProp "libunit" "System" "name_type" "cl"
$cell652 setScope "name_type" "de" "scopeSystem"

set cell653 [$row650 addCell parameter 0.0]
$cell653 setLabel "name_type" "X: int, "
$cell653 setScope "name_type" "cl" "scopePhase"
$cell653 setScope "name_type" "de" "scopeSystem"

set cell654 [$row650 addCell parameter 0.0]
$cell654 setLabel "name_type" "Y: int"
$cell654 setScope "name_type" "cl" "scopePhase"
$cell654 setScope "name_type" "de" "scopeSystem"

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

set cell656 [$row655 addCell parameter 0.0]
$cell656 setLabel "name_type" "Sender: TObject, "
$cell656 setScope "name_type" "cl" "scopePhase"
$cell656 setProp "is_vcl" "1" "name_type" "cl"
$cell656 setProp "libunit" "System" "name_type" "cl"
$cell656 setScope "name_type" "de" "scopeSystem"

set cell657 [$row655 addCell parameter 0.0]
$cell657 setLabel "name_type" "Source: TObject, "
$cell657 setScope "name_type" "cl" "scopePhase"
$cell657 setProp "is_vcl" "1" "name_type" "cl"
$cell657 setProp "libunit" "System" "name_type" "cl"
$cell657 setScope "name_type" "de" "scopeSystem"

set cell658 [$row655 addCell parameter 0.0]
$cell658 setLabel "name_type" "X: int, "
$cell658 setScope "name_type" "cl" "scopePhase"
$cell658 setScope "name_type" "de" "scopeSystem"

set cell659 [$row655 addCell parameter 0.0]
$cell659 setLabel "name_type" "Y: int, "
$cell659 setScope "name_type" "cl" "scopePhase"
$cell659 setScope "name_type" "de" "scopeSystem"

set cell660 [$row655 addCell parameter 0.0]
$cell660 setLabel "name_type" "State: TDragState, "
$cell660 setScope "name_type" "cl" "scopePhase"
$cell660 setProp "is_vcl" "1" "name_type" "cl"
$cell660 setProp "libunit" "Controls" "name_type" "cl"
$cell660 setScope "name_type" "de" "scopeSystem"

set cell661 [$row655 addCell parameter 0.0]
$cell661 setLabel "name_type" "Accept: bool"
$cell661 setProp "pass_by" "Variable"
$cell661 setScope "name_type" "cl" "scopePhase"
$cell661 setScope "name_type" "de" "scopeSystem"

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

set cell663 [$row662 addCell parameter 0.0]
$cell663 setLabel "name_type" "Sender: TObject, "
$cell663 setScope "name_type" "cl" "scopePhase"
$cell663 setProp "is_vcl" "1" "name_type" "cl"
$cell663 setProp "libunit" "System" "name_type" "cl"
$cell663 setScope "name_type" "de" "scopeSystem"

set cell664 [$row662 addCell parameter 0.0]
$cell664 setLabel "name_type" "Source: TObject, "
$cell664 setScope "name_type" "cl" "scopePhase"
$cell664 setProp "is_vcl" "1" "name_type" "cl"
$cell664 setProp "libunit" "System" "name_type" "cl"
$cell664 setScope "name_type" "de" "scopeSystem"

set cell665 [$row662 addCell parameter 0.0]
$cell665 setLabel "name_type" "X: int, "
$cell665 setScope "name_type" "cl" "scopePhase"
$cell665 setScope "name_type" "de" "scopeSystem"

set cell666 [$row662 addCell parameter 0.0]
$cell666 setLabel "name_type" "Y: int"
$cell666 setScope "name_type" "cl" "scopePhase"
$cell666 setScope "name_type" "de" "scopeSystem"

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

set cell668 [$row667 addCell parameter 0.0]
$cell668 setLabel "name_type" "Sender: TObject, "
$cell668 setScope "name_type" "cl" "scopePhase"
$cell668 setProp "is_vcl" "1" "name_type" "cl"
$cell668 setProp "libunit" "System" "name_type" "cl"
$cell668 setScope "name_type" "de" "scopeSystem"

set cell669 [$row667 addCell parameter 0.0]
$cell669 setLabel "name_type" "Button: TMouseButton, "
$cell669 setScope "name_type" "cl" "scopePhase"
$cell669 setProp "is_vcl" "1" "name_type" "cl"
$cell669 setProp "libunit" "Controls" "name_type" "cl"
$cell669 setScope "name_type" "de" "scopeSystem"

set cell670 [$row667 addCell parameter 0.0]
$cell670 setLabel "name_type" "Shift: TShiftState, "
$cell670 setScope "name_type" "cl" "scopePhase"
$cell670 setProp "is_vcl" "1" "name_type" "cl"
$cell670 setProp "libunit" "Classes" "name_type" "cl"
$cell670 setScope "name_type" "de" "scopeSystem"

set cell671 [$row667 addCell parameter 0.0]
$cell671 setLabel "name_type" "X: int, "
$cell671 setScope "name_type" "cl" "scopePhase"
$cell671 setScope "name_type" "de" "scopeSystem"

set cell672 [$row667 addCell parameter 0.0]
$cell672 setLabel "name_type" "Y: int"
$cell672 setScope "name_type" "cl" "scopePhase"
$cell672 setScope "name_type" "de" "scopeSystem"

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

set cell674 [$row673 addCell parameter 0.0]
$cell674 setLabel "name_type" "Sender: TObject, "
$cell674 setScope "name_type" "cl" "scopePhase"
$cell674 setProp "is_vcl" "1" "name_type" "cl"
$cell674 setProp "libunit" "System" "name_type" "cl"
$cell674 setScope "name_type" "de" "scopeSystem"

set cell675 [$row673 addCell parameter 0.0]
$cell675 setLabel "name_type" "Shift: TShiftState, "
$cell675 setScope "name_type" "cl" "scopePhase"
$cell675 setProp "is_vcl" "1" "name_type" "cl"
$cell675 setProp "libunit" "Classes" "name_type" "cl"
$cell675 setScope "name_type" "de" "scopeSystem"

set cell676 [$row673 addCell parameter 0.0]
$cell676 setLabel "name_type" "X: int, "
$cell676 setScope "name_type" "cl" "scopePhase"
$cell676 setScope "name_type" "de" "scopeSystem"

set cell677 [$row673 addCell parameter 0.0]
$cell677 setLabel "name_type" "Y: int"
$cell677 setScope "name_type" "cl" "scopePhase"
$cell677 setScope "name_type" "de" "scopeSystem"

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

set cell679 [$row678 addCell parameter 0.0]
$cell679 setLabel "name_type" "Sender: TObject, "
$cell679 setScope "name_type" "cl" "scopePhase"
$cell679 setProp "is_vcl" "1" "name_type" "cl"
$cell679 setProp "libunit" "System" "name_type" "cl"
$cell679 setScope "name_type" "de" "scopeSystem"

set cell680 [$row678 addCell parameter 0.0]
$cell680 setLabel "name_type" "Button: TMouseButton, "
$cell680 setScope "name_type" "cl" "scopePhase"
$cell680 setProp "is_vcl" "1" "name_type" "cl"
$cell680 setProp "libunit" "Controls" "name_type" "cl"
$cell680 setScope "name_type" "de" "scopeSystem"

set cell681 [$row678 addCell parameter 0.0]
$cell681 setLabel "name_type" "Shift: TShiftState, "
$cell681 setScope "name_type" "cl" "scopePhase"
$cell681 setProp "is_vcl" "1" "name_type" "cl"
$cell681 setProp "libunit" "Classes" "name_type" "cl"
$cell681 setScope "name_type" "de" "scopeSystem"

set cell682 [$row678 addCell parameter 0.0]
$cell682 setLabel "name_type" "X: int, "
$cell682 setScope "name_type" "cl" "scopePhase"
$cell682 setScope "name_type" "de" "scopeSystem"

set cell683 [$row678 addCell parameter 0.0]
$cell683 setLabel "name_type" "Y: int"
$cell683 setScope "name_type" "cl" "scopePhase"
$cell683 setScope "name_type" "de" "scopeSystem"

set row684 [$diag addRow method 0.0]
$row684 setLabel "name_type" "StartDrag()"
$row684 setProp "has_parmlist" "1"
$row684 setProp "is_event" "1"

set cell685 [$row684 addCell parameter 0.0]
$cell685 setLabel "name_type" "Sender: TObject, "
$cell685 setScope "name_type" "cl" "scopePhase"
$cell685 setProp "is_vcl" "1" "name_type" "cl"
$cell685 setProp "libunit" "System" "name_type" "cl"
$cell685 setScope "name_type" "de" "scopeSystem"

set cell686 [$row684 addCell parameter 0.0]
$cell686 setLabel "name_type" "DragObject: TDragObject"
$cell686 setProp "pass_by" "Variable"
$cell686 setScope "name_type" "cl" "scopePhase"
$cell686 setProp "is_vcl" "1" "name_type" "cl"
$cell686 setProp "libunit" "Controls" "name_type" "cl"
$cell686 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TCheckBox "DelphiVCL" "" "" "" "" "" 1]

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

set cell688 [$row687 addCell parameter 0.0]
$cell688 setLabel "name_type" "Sender: TObject"
$cell688 setScope "name_type" "cl" "scopePhase"
$cell688 setProp "is_vcl" "1" "name_type" "cl"
$cell688 setProp "libunit" "System" "name_type" "cl"
$cell688 setScope "name_type" "de" "scopeSystem"

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

set cell690 [$row689 addCell parameter 0.0]
$cell690 setLabel "name_type" "Sender: TObject, "
$cell690 setScope "name_type" "cl" "scopePhase"
$cell690 setProp "is_vcl" "1" "name_type" "cl"
$cell690 setProp "libunit" "System" "name_type" "cl"
$cell690 setScope "name_type" "de" "scopeSystem"

set cell691 [$row689 addCell parameter 0.0]
$cell691 setLabel "name_type" "Source: TObject, "
$cell691 setScope "name_type" "cl" "scopePhase"
$cell691 setProp "is_vcl" "1" "name_type" "cl"
$cell691 setProp "libunit" "System" "name_type" "cl"
$cell691 setScope "name_type" "de" "scopeSystem"

set cell692 [$row689 addCell parameter 0.0]
$cell692 setLabel "name_type" "X: int, "
$cell692 setScope "name_type" "cl" "scopePhase"
$cell692 setScope "name_type" "de" "scopeSystem"

set cell693 [$row689 addCell parameter 0.0]
$cell693 setLabel "name_type" "Y: int"
$cell693 setScope "name_type" "cl" "scopePhase"
$cell693 setScope "name_type" "de" "scopeSystem"

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

set cell695 [$row694 addCell parameter 0.0]
$cell695 setLabel "name_type" "Sender: TObject, "
$cell695 setScope "name_type" "cl" "scopePhase"
$cell695 setProp "is_vcl" "1" "name_type" "cl"
$cell695 setProp "libunit" "System" "name_type" "cl"
$cell695 setScope "name_type" "de" "scopeSystem"

set cell696 [$row694 addCell parameter 0.0]
$cell696 setLabel "name_type" "Source: TObject, "
$cell696 setScope "name_type" "cl" "scopePhase"
$cell696 setProp "is_vcl" "1" "name_type" "cl"
$cell696 setProp "libunit" "System" "name_type" "cl"
$cell696 setScope "name_type" "de" "scopeSystem"

set cell697 [$row694 addCell parameter 0.0]
$cell697 setLabel "name_type" "X: int, "
$cell697 setScope "name_type" "cl" "scopePhase"
$cell697 setScope "name_type" "de" "scopeSystem"

set cell698 [$row694 addCell parameter 0.0]
$cell698 setLabel "name_type" "Y: int, "
$cell698 setScope "name_type" "cl" "scopePhase"
$cell698 setScope "name_type" "de" "scopeSystem"

set cell699 [$row694 addCell parameter 0.0]
$cell699 setLabel "name_type" "State: TDragState, "
$cell699 setScope "name_type" "cl" "scopePhase"
$cell699 setProp "is_vcl" "1" "name_type" "cl"
$cell699 setProp "libunit" "Controls" "name_type" "cl"
$cell699 setScope "name_type" "de" "scopeSystem"

set cell700 [$row694 addCell parameter 0.0]
$cell700 setLabel "name_type" "Accept: bool"
$cell700 setProp "pass_by" "Variable"
$cell700 setScope "name_type" "cl" "scopePhase"
$cell700 setScope "name_type" "de" "scopeSystem"

set row701 [$diag addRow method 0.0]
$row701 setLabel "name_type" "EndDrag()\n"
$row701 setProp "has_parmlist" "1"
$row701 setProp "is_event" "1"

set cell702 [$row701 addCell parameter 0.0]
$cell702 setLabel "name_type" "Sender: TObject, "
$cell702 setScope "name_type" "cl" "scopePhase"
$cell702 setProp "is_vcl" "1" "name_type" "cl"
$cell702 setProp "libunit" "System" "name_type" "cl"
$cell702 setScope "name_type" "de" "scopeSystem"

set cell703 [$row701 addCell parameter 0.0]
$cell703 setLabel "name_type" "Source: TObject, "
$cell703 setScope "name_type" "cl" "scopePhase"
$cell703 setProp "is_vcl" "1" "name_type" "cl"
$cell703 setProp "libunit" "System" "name_type" "cl"
$cell703 setScope "name_type" "de" "scopeSystem"

set cell704 [$row701 addCell parameter 0.0]
$cell704 setLabel "name_type" "X: int, "
$cell704 setScope "name_type" "cl" "scopePhase"
$cell704 setScope "name_type" "de" "scopeSystem"

set cell705 [$row701 addCell parameter 0.0]
$cell705 setLabel "name_type" "Y: int"
$cell705 setScope "name_type" "cl" "scopePhase"
$cell705 setScope "name_type" "de" "scopeSystem"

set row706 [$diag addRow method 0.0]
$row706 setLabel "name_type" "Enter()\n"
$row706 setProp "has_parmlist" "1"
$row706 setProp "is_event" "1"

set cell707 [$row706 addCell parameter 0.0]
$cell707 setLabel "name_type" "Sender: TObject"
$cell707 setScope "name_type" "cl" "scopePhase"
$cell707 setProp "is_vcl" "1" "name_type" "cl"
$cell707 setProp "libunit" "System" "name_type" "cl"
$cell707 setScope "name_type" "de" "scopeSystem"

set row708 [$diag addRow method 0.0]
$row708 setLabel "name_type" "Exit()\n"
$row708 setProp "has_parmlist" "1"
$row708 setProp "is_event" "1"

set cell709 [$row708 addCell parameter 0.0]
$cell709 setLabel "name_type" "Sender: TObject"
$cell709 setScope "name_type" "cl" "scopePhase"
$cell709 setProp "is_vcl" "1" "name_type" "cl"
$cell709 setProp "libunit" "System" "name_type" "cl"
$cell709 setScope "name_type" "de" "scopeSystem"

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

set cell711 [$row710 addCell parameter 0.0]
$cell711 setLabel "name_type" "Sender: TObject, "
$cell711 setScope "name_type" "cl" "scopePhase"
$cell711 setProp "is_vcl" "1" "name_type" "cl"
$cell711 setProp "libunit" "System" "name_type" "cl"
$cell711 setScope "name_type" "de" "scopeSystem"

set cell712 [$row710 addCell parameter 0.0]
$cell712 setLabel "name_type" "Key: word, "
$cell712 setProp "pass_by" "Variable"
$cell712 setScope "name_type" "cl" "scopePhase"
$cell712 setScope "name_type" "de" "scopeSystem"

set cell713 [$row710 addCell parameter 0.0]
$cell713 setLabel "name_type" "Shift: TShiftState"
$cell713 setScope "name_type" "cl" "scopePhase"
$cell713 setProp "is_vcl" "1" "name_type" "cl"
$cell713 setProp "libunit" "Classes" "name_type" "cl"
$cell713 setScope "name_type" "de" "scopeSystem"

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

set cell715 [$row714 addCell parameter 0.0]
$cell715 setLabel "name_type" "Sender: TObject, "
$cell715 setScope "name_type" "cl" "scopePhase"
$cell715 setProp "is_vcl" "1" "name_type" "cl"
$cell715 setProp "libunit" "System" "name_type" "cl"
$cell715 setScope "name_type" "de" "scopeSystem"

set cell716 [$row714 addCell parameter 0.0]
$cell716 setLabel "name_type" "Key: char"
$cell716 setProp "pass_by" "Variable"
$cell716 setScope "name_type" "cl" "scopePhase"
$cell716 setScope "name_type" "de" "scopeSystem"

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

set cell718 [$row717 addCell parameter 0.0]
$cell718 setLabel "name_type" "Sender: TObject, "
$cell718 setScope "name_type" "cl" "scopePhase"
$cell718 setProp "is_vcl" "1" "name_type" "cl"
$cell718 setProp "libunit" "System" "name_type" "cl"
$cell718 setScope "name_type" "de" "scopeSystem"

set cell719 [$row717 addCell parameter 0.0]
$cell719 setLabel "name_type" "Key: word, "
$cell719 setProp "pass_by" "Variable"
$cell719 setScope "name_type" "cl" "scopePhase"
$cell719 setScope "name_type" "de" "scopeSystem"

set cell720 [$row717 addCell parameter 0.0]
$cell720 setLabel "name_type" "Shift: TShiftState"
$cell720 setScope "name_type" "cl" "scopePhase"
$cell720 setProp "is_vcl" "1" "name_type" "cl"
$cell720 setProp "libunit" "Classes" "name_type" "cl"
$cell720 setScope "name_type" "de" "scopeSystem"

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

set cell722 [$row721 addCell parameter 0.0]
$cell722 setLabel "name_type" "Sender: TObject, "
$cell722 setScope "name_type" "cl" "scopePhase"
$cell722 setProp "is_vcl" "1" "name_type" "cl"
$cell722 setProp "libunit" "System" "name_type" "cl"
$cell722 setScope "name_type" "de" "scopeSystem"

set cell723 [$row721 addCell parameter 0.0]
$cell723 setLabel "name_type" "Button: TMouseButton, "
$cell723 setScope "name_type" "cl" "scopePhase"
$cell723 setProp "is_vcl" "1" "name_type" "cl"
$cell723 setProp "libunit" "Controls" "name_type" "cl"
$cell723 setScope "name_type" "de" "scopeSystem"

set cell724 [$row721 addCell parameter 0.0]
$cell724 setLabel "name_type" "Shift: TShiftState, "
$cell724 setScope "name_type" "cl" "scopePhase"
$cell724 setProp "is_vcl" "1" "name_type" "cl"
$cell724 setProp "libunit" "Classes" "name_type" "cl"
$cell724 setScope "name_type" "de" "scopeSystem"

set cell725 [$row721 addCell parameter 0.0]
$cell725 setLabel "name_type" "X: int, "
$cell725 setScope "name_type" "cl" "scopePhase"
$cell725 setScope "name_type" "de" "scopeSystem"

set cell726 [$row721 addCell parameter 0.0]
$cell726 setLabel "name_type" "Y: int"
$cell726 setScope "name_type" "cl" "scopePhase"
$cell726 setScope "name_type" "de" "scopeSystem"

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

set cell728 [$row727 addCell parameter 0.0]
$cell728 setLabel "name_type" "Sender: TObject, "
$cell728 setScope "name_type" "cl" "scopePhase"
$cell728 setProp "is_vcl" "1" "name_type" "cl"
$cell728 setProp "libunit" "System" "name_type" "cl"
$cell728 setScope "name_type" "de" "scopeSystem"

set cell729 [$row727 addCell parameter 0.0]
$cell729 setLabel "name_type" "Shift: TShiftState, "
$cell729 setScope "name_type" "cl" "scopePhase"
$cell729 setProp "is_vcl" "1" "name_type" "cl"
$cell729 setProp "libunit" "Classes" "name_type" "cl"
$cell729 setScope "name_type" "de" "scopeSystem"

set cell730 [$row727 addCell parameter 0.0]
$cell730 setLabel "name_type" "X: int, "
$cell730 setScope "name_type" "cl" "scopePhase"
$cell730 setScope "name_type" "de" "scopeSystem"

set cell731 [$row727 addCell parameter 0.0]
$cell731 setLabel "name_type" "Y: int"
$cell731 setScope "name_type" "cl" "scopePhase"
$cell731 setScope "name_type" "de" "scopeSystem"

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

set cell733 [$row732 addCell parameter 0.0]
$cell733 setLabel "name_type" "Sender: TObject, "
$cell733 setScope "name_type" "cl" "scopePhase"
$cell733 setProp "is_vcl" "1" "name_type" "cl"
$cell733 setProp "libunit" "System" "name_type" "cl"
$cell733 setScope "name_type" "de" "scopeSystem"

set cell734 [$row732 addCell parameter 0.0]
$cell734 setLabel "name_type" "Button: TMouseButton, "
$cell734 setScope "name_type" "cl" "scopePhase"
$cell734 setProp "is_vcl" "1" "name_type" "cl"
$cell734 setProp "libunit" "Controls" "name_type" "cl"
$cell734 setScope "name_type" "de" "scopeSystem"

set cell735 [$row732 addCell parameter 0.0]
$cell735 setLabel "name_type" "Shift: TShiftState, "
$cell735 setScope "name_type" "cl" "scopePhase"
$cell735 setProp "is_vcl" "1" "name_type" "cl"
$cell735 setProp "libunit" "Classes" "name_type" "cl"
$cell735 setScope "name_type" "de" "scopeSystem"

set cell736 [$row732 addCell parameter 0.0]
$cell736 setLabel "name_type" "X: int, "
$cell736 setScope "name_type" "cl" "scopePhase"
$cell736 setScope "name_type" "de" "scopeSystem"

set cell737 [$row732 addCell parameter 0.0]
$cell737 setLabel "name_type" "Y: int"
$cell737 setScope "name_type" "cl" "scopePhase"
$cell737 setScope "name_type" "de" "scopeSystem"

set row738 [$diag addRow method 0.0]
$row738 setLabel "name_type" "StartDrag()"
$row738 setProp "has_parmlist" "1"
$row738 setProp "is_event" "1"

set cell739 [$row738 addCell parameter 0.0]
$cell739 setLabel "name_type" "Sender: TObject, "
$cell739 setScope "name_type" "cl" "scopePhase"
$cell739 setProp "is_vcl" "1" "name_type" "cl"
$cell739 setProp "libunit" "System" "name_type" "cl"
$cell739 setScope "name_type" "de" "scopeSystem"

set cell740 [$row738 addCell parameter 0.0]
$cell740 setLabel "name_type" "DragObject: TDragObject"
$cell740 setProp "pass_by" "Variable"
$cell740 setScope "name_type" "cl" "scopePhase"
$cell740 setProp "is_vcl" "1" "name_type" "cl"
$cell740 setProp "libunit" "Controls" "name_type" "cl"
$cell740 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TPaintBox "DelphiVCL" "" "" "" "" "" 1]

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

set cell742 [$row741 addCell parameter 0.0]
$cell742 setLabel "name_type" "Sender: TObject"
$cell742 setScope "name_type" "cl" "scopePhase"
$cell742 setProp "is_vcl" "1" "name_type" "cl"
$cell742 setProp "libunit" "System" "name_type" "cl"
$cell742 setScope "name_type" "de" "scopeSystem"

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

set cell744 [$row743 addCell parameter 0.0]
$cell744 setLabel "name_type" "Sender: TObject"
$cell744 setScope "name_type" "cl" "scopePhase"
$cell744 setProp "is_vcl" "1" "name_type" "cl"
$cell744 setProp "libunit" "System" "name_type" "cl"
$cell744 setScope "name_type" "de" "scopeSystem"

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

set cell746 [$row745 addCell parameter 0.0]
$cell746 setLabel "name_type" "Sender: TObject, "
$cell746 setScope "name_type" "cl" "scopePhase"
$cell746 setProp "is_vcl" "1" "name_type" "cl"
$cell746 setProp "libunit" "System" "name_type" "cl"
$cell746 setScope "name_type" "de" "scopeSystem"

set cell747 [$row745 addCell parameter 0.0]
$cell747 setLabel "name_type" "Source: TObject, "
$cell747 setScope "name_type" "cl" "scopePhase"
$cell747 setProp "is_vcl" "1" "name_type" "cl"
$cell747 setProp "libunit" "System" "name_type" "cl"
$cell747 setScope "name_type" "de" "scopeSystem"

set cell748 [$row745 addCell parameter 0.0]
$cell748 setLabel "name_type" "X: int, "
$cell748 setScope "name_type" "cl" "scopePhase"
$cell748 setScope "name_type" "de" "scopeSystem"

set cell749 [$row745 addCell parameter 0.0]
$cell749 setLabel "name_type" "Y: int"
$cell749 setScope "name_type" "cl" "scopePhase"
$cell749 setScope "name_type" "de" "scopeSystem"

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

set cell751 [$row750 addCell parameter 0.0]
$cell751 setLabel "name_type" "Sender: TObject, "
$cell751 setScope "name_type" "cl" "scopePhase"
$cell751 setProp "is_vcl" "1" "name_type" "cl"
$cell751 setProp "libunit" "System" "name_type" "cl"
$cell751 setScope "name_type" "de" "scopeSystem"

set cell752 [$row750 addCell parameter 0.0]
$cell752 setLabel "name_type" "Source: TObject, "
$cell752 setScope "name_type" "cl" "scopePhase"
$cell752 setProp "is_vcl" "1" "name_type" "cl"
$cell752 setProp "libunit" "System" "name_type" "cl"
$cell752 setScope "name_type" "de" "scopeSystem"

set cell753 [$row750 addCell parameter 0.0]
$cell753 setLabel "name_type" "X: int, "
$cell753 setScope "name_type" "cl" "scopePhase"
$cell753 setScope "name_type" "de" "scopeSystem"

set cell754 [$row750 addCell parameter 0.0]
$cell754 setLabel "name_type" "Y: int, "
$cell754 setScope "name_type" "cl" "scopePhase"
$cell754 setScope "name_type" "de" "scopeSystem"

set cell755 [$row750 addCell parameter 0.0]
$cell755 setLabel "name_type" "State: TDragState, "
$cell755 setScope "name_type" "cl" "scopePhase"
$cell755 setProp "is_vcl" "1" "name_type" "cl"
$cell755 setProp "libunit" "Controls" "name_type" "cl"
$cell755 setScope "name_type" "de" "scopeSystem"

set cell756 [$row750 addCell parameter 0.0]
$cell756 setLabel "name_type" "Accept: bool"
$cell756 setProp "pass_by" "Variable"
$cell756 setScope "name_type" "cl" "scopePhase"
$cell756 setScope "name_type" "de" "scopeSystem"

set row757 [$diag addRow method 0.0]
$row757 setLabel "name_type" "EndDrag()\n"
$row757 setProp "has_parmlist" "1"
$row757 setProp "is_event" "1"

set cell758 [$row757 addCell parameter 0.0]
$cell758 setLabel "name_type" "Sender: TObject, "
$cell758 setScope "name_type" "cl" "scopePhase"
$cell758 setProp "is_vcl" "1" "name_type" "cl"
$cell758 setProp "libunit" "System" "name_type" "cl"
$cell758 setScope "name_type" "de" "scopeSystem"

set cell759 [$row757 addCell parameter 0.0]
$cell759 setLabel "name_type" "Source: TObject, "
$cell759 setScope "name_type" "cl" "scopePhase"
$cell759 setProp "is_vcl" "1" "name_type" "cl"
$cell759 setProp "libunit" "System" "name_type" "cl"
$cell759 setScope "name_type" "de" "scopeSystem"

set cell760 [$row757 addCell parameter 0.0]
$cell760 setLabel "name_type" "X: int, "
$cell760 setScope "name_type" "cl" "scopePhase"
$cell760 setScope "name_type" "de" "scopeSystem"

set cell761 [$row757 addCell parameter 0.0]
$cell761 setLabel "name_type" "Y: int"
$cell761 setScope "name_type" "cl" "scopePhase"
$cell761 setScope "name_type" "de" "scopeSystem"

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

set cell763 [$row762 addCell parameter 0.0]
$cell763 setLabel "name_type" "Sender: TObject, "
$cell763 setScope "name_type" "cl" "scopePhase"
$cell763 setProp "is_vcl" "1" "name_type" "cl"
$cell763 setProp "libunit" "System" "name_type" "cl"
$cell763 setScope "name_type" "de" "scopeSystem"

set cell764 [$row762 addCell parameter 0.0]
$cell764 setLabel "name_type" "Button: TMouseButton, "
$cell764 setScope "name_type" "cl" "scopePhase"
$cell764 setProp "is_vcl" "1" "name_type" "cl"
$cell764 setProp "libunit" "Controls" "name_type" "cl"
$cell764 setScope "name_type" "de" "scopeSystem"

set cell765 [$row762 addCell parameter 0.0]
$cell765 setLabel "name_type" "Shift: TShiftState, "
$cell765 setScope "name_type" "cl" "scopePhase"
$cell765 setProp "is_vcl" "1" "name_type" "cl"
$cell765 setProp "libunit" "Classes" "name_type" "cl"
$cell765 setScope "name_type" "de" "scopeSystem"

set cell766 [$row762 addCell parameter 0.0]
$cell766 setLabel "name_type" "X: int, "
$cell766 setScope "name_type" "cl" "scopePhase"
$cell766 setScope "name_type" "de" "scopeSystem"

set cell767 [$row762 addCell parameter 0.0]
$cell767 setLabel "name_type" "Y: int"
$cell767 setScope "name_type" "cl" "scopePhase"
$cell767 setScope "name_type" "de" "scopeSystem"

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

set cell769 [$row768 addCell parameter 0.0]
$cell769 setLabel "name_type" "Sender: TObject, "
$cell769 setScope "name_type" "cl" "scopePhase"
$cell769 setProp "is_vcl" "1" "name_type" "cl"
$cell769 setProp "libunit" "System" "name_type" "cl"
$cell769 setScope "name_type" "de" "scopeSystem"

set cell770 [$row768 addCell parameter 0.0]
$cell770 setLabel "name_type" "Shift: TShiftState, "
$cell770 setScope "name_type" "cl" "scopePhase"
$cell770 setProp "is_vcl" "1" "name_type" "cl"
$cell770 setProp "libunit" "Classes" "name_type" "cl"
$cell770 setScope "name_type" "de" "scopeSystem"

set cell771 [$row768 addCell parameter 0.0]
$cell771 setLabel "name_type" "X: int, "
$cell771 setScope "name_type" "cl" "scopePhase"
$cell771 setScope "name_type" "de" "scopeSystem"

set cell772 [$row768 addCell parameter 0.0]
$cell772 setLabel "name_type" "Y: int"
$cell772 setScope "name_type" "cl" "scopePhase"
$cell772 setScope "name_type" "de" "scopeSystem"

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

set cell774 [$row773 addCell parameter 0.0]
$cell774 setLabel "name_type" "Sender: TObject, "
$cell774 setScope "name_type" "cl" "scopePhase"
$cell774 setProp "is_vcl" "1" "name_type" "cl"
$cell774 setProp "libunit" "System" "name_type" "cl"
$cell774 setScope "name_type" "de" "scopeSystem"

set cell775 [$row773 addCell parameter 0.0]
$cell775 setLabel "name_type" "Button: TMouseButton, "
$cell775 setScope "name_type" "cl" "scopePhase"
$cell775 setProp "is_vcl" "1" "name_type" "cl"
$cell775 setProp "libunit" "Controls" "name_type" "cl"
$cell775 setScope "name_type" "de" "scopeSystem"

set cell776 [$row773 addCell parameter 0.0]
$cell776 setLabel "name_type" "Shift: TShiftState, "
$cell776 setScope "name_type" "cl" "scopePhase"
$cell776 setProp "is_vcl" "1" "name_type" "cl"
$cell776 setProp "libunit" "Classes" "name_type" "cl"
$cell776 setScope "name_type" "de" "scopeSystem"

set cell777 [$row773 addCell parameter 0.0]
$cell777 setLabel "name_type" "X: int, "
$cell777 setScope "name_type" "cl" "scopePhase"
$cell777 setScope "name_type" "de" "scopeSystem"

set cell778 [$row773 addCell parameter 0.0]
$cell778 setLabel "name_type" "Y: int"
$cell778 setScope "name_type" "cl" "scopePhase"
$cell778 setScope "name_type" "de" "scopeSystem"

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

set cell780 [$row779 addCell parameter 0.0]
$cell780 setLabel "name_type" "Sender: TObject"
$cell780 setScope "name_type" "cl" "scopePhase"
$cell780 setProp "is_vcl" "1" "name_type" "cl"
$cell780 setProp "libunit" "System" "name_type" "cl"
$cell780 setScope "name_type" "de" "scopeSystem"

set row781 [$diag addRow method 0.0]
$row781 setLabel "name_type" "StartDrag()"
$row781 setProp "has_parmlist" "1"
$row781 setProp "is_event" "1"

set cell782 [$row781 addCell parameter 0.0]
$cell782 setLabel "name_type" "Sender: TObject, "
$cell782 setScope "name_type" "cl" "scopePhase"
$cell782 setProp "is_vcl" "1" "name_type" "cl"
$cell782 setProp "libunit" "System" "name_type" "cl"
$cell782 setScope "name_type" "de" "scopeSystem"

set cell783 [$row781 addCell parameter 0.0]
$cell783 setLabel "name_type" "DragObject: TDragObject"
$cell783 setProp "pass_by" "Variable"
$cell783 setScope "name_type" "cl" "scopePhase"
$cell783 setProp "is_vcl" "1" "name_type" "cl"
$cell783 setProp "libunit" "Controls" "name_type" "cl"
$cell783 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TListBox "DelphiVCL" "" "" "" "" "" 1]

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

set cell785 [$row784 addCell parameter 0.0]
$cell785 setLabel "name_type" "Sender: TObject"
$cell785 setScope "name_type" "cl" "scopePhase"
$cell785 setProp "is_vcl" "1" "name_type" "cl"
$cell785 setProp "libunit" "System" "name_type" "cl"
$cell785 setScope "name_type" "de" "scopeSystem"

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

set cell787 [$row786 addCell parameter 0.0]
$cell787 setLabel "name_type" "Sender: TObject"
$cell787 setScope "name_type" "cl" "scopePhase"
$cell787 setProp "is_vcl" "1" "name_type" "cl"
$cell787 setProp "libunit" "System" "name_type" "cl"
$cell787 setScope "name_type" "de" "scopeSystem"

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

set cell789 [$row788 addCell parameter 0.0]
$cell789 setLabel "name_type" "Sender: TObject, "
$cell789 setScope "name_type" "cl" "scopePhase"
$cell789 setProp "is_vcl" "1" "name_type" "cl"
$cell789 setProp "libunit" "System" "name_type" "cl"
$cell789 setScope "name_type" "de" "scopeSystem"

set cell790 [$row788 addCell parameter 0.0]
$cell790 setLabel "name_type" "Source: TObject, "
$cell790 setScope "name_type" "cl" "scopePhase"
$cell790 setProp "is_vcl" "1" "name_type" "cl"
$cell790 setProp "libunit" "System" "name_type" "cl"
$cell790 setScope "name_type" "de" "scopeSystem"

set cell791 [$row788 addCell parameter 0.0]
$cell791 setLabel "name_type" "X: int, "
$cell791 setScope "name_type" "cl" "scopePhase"
$cell791 setScope "name_type" "de" "scopeSystem"

set cell792 [$row788 addCell parameter 0.0]
$cell792 setLabel "name_type" "Y: int"
$cell792 setScope "name_type" "cl" "scopePhase"
$cell792 setScope "name_type" "de" "scopeSystem"

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

set cell794 [$row793 addCell parameter 0.0]
$cell794 setLabel "name_type" "Sender: TObject, "
$cell794 setScope "name_type" "cl" "scopePhase"
$cell794 setProp "is_vcl" "1" "name_type" "cl"
$cell794 setProp "libunit" "System" "name_type" "cl"
$cell794 setScope "name_type" "de" "scopeSystem"

set cell795 [$row793 addCell parameter 0.0]
$cell795 setLabel "name_type" "Source: TObject, "
$cell795 setScope "name_type" "cl" "scopePhase"
$cell795 setProp "is_vcl" "1" "name_type" "cl"
$cell795 setProp "libunit" "System" "name_type" "cl"
$cell795 setScope "name_type" "de" "scopeSystem"

set cell796 [$row793 addCell parameter 0.0]
$cell796 setLabel "name_type" "X: int, "
$cell796 setScope "name_type" "cl" "scopePhase"
$cell796 setScope "name_type" "de" "scopeSystem"

set cell797 [$row793 addCell parameter 0.0]
$cell797 setLabel "name_type" "Y: int, "
$cell797 setScope "name_type" "cl" "scopePhase"
$cell797 setScope "name_type" "de" "scopeSystem"

set cell798 [$row793 addCell parameter 0.0]
$cell798 setLabel "name_type" "State: TDragState, "
$cell798 setScope "name_type" "cl" "scopePhase"
$cell798 setProp "is_vcl" "1" "name_type" "cl"
$cell798 setProp "libunit" "Controls" "name_type" "cl"
$cell798 setScope "name_type" "de" "scopeSystem"

set cell799 [$row793 addCell parameter 0.0]
$cell799 setLabel "name_type" "Accept: bool"
$cell799 setProp "pass_by" "Variable"
$cell799 setScope "name_type" "cl" "scopePhase"
$cell799 setScope "name_type" "de" "scopeSystem"

set row800 [$diag addRow method 0.0]
$row800 setLabel "name_type" "DrawItem()\n"
$row800 setProp "has_parmlist" "1"
$row800 setProp "is_event" "1"

set cell801 [$row800 addCell parameter 0.0]
$cell801 setLabel "name_type" "ListBox: TListBox, "
$cell801 setScope "name_type" "cl" "scopePhase"
$cell801 setProp "is_vcl" "1" "name_type" "cl"
$cell801 setProp "libunit" "StdCtrls" "name_type" "cl"
$cell801 setScope "name_type" "de" "scopeSystem"

set cell802 [$row800 addCell parameter 0.0]
$cell802 setLabel "name_type" "Index: int, "
$cell802 setScope "name_type" "cl" "scopePhase"
$cell802 setScope "name_type" "de" "scopeSystem"

set cell803 [$row800 addCell parameter 0.0]
$cell803 setLabel "name_type" "Rect: TRect, "
$cell803 setScope "name_type" "cl" "scopePhase"
$cell803 setProp "is_vcl" "1" "name_type" "cl"
$cell803 setProp "libunit" "Other" "name_type" "cl"
$cell803 setProp "userlib" "Windows" "name_type" "cl"
$cell803 setScope "name_type" "de" "scopeSystem"

set cell804 [$row800 addCell parameter 0.0]
$cell804 setLabel "name_type" "State: TOwnerDrawState"
$cell804 setScope "name_type" "cl" "scopePhase"
$cell804 setProp "is_vcl" "1" "name_type" "cl"
$cell804 setProp "libunit" "StdCtrls" "name_type" "cl"
$cell804 setScope "name_type" "de" "scopeSystem"

set row805 [$diag addRow method 0.0]
$row805 setLabel "name_type" "EndDrag()\n"
$row805 setProp "has_parmlist" "1"
$row805 setProp "is_event" "1"

set cell806 [$row805 addCell parameter 0.0]
$cell806 setLabel "name_type" "Sender: TObject, "
$cell806 setScope "name_type" "cl" "scopePhase"
$cell806 setProp "is_vcl" "1" "name_type" "cl"
$cell806 setProp "libunit" "System" "name_type" "cl"
$cell806 setScope "name_type" "de" "scopeSystem"

set cell807 [$row805 addCell parameter 0.0]
$cell807 setLabel "name_type" "Source: TObject, "
$cell807 setScope "name_type" "cl" "scopePhase"
$cell807 setProp "is_vcl" "1" "name_type" "cl"
$cell807 setProp "libunit" "System" "name_type" "cl"
$cell807 setScope "name_type" "de" "scopeSystem"

set cell808 [$row805 addCell parameter 0.0]
$cell808 setLabel "name_type" "X: int, "
$cell808 setScope "name_type" "cl" "scopePhase"
$cell808 setScope "name_type" "de" "scopeSystem"

set cell809 [$row805 addCell parameter 0.0]
$cell809 setLabel "name_type" "Y: int"
$cell809 setScope "name_type" "cl" "scopePhase"
$cell809 setScope "name_type" "de" "scopeSystem"

set row810 [$diag addRow method 0.0]
$row810 setLabel "name_type" "Enter()\n"
$row810 setProp "has_parmlist" "1"
$row810 setProp "is_event" "1"

set cell811 [$row810 addCell parameter 0.0]
$cell811 setLabel "name_type" "Sender: TObject"
$cell811 setScope "name_type" "cl" "scopePhase"
$cell811 setProp "is_vcl" "1" "name_type" "cl"
$cell811 setProp "libunit" "System" "name_type" "cl"
$cell811 setScope "name_type" "de" "scopeSystem"

set row812 [$diag addRow method 0.0]
$row812 setLabel "name_type" "Exit()\n"
$row812 setProp "has_parmlist" "1"
$row812 setProp "is_event" "1"

set cell813 [$row812 addCell parameter 0.0]
$cell813 setLabel "name_type" "Sender: TObject"
$cell813 setScope "name_type" "cl" "scopePhase"
$cell813 setProp "is_vcl" "1" "name_type" "cl"
$cell813 setProp "libunit" "System" "name_type" "cl"
$cell813 setScope "name_type" "de" "scopeSystem"

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

set cell815 [$row814 addCell parameter 0.0]
$cell815 setLabel "name_type" "Sender: TObject, "
$cell815 setScope "name_type" "cl" "scopePhase"
$cell815 setProp "is_vcl" "1" "name_type" "cl"
$cell815 setProp "libunit" "System" "name_type" "cl"
$cell815 setScope "name_type" "de" "scopeSystem"

set cell816 [$row814 addCell parameter 0.0]
$cell816 setLabel "name_type" "Key: word, "
$cell816 setProp "pass_by" "Variable"
$cell816 setScope "name_type" "cl" "scopePhase"
$cell816 setScope "name_type" "de" "scopeSystem"

set cell817 [$row814 addCell parameter 0.0]
$cell817 setLabel "name_type" "Shift: TShiftState"
$cell817 setScope "name_type" "cl" "scopePhase"
$cell817 setProp "is_vcl" "1" "name_type" "cl"
$cell817 setProp "libunit" "Classes" "name_type" "cl"
$cell817 setScope "name_type" "de" "scopeSystem"

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

set cell819 [$row818 addCell parameter 0.0]
$cell819 setLabel "name_type" "Sender: TObject, "
$cell819 setScope "name_type" "cl" "scopePhase"
$cell819 setProp "is_vcl" "1" "name_type" "cl"
$cell819 setProp "libunit" "System" "name_type" "cl"
$cell819 setScope "name_type" "de" "scopeSystem"

set cell820 [$row818 addCell parameter 0.0]
$cell820 setLabel "name_type" "Key: char"
$cell820 setProp "pass_by" "Variable"
$cell820 setScope "name_type" "cl" "scopePhase"
$cell820 setScope "name_type" "de" "scopeSystem"

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

set cell822 [$row821 addCell parameter 0.0]
$cell822 setLabel "name_type" "Sender: TObject, "
$cell822 setScope "name_type" "cl" "scopePhase"
$cell822 setProp "is_vcl" "1" "name_type" "cl"
$cell822 setProp "libunit" "System" "name_type" "cl"
$cell822 setScope "name_type" "de" "scopeSystem"

set cell823 [$row821 addCell parameter 0.0]
$cell823 setLabel "name_type" "Key: word, "
$cell823 setProp "pass_by" "Variable"
$cell823 setScope "name_type" "cl" "scopePhase"
$cell823 setScope "name_type" "de" "scopeSystem"

set cell824 [$row821 addCell parameter 0.0]
$cell824 setLabel "name_type" "Shift: TShiftState"
$cell824 setScope "name_type" "cl" "scopePhase"
$cell824 setProp "is_vcl" "1" "name_type" "cl"
$cell824 setProp "libunit" "Classes" "name_type" "cl"
$cell824 setScope "name_type" "de" "scopeSystem"

set row825 [$diag addRow method 0.0]
$row825 setLabel "name_type" "MeasureItem()\n"
$row825 setProp "has_parmlist" "1"
$row825 setProp "is_event" "1"

set cell826 [$row825 addCell parameter 0.0]
$cell826 setLabel "name_type" "Control: TWinControl, "
$cell826 setScope "name_type" "cl" "scopePhase"
$cell826 setProp "is_vcl" "1" "name_type" "cl"
$cell826 setProp "libunit" "Controls" "name_type" "cl"
$cell826 setScope "name_type" "de" "scopeSystem"

set cell827 [$row825 addCell parameter 0.0]
$cell827 setLabel "name_type" "Index: int, "
$cell827 setScope "name_type" "cl" "scopePhase"
$cell827 setScope "name_type" "de" "scopeSystem"

set cell828 [$row825 addCell parameter 0.0]
$cell828 setLabel "name_type" "Height: int"
$cell828 setScope "name_type" "cl" "scopePhase"
$cell828 setScope "name_type" "de" "scopeSystem"

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

set cell830 [$row829 addCell parameter 0.0]
$cell830 setLabel "name_type" "Sender: TObject, "
$cell830 setScope "name_type" "cl" "scopePhase"
$cell830 setProp "is_vcl" "1" "name_type" "cl"
$cell830 setProp "libunit" "System" "name_type" "cl"
$cell830 setScope "name_type" "de" "scopeSystem"

set cell831 [$row829 addCell parameter 0.0]
$cell831 setLabel "name_type" "Button: TMouseButton, "
$cell831 setScope "name_type" "cl" "scopePhase"
$cell831 setProp "is_vcl" "1" "name_type" "cl"
$cell831 setProp "libunit" "Controls" "name_type" "cl"
$cell831 setScope "name_type" "de" "scopeSystem"

set cell832 [$row829 addCell parameter 0.0]
$cell832 setLabel "name_type" "Shift: TShiftState, "
$cell832 setScope "name_type" "cl" "scopePhase"
$cell832 setProp "is_vcl" "1" "name_type" "cl"
$cell832 setProp "libunit" "Classes" "name_type" "cl"
$cell832 setScope "name_type" "de" "scopeSystem"

set cell833 [$row829 addCell parameter 0.0]
$cell833 setLabel "name_type" "X: int, "
$cell833 setScope "name_type" "cl" "scopePhase"
$cell833 setScope "name_type" "de" "scopeSystem"

set cell834 [$row829 addCell parameter 0.0]
$cell834 setLabel "name_type" "Y: int"
$cell834 setScope "name_type" "cl" "scopePhase"
$cell834 setScope "name_type" "de" "scopeSystem"

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

set cell836 [$row835 addCell parameter 0.0]
$cell836 setLabel "name_type" "Sender: TObject, "
$cell836 setScope "name_type" "cl" "scopePhase"
$cell836 setProp "is_vcl" "1" "name_type" "cl"
$cell836 setProp "libunit" "System" "name_type" "cl"
$cell836 setScope "name_type" "de" "scopeSystem"

set cell837 [$row835 addCell parameter 0.0]
$cell837 setLabel "name_type" "Shift: TShiftState, "
$cell837 setScope "name_type" "cl" "scopePhase"
$cell837 setProp "is_vcl" "1" "name_type" "cl"
$cell837 setProp "libunit" "Classes" "name_type" "cl"
$cell837 setScope "name_type" "de" "scopeSystem"

set cell838 [$row835 addCell parameter 0.0]
$cell838 setLabel "name_type" "X: int, "
$cell838 setScope "name_type" "cl" "scopePhase"
$cell838 setScope "name_type" "de" "scopeSystem"

set cell839 [$row835 addCell parameter 0.0]
$cell839 setLabel "name_type" "Y: int"
$cell839 setScope "name_type" "cl" "scopePhase"
$cell839 setScope "name_type" "de" "scopeSystem"

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

set cell841 [$row840 addCell parameter 0.0]
$cell841 setLabel "name_type" "Sender: TObject, "
$cell841 setScope "name_type" "cl" "scopePhase"
$cell841 setProp "is_vcl" "1" "name_type" "cl"
$cell841 setProp "libunit" "System" "name_type" "cl"
$cell841 setScope "name_type" "de" "scopeSystem"

set cell842 [$row840 addCell parameter 0.0]
$cell842 setLabel "name_type" "Button: TMouseButton, "
$cell842 setScope "name_type" "cl" "scopePhase"
$cell842 setProp "is_vcl" "1" "name_type" "cl"
$cell842 setProp "libunit" "Controls" "name_type" "cl"
$cell842 setScope "name_type" "de" "scopeSystem"

set cell843 [$row840 addCell parameter 0.0]
$cell843 setLabel "name_type" "Shift: TShiftState, "
$cell843 setScope "name_type" "cl" "scopePhase"
$cell843 setProp "is_vcl" "1" "name_type" "cl"
$cell843 setProp "libunit" "Classes" "name_type" "cl"
$cell843 setScope "name_type" "de" "scopeSystem"

set cell844 [$row840 addCell parameter 0.0]
$cell844 setLabel "name_type" "X: int, "
$cell844 setScope "name_type" "cl" "scopePhase"
$cell844 setScope "name_type" "de" "scopeSystem"

set cell845 [$row840 addCell parameter 0.0]
$cell845 setLabel "name_type" "Y: int"
$cell845 setScope "name_type" "cl" "scopePhase"
$cell845 setScope "name_type" "de" "scopeSystem"

set row846 [$diag addRow method 0.0]
$row846 setLabel "name_type" "StartDrag()"
$row846 setProp "has_parmlist" "1"
$row846 setProp "is_event" "1"

set cell847 [$row846 addCell parameter 0.0]
$cell847 setLabel "name_type" "Sender: TObject, "
$cell847 setScope "name_type" "cl" "scopePhase"
$cell847 setProp "is_vcl" "1" "name_type" "cl"
$cell847 setProp "libunit" "System" "name_type" "cl"
$cell847 setScope "name_type" "de" "scopeSystem"

set cell848 [$row846 addCell parameter 0.0]
$cell848 setLabel "name_type" "DragObject: TDragObject"
$cell848 setProp "pass_by" "Variable"
$cell848 setScope "name_type" "cl" "scopePhase"
$cell848 setProp "is_vcl" "1" "name_type" "cl"
$cell848 setProp "libunit" "Controls" "name_type" "cl"
$cell848 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TRadioButton "DelphiVCL" "" "" "" "" "" 1]

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

set cell850 [$row849 addCell parameter 0.0]
$cell850 setLabel "name_type" "Sender: TObject"
$cell850 setScope "name_type" "cl" "scopePhase"
$cell850 setProp "is_vcl" "1" "name_type" "cl"
$cell850 setProp "libunit" "System" "name_type" "cl"
$cell850 setScope "name_type" "de" "scopeSystem"

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

set cell852 [$row851 addCell parameter 0.0]
$cell852 setLabel "name_type" "Sender: TObject"
$cell852 setScope "name_type" "cl" "scopePhase"
$cell852 setProp "is_vcl" "1" "name_type" "cl"
$cell852 setProp "libunit" "System" "name_type" "cl"
$cell852 setScope "name_type" "de" "scopeSystem"

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

set cell854 [$row853 addCell parameter 0.0]
$cell854 setLabel "name_type" "Sender: TObject, "
$cell854 setScope "name_type" "cl" "scopePhase"
$cell854 setProp "is_vcl" "1" "name_type" "cl"
$cell854 setProp "libunit" "System" "name_type" "cl"
$cell854 setScope "name_type" "de" "scopeSystem"

set cell855 [$row853 addCell parameter 0.0]
$cell855 setLabel "name_type" "Source: TObject, "
$cell855 setScope "name_type" "cl" "scopePhase"
$cell855 setProp "is_vcl" "1" "name_type" "cl"
$cell855 setProp "libunit" "System" "name_type" "cl"
$cell855 setScope "name_type" "de" "scopeSystem"

set cell856 [$row853 addCell parameter 0.0]
$cell856 setLabel "name_type" "X: int, "
$cell856 setScope "name_type" "cl" "scopePhase"
$cell856 setScope "name_type" "de" "scopeSystem"

set cell857 [$row853 addCell parameter 0.0]
$cell857 setLabel "name_type" "Y: int"
$cell857 setScope "name_type" "cl" "scopePhase"
$cell857 setScope "name_type" "de" "scopeSystem"

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

set cell859 [$row858 addCell parameter 0.0]
$cell859 setLabel "name_type" "Sender: TObject, "
$cell859 setScope "name_type" "cl" "scopePhase"
$cell859 setProp "is_vcl" "1" "name_type" "cl"
$cell859 setProp "libunit" "System" "name_type" "cl"
$cell859 setScope "name_type" "de" "scopeSystem"

set cell860 [$row858 addCell parameter 0.0]
$cell860 setLabel "name_type" "Source: TObject, "
$cell860 setScope "name_type" "cl" "scopePhase"
$cell860 setProp "is_vcl" "1" "name_type" "cl"
$cell860 setProp "libunit" "System" "name_type" "cl"
$cell860 setScope "name_type" "de" "scopeSystem"

set cell861 [$row858 addCell parameter 0.0]
$cell861 setLabel "name_type" "X: int, "
$cell861 setScope "name_type" "cl" "scopePhase"
$cell861 setScope "name_type" "de" "scopeSystem"

set cell862 [$row858 addCell parameter 0.0]
$cell862 setLabel "name_type" "Y: int, "
$cell862 setScope "name_type" "cl" "scopePhase"
$cell862 setScope "name_type" "de" "scopeSystem"

set cell863 [$row858 addCell parameter 0.0]
$cell863 setLabel "name_type" "State: TDragState, "
$cell863 setScope "name_type" "cl" "scopePhase"
$cell863 setProp "is_vcl" "1" "name_type" "cl"
$cell863 setProp "libunit" "Controls" "name_type" "cl"
$cell863 setScope "name_type" "de" "scopeSystem"

set cell864 [$row858 addCell parameter 0.0]
$cell864 setLabel "name_type" "Accept: bool"
$cell864 setProp "pass_by" "Variable"
$cell864 setScope "name_type" "cl" "scopePhase"
$cell864 setScope "name_type" "de" "scopeSystem"

set row865 [$diag addRow method 0.0]
$row865 setLabel "name_type" "EndDrag()\n"
$row865 setProp "has_parmlist" "1"
$row865 setProp "is_event" "1"

set cell866 [$row865 addCell parameter 0.0]
$cell866 setLabel "name_type" "Sender: TObject, "
$cell866 setScope "name_type" "cl" "scopePhase"
$cell866 setProp "is_vcl" "1" "name_type" "cl"
$cell866 setProp "libunit" "System" "name_type" "cl"
$cell866 setScope "name_type" "de" "scopeSystem"

set cell867 [$row865 addCell parameter 0.0]
$cell867 setLabel "name_type" "Source: TObject, "
$cell867 setScope "name_type" "cl" "scopePhase"
$cell867 setProp "is_vcl" "1" "name_type" "cl"
$cell867 setProp "libunit" "System" "name_type" "cl"
$cell867 setScope "name_type" "de" "scopeSystem"

set cell868 [$row865 addCell parameter 0.0]
$cell868 setLabel "name_type" "X: int, "
$cell868 setScope "name_type" "cl" "scopePhase"
$cell868 setScope "name_type" "de" "scopeSystem"

set cell869 [$row865 addCell parameter 0.0]
$cell869 setLabel "name_type" "Y: int"
$cell869 setScope "name_type" "cl" "scopePhase"
$cell869 setScope "name_type" "de" "scopeSystem"

set row870 [$diag addRow method 0.0]
$row870 setLabel "name_type" "Enter()\n"
$row870 setProp "has_parmlist" "1"
$row870 setProp "is_event" "1"

set cell871 [$row870 addCell parameter 0.0]
$cell871 setLabel "name_type" "Sender: TObject"
$cell871 setScope "name_type" "cl" "scopePhase"
$cell871 setProp "is_vcl" "1" "name_type" "cl"
$cell871 setProp "libunit" "System" "name_type" "cl"
$cell871 setScope "name_type" "de" "scopeSystem"

set row872 [$diag addRow method 0.0]
$row872 setLabel "name_type" "Exit()\n"
$row872 setProp "has_parmlist" "1"
$row872 setProp "is_event" "1"

set cell873 [$row872 addCell parameter 0.0]
$cell873 setLabel "name_type" "Sender: TObject"
$cell873 setScope "name_type" "cl" "scopePhase"
$cell873 setProp "is_vcl" "1" "name_type" "cl"
$cell873 setProp "libunit" "System" "name_type" "cl"
$cell873 setScope "name_type" "de" "scopeSystem"

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

set cell875 [$row874 addCell parameter 0.0]
$cell875 setLabel "name_type" "Sender: TObject, "
$cell875 setScope "name_type" "cl" "scopePhase"
$cell875 setProp "is_vcl" "1" "name_type" "cl"
$cell875 setProp "libunit" "System" "name_type" "cl"
$cell875 setScope "name_type" "de" "scopeSystem"

set cell876 [$row874 addCell parameter 0.0]
$cell876 setLabel "name_type" "Key: word, "
$cell876 setProp "pass_by" "Variable"
$cell876 setScope "name_type" "cl" "scopePhase"
$cell876 setScope "name_type" "de" "scopeSystem"

set cell877 [$row874 addCell parameter 0.0]
$cell877 setLabel "name_type" "Shift: TShiftState"
$cell877 setScope "name_type" "cl" "scopePhase"
$cell877 setProp "is_vcl" "1" "name_type" "cl"
$cell877 setProp "libunit" "Classes" "name_type" "cl"
$cell877 setScope "name_type" "de" "scopeSystem"

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

set cell879 [$row878 addCell parameter 0.0]
$cell879 setLabel "name_type" "Sender: TObject, "
$cell879 setScope "name_type" "cl" "scopePhase"
$cell879 setProp "is_vcl" "1" "name_type" "cl"
$cell879 setProp "libunit" "System" "name_type" "cl"
$cell879 setScope "name_type" "de" "scopeSystem"

set cell880 [$row878 addCell parameter 0.0]
$cell880 setLabel "name_type" "Key: char"
$cell880 setProp "pass_by" "Variable"
$cell880 setScope "name_type" "cl" "scopePhase"
$cell880 setScope "name_type" "de" "scopeSystem"

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

set cell882 [$row881 addCell parameter 0.0]
$cell882 setLabel "name_type" "Sender: TObject, "
$cell882 setScope "name_type" "cl" "scopePhase"
$cell882 setProp "is_vcl" "1" "name_type" "cl"
$cell882 setProp "libunit" "System" "name_type" "cl"
$cell882 setScope "name_type" "de" "scopeSystem"

set cell883 [$row881 addCell parameter 0.0]
$cell883 setLabel "name_type" "Key: word, "
$cell883 setProp "pass_by" "Variable"
$cell883 setScope "name_type" "cl" "scopePhase"
$cell883 setScope "name_type" "de" "scopeSystem"

set cell884 [$row881 addCell parameter 0.0]
$cell884 setLabel "name_type" "Shift: TShiftState"
$cell884 setScope "name_type" "cl" "scopePhase"
$cell884 setProp "is_vcl" "1" "name_type" "cl"
$cell884 setProp "libunit" "Classes" "name_type" "cl"
$cell884 setScope "name_type" "de" "scopeSystem"

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

set cell886 [$row885 addCell parameter 0.0]
$cell886 setLabel "name_type" "Sender: TObject, "
$cell886 setScope "name_type" "cl" "scopePhase"
$cell886 setProp "is_vcl" "1" "name_type" "cl"
$cell886 setProp "libunit" "System" "name_type" "cl"
$cell886 setScope "name_type" "de" "scopeSystem"

set cell887 [$row885 addCell parameter 0.0]
$cell887 setLabel "name_type" "Button: TMouseButton, "
$cell887 setScope "name_type" "cl" "scopePhase"
$cell887 setProp "is_vcl" "1" "name_type" "cl"
$cell887 setProp "libunit" "Controls" "name_type" "cl"
$cell887 setScope "name_type" "de" "scopeSystem"

set cell888 [$row885 addCell parameter 0.0]
$cell888 setLabel "name_type" "Shift: TShiftState, "
$cell888 setScope "name_type" "cl" "scopePhase"
$cell888 setProp "is_vcl" "1" "name_type" "cl"
$cell888 setProp "libunit" "Classes" "name_type" "cl"
$cell888 setScope "name_type" "de" "scopeSystem"

set cell889 [$row885 addCell parameter 0.0]
$cell889 setLabel "name_type" "X: int, "
$cell889 setScope "name_type" "cl" "scopePhase"
$cell889 setScope "name_type" "de" "scopeSystem"

set cell890 [$row885 addCell parameter 0.0]
$cell890 setLabel "name_type" "Y: int"
$cell890 setScope "name_type" "cl" "scopePhase"
$cell890 setScope "name_type" "de" "scopeSystem"

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

set cell892 [$row891 addCell parameter 0.0]
$cell892 setLabel "name_type" "Sender: TObject, "
$cell892 setScope "name_type" "cl" "scopePhase"
$cell892 setProp "is_vcl" "1" "name_type" "cl"
$cell892 setProp "libunit" "System" "name_type" "cl"
$cell892 setScope "name_type" "de" "scopeSystem"

set cell893 [$row891 addCell parameter 0.0]
$cell893 setLabel "name_type" "Shift: TShiftState, "
$cell893 setScope "name_type" "cl" "scopePhase"
$cell893 setProp "is_vcl" "1" "name_type" "cl"
$cell893 setProp "libunit" "Classes" "name_type" "cl"
$cell893 setScope "name_type" "de" "scopeSystem"

set cell894 [$row891 addCell parameter 0.0]
$cell894 setLabel "name_type" "X: int, "
$cell894 setScope "name_type" "cl" "scopePhase"
$cell894 setScope "name_type" "de" "scopeSystem"

set cell895 [$row891 addCell parameter 0.0]
$cell895 setLabel "name_type" "Y: int"
$cell895 setScope "name_type" "cl" "scopePhase"
$cell895 setScope "name_type" "de" "scopeSystem"

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

set cell897 [$row896 addCell parameter 0.0]
$cell897 setLabel "name_type" "Sender: TObject, "
$cell897 setScope "name_type" "cl" "scopePhase"
$cell897 setProp "is_vcl" "1" "name_type" "cl"
$cell897 setProp "libunit" "System" "name_type" "cl"
$cell897 setScope "name_type" "de" "scopeSystem"

set cell898 [$row896 addCell parameter 0.0]
$cell898 setLabel "name_type" "Button: TMouseButton, "
$cell898 setScope "name_type" "cl" "scopePhase"
$cell898 setProp "is_vcl" "1" "name_type" "cl"
$cell898 setProp "libunit" "Controls" "name_type" "cl"
$cell898 setScope "name_type" "de" "scopeSystem"

set cell899 [$row896 addCell parameter 0.0]
$cell899 setLabel "name_type" "Shift: TShiftState, "
$cell899 setScope "name_type" "cl" "scopePhase"
$cell899 setProp "is_vcl" "1" "name_type" "cl"
$cell899 setProp "libunit" "Classes" "name_type" "cl"
$cell899 setScope "name_type" "de" "scopeSystem"

set cell900 [$row896 addCell parameter 0.0]
$cell900 setLabel "name_type" "X: int, "
$cell900 setScope "name_type" "cl" "scopePhase"
$cell900 setScope "name_type" "de" "scopeSystem"

set cell901 [$row896 addCell parameter 0.0]
$cell901 setLabel "name_type" "Y: int"
$cell901 setScope "name_type" "cl" "scopePhase"
$cell901 setScope "name_type" "de" "scopeSystem"

set row902 [$diag addRow method 0.0]
$row902 setLabel "name_type" "StartDrag()"
$row902 setProp "has_parmlist" "1"
$row902 setProp "is_event" "1"

set cell903 [$row902 addCell parameter 0.0]
$cell903 setLabel "name_type" "Sender: TObject, "
$cell903 setScope "name_type" "cl" "scopePhase"
$cell903 setProp "is_vcl" "1" "name_type" "cl"
$cell903 setProp "libunit" "System" "name_type" "cl"
$cell903 setScope "name_type" "de" "scopeSystem"

set cell904 [$row902 addCell parameter 0.0]
$cell904 setLabel "name_type" "DragObject: TDragObject"
$cell904 setProp "pass_by" "Variable"
$cell904 setScope "name_type" "cl" "scopePhase"
$cell904 setProp "is_vcl" "1" "name_type" "cl"
$cell904 setProp "libunit" "Controls" "name_type" "cl"
$cell904 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TScrollBar "DelphiVCL" "" "" "" "" "" 1]

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

set cell906 [$row905 addCell parameter 0.0]
$cell906 setLabel "name_type" "Sender: TField"
$cell906 setScope "name_type" "cl" "scopePhase"
$cell906 setProp "is_vcl" "1" "name_type" "cl"
$cell906 setProp "libunit" "Other" "name_type" "cl"
$cell906 setProp "userlib" "DB" "name_type" "cl"
$cell906 setScope "name_type" "de" "scopeSystem"

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

set cell908 [$row907 addCell parameter 0.0]
$cell908 setLabel "name_type" "Sender: TObject"
$cell908 setScope "name_type" "cl" "scopePhase"
$cell908 setProp "is_vcl" "1" "name_type" "cl"
$cell908 setProp "libunit" "System" "name_type" "cl"
$cell908 setScope "name_type" "de" "scopeSystem"

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

set cell910 [$row909 addCell parameter 0.0]
$cell910 setLabel "name_type" "Sender: TObject, "
$cell910 setScope "name_type" "cl" "scopePhase"
$cell910 setProp "is_vcl" "1" "name_type" "cl"
$cell910 setProp "libunit" "System" "name_type" "cl"
$cell910 setScope "name_type" "de" "scopeSystem"

set cell911 [$row909 addCell parameter 0.0]
$cell911 setLabel "name_type" "Source: TObject, "
$cell911 setScope "name_type" "cl" "scopePhase"
$cell911 setProp "is_vcl" "1" "name_type" "cl"
$cell911 setProp "libunit" "System" "name_type" "cl"
$cell911 setScope "name_type" "de" "scopeSystem"

set cell912 [$row909 addCell parameter 0.0]
$cell912 setLabel "name_type" "X: int, "
$cell912 setScope "name_type" "cl" "scopePhase"
$cell912 setScope "name_type" "de" "scopeSystem"

set cell913 [$row909 addCell parameter 0.0]
$cell913 setLabel "name_type" "Y: int"
$cell913 setScope "name_type" "cl" "scopePhase"
$cell913 setScope "name_type" "de" "scopeSystem"

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

set cell915 [$row914 addCell parameter 0.0]
$cell915 setLabel "name_type" "Sender: TObject, "
$cell915 setScope "name_type" "cl" "scopePhase"
$cell915 setProp "is_vcl" "1" "name_type" "cl"
$cell915 setProp "libunit" "System" "name_type" "cl"
$cell915 setScope "name_type" "de" "scopeSystem"

set cell916 [$row914 addCell parameter 0.0]
$cell916 setLabel "name_type" "Source: TObject, "
$cell916 setScope "name_type" "cl" "scopePhase"
$cell916 setProp "is_vcl" "1" "name_type" "cl"
$cell916 setProp "libunit" "System" "name_type" "cl"
$cell916 setScope "name_type" "de" "scopeSystem"

set cell917 [$row914 addCell parameter 0.0]
$cell917 setLabel "name_type" "X: int, "
$cell917 setScope "name_type" "cl" "scopePhase"
$cell917 setScope "name_type" "de" "scopeSystem"

set cell918 [$row914 addCell parameter 0.0]
$cell918 setLabel "name_type" "Y: int, "
$cell918 setScope "name_type" "cl" "scopePhase"
$cell918 setScope "name_type" "de" "scopeSystem"

set cell919 [$row914 addCell parameter 0.0]
$cell919 setLabel "name_type" "State: TDragState, "
$cell919 setScope "name_type" "cl" "scopePhase"
$cell919 setProp "is_vcl" "1" "name_type" "cl"
$cell919 setProp "libunit" "Controls" "name_type" "cl"
$cell919 setScope "name_type" "de" "scopeSystem"

set cell920 [$row914 addCell parameter 0.0]
$cell920 setLabel "name_type" "Accept: bool"
$cell920 setProp "pass_by" "Variable"
$cell920 setScope "name_type" "cl" "scopePhase"
$cell920 setScope "name_type" "de" "scopeSystem"

set row921 [$diag addRow method 0.0]
$row921 setLabel "name_type" "EndDrag()\n"
$row921 setProp "has_parmlist" "1"
$row921 setProp "is_event" "1"

set cell922 [$row921 addCell parameter 0.0]
$cell922 setLabel "name_type" "Sender: TObject, "
$cell922 setScope "name_type" "cl" "scopePhase"
$cell922 setProp "is_vcl" "1" "name_type" "cl"
$cell922 setProp "libunit" "System" "name_type" "cl"
$cell922 setScope "name_type" "de" "scopeSystem"

set cell923 [$row921 addCell parameter 0.0]
$cell923 setLabel "name_type" "Source: TObject, "
$cell923 setScope "name_type" "cl" "scopePhase"
$cell923 setProp "is_vcl" "1" "name_type" "cl"
$cell923 setProp "libunit" "System" "name_type" "cl"
$cell923 setScope "name_type" "de" "scopeSystem"

set cell924 [$row921 addCell parameter 0.0]
$cell924 setLabel "name_type" "X: int, "
$cell924 setScope "name_type" "cl" "scopePhase"
$cell924 setScope "name_type" "de" "scopeSystem"

set cell925 [$row921 addCell parameter 0.0]
$cell925 setLabel "name_type" "Y: int"
$cell925 setScope "name_type" "cl" "scopePhase"
$cell925 setScope "name_type" "de" "scopeSystem"

set row926 [$diag addRow method 0.0]
$row926 setLabel "name_type" "Enter()\n"
$row926 setProp "has_parmlist" "1"
$row926 setProp "is_event" "1"

set cell927 [$row926 addCell parameter 0.0]
$cell927 setLabel "name_type" "Sender: TObject"
$cell927 setScope "name_type" "cl" "scopePhase"
$cell927 setProp "is_vcl" "1" "name_type" "cl"
$cell927 setProp "libunit" "System" "name_type" "cl"
$cell927 setScope "name_type" "de" "scopeSystem"

set row928 [$diag addRow method 0.0]
$row928 setLabel "name_type" "Exit()\n"
$row928 setProp "has_parmlist" "1"
$row928 setProp "is_event" "1"

set cell929 [$row928 addCell parameter 0.0]
$cell929 setLabel "name_type" "Sender: TObject"
$cell929 setScope "name_type" "cl" "scopePhase"
$cell929 setProp "is_vcl" "1" "name_type" "cl"
$cell929 setProp "libunit" "System" "name_type" "cl"
$cell929 setScope "name_type" "de" "scopeSystem"

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

set cell931 [$row930 addCell parameter 0.0]
$cell931 setLabel "name_type" "Sender: TObject, "
$cell931 setScope "name_type" "cl" "scopePhase"
$cell931 setProp "is_vcl" "1" "name_type" "cl"
$cell931 setProp "libunit" "System" "name_type" "cl"
$cell931 setScope "name_type" "de" "scopeSystem"

set cell932 [$row930 addCell parameter 0.0]
$cell932 setLabel "name_type" "Key: word, "
$cell932 setProp "pass_by" "Variable"
$cell932 setScope "name_type" "cl" "scopePhase"
$cell932 setScope "name_type" "de" "scopeSystem"

set cell933 [$row930 addCell parameter 0.0]
$cell933 setLabel "name_type" "Shift: TShiftState"
$cell933 setScope "name_type" "cl" "scopePhase"
$cell933 setProp "is_vcl" "1" "name_type" "cl"
$cell933 setProp "libunit" "Classes" "name_type" "cl"
$cell933 setScope "name_type" "de" "scopeSystem"

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

set cell935 [$row934 addCell parameter 0.0]
$cell935 setLabel "name_type" "Sender: TObject, "
$cell935 setScope "name_type" "cl" "scopePhase"
$cell935 setProp "is_vcl" "1" "name_type" "cl"
$cell935 setProp "libunit" "System" "name_type" "cl"
$cell935 setScope "name_type" "de" "scopeSystem"

set cell936 [$row934 addCell parameter 0.0]
$cell936 setLabel "name_type" "Key: char"
$cell936 setProp "pass_by" "Variable"
$cell936 setScope "name_type" "cl" "scopePhase"
$cell936 setScope "name_type" "de" "scopeSystem"

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

set cell938 [$row937 addCell parameter 0.0]
$cell938 setLabel "name_type" "Sender: TObject, "
$cell938 setScope "name_type" "cl" "scopePhase"
$cell938 setProp "is_vcl" "1" "name_type" "cl"
$cell938 setProp "libunit" "System" "name_type" "cl"
$cell938 setScope "name_type" "de" "scopeSystem"

set cell939 [$row937 addCell parameter 0.0]
$cell939 setLabel "name_type" "Key: word, "
$cell939 setProp "pass_by" "Variable"
$cell939 setScope "name_type" "cl" "scopePhase"
$cell939 setScope "name_type" "de" "scopeSystem"

set cell940 [$row937 addCell parameter 0.0]
$cell940 setLabel "name_type" "Shift: TShiftState"
$cell940 setScope "name_type" "cl" "scopePhase"
$cell940 setProp "is_vcl" "1" "name_type" "cl"
$cell940 setProp "libunit" "Classes" "name_type" "cl"
$cell940 setScope "name_type" "de" "scopeSystem"

set row941 [$diag addRow method 0.0]
$row941 setLabel "name_type" "Scroll()\n"
$row941 setProp "has_parmlist" "1"
$row941 setProp "is_event" "1"

set cell942 [$row941 addCell parameter 0.0]
$cell942 setLabel "name_type" "Sender: TObject, "
$cell942 setScope "name_type" "cl" "scopePhase"
$cell942 setProp "is_vcl" "1" "name_type" "cl"
$cell942 setProp "libunit" "System" "name_type" "cl"
$cell942 setScope "name_type" "de" "scopeSystem"

set cell943 [$row941 addCell parameter 0.0]
$cell943 setLabel "name_type" "ScrollCode: TScrollCode, "
$cell943 setScope "name_type" "cl" "scopePhase"
$cell943 setProp "is_vcl" "1" "name_type" "cl"
$cell943 setProp "libunit" "StdCtrls" "name_type" "cl"
$cell943 setScope "name_type" "de" "scopeSystem"

set cell944 [$row941 addCell parameter 0.0]
$cell944 setLabel "name_type" "ScrollPos: int"
$cell944 setProp "pass_by" "Variable"
$cell944 setScope "name_type" "cl" "scopePhase"
$cell944 setScope "name_type" "de" "scopeSystem"

set row945 [$diag addRow method 0.0]
$row945 setLabel "name_type" "StartDrag()"
$row945 setProp "has_parmlist" "1"
$row945 setProp "is_event" "1"

set cell946 [$row945 addCell parameter 0.0]
$cell946 setLabel "name_type" "Sender: TObject, "
$cell946 setScope "name_type" "cl" "scopePhase"
$cell946 setProp "is_vcl" "1" "name_type" "cl"
$cell946 setProp "libunit" "System" "name_type" "cl"
$cell946 setScope "name_type" "de" "scopeSystem"

set cell947 [$row945 addCell parameter 0.0]
$cell947 setLabel "name_type" "DragObject: TDragObject"
$cell947 setScope "name_type" "cl" "scopePhase"
$cell947 setProp "is_vcl" "1" "name_type" "cl"
$cell947 setProp "libunit" "Controls" "name_type" "cl"
$cell947 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TClassDict "DelphiVCL" "" "" "" "" "" 1]

set row948 [$diag addRow method 0.0]
$row948 setLabel "name_type" "Add()\n"
$row948 setProp "has_parmlist" "1"

set cell949 [$row948 addCell parameter 0.0]
$cell949 setLabel "name_type" "key: variant, "
$cell949 setScope "name_type" "cl" "scopePhase"
$cell949 setScope "name_type" "de" "scopeSystem"

set cell950 [$row948 addCell parameter 0.0]
$cell950 setLabel "name_type" "obj: pointer"
$cell950 setScope "name_type" "cl" "scopePhase"
$cell950 setScope "name_type" "de" "scopeSystem"

set row951 [$diag addRow method 0.0]
$row951 setLabel "name_type" "Count(): integer\n"
$row951 setProp "has_parmlist" "1"
$row951 setScope "name_type" "cl" "scopePhase"

set row952 [$diag addRow method 0.0]
$row952 setLabel "name_type" "Remove()\n"
$row952 setProp "has_parmlist" "1"

set cell953 [$row952 addCell parameter 0.0]
$cell953 setLabel "name_type" "obj: pointer"
$cell953 setScope "name_type" "cl" "scopePhase"
$cell953 setScope "name_type" "de" "scopeSystem"

set row954 [$diag addRow method 0.0]
$row954 setLabel "name_type" "RemoveUsingKey()\n"
$row954 setProp "has_parmlist" "1"

set cell955 [$row954 addCell parameter 0.0]
$cell955 setLabel "name_type" "key: variant"
$cell955 setScope "name_type" "cl" "scopePhase"
$cell955 setScope "name_type" "de" "scopeSystem"

set row956 [$diag addRow method 0.0]
$row956 setLabel "name_type" "Item(): pointer\n"
$row956 setProp "has_parmlist" "1"
$row956 setScope "name_type" "cl" "scopePhase"

set cell957 [$row956 addCell parameter 0.0]
$cell957 setLabel "name_type" "key: variant"
$cell957 setScope "name_type" "cl" "scopePhase"
$cell957 setScope "name_type" "de" "scopeSystem"

set row958 [$diag addRow method 0.0]
$row958 setLabel "name_type" "First(): pointer\n"
$row958 setProp "has_parmlist" "1"
$row958 setScope "name_type" "cl" "scopePhase"

set row959 [$diag addRow method 0.0]
$row959 setLabel "name_type" "Last(): pointer\n"
$row959 setProp "has_parmlist" "1"
$row959 setScope "name_type" "cl" "scopePhase"

set row960 [$diag addRow method 0.0]
$row960 setLabel "name_type" "FirstKey(): variant\n"
$row960 setProp "has_parmlist" "1"
$row960 setScope "name_type" "cl" "scopePhase"

set row961 [$diag addRow method 0.0]
$row961 setLabel "name_type" "LastKey(): variant"
$row961 setProp "has_parmlist" "1"
$row961 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new SysUtilsClasses "DelphiVCL" "" "" "" "" "" 1]

set node963 [$diag addNode cad_class 688.0 800.0 120.0 33.0]
$node963 setLabel "name" "Exception"
$node963 setProp "is_folded" "1"
$node963 setScope "name" "cl" "scopePhase"
$node963 setProp "is_vcl" "1" "name" "cl"
$node963 setProp "libunit" "SysUtils" "name" "cl"

set node964 [$diag addNode cad_class 688.0 704.0 120.0 39.0]
$node964 setLabel "name" "TObject"
$node964 setProp "is_folded" "1"
$node964 setScope "name" "cl" "scopePhase"
$node964 setProp "is_vcl" "1" "name" "cl"
$node964 setProp "libunit" "System" "name" "cl"

set node966 [$diag addNode cad_class 512.0 1328.0 120.0 33.0]
$node966 setLabel "name" "EUnderflow"
$node966 setProp "is_folded" "1"
$node966 setScope "name" "cl" "scopePhase"
$node966 setProp "is_vcl" "1" "name" "cl"
$node966 setProp "libunit" "SysUtils" "name" "cl"

set node967 [$diag addNode cad_class 384.0 1328.0 120.0 33.0]
$node967 setLabel "name" "EOverflow"
$node967 setProp "is_folded" "1"
$node967 setScope "name" "cl" "scopePhase"
$node967 setProp "is_vcl" "1" "name" "cl"
$node967 setProp "libunit" "SysUtils" "name" "cl"

set node968 [$diag addNode cad_class 256.0 1328.0 120.0 33.0]
$node968 setLabel "name" "EInvalidOp"
$node968 setProp "is_folded" "1"
$node968 setScope "name" "cl" "scopePhase"
$node968 setProp "is_vcl" "1" "name" "cl"
$node968 setProp "libunit" "SysUtils" "name" "cl"

set node970 [$diag addNode cad_class 1312.0 1216.0 120.0 33.0]
$node970 setLabel "name" "EZeroDivide"
$node970 setProp "is_folded" "1"
$node970 setScope "name" "cl" "scopePhase"
$node970 setProp "is_vcl" "1" "name" "cl"
$node970 setProp "libunit" "SysUtils" "name" "cl"

set node971 [$diag addNode cad_class 1184.0 1216.0 120.0 33.0]
$node971 setLabel "name" "EVariantError"
$node971 setProp "is_folded" "1"
$node971 setScope "name" "cl" "scopePhase"
$node971 setProp "is_vcl" "1" "name" "cl"
$node971 setProp "libunit" "SysUtils" "name" "cl"

set node972 [$diag addNode cad_class 1056.0 1216.0 124.0 33.0]
$node972 setLabel "name" "EStackOverflow"
$node972 setProp "is_folded" "1"
$node972 setScope "name" "cl" "scopePhase"
$node972 setProp "is_vcl" "1" "name" "cl"
$node972 setProp "libunit" "SysUtils" "name" "cl"

set node973 [$diag addNode cad_class 912.0 1216.0 128.0 33.0]
$node973 setLabel "name" "EPropWriteOnly"
$node973 setProp "is_folded" "1"
$node973 setScope "name" "cl" "scopePhase"
$node973 setProp "is_vcl" "1" "name" "cl"
$node973 setProp "libunit" "SysUtils" "name" "cl"

set node974 [$diag addNode cad_class 768.0 1216.0 127.0 33.0]
$node974 setLabel "name" "EPropReadOnly"
$node974 setProp "is_folded" "1"
$node974 setScope "name" "cl" "scopePhase"
$node974 setProp "is_vcl" "1" "name" "cl"
$node974 setProp "libunit" "SysUtils" "name" "cl"

set node975 [$diag addNode cad_class 640.0 1216.0 120.0 33.0]
$node975 setLabel "name" "EPrivilege"
$node975 setProp "is_folded" "1"
$node975 setScope "name" "cl" "scopePhase"
$node975 setProp "is_vcl" "1" "name" "cl"
$node975 setProp "libunit" "SysUtils" "name" "cl"

set node976 [$diag addNode cad_class 512.0 1216.0 122.0 33.0]
$node976 setLabel "name" "EOutOfMemory"
$node976 setProp "is_folded" "1"
$node976 setScope "name" "cl" "scopePhase"
$node976 setProp "is_vcl" "1" "name" "cl"
$node976 setProp "libunit" "SysUtils" "name" "cl"

set node977 [$diag addNode cad_class 384.0 1216.0 120.0 33.0]
$node977 setLabel "name" "EMathError"
$node977 setProp "is_folded" "1"
$node977 setScope "name" "cl" "scopePhase"
$node977 setProp "is_vcl" "1" "name" "cl"
$node977 setProp "libunit" "SysUtils" "name" "cl"

set node978 [$diag addNode cad_class 256.0 1216.0 121.0 33.0]
$node978 setLabel "name" "EInvalidPointer"
$node978 setProp "is_folded" "1"
$node978 setScope "name" "cl" "scopePhase"
$node978 setProp "is_vcl" "1" "name" "cl"
$node978 setProp "libunit" "SysUtils" "name" "cl"

set node979 [$diag addNode cad_class 688.0 1088.0 120.0 33.0]
$node979 setLabel "name" "Exception"
$node979 setProp "is_folded" "1"
$node979 setScope "name" "cl" "scopePhase"
$node979 setProp "is_vcl" "1" "name" "cl"
$node979 setProp "libunit" "SysUtils" "name" "cl"

set node982 [$diag addNode cad_class 1232.0 1024.0 120.0 33.0]
$node982 setLabel "name" "ERangeError"
$node982 setProp "is_folded" "1"
$node982 setScope "name" "cl" "scopePhase"
$node982 setProp "is_vcl" "1" "name" "cl"
$node982 setProp "libunit" "SysUtils" "name" "cl"

set node983 [$diag addNode cad_class 1104.0 1024.0 120.0 33.0]
$node983 setLabel "name" "EIntOverflow"
$node983 setProp "is_folded" "1"
$node983 setScope "name" "cl" "scopePhase"
$node983 setProp "is_vcl" "1" "name" "cl"
$node983 setProp "libunit" "SysUtils" "name" "cl"

set node984 [$diag addNode cad_class 976.0 1024.0 120.0 33.0]
$node984 setLabel "name" "EDivByZero"
$node984 setProp "is_folded" "1"
$node984 setScope "name" "cl" "scopePhase"
$node984 setProp "is_vcl" "1" "name" "cl"
$node984 setProp "libunit" "SysUtils" "name" "cl"

set node985 [$diag addNode cad_class 1232.0 912.0 120.0 33.0]
$node985 setLabel "name" "EInvalidCast"
$node985 setProp "is_folded" "1"
$node985 setScope "name" "cl" "scopePhase"
$node985 setProp "is_vcl" "1" "name" "cl"
$node985 setProp "libunit" "SysUtils" "name" "cl"

set node986 [$diag addNode cad_class 1104.0 912.0 120.0 33.0]
$node986 setLabel "name" "EIntError"
$node986 setProp "is_folded" "1"
$node986 setScope "name" "cl" "scopePhase"
$node986 setProp "is_vcl" "1" "name" "cl"
$node986 setProp "libunit" "SysUtils" "name" "cl"

set node987 [$diag addNode cad_class 976.0 912.0 120.0 33.0]
$node987 setLabel "name" "EInOutError"
$node987 setProp "is_folded" "1"
$node987 setScope "name" "cl" "scopePhase"
$node987 setProp "is_vcl" "1" "name" "cl"
$node987 setProp "libunit" "SysUtils" "name" "cl"

set node988 [$diag addNode cad_class 816.0 912.0 148.0 33.0]
$node988 setLabel "name" "EExternalException"
$node988 setProp "is_folded" "1"
$node988 setScope "name" "cl" "scopePhase"
$node988 setProp "is_vcl" "1" "name" "cl"
$node988 setProp "libunit" "SysUtils" "name" "cl"

set node989 [$diag addNode cad_class 688.0 912.0 120.0 33.0]
$node989 setLabel "name" "EConvertError"
$node989 setProp "is_folded" "1"
$node989 setScope "name" "cl" "scopePhase"
$node989 setProp "is_vcl" "1" "name" "cl"
$node989 setProp "libunit" "SysUtils" "name" "cl"

set node990 [$diag addNode cad_class 560.0 912.0 120.0 33.0]
$node990 setLabel "name" "EControlC"
$node990 setProp "is_folded" "1"
$node990 setScope "name" "cl" "scopePhase"
$node990 setProp "is_vcl" "1" "name" "cl"
$node990 setProp "libunit" "SysUtils" "name" "cl"

set node991 [$diag addNode cad_class 416.0 912.0 136.0 33.0]
$node991 setLabel "name" "EAccessViolation"
$node991 setProp "is_folded" "1"
$node991 setScope "name" "cl" "scopePhase"
$node991 setProp "is_vcl" "1" "name" "cl"
$node991 setProp "libunit" "System" "name" "cl"

set node992 [$diag addNode cad_class 288.0 912.0 120.0 33.0]
$node992 setLabel "name" "EAbort"
$node992 setProp "is_folded" "1"
$node992 setScope "name" "cl" "scopePhase"
$node992 setProp "is_vcl" "1" "name" "cl"
$node992 setProp "libunit" "SysUtils" "name" "cl"

set node962 [$diag addRake generalization $node964 $node963 752.0 743.0 752.0 832.0 767.5]

set conn993 [$node962 getInConn]
set segm994 [$conn993 getFirstSegm]

set conn995 [$node962 getFirstOutConn]
set segm996 [$conn995 getFirstSegm]

set node965 [$diag addRake generalization $node977 $node966 448.0 1248.0 576.0 1344.0 1296.0]

set conn997 [$node965 getInConn]
set segm998 [$conn997 getFirstSegm]

set conn999 [$node965 getFirstOutConn]
set segm1000 [$conn999 getFirstSegm]

set conn1001 [$diag addConn generalization_conn $node965 $node967 448.0 1296.5 448.0 1344.0]
set segm1002 [$conn1001 getFirstSegm]

set conn1003 [$diag addConn generalization_conn $node965 $node968 458.0 1296.5 320.0 1344.0]
set segm1004 [$conn1003 getFirstSegm]

set node969 [$diag addRake generalization $node979 $node970 752.0 1120.0 1376.0 1232.0 1168.0]

set conn1005 [$node969 getInConn]
set segm1006 [$conn1005 getFirstSegm]

set conn1007 [$node969 getFirstOutConn]
set segm1008 [$conn1007 getFirstSegm]

set conn1009 [$diag addConn generalization_conn $node969 $node971 752.0 1168.5 1248.0 1232.0]
set segm1010 [$conn1009 getFirstSegm]

set conn1011 [$diag addConn generalization_conn $node969 $node972 752.0 1168.5 1120.0 1232.0]
set segm1012 [$conn1011 getFirstSegm]

set conn1013 [$diag addConn generalization_conn $node969 $node973 752.0 1168.5 976.0 1232.0]
set segm1014 [$conn1013 getFirstSegm]

set conn1015 [$diag addConn generalization_conn $node969 $node974 752.0 1168.5 832.0 1232.0]
set segm1016 [$conn1015 getFirstSegm]

set conn1017 [$diag addConn generalization_conn $node969 $node975 752.0 1168.5 704.0 1232.0]
set segm1018 [$conn1017 getFirstSegm]

set conn1019 [$diag addConn generalization_conn $node969 $node976 752.0 1168.5 576.0 1232.0]
set segm1020 [$conn1019 getFirstSegm]

set conn1021 [$diag addConn generalization_conn $node969 $node977 752.0 1168.5 448.0 1232.0]
set segm1022 [$conn1021 getFirstSegm]

set conn1023 [$diag addConn generalization_conn $node969 $node978 762.0 1168.5 320.0 1216.0]
set segm1024 [$conn1023 getFirstSegm]

set node980 [$diag addRake generalization $node963 $node992 752.0 832.0 352.0 928.0 872.0]

set conn1025 [$node980 getInConn]
set segm1026 [$conn1025 getFirstSegm]

set conn1027 [$node980 getFirstOutConn]
set segm1028 [$conn1027 getFirstSegm]

set conn1029 [$diag addConn generalization_conn $node980 $node991 752.0 872.5 496.0 928.0]
set segm1030 [$conn1029 getFirstSegm]

set conn1031 [$diag addConn generalization_conn $node980 $node990 752.0 872.5 624.0 928.0]
set segm1032 [$conn1031 getFirstSegm]

set conn1033 [$diag addConn generalization_conn $node980 $node985 752.0 872.5 1296.0 928.0]
set segm1034 [$conn1033 getFirstSegm]

set conn1035 [$diag addConn generalization_conn $node980 $node986 752.0 872.5 1152.0 928.0]
set segm1036 [$conn1035 getFirstSegm]

set conn1037 [$diag addConn generalization_conn $node980 $node987 752.0 872.5 1040.0 944.0]
set segm1038 [$conn1037 getFirstSegm]

set conn1039 [$diag addConn generalization_conn $node980 $node988 752.0 872.5 896.0 928.0]
set segm1040 [$conn1039 getFirstSegm]

set conn1041 [$diag addConn generalization_conn $node980 $node989 762.0 872.5 752.0 912.0]
set segm1042 [$conn1041 getFirstSegm]

set node981 [$diag addRake generalization $node986 $node982 1168.0 944.0 1296.0 1040.0 992.0]

set conn1043 [$node981 getInConn]
set segm1044 [$conn1043 getFirstSegm]

set conn1045 [$node981 getFirstOutConn]
set segm1046 [$conn1045 getFirstSegm]

set conn1047 [$diag addConn generalization_conn $node981 $node983 1168.0 992.5 1168.0 1056.0]
set segm1048 [$conn1047 getFirstSegm]

set conn1049 [$diag addConn generalization_conn $node981 $node984 1178.0 992.5 1040.0 1040.0]
set segm1050 [$conn1049 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TClassDictElem "DelphiVCL" "" "" "" "" "" 1]

set row1051 [$diag addRow attribute 0.0]
$row1051 setLabel "name_type" "obj: pointer\n"
$row1051 setScope "name_type" "cl" "scopePhase"

set row1052 [$diag addRow attribute 0.0]
$row1052 setLabel "name_type" "key: variant"
$row1052 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TCustomListBox "DelphiVCL" "" "" "" "" "" 1]

set row1053 [$diag addRow method 0.0]
$row1053 setLabel "name_type" "DrawItem()\n"
$row1053 setProp "has_parmlist" "1"
$row1053 setProp "is_event" "1"

set cell1054 [$row1053 addCell parameter 0.0]
$cell1054 setLabel "name_type" "ListBox: TListBox, "
$cell1054 setScope "name_type" "cl" "scopePhase"
$cell1054 setProp "is_vcl" "1" "name_type" "cl"
$cell1054 setProp "libunit" "StdCtrls" "name_type" "cl"
$cell1054 setScope "name_type" "de" "scopeSystem"

set cell1055 [$row1053 addCell parameter 0.0]
$cell1055 setLabel "name_type" "Index: int, "
$cell1055 setScope "name_type" "cl" "scopePhase"
$cell1055 setScope "name_type" "de" "scopeSystem"

set cell1056 [$row1053 addCell parameter 0.0]
$cell1056 setLabel "name_type" "Rect: TRect, "
$cell1056 setScope "name_type" "cl" "scopePhase"
$cell1056 setProp "is_vcl" "1" "name_type" "cl"
$cell1056 setProp "libunit" "Other" "name_type" "cl"
$cell1056 setProp "userlib" "Windows" "name_type" "cl"
$cell1056 setScope "name_type" "de" "scopeSystem"

set cell1057 [$row1053 addCell parameter 0.0]
$cell1057 setLabel "name_type" "State: TOwnerDrawState"
$cell1057 setScope "name_type" "cl" "scopePhase"
$cell1057 setProp "is_vcl" "1" "name_type" "cl"
$cell1057 setProp "libunit" "StdCtrls" "name_type" "cl"
$cell1057 setScope "name_type" "de" "scopeSystem"

set row1058 [$diag addRow method 0.0]
$row1058 setLabel "name_type" "MeasureItem()"
$row1058 setProp "has_parmlist" "1"
$row1058 setProp "is_event" "1"

set cell1059 [$row1058 addCell parameter 0.0]
$cell1059 setLabel "name_type" "Control: TWinControl, "
$cell1059 setScope "name_type" "cl" "scopePhase"
$cell1059 setProp "is_vcl" "1" "name_type" "cl"
$cell1059 setProp "libunit" "Controls" "name_type" "cl"
$cell1059 setScope "name_type" "de" "scopeSystem"

set cell1060 [$row1058 addCell parameter 0.0]
$cell1060 setLabel "name_type" "Index: int, "
$cell1060 setScope "name_type" "cl" "scopePhase"
$cell1060 setScope "name_type" "de" "scopeSystem"

set cell1061 [$row1058 addCell parameter 0.0]
$cell1061 setLabel "name_type" "Height: int"
$cell1061 setProp "pass_by" "Variable"
$cell1061 setScope "name_type" "cl" "scopePhase"
$cell1061 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TCustomEdit "DelphiVCL" "" "" "" "" "" 1]

set row1062 [$diag addRow method 0.0]
$row1062 setLabel "name_type" "Change()"
$row1062 setProp "has_parmlist" "1"
$row1062 setProp "is_event" "1"

set cell1063 [$row1062 addCell parameter 0.0]
$cell1063 setLabel "name_type" "Sender: TField"
$cell1063 setScope "name_type" "cl" "scopePhase"
$cell1063 setProp "is_vcl" "1" "name_type" "cl"
$cell1063 setProp "libunit" "Other" "name_type" "cl"
$cell1063 setProp "userlib" "DB" "name_type" "cl"
$cell1063 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TCustomComboBox "DelphiVCL" "" "" "" "" "" 1]

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

set cell1065 [$row1064 addCell parameter 0.0]
$cell1065 setLabel "name_type" "Sender: TField"
$cell1065 setScope "name_type" "cl" "scopePhase"
$cell1065 setProp "is_vcl" "1" "name_type" "cl"
$cell1065 setProp "libunit" "Other" "name_type" "cl"
$cell1065 setProp "userlib" "DB" "name_type" "cl"
$cell1065 setScope "name_type" "de" "scopeSystem"

set row1066 [$diag addRow method 0.0]
$row1066 setLabel "name_type" "DrawItem()\n"
$row1066 setProp "has_parmlist" "1"
$row1066 setProp "is_event" "1"

set cell1067 [$row1066 addCell parameter 0.0]
$cell1067 setLabel "name_type" "ListBox: TListBox, "
$cell1067 setScope "name_type" "cl" "scopePhase"
$cell1067 setProp "is_vcl" "1" "name_type" "cl"
$cell1067 setProp "libunit" "StdCtrls" "name_type" "cl"
$cell1067 setScope "name_type" "de" "scopeSystem"

set cell1068 [$row1066 addCell parameter 0.0]
$cell1068 setLabel "name_type" "Index: int, "
$cell1068 setScope "name_type" "cl" "scopePhase"
$cell1068 setScope "name_type" "de" "scopeSystem"

set cell1069 [$row1066 addCell parameter 0.0]
$cell1069 setLabel "name_type" "Rect: TRect, "
$cell1069 setScope "name_type" "cl" "scopePhase"
$cell1069 setProp "is_vcl" "1" "name_type" "cl"
$cell1069 setProp "libunit" "Other" "name_type" "cl"
$cell1069 setProp "userlib" "Windows" "name_type" "cl"
$cell1069 setScope "name_type" "de" "scopeSystem"

set cell1070 [$row1066 addCell parameter 0.0]
$cell1070 setLabel "name_type" "State: TOwnerDrawState"
$cell1070 setScope "name_type" "cl" "scopePhase"
$cell1070 setProp "is_vcl" "1" "name_type" "cl"
$cell1070 setProp "libunit" "StdCtrls" "name_type" "cl"
$cell1070 setScope "name_type" "de" "scopeSystem"

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

set cell1072 [$row1071 addCell parameter 0.0]
$cell1072 setLabel "name_type" "Sender: TObject"
$cell1072 setScope "name_type" "cl" "scopePhase"
$cell1072 setProp "is_vcl" "1" "name_type" "cl"
$cell1072 setProp "libunit" "System" "name_type" "cl"
$cell1072 setScope "name_type" "de" "scopeSystem"

set row1073 [$diag addRow method 0.0]
$row1073 setLabel "name_type" "MeasureItem()"
$row1073 setProp "has_parmlist" "1"
$row1073 setProp "is_event" "1"

set cell1074 [$row1073 addCell parameter 0.0]
$cell1074 setLabel "name_type" "Control: TWinControl, "
$cell1074 setScope "name_type" "cl" "scopePhase"
$cell1074 setProp "is_vcl" "1" "name_type" "cl"
$cell1074 setProp "libunit" "Controls" "name_type" "cl"
$cell1074 setScope "name_type" "de" "scopeSystem"

set cell1075 [$row1073 addCell parameter 0.0]
$cell1075 setLabel "name_type" "Index: int, "
$cell1075 setScope "name_type" "cl" "scopePhase"
$cell1075 setScope "name_type" "de" "scopeSystem"

set cell1076 [$row1073 addCell parameter 0.0]
$cell1076 setLabel "name_type" "Height: int"
$cell1076 setProp "pass_by" "Variable"
$cell1076 setScope "name_type" "cl" "scopePhase"
$cell1076 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TGroupBox "DelphiVCL" "" "" "" "" "" 1]

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

set cell1078 [$row1077 addCell parameter 0.0]
$cell1078 setLabel "name_type" "Sender: TObject"
$cell1078 setScope "name_type" "cl" "scopePhase"
$cell1078 setProp "is_vcl" "1" "name_type" "cl"
$cell1078 setProp "libunit" "System" "name_type" "cl"
$cell1078 setScope "name_type" "de" "scopeSystem"

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

set cell1080 [$row1079 addCell parameter 0.0]
$cell1080 setLabel "name_type" "Sender: TObject"
$cell1080 setScope "name_type" "cl" "scopePhase"
$cell1080 setProp "is_vcl" "1" "name_type" "cl"
$cell1080 setProp "libunit" "System" "name_type" "cl"
$cell1080 setScope "name_type" "de" "scopeSystem"

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

set cell1082 [$row1081 addCell parameter 0.0]
$cell1082 setLabel "name_type" "Sender: TObject, "
$cell1082 setScope "name_type" "cl" "scopePhase"
$cell1082 setProp "is_vcl" "1" "name_type" "cl"
$cell1082 setProp "libunit" "System" "name_type" "cl"
$cell1082 setScope "name_type" "de" "scopeSystem"

set cell1083 [$row1081 addCell parameter 0.0]
$cell1083 setLabel "name_type" "Source: TObject, "
$cell1083 setScope "name_type" "cl" "scopePhase"
$cell1083 setProp "is_vcl" "1" "name_type" "cl"
$cell1083 setProp "libunit" "System" "name_type" "cl"
$cell1083 setScope "name_type" "de" "scopeSystem"

set cell1084 [$row1081 addCell parameter 0.0]
$cell1084 setLabel "name_type" "X: int, "
$cell1084 setScope "name_type" "cl" "scopePhase"
$cell1084 setScope "name_type" "de" "scopeSystem"

set cell1085 [$row1081 addCell parameter 0.0]
$cell1085 setLabel "name_type" "Y: int"
$cell1085 setScope "name_type" "cl" "scopePhase"
$cell1085 setScope "name_type" "de" "scopeSystem"

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

set cell1087 [$row1086 addCell parameter 0.0]
$cell1087 setLabel "name_type" "Sender: TObject, "
$cell1087 setScope "name_type" "cl" "scopePhase"
$cell1087 setProp "is_vcl" "1" "name_type" "cl"
$cell1087 setProp "libunit" "System" "name_type" "cl"
$cell1087 setScope "name_type" "de" "scopeSystem"

set cell1088 [$row1086 addCell parameter 0.0]
$cell1088 setLabel "name_type" "Source: TObject, "
$cell1088 setScope "name_type" "cl" "scopePhase"
$cell1088 setProp "is_vcl" "1" "name_type" "cl"
$cell1088 setProp "libunit" "System" "name_type" "cl"
$cell1088 setScope "name_type" "de" "scopeSystem"

set cell1089 [$row1086 addCell parameter 0.0]
$cell1089 setLabel "name_type" "X: int, "
$cell1089 setScope "name_type" "cl" "scopePhase"
$cell1089 setScope "name_type" "de" "scopeSystem"

set cell1090 [$row1086 addCell parameter 0.0]
$cell1090 setLabel "name_type" "Y: int, "
$cell1090 setScope "name_type" "cl" "scopePhase"
$cell1090 setScope "name_type" "de" "scopeSystem"

set cell1091 [$row1086 addCell parameter 0.0]
$cell1091 setLabel "name_type" "State: TDragState, "
$cell1091 setScope "name_type" "cl" "scopePhase"
$cell1091 setProp "is_vcl" "1" "name_type" "cl"
$cell1091 setProp "libunit" "Controls" "name_type" "cl"
$cell1091 setScope "name_type" "de" "scopeSystem"

set cell1092 [$row1086 addCell parameter 0.0]
$cell1092 setLabel "name_type" "Accept: bool"
$cell1092 setProp "pass_by" "Variable"
$cell1092 setScope "name_type" "cl" "scopePhase"
$cell1092 setScope "name_type" "de" "scopeSystem"

set row1093 [$diag addRow method 0.0]
$row1093 setLabel "name_type" "EndDrag()\n"
$row1093 setProp "has_parmlist" "1"
$row1093 setProp "is_event" "1"

set cell1094 [$row1093 addCell parameter 0.0]
$cell1094 setLabel "name_type" "Sender: TObject, "
$cell1094 setScope "name_type" "cl" "scopePhase"
$cell1094 setProp "is_vcl" "1" "name_type" "cl"
$cell1094 setProp "libunit" "System" "name_type" "cl"
$cell1094 setScope "name_type" "de" "scopeSystem"

set cell1095 [$row1093 addCell parameter 0.0]
$cell1095 setLabel "name_type" "Source: TObject, "
$cell1095 setScope "name_type" "cl" "scopePhase"
$cell1095 setProp "is_vcl" "1" "name_type" "cl"
$cell1095 setProp "libunit" "System" "name_type" "cl"
$cell1095 setScope "name_type" "de" "scopeSystem"

set cell1096 [$row1093 addCell parameter 0.0]
$cell1096 setLabel "name_type" "X: int, "
$cell1096 setScope "name_type" "cl" "scopePhase"
$cell1096 setScope "name_type" "de" "scopeSystem"

set cell1097 [$row1093 addCell parameter 0.0]
$cell1097 setLabel "name_type" "Y: int"
$cell1097 setScope "name_type" "cl" "scopePhase"
$cell1097 setScope "name_type" "de" "scopeSystem"

set row1098 [$diag addRow method 0.0]
$row1098 setLabel "name_type" "Enter()\n"
$row1098 setProp "has_parmlist" "1"
$row1098 setProp "is_event" "1"

set cell1099 [$row1098 addCell parameter 0.0]
$cell1099 setLabel "name_type" "Sender: TObject"
$cell1099 setScope "name_type" "cl" "scopePhase"
$cell1099 setProp "is_vcl" "1" "name_type" "cl"
$cell1099 setProp "libunit" "System" "name_type" "cl"
$cell1099 setScope "name_type" "de" "scopeSystem"

set row1100 [$diag addRow method 0.0]
$row1100 setLabel "name_type" "Exit()\n"
$row1100 setProp "has_parmlist" "1"
$row1100 setProp "is_event" "1"

set cell1101 [$row1100 addCell parameter 0.0]
$cell1101 setLabel "name_type" "Sender: TObject"
$cell1101 setScope "name_type" "cl" "scopePhase"
$cell1101 setProp "is_vcl" "1" "name_type" "cl"
$cell1101 setProp "libunit" "System" "name_type" "cl"
$cell1101 setScope "name_type" "de" "scopeSystem"

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

set cell1103 [$row1102 addCell parameter 0.0]
$cell1103 setLabel "name_type" "Sender: TObject, "
$cell1103 setScope "name_type" "cl" "scopePhase"
$cell1103 setProp "is_vcl" "1" "name_type" "cl"
$cell1103 setProp "libunit" "System" "name_type" "cl"
$cell1103 setScope "name_type" "de" "scopeSystem"

set cell1104 [$row1102 addCell parameter 0.0]
$cell1104 setLabel "name_type" "Button: TMouseButton, "
$cell1104 setScope "name_type" "cl" "scopePhase"
$cell1104 setProp "is_vcl" "1" "name_type" "cl"
$cell1104 setProp "libunit" "Controls" "name_type" "cl"
$cell1104 setScope "name_type" "de" "scopeSystem"

set cell1105 [$row1102 addCell parameter 0.0]
$cell1105 setLabel "name_type" "Shift: TShiftState, "
$cell1105 setScope "name_type" "cl" "scopePhase"
$cell1105 setProp "is_vcl" "1" "name_type" "cl"
$cell1105 setProp "libunit" "Classes" "name_type" "cl"
$cell1105 setScope "name_type" "de" "scopeSystem"

set cell1106 [$row1102 addCell parameter 0.0]
$cell1106 setLabel "name_type" "X: int, "
$cell1106 setScope "name_type" "cl" "scopePhase"
$cell1106 setScope "name_type" "de" "scopeSystem"

set cell1107 [$row1102 addCell parameter 0.0]
$cell1107 setLabel "name_type" "Y: int"
$cell1107 setScope "name_type" "cl" "scopePhase"
$cell1107 setScope "name_type" "de" "scopeSystem"

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

set cell1109 [$row1108 addCell parameter 0.0]
$cell1109 setLabel "name_type" "Sender: TObject, "
$cell1109 setScope "name_type" "cl" "scopePhase"
$cell1109 setProp "is_vcl" "1" "name_type" "cl"
$cell1109 setProp "libunit" "System" "name_type" "cl"
$cell1109 setScope "name_type" "de" "scopeSystem"

set cell1110 [$row1108 addCell parameter 0.0]
$cell1110 setLabel "name_type" "Shift: TShiftState, "
$cell1110 setScope "name_type" "cl" "scopePhase"
$cell1110 setProp "is_vcl" "1" "name_type" "cl"
$cell1110 setProp "libunit" "Classes" "name_type" "cl"
$cell1110 setScope "name_type" "de" "scopeSystem"

set cell1111 [$row1108 addCell parameter 0.0]
$cell1111 setLabel "name_type" "X: int, "
$cell1111 setScope "name_type" "cl" "scopePhase"
$cell1111 setScope "name_type" "de" "scopeSystem"

set cell1112 [$row1108 addCell parameter 0.0]
$cell1112 setLabel "name_type" "Y: int"
$cell1112 setScope "name_type" "cl" "scopePhase"
$cell1112 setScope "name_type" "de" "scopeSystem"

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

set cell1114 [$row1113 addCell parameter 0.0]
$cell1114 setLabel "name_type" "Sender: TObject, "
$cell1114 setScope "name_type" "cl" "scopePhase"
$cell1114 setProp "is_vcl" "1" "name_type" "cl"
$cell1114 setProp "libunit" "System" "name_type" "cl"
$cell1114 setScope "name_type" "de" "scopeSystem"

set cell1115 [$row1113 addCell parameter 0.0]
$cell1115 setLabel "name_type" "Button: TMouseButton, "
$cell1115 setScope "name_type" "cl" "scopePhase"
$cell1115 setProp "is_vcl" "1" "name_type" "cl"
$cell1115 setProp "libunit" "Controls" "name_type" "cl"
$cell1115 setScope "name_type" "de" "scopeSystem"

set cell1116 [$row1113 addCell parameter 0.0]
$cell1116 setLabel "name_type" "Shift: TShiftState, "
$cell1116 setScope "name_type" "cl" "scopePhase"
$cell1116 setProp "is_vcl" "1" "name_type" "cl"
$cell1116 setProp "libunit" "Classes" "name_type" "cl"
$cell1116 setScope "name_type" "de" "scopeSystem"

set cell1117 [$row1113 addCell parameter 0.0]
$cell1117 setLabel "name_type" "X: int, "
$cell1117 setScope "name_type" "cl" "scopePhase"
$cell1117 setScope "name_type" "de" "scopeSystem"

set cell1118 [$row1113 addCell parameter 0.0]
$cell1118 setLabel "name_type" "Y: int"
$cell1118 setScope "name_type" "cl" "scopePhase"
$cell1118 setScope "name_type" "de" "scopeSystem"

set row1119 [$diag addRow method 0.0]
$row1119 setLabel "name_type" "StartDrag()"
$row1119 setProp "has_parmlist" "1"
$row1119 setProp "is_event" "1"

set cell1120 [$row1119 addCell parameter 0.0]
$cell1120 setLabel "name_type" "Sender: TObject, "
$cell1120 setScope "name_type" "cl" "scopePhase"
$cell1120 setProp "is_vcl" "1" "name_type" "cl"
$cell1120 setProp "libunit" "System" "name_type" "cl"
$cell1120 setScope "name_type" "de" "scopeSystem"

set cell1121 [$row1119 addCell parameter 0.0]
$cell1121 setLabel "name_type" "DragObject: TDragObject"
$cell1121 setProp "pass_by" "Variable"
$cell1121 setScope "name_type" "cl" "scopePhase"
$cell1121 setProp "is_vcl" "1" "name_type" "cl"
$cell1121 setProp "libunit" "Controls" "name_type" "cl"
$cell1121 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new StdCtrlsTypes "DelphiVCL" "" "" "" "" "" 1]

set node1122 [$diag addNode cad_class 768.0 688.0 139.0 167.0]
$node1122 setLabel "name" "TOwnerDrawState"
$node1122 setScope "name" "cl" "scopePhase"
$node1122 setProp "is_vcl" "1" "name" "cl"
$node1122 setProp "libunit" "StdCtrls" "name" "cl"

set node1123 [$diag addNode cad_class 512.0 640.0 141.0 231.0]
$node1123 setLabel "name" "TScrollCode"
$node1123 setScope "name" "cl" "scopePhase"
$node1123 setProp "is_vcl" "1" "name" "cl"
$node1123 setProp "libunit" "StdCtrls" "name" "cl"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TScrollCode "DelphiVCL" "" "" "" "" "" 1]

set row1124 [$diag addRow attribute 0.0]
$row1124 setLabel "name_type" "scLineUp: enum\n"
$row1124 setScope "name_type" "cl" "scopePhase"

set row1125 [$diag addRow attribute 0.0]
$row1125 setLabel "name_type" "scLineDown: enum\n"
$row1125 setScope "name_type" "cl" "scopePhase"

set row1126 [$diag addRow attribute 0.0]
$row1126 setLabel "name_type" "scPageUp: enum\n"
$row1126 setScope "name_type" "cl" "scopePhase"

set row1127 [$diag addRow attribute 0.0]
$row1127 setLabel "name_type" "scPageDown: enum\n"
$row1127 setScope "name_type" "cl" "scopePhase"

set row1128 [$diag addRow attribute 0.0]
$row1128 setLabel "name_type" "scPosition: enum\n"
$row1128 setScope "name_type" "cl" "scopePhase"

set row1129 [$diag addRow attribute 0.0]
$row1129 setLabel "name_type" "scTrack: enum\n"
$row1129 setScope "name_type" "cl" "scopePhase"

set row1130 [$diag addRow attribute 0.0]
$row1130 setLabel "name_type" "scTop: enum\n"
$row1130 setScope "name_type" "cl" "scopePhase"

set row1131 [$diag addRow attribute 0.0]
$row1131 setLabel "name_type" "scBottom: enum\n"
$row1131 setScope "name_type" "cl" "scopePhase"

set row1132 [$diag addRow attribute 0.0]
$row1132 setLabel "name_type" "scEndScroll: enum"
$row1132 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TOwnerDrawState "DelphiVCL" "" "" "" "" "" 1]

set row1133 [$diag addRow attribute 0.0]
$row1133 setLabel "name_type" "odSelected: enum\n"
$row1133 setScope "name_type" "cl" "scopePhase"

set row1134 [$diag addRow attribute 0.0]
$row1134 setLabel "name_type" "odGrayed: enum\n"
$row1134 setScope "name_type" "cl" "scopePhase"

set row1135 [$diag addRow attribute 0.0]
$row1135 setLabel "name_type" "odDisabled: enum\n"
$row1135 setScope "name_type" "cl" "scopePhase"

set row1136 [$diag addRow attribute 0.0]
$row1136 setLabel "name_type" "odChecked: enum\n"
$row1136 setScope "name_type" "cl" "scopePhase"

set row1137 [$diag addRow attribute 0.0]
$row1137 setLabel "name_type" "odFocused: enum"
$row1137 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new ExtCtrlsClasses "DelphiVCL" "" "" "" "" "" 1]

set node1144 [$diag addNode cad_class 1424.0 1232.0 147.0 33.0]
$node1144 setLabel "name" "TCustomGroupBox"
$node1144 setProp "is_folded" "1"
$node1144 setScope "name" "cl" "scopePhase"
$node1144 setProp "is_vcl" "1" "name" "cl"
$node1144 setProp "libunit" "StdCtrls" "name" "cl"

set node1145 [$diag addNode cad_class 1440.0 1120.0 130.0 33.0]
$node1145 setLabel "name" "TCustomControl"
$node1145 setProp "is_folded" "1"
$node1145 setScope "name" "cl" "scopePhase"
$node1145 setProp "is_vcl" "1" "name" "cl"
$node1145 setProp "libunit" "Controls" "name" "cl"

set node1146 [$diag addNode cad_class 992.0 1008.0 131.0 33.0]
$node1146 setLabel "name" "TGraphicControl"
$node1146 setProp "is_folded" "1"
$node1146 setScope "name" "cl" "scopePhase"
$node1146 setProp "is_vcl" "1" "name" "cl"
$node1146 setProp "libunit" "Controls" "name" "cl"

set node1147 [$diag addNode cad_class 1168.0 800.0 120.0 33.0]
$node1147 setLabel "name" "TComponent"
$node1147 setProp "is_folded" "1"
$node1147 setScope "name" "cl" "scopePhase"
$node1147 setProp "is_vcl" "1" "name" "cl"
$node1147 setProp "libunit" "Classes" "name" "cl"

set node1148 [$diag addNode cad_class 992.0 912.0 120.0 33.0]
$node1148 setLabel "name" "TTimer"
$node1148 setProp "is_folded" "1"
$node1148 setScope "name" "cl" "scopePhase"
$node1148 setProp "is_vcl" "1" "name" "cl"
$node1148 setProp "libunit" "ExtCtrls" "name" "cl"

set node1149 [$diag addNode cad_class 1184.0 1120.0 120.0 33.0]
$node1149 setLabel "name" "TShape"
$node1149 setProp "is_folded" "1"
$node1149 setScope "name" "cl" "scopePhase"
$node1149 setProp "is_vcl" "1" "name" "cl"
$node1149 setProp "libunit" "ExtCtrls" "name" "cl"

set node1150 [$diag addNode cad_class 1440.0 1456.0 120.0 33.0]
$node1150 setLabel "name" "TRadioGroup"
$node1150 setProp "is_folded" "1"
$node1150 setScope "name" "cl" "scopePhase"
$node1150 setProp "is_vcl" "1" "name" "cl"
$node1150 setProp "libunit" "ExtCtrls" "name" "cl"

set node1151 [$diag addNode cad_class 1264.0 1344.0 120.0 33.0]
$node1151 setLabel "name" "TPanel"
$node1151 setProp "is_folded" "1"
$node1151 setScope "name" "cl" "scopePhase"
$node1151 setProp "is_vcl" "1" "name" "cl"
$node1151 setProp "libunit" "ExtCtrls" "name" "cl"

set node1152 [$diag addNode cad_class 1056.0 1120.0 120.0 33.0]
$node1152 setLabel "name" "TPaintBox"
$node1152 setProp "is_folded" "1"
$node1152 setScope "name" "cl" "scopePhase"
$node1152 setProp "is_vcl" "1" "name" "cl"
$node1152 setProp "libunit" "ExtCtrls" "name" "cl"

set node1153 [$diag addNode cad_class 928.0 1120.0 120.0 33.0]
$node1153 setLabel "name" "TImage"
$node1153 setProp "is_folded" "1"
$node1153 setScope "name" "cl" "scopePhase"
$node1153 setProp "is_vcl" "1" "name" "cl"
$node1153 setProp "libunit" "ExtCtrls" "name" "cl"

set node1154 [$diag addNode cad_class 1744.0 1232.0 120.0 33.0]
$node1154 setLabel "name" "TNotebook"
$node1154 setProp "is_folded" "1"
$node1154 setScope "name" "cl" "scopePhase"
$node1154 setProp "is_vcl" "1" "name" "cl"
$node1154 setProp "libunit" "ExtCtrls" "name" "cl"

set node1155 [$diag addNode cad_class 1600.0 1232.0 120.0 33.0]
$node1155 setLabel "name" "THeader"
$node1155 setProp "is_folded" "1"
$node1155 setScope "name" "cl" "scopePhase"
$node1155 setProp "is_vcl" "1" "name" "cl"
$node1155 setProp "libunit" "ExtCtrls" "name" "cl"

set node1156 [$diag addNode cad_class 1424.0 1344.0 162.0 33.0]
$node1156 setLabel "name" "TCustomRadioGroup"
$node1156 setProp "is_folded" "1"
$node1156 setScope "name" "cl" "scopePhase"
$node1156 setProp "is_vcl" "1" "name" "cl"
$node1156 setProp "libunit" "ExtCtrls" "name" "cl"

set node1157 [$diag addNode cad_class 1264.0 1232.0 120.0 33.0]
$node1157 setLabel "name" "TCustomPanel"
$node1157 setProp "is_folded" "1"
$node1157 setScope "name" "cl" "scopePhase"
$node1157 setProp "is_vcl" "1" "name" "cl"
$node1157 setProp "libunit" "ExtCtrls" "name" "cl"

set node1158 [$diag addNode cad_class 800.0 1120.0 120.0 33.0]
$node1158 setLabel "name" "TBevel"
$node1158 setProp "is_folded" "1"
$node1158 setScope "name" "cl" "scopePhase"
$node1158 setProp "is_vcl" "1" "name" "cl"
$node1158 setProp "libunit" "ExtCtrls" "name" "cl"

set node1138 [$diag addRake generalization $node1146 $node1149 1056.0 1040.0 1248.0 1136.0 1080.0]

set conn1159 [$node1138 getInConn]
set segm1160 [$conn1159 getFirstSegm]

set conn1161 [$node1138 getFirstOutConn]
set segm1162 [$conn1161 getFirstSegm]

set conn1163 [$diag addConn generalization_conn $node1138 $node1152 1120.0 1080.5 1120.0 1136.0]
set segm1164 [$conn1163 getFirstSegm]

set conn1165 [$diag addConn generalization_conn $node1138 $node1153 1120.0 1080.5 992.0 1136.0]
set segm1166 [$conn1165 getFirstSegm]

set conn1167 [$diag addConn generalization_conn $node1138 $node1158 1066.0 1080.5 864.0 1120.0]
set segm1168 [$conn1167 getFirstSegm]

set node1139 [$diag addRake generalization $node1156 $node1150 1504.0 1376.0 1504.0 1472.0 1424.0]

set conn1169 [$node1139 getInConn]
set segm1170 [$conn1169 getFirstSegm]

set conn1171 [$node1139 getFirstOutConn]
set segm1172 [$conn1171 getFirstSegm]

set node1140 [$diag addRake generalization $node1157 $node1151 1328.0 1264.0 1328.0 1360.0 1312.0]

set conn1173 [$node1140 getInConn]
set segm1174 [$conn1173 getFirstSegm]

set conn1175 [$node1140 getFirstOutConn]
set segm1176 [$conn1175 getFirstSegm]

set node1141 [$diag addRake generalization $node1144 $node1156 1504.0 1264.0 1504.0 1360.0 1312.0]

set conn1177 [$node1141 getInConn]
set segm1178 [$conn1177 getFirstSegm]

set conn1179 [$node1141 getFirstOutConn]
set segm1180 [$conn1179 getFirstSegm]

set node1142 [$diag addRake generalization $node1145 $node1154 1504.0 1152.0 1808.0 1232.0 1192.0]

set conn1181 [$node1142 getInConn]
set segm1182 [$conn1181 getFirstSegm]

set conn1183 [$node1142 getFirstOutConn]
set segm1184 [$conn1183 getFirstSegm]

set conn1185 [$diag addConn generalization_conn $node1142 $node1155 1664.0 1192.5 1664.0 1248.0]
set segm1186 [$conn1185 getFirstSegm]

set conn1187 [$diag addConn generalization_conn $node1142 $node1157 1514.0 1192.5 1328.0 1232.0]
set segm1188 [$conn1187 getFirstSegm]

set node1143 [$diag addRake generalization $node1147 $node1148 1232.0 832.0 1056.0 928.0 872.0]

set conn1189 [$node1143 getInConn]
set segm1190 [$conn1189 getFirstSegm]

set conn1191 [$node1143 getFirstOutConn]
set segm1192 [$conn1191 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new ControlsClasses "DelphiVCL" "" "" "" "" "" 1]

set node1197 [$diag addNode cad_class 1536.0 800.0 120.0 33.0]
$node1197 setLabel "name" "TObject"
$node1197 setProp "is_folded" "1"
$node1197 setScope "name" "cl" "scopePhase"
$node1197 setProp "is_vcl" "1" "name" "cl"
$node1197 setProp "libunit" "System" "name" "cl"

set node1202 [$diag addNode cad_class 1232.0 896.0 120.0 33.0]
$node1202 setLabel "name" "TCanvas"
$node1202 setProp "is_folded" "1"
$node1202 setScope "name" "cl" "scopePhase"
$node1202 setProp "is_vcl" "1" "name" "cl"

set node1203 [$diag addNode cad_class 1008.0 800.0 120.0 33.0]
$node1203 setLabel "name" "TPersistent"
$node1203 setProp "is_folded" "1"
$node1203 setScope "name" "cl" "scopePhase"
$node1203 setProp "is_vcl" "1" "name" "cl"
$node1203 setProp "libunit" "Classes" "name" "cl"

set node1204 [$diag addNode cad_class 800.0 992.0 143.0 33.0]
$node1204 setLabel "name" "TCustomImageList"
$node1204 setProp "is_folded" "1"
$node1204 setScope "name" "cl" "scopePhase"
$node1204 setProp "is_vcl" "1" "name" "cl"
$node1204 setProp "libunit" "Controls" "name" "cl"

set node1205 [$diag addNode cad_class 1008.0 896.0 120.0 33.0]
$node1205 setLabel "name" "TComponent"
$node1205 setProp "is_folded" "1"
$node1205 setScope "name" "cl" "scopePhase"
$node1205 setProp "is_vcl" "1" "name" "cl"
$node1205 setProp "libunit" "Classes" "name" "cl"

set node1206 [$diag addNode cad_class 1536.0 896.0 120.0 33.0]
$node1206 setLabel "name" "TDragObject"
$node1206 setProp "is_folded" "1"
$node1206 setScope "name" "cl" "scopePhase"
$node1206 setProp "is_vcl" "1" "name" "cl"
$node1206 setProp "libunit" "Controls" "name" "cl"

set node1207 [$diag addNode cad_class 1520.0 992.0 156.0 33.0]
$node1207 setLabel "name" "TDragControlObject"
$node1207 setProp "is_folded" "1"
$node1207 setScope "name" "cl" "scopePhase"
$node1207 setProp "is_vcl" "1" "name" "cl"
$node1207 setProp "libunit" "Controls" "name" "cl"

set node1208 [$diag addNode cad_class 1696.0 896.0 120.0 33.0]
$node1208 setLabel "name" "TChangeLink"
$node1208 setProp "is_folded" "1"
$node1208 setScope "name" "cl" "scopePhase"
$node1208 setProp "is_vcl" "1" "name" "cl"
$node1208 setProp "libunit" "Controls" "name" "cl"

set node1209 [$diag addNode cad_class 1008.0 1088.0 120.0 33.0]
$node1209 setLabel "name" "TWinControl"
$node1209 setProp "is_folded" "1"
$node1209 setScope "name" "cl" "scopePhase"
$node1209 setProp "is_vcl" "1" "name" "cl"
$node1209 setProp "libunit" "Controls" "name" "cl"

set node1210 [$diag addNode cad_class 816.0 1088.0 120.0 33.0]
$node1210 setLabel "name" "TImageList"
$node1210 setProp "is_folded" "1"
$node1210 setScope "name" "cl" "scopePhase"
$node1210 setProp "is_vcl" "1" "name" "cl"
$node1210 setProp "libunit" "Controls" "name" "cl"

set node1211 [$diag addNode cad_class 1008.0 1280.0 120.0 33.0]
$node1211 setLabel "name" "THintWindow"
$node1211 setProp "is_folded" "1"
$node1211 setScope "name" "cl" "scopePhase"
$node1211 setProp "is_vcl" "1" "name" "cl"
$node1211 setProp "libunit" "Controls" "name" "cl"

set node1212 [$diag addNode cad_class 1200.0 1088.0 131.0 33.0]
$node1212 setLabel "name" "TGraphicControl"
$node1212 setProp "is_folded" "1"
$node1212 setScope "name" "cl" "scopePhase"
$node1212 setProp "is_vcl" "1" "name" "cl"
$node1212 setProp "libunit" "Controls" "name" "cl"

set node1213 [$diag addNode cad_class 1008.0 1184.0 130.0 33.0]
$node1213 setLabel "name" "TCustomControl"
$node1213 setProp "is_folded" "1"
$node1213 setScope "name" "cl" "scopePhase"
$node1213 setProp "is_vcl" "1" "name" "cl"
$node1213 setProp "libunit" "Controls" "name" "cl"

set node1214 [$diag addNode cad_class 1232.0 992.0 128.0 33.0]
$node1214 setLabel "name" "TControlCanvas"
$node1214 setProp "is_folded" "1"
$node1214 setScope "name" "cl" "scopePhase"
$node1214 setProp "is_vcl" "1" "name" "cl"
$node1214 setProp "libunit" "Controls" "name" "cl"

set node1215 [$diag addNode cad_class 1008.0 992.0 120.0 33.0]
$node1215 setLabel "name" "TControl"
$node1215 setProp "is_folded" "1"
$node1215 setScope "name" "cl" "scopePhase"
$node1215 setProp "is_vcl" "1" "name" "cl"
$node1215 setProp "libunit" "Controls" "name" "cl"

set node1193 [$diag addRake generalization $node1202 $node1214 1296.0 928.0 1296.0 1008.0 968.0]

set conn1216 [$node1193 getInConn]
set segm1217 [$conn1216 getFirstSegm]

set conn1218 [$node1193 getFirstOutConn]
set segm1219 [$conn1218 getFirstSegm]

set node1194 [$diag addRake generalization $node1205 $node1215 1072.0 928.0 1072.0 1008.0 968.0]

set conn1220 [$node1194 getInConn]
set segm1221 [$conn1220 getFirstSegm]

set conn1222 [$node1194 getFirstOutConn]
set segm1223 [$conn1222 getFirstSegm]

set conn1224 [$diag addConn generalization_conn $node1194 $node1204 1082.0 968.5 864.0 1008.0]
set segm1225 [$conn1224 getFirstSegm]

set node1195 [$diag addRake generalization $node1206 $node1207 1600.0 928.0 1600.0 1008.0 968.0]

set conn1226 [$node1195 getInConn]
set segm1227 [$conn1226 getFirstSegm]

set conn1228 [$node1195 getFirstOutConn]
set segm1229 [$conn1228 getFirstSegm]

set node1196 [$diag addRake generalization $node1197 $node1208 1600.0 832.0 1760.0 928.0 872.0]

set conn1230 [$node1196 getInConn]
set segm1231 [$conn1230 getFirstSegm]

set conn1232 [$node1196 getFirstOutConn]
set segm1233 [$conn1232 getFirstSegm]

set conn1234 [$diag addConn generalization_conn $node1196 $node1206 1760.0 872.5 1600.0 912.0]
set segm1235 [$conn1234 getFirstSegm]

set node1198 [$diag addRake generalization $node1213 $node1211 1072.0 1216.0 1072.0 1296.0 1256.0]

set conn1236 [$node1198 getInConn]
set segm1237 [$conn1236 getFirstSegm]

set conn1238 [$node1198 getFirstOutConn]
set segm1239 [$conn1238 getFirstSegm]

set node1199 [$diag addRake generalization $node1209 $node1213 1072.0 1120.0 1072.0 1200.0 1160.0]

set conn1240 [$node1199 getInConn]
set segm1241 [$conn1240 getFirstSegm]

set conn1242 [$node1199 getFirstOutConn]
set segm1243 [$conn1242 getFirstSegm]

set node1200 [$diag addRake generalization $node1215 $node1212 1072.0 1024.0 1264.0 1104.0 1064.0]

set conn1244 [$node1200 getInConn]
set segm1245 [$conn1244 getFirstSegm]

set conn1246 [$node1200 getFirstOutConn]
set segm1247 [$conn1246 getFirstSegm]

set conn1248 [$diag addConn generalization_conn $node1200 $node1209 1168.0 1064.5 1072.0 1104.0]
set segm1249 [$conn1248 getFirstSegm]

set conn1250 [$diag addConn generalization_conn $node1200 $node1210 1082.0 1064.5 880.0 1104.0]
set segm1251 [$conn1250 getFirstSegm]

set node1201 [$diag addRake generalization $node1203 $node1202 1072.0 832.0 1296.0 912.0 872.0]

set conn1252 [$node1201 getInConn]
set segm1253 [$conn1252 getFirstSegm]

set conn1254 [$node1201 getFirstOutConn]
set segm1255 [$conn1254 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new ControlsTypes "DelphiVCL" "" "" "" "" "" 1]

set node1256 [$diag addNode cad_class 736.0 704.0 127.0 135.0]
$node1256 setLabel "name" "TMouseButton"
$node1256 setScope "name" "cl" "scopePhase"
$node1256 setProp "is_vcl" "1" "name" "cl"
$node1256 setProp "libunit" "Controls" "name" "cl"

set node1257 [$diag addNode cad_class 528.0 704.0 152.0 135.0]
$node1257 setLabel "name" "TDragState"
$node1257 setScope "name" "cl" "scopePhase"
$node1257 setProp "is_vcl" "1" "name" "cl"
$node1257 setProp "libunit" "Controls" "name" "cl"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new FormsTypes "DelphiVCL" "" "" "" "" "" 1]

set node1258 [$diag addNode cad_class 784.0 800.0 137.0 151.0]
$node1258 setLabel "name" "TCloseAction"
$node1258 setScope "name" "cl" "scopePhase"
$node1258 setProp "is_vcl" "1" "name" "cl"

set node1259 [$diag addNode cad_class 944.0 800.0 120.0 103.0]
$node1259 setLabel "name" "TMsg"
$node1259 setScope "name" "cl" "scopePhase"
$node1259 setProp "is_vcl" "1" "name" "cl"
$node1259 setProp "libunit" "Forms" "name" "cl"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TControl "DelphiVCL" "" "" "" "" "" 1]

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

set cell1261 [$row1260 addCell parameter 0.0]
$cell1261 setLabel "name_type" "Sender: TObject"
$cell1261 setScope "name_type" "cl" "scopePhase"
$cell1261 setProp "is_vcl" "1" "name_type" "cl"
$cell1261 setProp "libunit" "System" "name_type" "cl"
$cell1261 setScope "name_type" "de" "scopeSystem"

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

set cell1263 [$row1262 addCell parameter 0.0]
$cell1263 setLabel "name_type" "Sender: TObject"
$cell1263 setScope "name_type" "cl" "scopePhase"
$cell1263 setProp "is_vcl" "1" "name_type" "cl"
$cell1263 setProp "libunit" "System" "name_type" "cl"
$cell1263 setScope "name_type" "de" "scopeSystem"

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

set cell1265 [$row1264 addCell parameter 0.0]
$cell1265 setLabel "name_type" "Sender: TObject, "
$cell1265 setScope "name_type" "cl" "scopePhase"
$cell1265 setProp "is_vcl" "1" "name_type" "cl"
$cell1265 setProp "libunit" "System" "name_type" "cl"
$cell1265 setScope "name_type" "de" "scopeSystem"

set cell1266 [$row1264 addCell parameter 0.0]
$cell1266 setLabel "name_type" "Source: TObject, "
$cell1266 setScope "name_type" "cl" "scopePhase"
$cell1266 setProp "is_vcl" "1" "name_type" "cl"
$cell1266 setProp "libunit" "System" "name_type" "cl"
$cell1266 setScope "name_type" "de" "scopeSystem"

set cell1267 [$row1264 addCell parameter 0.0]
$cell1267 setLabel "name_type" "X: int, "
$cell1267 setScope "name_type" "cl" "scopePhase"
$cell1267 setScope "name_type" "de" "scopeSystem"

set cell1268 [$row1264 addCell parameter 0.0]
$cell1268 setLabel "name_type" "Y: int"
$cell1268 setScope "name_type" "cl" "scopePhase"
$cell1268 setScope "name_type" "de" "scopeSystem"

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

set cell1270 [$row1269 addCell parameter 0.0]
$cell1270 setLabel "name_type" "Sender: TObject, "
$cell1270 setScope "name_type" "cl" "scopePhase"
$cell1270 setProp "is_vcl" "1" "name_type" "cl"
$cell1270 setProp "libunit" "System" "name_type" "cl"
$cell1270 setScope "name_type" "de" "scopeSystem"

set cell1271 [$row1269 addCell parameter 0.0]
$cell1271 setLabel "name_type" "Source: TObject, "
$cell1271 setScope "name_type" "cl" "scopePhase"
$cell1271 setProp "is_vcl" "1" "name_type" "cl"
$cell1271 setProp "libunit" "System" "name_type" "cl"
$cell1271 setScope "name_type" "de" "scopeSystem"

set cell1272 [$row1269 addCell parameter 0.0]
$cell1272 setLabel "name_type" "X: int, "
$cell1272 setScope "name_type" "cl" "scopePhase"
$cell1272 setScope "name_type" "de" "scopeSystem"

set cell1273 [$row1269 addCell parameter 0.0]
$cell1273 setLabel "name_type" "Y: int, "
$cell1273 setScope "name_type" "cl" "scopePhase"
$cell1273 setScope "name_type" "de" "scopeSystem"

set cell1274 [$row1269 addCell parameter 0.0]
$cell1274 setLabel "name_type" "State: TDragState, "
$cell1274 setScope "name_type" "cl" "scopePhase"
$cell1274 setProp "is_vcl" "1" "name_type" "cl"
$cell1274 setProp "libunit" "Controls" "name_type" "cl"
$cell1274 setScope "name_type" "de" "scopeSystem"

set cell1275 [$row1269 addCell parameter 0.0]
$cell1275 setLabel "name_type" "Accept: bool"
$cell1275 setScope "name_type" "cl" "scopePhase"
$cell1275 setScope "name_type" "de" "scopeSystem"

set row1276 [$diag addRow method 0.0]
$row1276 setLabel "name_type" "EndDrag()\n"
$row1276 setProp "has_parmlist" "1"
$row1276 setProp "is_event" "1"
$row1276 setProp "method_access" "Private"

set cell1277 [$row1276 addCell parameter 0.0]
$cell1277 setLabel "name_type" "Sender: TObject, "
$cell1277 setScope "name_type" "cl" "scopePhase"
$cell1277 setProp "is_vcl" "1" "name_type" "cl"
$cell1277 setProp "libunit" "System" "name_type" "cl"
$cell1277 setScope "name_type" "de" "scopeSystem"

set cell1278 [$row1276 addCell parameter 0.0]
$cell1278 setLabel "name_type" "Source: TObject, "
$cell1278 setScope "name_type" "cl" "scopePhase"
$cell1278 setProp "is_vcl" "1" "name_type" "cl"
$cell1278 setProp "libunit" "System" "name_type" "cl"
$cell1278 setScope "name_type" "de" "scopeSystem"

set cell1279 [$row1276 addCell parameter 0.0]
$cell1279 setLabel "name_type" "X: int, "
$cell1279 setScope "name_type" "cl" "scopePhase"
$cell1279 setScope "name_type" "de" "scopeSystem"

set cell1280 [$row1276 addCell parameter 0.0]
$cell1280 setLabel "name_type" "Y: int"
$cell1280 setScope "name_type" "cl" "scopePhase"
$cell1280 setScope "name_type" "de" "scopeSystem"

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

set cell1282 [$row1281 addCell parameter 0.0]
$cell1282 setLabel "name_type" "Sender: TObject, "
$cell1282 setScope "name_type" "cl" "scopePhase"
$cell1282 setProp "is_vcl" "1" "name_type" "cl"
$cell1282 setProp "libunit" "System" "name_type" "cl"
$cell1282 setScope "name_type" "de" "scopeSystem"

set cell1283 [$row1281 addCell parameter 0.0]
$cell1283 setLabel "name_type" "Button: TMouseButton, "
$cell1283 setScope "name_type" "cl" "scopePhase"
$cell1283 setProp "is_vcl" "1" "name_type" "cl"
$cell1283 setProp "libunit" "Controls" "name_type" "cl"
$cell1283 setScope "name_type" "de" "scopeSystem"

set cell1284 [$row1281 addCell parameter 0.0]
$cell1284 setLabel "name_type" "Shift: TShiftState, "
$cell1284 setScope "name_type" "cl" "scopePhase"
$cell1284 setProp "is_vcl" "1" "name_type" "cl"
$cell1284 setProp "libunit" "Classes" "name_type" "cl"
$cell1284 setScope "name_type" "de" "scopeSystem"

set cell1285 [$row1281 addCell parameter 0.0]
$cell1285 setLabel "name_type" "X: int, "
$cell1285 setScope "name_type" "cl" "scopePhase"
$cell1285 setScope "name_type" "de" "scopeSystem"

set cell1286 [$row1281 addCell parameter 0.0]
$cell1286 setLabel "name_type" "Y: int"
$cell1286 setScope "name_type" "cl" "scopePhase"
$cell1286 setScope "name_type" "de" "scopeSystem"

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

set cell1288 [$row1287 addCell parameter 0.0]
$cell1288 setLabel "name_type" "Sender: TObject, "
$cell1288 setScope "name_type" "cl" "scopePhase"
$cell1288 setProp "is_vcl" "1" "name_type" "cl"
$cell1288 setProp "libunit" "System" "name_type" "cl"
$cell1288 setScope "name_type" "de" "scopeSystem"

set cell1289 [$row1287 addCell parameter 0.0]
$cell1289 setLabel "name_type" "Shift: TShiftState, "
$cell1289 setScope "name_type" "cl" "scopePhase"
$cell1289 setProp "is_vcl" "1" "name_type" "cl"
$cell1289 setProp "libunit" "Classes" "name_type" "cl"
$cell1289 setScope "name_type" "de" "scopeSystem"

set cell1290 [$row1287 addCell parameter 0.0]
$cell1290 setLabel "name_type" "X: int, "
$cell1290 setScope "name_type" "cl" "scopePhase"
$cell1290 setScope "name_type" "de" "scopeSystem"

set cell1291 [$row1287 addCell parameter 0.0]
$cell1291 setLabel "name_type" "Y: int"
$cell1291 setScope "name_type" "cl" "scopePhase"
$cell1291 setScope "name_type" "de" "scopeSystem"

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

set cell1293 [$row1292 addCell parameter 0.0]
$cell1293 setLabel "name_type" "Sender: TObject, "
$cell1293 setScope "name_type" "cl" "scopePhase"
$cell1293 setProp "is_vcl" "1" "name_type" "cl"
$cell1293 setProp "libunit" "System" "name_type" "cl"
$cell1293 setScope "name_type" "de" "scopeSystem"

set cell1294 [$row1292 addCell parameter 0.0]
$cell1294 setLabel "name_type" "Button: TMouseButton, "
$cell1294 setScope "name_type" "cl" "scopePhase"
$cell1294 setProp "is_vcl" "1" "name_type" "cl"
$cell1294 setProp "libunit" "Controls" "name_type" "cl"
$cell1294 setScope "name_type" "de" "scopeSystem"

set cell1295 [$row1292 addCell parameter 0.0]
$cell1295 setLabel "name_type" "Shift: TShiftState, "
$cell1295 setScope "name_type" "cl" "scopePhase"
$cell1295 setProp "is_vcl" "1" "name_type" "cl"
$cell1295 setProp "libunit" "Classes" "name_type" "cl"
$cell1295 setScope "name_type" "de" "scopeSystem"

set cell1296 [$row1292 addCell parameter 0.0]
$cell1296 setLabel "name_type" "X: int, "
$cell1296 setScope "name_type" "cl" "scopePhase"
$cell1296 setScope "name_type" "de" "scopeSystem"

set cell1297 [$row1292 addCell parameter 0.0]
$cell1297 setLabel "name_type" "Y: int"
$cell1297 setScope "name_type" "cl" "scopePhase"
$cell1297 setScope "name_type" "de" "scopeSystem"

set row1298 [$diag addRow method 0.0]
$row1298 setLabel "name_type" "StartDrag()"
$row1298 setProp "has_parmlist" "1"
$row1298 setProp "is_event" "1"

set cell1299 [$row1298 addCell parameter 0.0]
$cell1299 setLabel "name_type" "Sender: TObject, "
$cell1299 setScope "name_type" "cl" "scopePhase"
$cell1299 setProp "is_vcl" "1" "name_type" "cl"
$cell1299 setProp "libunit" "System" "name_type" "cl"
$cell1299 setScope "name_type" "de" "scopeSystem"

set cell1300 [$row1298 addCell parameter 0.0]
$cell1300 setLabel "name_type" "DragObject: TDragObject"
$cell1300 setProp "pass_by" "Variable"
$cell1300 setScope "name_type" "cl" "scopePhase"
$cell1300 setProp "is_vcl" "1" "name_type" "cl"
$cell1300 setProp "libunit" "Controls" "name_type" "cl"
$cell1300 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TDragState "DelphiVCL" "" "" "" "" "" 1]

set row1301 [$diag addRow attribute 0.0]
$row1301 setLabel "name_type" "\$dsDragEnter: enum\n"
$row1301 setProp "is_class_feature" "1"
$row1301 setScope "name_type" "cl" "scopePhase"

set row1302 [$diag addRow attribute 0.0]
$row1302 setLabel "name_type" "\$dsDragLeave: enum\n"
$row1302 setProp "is_class_feature" "1"
$row1302 setScope "name_type" "cl" "scopePhase"

set row1303 [$diag addRow attribute 0.0]
$row1303 setLabel "name_type" "\$dsDragMove: enum"
$row1303 setProp "is_class_feature" "1"
$row1303 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TImageList "DelphiVCL" "" "" "" "" "" 1]

set row1304 [$diag addRow method 0.0]
$row1304 setLabel "name_type" "Change()"
$row1304 setProp "has_parmlist" "1"
$row1304 setProp "is_event" "1"

set cell1305 [$row1304 addCell parameter 0.0]
$cell1305 setLabel "name_type" "Sender: TObject"
$cell1305 setScope "name_type" "cl" "scopePhase"
$cell1305 setProp "is_vcl" "1" "name_type" "cl"
$cell1305 setProp "libunit" "System" "name_type" "cl"
$cell1305 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new ClassesTypes "DelphiVCL" "" "" "" "" "" 1]

set node1306 [$diag addNode cad_class 576.0 688.0 126.0 199.0]
$node1306 setLabel "name" "TShiftState"
$node1306 setScope "name" "cl" "scopePhase"
$node1306 setProp "is_vcl" "1" "name" "cl"
$node1306 setProp "libunit" "Classes" "name" "cl"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TShiftState "DelphiVCL" "" "" "" "" "" 1]

set row1307 [$diag addRow attribute 0.0]
$row1307 setLabel "name_type" "\$ssShift: enum\n"
$row1307 setProp "is_class_feature" "1"
$row1307 setScope "name_type" "cl" "scopePhase"

set row1308 [$diag addRow attribute 0.0]
$row1308 setLabel "name_type" "\$ssAlt: enum\n"
$row1308 setProp "is_class_feature" "1"
$row1308 setScope "name_type" "cl" "scopePhase"

set row1309 [$diag addRow attribute 0.0]
$row1309 setLabel "name_type" "\$ssCtrl: enum\n"
$row1309 setProp "is_class_feature" "1"
$row1309 setScope "name_type" "cl" "scopePhase"

set row1310 [$diag addRow attribute 0.0]
$row1310 setLabel "name_type" "\$ssLeft: enum\n"
$row1310 setProp "is_class_feature" "1"
$row1310 setScope "name_type" "cl" "scopePhase"

set row1311 [$diag addRow attribute 0.0]
$row1311 setLabel "name_type" "\$ssRight: enum\n"
$row1311 setProp "is_class_feature" "1"
$row1311 setScope "name_type" "cl" "scopePhase"

set row1312 [$diag addRow attribute 0.0]
$row1312 setLabel "name_type" "\$ssMiddle: enum\n"
$row1312 setProp "is_class_feature" "1"
$row1312 setScope "name_type" "cl" "scopePhase"

set row1313 [$diag addRow attribute 0.0]
$row1313 setLabel "name_type" "\$ssDouble: enum"
$row1313 setProp "is_class_feature" "1"
$row1313 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TWinControl "DelphiVCL" "" "" "" "" "" 1]

set row1314 [$diag addRow method 0.0]
$row1314 setLabel "name_type" "Enter()\n"
$row1314 setProp "has_parmlist" "1"
$row1314 setProp "is_event" "1"
$row1314 setProp "method_access" "Private"

set cell1315 [$row1314 addCell parameter 0.0]
$cell1315 setLabel "name_type" "Sender: TObject"
$cell1315 setScope "name_type" "cl" "scopePhase"
$cell1315 setProp "is_vcl" "1" "name_type" "cl"
$cell1315 setProp "libunit" "System" "name_type" "cl"
$cell1315 setScope "name_type" "de" "scopeSystem"

set row1316 [$diag addRow method 0.0]
$row1316 setLabel "name_type" "Exit()\n"
$row1316 setProp "has_parmlist" "1"
$row1316 setProp "is_event" "1"
$row1316 setProp "method_access" "Private"

set cell1317 [$row1316 addCell parameter 0.0]
$cell1317 setLabel "name_type" "Sender: TObject"
$cell1317 setScope "name_type" "cl" "scopePhase"
$cell1317 setProp "is_vcl" "1" "name_type" "cl"
$cell1317 setProp "libunit" "System" "name_type" "cl"
$cell1317 setScope "name_type" "de" "scopeSystem"

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

set cell1319 [$row1318 addCell parameter 0.0]
$cell1319 setLabel "name_type" "Sender: TObject, "
$cell1319 setScope "name_type" "cl" "scopePhase"
$cell1319 setProp "is_vcl" "1" "name_type" "cl"
$cell1319 setProp "libunit" "System" "name_type" "cl"
$cell1319 setScope "name_type" "de" "scopeSystem"

set cell1320 [$row1318 addCell parameter 0.0]
$cell1320 setLabel "name_type" "Key: word, "
$cell1320 setProp "pass_by" "Variable"
$cell1320 setScope "name_type" "cl" "scopePhase"
$cell1320 setScope "name_type" "de" "scopeSystem"

set cell1321 [$row1318 addCell parameter 0.0]
$cell1321 setLabel "name_type" "Shift: TShiftState"
$cell1321 setScope "name_type" "cl" "scopePhase"
$cell1321 setProp "is_vcl" "1" "name_type" "cl"
$cell1321 setProp "libunit" "Classes" "name_type" "cl"
$cell1321 setScope "name_type" "de" "scopeSystem"

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

set cell1323 [$row1322 addCell parameter 0.0]
$cell1323 setLabel "name_type" "Sender: TObject, "
$cell1323 setScope "name_type" "cl" "scopePhase"
$cell1323 setProp "is_vcl" "1" "name_type" "cl"
$cell1323 setProp "libunit" "System" "name_type" "cl"
$cell1323 setScope "name_type" "de" "scopeSystem"

set cell1324 [$row1322 addCell parameter 0.0]
$cell1324 setLabel "name_type" "Key: char"
$cell1324 setProp "pass_by" "Variable"
$cell1324 setScope "name_type" "cl" "scopePhase"
$cell1324 setScope "name_type" "de" "scopeSystem"

set row1325 [$diag addRow method 0.0]
$row1325 setLabel "name_type" "KeyUp()"
$row1325 setProp "has_parmlist" "1"
$row1325 setProp "is_event" "1"
$row1325 setProp "method_access" "Private"

set cell1326 [$row1325 addCell parameter 0.0]
$cell1326 setLabel "name_type" "Sender: TObject, "
$cell1326 setScope "name_type" "cl" "scopePhase"
$cell1326 setProp "is_vcl" "1" "name_type" "cl"
$cell1326 setProp "libunit" "System" "name_type" "cl"
$cell1326 setScope "name_type" "de" "scopeSystem"

set cell1327 [$row1325 addCell parameter 0.0]
$cell1327 setLabel "name_type" "Key: word, "
$cell1327 setProp "pass_by" "Variable"
$cell1327 setScope "name_type" "cl" "scopePhase"
$cell1327 setScope "name_type" "de" "scopeSystem"

set cell1328 [$row1325 addCell parameter 0.0]
$cell1328 setLabel "name_type" "Shift: TShiftState"
$cell1328 setScope "name_type" "cl" "scopePhase"
$cell1328 setProp "is_vcl" "1" "name_type" "cl"
$cell1328 setProp "libunit" "Classes" "name_type" "cl"
$cell1328 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TChangeLink "DelphiVCL" "" "" "" "" "" 1]

set row1329 [$diag addRow method 0.0]
$row1329 setLabel "name_type" "Change()"
$row1329 setProp "has_parmlist" "1"
$row1329 setProp "is_event" "1"

set cell1330 [$row1329 addCell parameter 0.0]
$cell1330 setLabel "name_type" "Sender: TObject"
$cell1330 setScope "name_type" "cl" "scopePhase"
$cell1330 setProp "is_vcl" "1" "name_type" "cl"
$cell1330 setProp "libunit" "System" "name_type" "cl"
$cell1330 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TMouseButton "DelphiVCL" "" "" "" "" "" 1]

set row1331 [$diag addRow attribute 0.0]
$row1331 setLabel "name_type" "\$mbLeft: enum\n"
$row1331 setProp "is_class_feature" "1"
$row1331 setScope "name_type" "cl" "scopePhase"

set row1332 [$diag addRow attribute 0.0]
$row1332 setLabel "name_type" "\$mbRight: enum\n"
$row1332 setProp "is_class_feature" "1"
$row1332 setScope "name_type" "cl" "scopePhase"

set row1333 [$diag addRow attribute 0.0]
$row1333 setLabel "name_type" "\$mbMiddle: enum"
$row1333 setProp "is_class_feature" "1"
$row1333 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TCloseAction "DelphiVCL" "" "" "" "" "" 1]

set row1334 [$diag addRow attribute 0.0]
$row1334 setLabel "name_type" "\$caNone: enum\n"
$row1334 setProp "is_class_feature" "1"
$row1334 setScope "name_type" "cl" "scopePhase"

set row1335 [$diag addRow attribute 0.0]
$row1335 setLabel "name_type" "\$caHide: enum\n"
$row1335 setProp "is_class_feature" "1"
$row1335 setScope "name_type" "cl" "scopePhase"

set row1336 [$diag addRow attribute 0.0]
$row1336 setLabel "name_type" "\$caFree: enum\n"
$row1336 setProp "is_class_feature" "1"
$row1336 setScope "name_type" "cl" "scopePhase"

set row1337 [$diag addRow attribute 0.0]
$row1337 setLabel "name_type" "\$caMinimize: enum"
$row1337 setProp "is_class_feature" "1"
$row1337 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new ClassesClasses "DelphiVCL" "" "" "" "" "" 1]

set node1345 [$diag addNode cad_class 1184.0 800.0 120.0 33.0]
$node1345 setLabel "name" "TObject"
$node1345 setProp "is_folded" "1"
$node1345 setScope "name" "cl" "scopePhase"
$node1345 setProp "is_vcl" "1" "name" "cl"
$node1345 setProp "libunit" "System" "name" "cl"

set node1346 [$diag addNode cad_class 976.0 992.0 120.0 33.0]
$node1346 setLabel "name" "TComponent"
$node1346 setProp "is_folded" "1"
$node1346 setScope "name" "cl" "scopePhase"
$node1346 setProp "is_vcl" "1" "name" "cl"
$node1346 setProp "libunit" "Classes" "name" "cl"

set node1347 [$diag addNode cad_class 1648.0 992.0 120.0 33.0]
$node1347 setLabel "name" "TWriter"
$node1347 setProp "is_folded" "1"
$node1347 setScope "name" "cl" "scopePhase"
$node1347 setProp "is_vcl" "1" "name" "cl"
$node1347 setProp "libunit" "Classes" "name" "cl"

set node1348 [$diag addNode cad_class 2016.0 896.0 120.0 33.0]
$node1348 setLabel "name" "TThread"
$node1348 setProp "is_folded" "1"
$node1348 setScope "name" "cl" "scopePhase"
$node1348 setProp "is_vcl" "1" "name" "cl"
$node1348 setProp "libunit" "Classes" "name" "cl"

set node1349 [$diag addNode cad_class 1360.0 992.0 120.0 33.0]
$node1349 setLabel "name" "TStrings"
$node1349 setProp "is_folded" "1"
$node1349 setScope "name" "cl" "scopePhase"
$node1349 setProp "is_vcl" "1" "name" "cl"
$node1349 setProp "libunit" "Classes" "name" "cl"

set node1350 [$diag addNode cad_class 1360.0 1104.0 120.0 33.0]
$node1350 setLabel "name" "TStringList"
$node1350 setProp "is_folded" "1"
$node1350 setScope "name" "cl" "scopePhase"
$node1350 setProp "is_vcl" "1" "name" "cl"
$node1350 setProp "libunit" "Classes" "name" "cl"

set node1351 [$diag addNode cad_class 1856.0 896.0 120.0 33.0]
$node1351 setLabel "name" "TStream"
$node1351 setProp "is_folded" "1"
$node1351 setScope "name" "cl" "scopePhase"
$node1351 setProp "is_vcl" "1" "name" "cl"
$node1351 setProp "libunit" "Classes" "name" "cl"

set node1352 [$diag addNode cad_class 2080.0 1088.0 139.0 33.0]
$node1352 setLabel "name" "TResourceStream"
$node1352 setProp "is_folded" "1"
$node1352 setScope "name" "cl" "scopePhase"
$node1352 setProp "is_vcl" "1" "name" "cl"
$node1352 setProp "libunit" "Classes" "name" "cl"

set node1353 [$diag addNode cad_class 1520.0 992.0 120.0 33.0]
$node1353 setLabel "name" "TReader"
$node1353 setProp "is_folded" "1"
$node1353 setScope "name" "cl" "scopePhase"
$node1353 setProp "is_vcl" "1" "name" "cl"
$node1353 setProp "libunit" "Classes" "name" "cl"

set node1354 [$diag addNode cad_class 1184.0 896.0 120.0 33.0]
$node1354 setLabel "name" "TPersistent"
$node1354 setProp "is_folded" "1"
$node1354 setScope "name" "cl" "scopePhase"
$node1354 setProp "is_vcl" "1" "name" "cl"
$node1354 setProp "libunit" "Classes" "name" "cl"

set node1355 [$diag addNode cad_class 1936.0 1088.0 128.0 33.0]
$node1355 setLabel "name" "TMemoryStream"
$node1355 setProp "is_folded" "1"
$node1355 setScope "name" "cl" "scopePhase"
$node1355 setProp "is_vcl" "1" "name" "cl"
$node1355 setProp "libunit" "Classes" "name" "cl"

set node1356 [$diag addNode cad_class 800.0 896.0 120.0 33.0]
$node1356 setLabel "name" "TList"
$node1356 setProp "is_folded" "1"
$node1356 setScope "name" "cl" "scopePhase"
$node1356 setProp "is_vcl" "1" "name" "cl"
$node1356 setProp "libunit" "Classes" "name" "cl"

set node1357 [$diag addNode cad_class 1792.0 992.0 120.0 33.0]
$node1357 setLabel "name" "THandleStream"
$node1357 setProp "is_folded" "1"
$node1357 setScope "name" "cl" "scopePhase"
$node1357 setProp "is_vcl" "1" "name" "cl"
$node1357 setProp "libunit" "Classes" "name" "cl"

set node1358 [$diag addNode cad_class 1792.0 1088.0 120.0 33.0]
$node1358 setLabel "name" "TFileStream"
$node1358 setProp "is_folded" "1"
$node1358 setScope "name" "cl" "scopePhase"
$node1358 setProp "is_vcl" "1" "name" "cl"
$node1358 setProp "libunit" "Classes" "name" "cl"

set node1359 [$diag addNode cad_class 1584.0 896.0 120.0 33.0]
$node1359 setLabel "name" "TFiler"
$node1359 setProp "is_folded" "1"
$node1359 setScope "name" "cl" "scopePhase"
$node1359 setProp "is_vcl" "1" "name" "cl"
$node1359 setProp "libunit" "Classes" "name" "cl"

set node1360 [$diag addNode cad_class 1984.0 992.0 182.0 33.0]
$node1360 setLabel "name" "TCustomMemoryStream"
$node1360 setProp "is_folded" "1"
$node1360 setScope "name" "cl" "scopePhase"
$node1360 setProp "is_vcl" "1" "name" "cl"
$node1360 setProp "libunit" "Classes" "name" "cl"

set node1361 [$diag addNode cad_class 1232.0 992.0 123.0 33.0]
$node1361 setLabel "name" "TCollectionItem"
$node1361 setProp "is_folded" "1"
$node1361 setScope "name" "cl" "scopePhase"
$node1361 setProp "is_vcl" "1" "name" "cl"
$node1361 setProp "libunit" "Classes" "name" "cl"

set node1362 [$diag addNode cad_class 1104.0 992.0 120.0 33.0]
$node1362 setLabel "name" "TCollection"
$node1362 setProp "is_folded" "1"
$node1362 setScope "name" "cl" "scopePhase"
$node1362 setProp "is_vcl" "1" "name" "cl"
$node1362 setProp "libunit" "Classes" "name" "cl"

set node1363 [$diag addNode cad_class 928.0 896.0 120.0 33.0]
$node1363 setLabel "name" "TBits"
$node1363 setProp "is_folded" "1"
$node1363 setScope "name" "cl" "scopePhase"
$node1363 setProp "is_vcl" "1" "name" "cl"
$node1363 setProp "libunit" "Classes" "name" "cl"

set node1367 [$diag addNode cad_class 1728.0 1504.0 147.0 33.0]
$node1367 setLabel "name" "EMethodNotFound"
$node1367 setProp "is_folded" "1"
$node1367 setScope "name" "cl" "scopePhase"
$node1367 setProp "is_vcl" "1" "name" "cl"
$node1367 setProp "libunit" "Classes" "name" "cl"

set node1368 [$diag addNode cad_class 1360.0 1216.0 120.0 33.0]
$node1368 setLabel "name" "Exception"
$node1368 setProp "is_folded" "1"
$node1368 setScope "name" "cl" "scopePhase"
$node1368 setProp "is_vcl" "1" "name" "cl"
$node1368 setProp "libunit" "SysUtils" "name" "cl"

set node1369 [$diag addNode cad_class 2016.0 1504.0 120.0 33.0]
$node1369 setLabel "name" "EWriteError"
$node1369 setProp "is_folded" "1"
$node1369 setScope "name" "cl" "scopePhase"
$node1369 setProp "is_vcl" "1" "name" "cl"
$node1369 setProp "libunit" "Classes" "name" "cl"

set node1370 [$diag addNode cad_class 1872.0 1296.0 120.0 33.0]
$node1370 setLabel "name" "EThread"
$node1370 setProp "is_folded" "1"
$node1370 setScope "name" "cl" "scopePhase"
$node1370 setProp "is_vcl" "1" "name" "cl"
$node1370 setProp "libunit" "Classes" "name" "cl"

set node1371 [$diag addNode cad_class 1728.0 1296.0 128.0 33.0]
$node1371 setLabel "name" "EStringListError"
$node1371 setProp "is_folded" "1"
$node1371 setScope "name" "cl" "scopePhase"
$node1371 setProp "is_vcl" "1" "name" "cl"
$node1371 setProp "libunit" "Classes" "name" "cl"

set node1372 [$diag addNode cad_class 1584.0 1296.0 120.0 33.0]
$node1372 setLabel "name" "EStreamError"
$node1372 setProp "is_folded" "1"
$node1372 setScope "name" "cl" "scopePhase"
$node1372 setProp "is_vcl" "1" "name" "cl"
$node1372 setProp "libunit" "Classes" "name" "cl"

set node1373 [$diag addNode cad_class 1440.0 1296.0 121.0 33.0]
$node1373 setLabel "name" "EResNotFound"
$node1373 setProp "is_folded" "1"
$node1373 setScope "name" "cl" "scopePhase"
$node1373 setProp "is_vcl" "1" "name" "cl"
$node1373 setProp "libunit" "Classes" "name" "cl"

set node1374 [$diag addNode cad_class 1888.0 1504.0 120.0 33.0]
$node1374 setLabel "name" "EReadError"
$node1374 setProp "is_folded" "1"
$node1374 setScope "name" "cl" "scopePhase"
$node1374 setProp "is_vcl" "1" "name" "cl"
$node1374 setProp "libunit" "Classes" "name" "cl"

set node1375 [$diag addNode cad_class 1296.0 1296.0 120.0 33.0]
$node1375 setLabel "name" "EParserError"
$node1375 setProp "is_folded" "1"
$node1375 setScope "name" "cl" "scopePhase"
$node1375 setProp "is_vcl" "1" "name" "cl"
$node1375 setProp "libunit" "Classes" "name" "cl"

set node1376 [$diag addNode cad_class 1152.0 1296.0 120.0 33.0]
$node1376 setLabel "name" "EListError"
$node1376 setProp "is_folded" "1"
$node1376 setScope "name" "cl" "scopePhase"
$node1376 setProp "is_vcl" "1" "name" "cl"
$node1376 setProp "libunit" "Classes" "name" "cl"

set node1377 [$diag addNode cad_class 1600.0 1504.0 120.0 33.0]
$node1377 setLabel "name" "EInvalidImage"
$node1377 setProp "is_folded" "1"
$node1377 setScope "name" "cl" "scopePhase"
$node1377 setProp "is_vcl" "1" "name" "cl"
$node1377 setProp "libunit" "Classes" "name" "cl"

set node1378 [$diag addNode cad_class 1584.0 1392.0 120.0 33.0]
$node1378 setLabel "name" "EFOpenError"
$node1378 setProp "is_folded" "1"
$node1378 setScope "name" "cl" "scopePhase"
$node1378 setProp "is_vcl" "1" "name" "cl"
$node1378 setProp "libunit" "Classes" "name" "cl"

set node1379 [$diag addNode cad_class 1728.0 1392.0 120.0 33.0]
$node1379 setLabel "name" "EFilerError"
$node1379 setProp "is_folded" "1"
$node1379 setScope "name" "cl" "scopePhase"
$node1379 setProp "is_vcl" "1" "name" "cl"
$node1379 setProp "libunit" "Classes" "name" "cl"

set node1380 [$diag addNode cad_class 1440.0 1392.0 120.0 33.0]
$node1380 setLabel "name" "EFCreateError"
$node1380 setProp "is_folded" "1"
$node1380 setScope "name" "cl" "scopePhase"
$node1380 setProp "is_vcl" "1" "name" "cl"
$node1380 setProp "libunit" "Classes" "name" "cl"

set node1381 [$diag addNode cad_class 992.0 1296.0 141.0 33.0]
$node1381 setLabel "name" "EComponentError"
$node1381 setProp "is_folded" "1"
$node1381 setScope "name" "cl" "scopePhase"
$node1381 setProp "is_vcl" "1" "name" "cl"
$node1381 setProp "libunit" "Classes" "name" "cl"

set node1382 [$diag addNode cad_class 1456.0 1504.0 133.0 33.0]
$node1382 setLabel "name" "EClassNotFound"
$node1382 setProp "is_folded" "1"
$node1382 setScope "name" "cl" "scopePhase"
$node1382 setProp "is_vcl" "1" "name" "cl"
$node1382 setProp "libunit" "Classes" "name" "cl"

set node1383 [$diag addNode cad_class 848.0 1296.0 120.0 33.0]
$node1383 setLabel "name" "EBitsError"
$node1383 setProp "is_folded" "1"
$node1383 setScope "name" "cl" "scopePhase"
$node1383 setProp "is_vcl" "1" "name" "cl"
$node1383 setProp "libunit" "Classes" "name" "cl"

set node1338 [$diag addRake generalization $node1354 $node1349 1248.0 928.0 1424.0 1024.0 968.0]

set conn1384 [$node1338 getInConn]
set segm1385 [$conn1384 getFirstSegm]

set conn1386 [$node1338 getFirstOutConn]
set segm1387 [$conn1386 getFirstSegm]

set conn1388 [$diag addConn generalization_conn $node1338 $node1361 1248.0 968.5 1296.0 992.0]
set segm1389 [$conn1388 getFirstSegm]

set conn1390 [$diag addConn generalization_conn $node1338 $node1362 1248.0 968.5 1168.0 1008.0]
set segm1391 [$conn1390 getFirstSegm]

set conn1392 [$diag addConn generalization_conn $node1338 $node1346 1258.0 968.5 1040.0 1008.0]
set segm1393 [$conn1392 getFirstSegm]

set node1339 [$diag addRake generalization $node1349 $node1350 1424.0 1024.0 1424.0 1120.0 1072.0]

set conn1394 [$node1339 getInConn]
set segm1395 [$conn1394 getFirstSegm]

set conn1396 [$node1339 getFirstOutConn]
set segm1397 [$conn1396 getFirstSegm]

set node1340 [$diag addRake generalization $node1360 $node1352 2080.0 1024.0 2160.0 1104.0 1064.0]

set conn1398 [$node1340 getInConn]
set segm1399 [$conn1398 getFirstSegm]

set conn1400 [$node1340 getFirstOutConn]
set segm1401 [$conn1400 getFirstSegm]

set conn1402 [$diag addConn generalization_conn $node1340 $node1355 2090.0 1064.5 2000.0 1104.0]
set segm1403 [$conn1402 getFirstSegm]

set node1341 [$diag addRake generalization $node1357 $node1358 1856.0 1024.0 1856.0 1104.0 1064.0]

set conn1404 [$node1341 getInConn]
set segm1405 [$conn1404 getFirstSegm]

set conn1406 [$node1341 getFirstOutConn]
set segm1407 [$conn1406 getFirstSegm]

set node1342 [$diag addRake generalization $node1351 $node1360 1920.0 928.0 2080.0 1008.0 968.0]

set conn1408 [$node1342 getInConn]
set segm1409 [$conn1408 getFirstSegm]

set conn1410 [$node1342 getFirstOutConn]
set segm1411 [$conn1410 getFirstSegm]

set conn1412 [$diag addConn generalization_conn $node1342 $node1357 1930.0 968.5 1856.0 1008.0]
set segm1413 [$conn1412 getFirstSegm]

set node1343 [$diag addRake generalization $node1359 $node1347 1648.0 928.0 1712.0 1008.0 968.0]

set conn1414 [$node1343 getInConn]
set segm1415 [$conn1414 getFirstSegm]

set conn1416 [$node1343 getFirstOutConn]
set segm1417 [$conn1416 getFirstSegm]

set conn1418 [$diag addConn generalization_conn $node1343 $node1353 1658.0 968.5 1584.0 1008.0]
set segm1419 [$conn1418 getFirstSegm]

set node1344 [$diag addRake generalization $node1345 $node1348 1248.0 832.0 2080.0 912.0 872.0]

set conn1420 [$node1344 getInConn]
set segm1421 [$conn1420 getFirstSegm]

set conn1422 [$node1344 getFirstOutConn]
set segm1423 [$conn1422 getFirstSegm]

set conn1424 [$diag addConn generalization_conn $node1344 $node1351 1248.0 872.5 1920.0 912.0]
set segm1425 [$conn1424 getFirstSegm]

set conn1426 [$diag addConn generalization_conn $node1344 $node1359 1248.0 872.5 1648.0 912.0]
set segm1427 [$conn1426 getFirstSegm]

set conn1428 [$diag addConn generalization_conn $node1344 $node1354 1248.0 872.5 1248.0 912.0]
set segm1429 [$conn1428 getFirstSegm]

set conn1430 [$diag addConn generalization_conn $node1344 $node1363 1248.0 872.5 992.0 912.0]
set segm1431 [$conn1430 getFirstSegm]

set conn1432 [$diag addConn generalization_conn $node1344 $node1356 1258.0 872.5 864.0 912.0]
set segm1433 [$conn1432 getFirstSegm]

set node1364 [$diag addRake generalization $node1379 $node1369 1792.0 1424.0 2080.0 1520.0 1464.0]

set conn1434 [$node1364 getInConn]
set segm1435 [$conn1434 getFirstSegm]

set conn1436 [$node1364 getFirstOutConn]
set segm1437 [$conn1436 getFirstSegm]

set conn1438 [$diag addConn generalization_conn $node1364 $node1374 1792.0 1464.5 1968.0 1520.0]
set segm1439 [$conn1438 getFirstSegm]

set conn1440 [$diag addConn generalization_conn $node1364 $node1367 1792.0 1464.5 1808.0 1520.0]
set segm1441 [$conn1440 getFirstSegm]

set conn1442 [$diag addConn generalization_conn $node1364 $node1377 1792.0 1464.5 1664.0 1520.0]
set segm1443 [$conn1442 getFirstSegm]

set conn1444 [$diag addConn generalization_conn $node1364 $node1382 1802.0 1464.5 1520.0 1520.0]
set segm1445 [$conn1444 getFirstSegm]

set node1365 [$diag addRake generalization $node1372 $node1379 1648.0 1328.0 1792.0 1408.0 1360.0]

set conn1446 [$node1365 getInConn]
set segm1447 [$conn1446 getFirstSegm]

set conn1448 [$node1365 getFirstOutConn]
set segm1449 [$conn1448 getFirstSegm]

set conn1450 [$diag addConn generalization_conn $node1365 $node1378 1648.0 1360.5 1648.0 1408.0]
set segm1451 [$conn1450 getFirstSegm]

set conn1452 [$diag addConn generalization_conn $node1365 $node1380 1648.0 1360.5 1504.0 1392.0]
set segm1453 [$conn1452 getFirstSegm]

set node1366 [$diag addRake generalization $node1368 $node1370 1424.0 1248.0 1936.0 1312.0 1272.0]

set conn1454 [$node1366 getInConn]
set segm1455 [$conn1454 getFirstSegm]

set conn1456 [$node1366 getFirstOutConn]
set segm1457 [$conn1456 getFirstSegm]

set conn1458 [$diag addConn generalization_conn $node1366 $node1371 1648.0 1272.5 1792.0 1312.0]
set segm1459 [$conn1458 getFirstSegm]

set conn1460 [$diag addConn generalization_conn $node1366 $node1372 1648.0 1272.5 1648.0 1312.0]
set segm1461 [$conn1460 getFirstSegm]

set conn1462 [$diag addConn generalization_conn $node1366 $node1373 1504.0 1272.5 1504.0 1312.0]
set segm1463 [$conn1462 getFirstSegm]

set conn1464 [$diag addConn generalization_conn $node1366 $node1375 1504.0 1272.5 1360.0 1312.0]
set segm1465 [$conn1464 getFirstSegm]

set conn1466 [$diag addConn generalization_conn $node1366 $node1376 1504.0 1272.5 1216.0 1312.0]
set segm1467 [$conn1466 getFirstSegm]

set conn1468 [$diag addConn generalization_conn $node1366 $node1381 1504.0 1272.5 1056.0 1312.0]
set segm1469 [$conn1468 getFirstSegm]

set conn1470 [$diag addConn generalization_conn $node1366 $node1383 1434.0 1272.5 912.0 1312.0]
set segm1471 [$conn1470 getFirstSegm]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CAD new ExtCtrlsTypes "DelphiVCL" "" "" "" "" "" 1]

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TCustomPanel "DelphiVCL" "" "" "" "" "" 1]

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

set cell1473 [$row1472 addCell parameter 0.0]
$cell1473 setLabel "name_type" "Sender: TObject"
$cell1473 setScope "name_type" "cl" "scopePhase"
$cell1473 setProp "is_vcl" "1" "name_type" "cl"
$cell1473 setProp "libunit" "System" "name_type" "cl"
$cell1473 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new THeader "DelphiVCL" "" "" "" "" "" 1]

set row1474 [$diag addRow method 0.0]
$row1474 setLabel "name_type" "Enter ()\n"
$row1474 setProp "has_parmlist" "1"
$row1474 setProp "is_event" "1"

set cell1475 [$row1474 addCell parameter 0.0]
$cell1475 setLabel "name_type" "Sender: TObject"
$cell1475 setScope "name_type" "cl" "scopePhase"
$cell1475 setProp "is_vcl" "1" "name_type" "cl"
$cell1475 setProp "libunit" "System" "name_type" "cl"
$cell1475 setScope "name_type" "de" "scopeSystem"

set row1476 [$diag addRow method 0.0]
$row1476 setLabel "name_type" "Exit ()\n"
$row1476 setProp "has_parmlist" "1"
$row1476 setProp "is_event" "1"

set cell1477 [$row1476 addCell parameter 0.0]
$cell1477 setLabel "name_type" "Sender: TObject"
$cell1477 setScope "name_type" "cl" "scopePhase"
$cell1477 setProp "is_vcl" "1" "name_type" "cl"
$cell1477 setProp "libunit" "System" "name_type" "cl"
$cell1477 setScope "name_type" "de" "scopeSystem"

set row1478 [$diag addRow method 0.0]
$row1478 setLabel "name_type" "Sized ()\n"
$row1478 setProp "has_parmlist" "1"

set cell1479 [$row1478 addCell parameter 0.0]
$cell1479 setLabel "name_type" "Sender: TObject, "
$cell1479 setScope "name_type" "cl" "scopePhase"
$cell1479 setProp "is_vcl" "1" "name_type" "cl"
$cell1479 setProp "libunit" "System" "name_type" "cl"
$cell1479 setScope "name_type" "de" "scopeSystem"

set cell1480 [$row1478 addCell parameter 0.0]
$cell1480 setLabel "name_type" "ASection: int, "
$cell1480 setScope "name_type" "cl" "scopePhase"
$cell1480 setScope "name_type" "de" "scopeSystem"

set cell1481 [$row1478 addCell parameter 0.0]
$cell1481 setLabel "name_type" "AWidth: int"
$cell1481 setScope "name_type" "cl" "scopePhase"
$cell1481 setScope "name_type" "de" "scopeSystem"

set row1482 [$diag addRow method 0.0]
$row1482 setLabel "name_type" "Sizing ()"
$row1482 setProp "has_parmlist" "1"
$row1482 setProp "is_event" "1"

set cell1483 [$row1482 addCell parameter 0.0]
$cell1483 setLabel "name_type" "Sender: TObject, "
$cell1483 setScope "name_type" "cl" "scopePhase"
$cell1483 setProp "is_vcl" "1" "name_type" "cl"
$cell1483 setProp "libunit" "System" "name_type" "cl"
$cell1483 setScope "name_type" "de" "scopeSystem"

set cell1484 [$row1482 addCell parameter 0.0]
$cell1484 setLabel "name_type" "ASection: int, "
$cell1484 setScope "name_type" "cl" "scopePhase"
$cell1484 setScope "name_type" "de" "scopeSystem"

set cell1485 [$row1482 addCell parameter 0.0]
$cell1485 setLabel "name_type" "AWidth: int"
$cell1485 setScope "name_type" "cl" "scopePhase"
$cell1485 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TImage "DelphiVCL" "" "" "" "" "" 1]

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

set cell1487 [$row1486 addCell parameter 0.0]
$cell1487 setLabel "name_type" "Sender: TObject"
$cell1487 setScope "name_type" "cl" "scopePhase"
$cell1487 setProp "is_vcl" "1" "name_type" "cl"
$cell1487 setProp "libunit" "System" "name_type" "cl"
$cell1487 setScope "name_type" "de" "scopeSystem"

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

set cell1489 [$row1488 addCell parameter 0.0]
$cell1489 setLabel "name_type" "Sender: TObject"
$cell1489 setScope "name_type" "cl" "scopePhase"
$cell1489 setProp "is_vcl" "1" "name_type" "cl"
$cell1489 setProp "libunit" "System" "name_type" "cl"
$cell1489 setScope "name_type" "de" "scopeSystem"

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

set cell1491 [$row1490 addCell parameter 0.0]
$cell1491 setLabel "name_type" "Sender: TObject, "
$cell1491 setScope "name_type" "cl" "scopePhase"
$cell1491 setProp "is_vcl" "1" "name_type" "cl"
$cell1491 setProp "libunit" "System" "name_type" "cl"
$cell1491 setScope "name_type" "de" "scopeSystem"

set cell1492 [$row1490 addCell parameter 0.0]
$cell1492 setLabel "name_type" "Source: TObject, "
$cell1492 setScope "name_type" "cl" "scopePhase"
$cell1492 setProp "is_vcl" "1" "name_type" "cl"
$cell1492 setProp "libunit" "System" "name_type" "cl"
$cell1492 setScope "name_type" "de" "scopeSystem"

set cell1493 [$row1490 addCell parameter 0.0]
$cell1493 setLabel "name_type" "X: int, "
$cell1493 setScope "name_type" "cl" "scopePhase"
$cell1493 setScope "name_type" "de" "scopeSystem"

set cell1494 [$row1490 addCell parameter 0.0]
$cell1494 setLabel "name_type" "Y: int"
$cell1494 setScope "name_type" "cl" "scopePhase"
$cell1494 setScope "name_type" "de" "scopeSystem"

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

set cell1496 [$row1495 addCell parameter 0.0]
$cell1496 setLabel "name_type" "Sender: TObject, "
$cell1496 setScope "name_type" "cl" "scopePhase"
$cell1496 setProp "is_vcl" "1" "name_type" "cl"
$cell1496 setProp "libunit" "System" "name_type" "cl"
$cell1496 setScope "name_type" "de" "scopeSystem"

set cell1497 [$row1495 addCell parameter 0.0]
$cell1497 setLabel "name_type" "Source: TObject, "
$cell1497 setScope "name_type" "cl" "scopePhase"
$cell1497 setProp "is_vcl" "1" "name_type" "cl"
$cell1497 setProp "libunit" "System" "name_type" "cl"
$cell1497 setScope "name_type" "de" "scopeSystem"

set cell1498 [$row1495 addCell parameter 0.0]
$cell1498 setLabel "name_type" "X: int, "
$cell1498 setScope "name_type" "cl" "scopePhase"
$cell1498 setScope "name_type" "de" "scopeSystem"

set cell1499 [$row1495 addCell parameter 0.0]
$cell1499 setLabel "name_type" "Y: int, "
$cell1499 setScope "name_type" "cl" "scopePhase"
$cell1499 setScope "name_type" "de" "scopeSystem"

set cell1500 [$row1495 addCell parameter 0.0]
$cell1500 setLabel "name_type" "State: TDragState, "
$cell1500 setScope "name_type" "cl" "scopePhase"
$cell1500 setProp "is_vcl" "1" "name_type" "cl"
$cell1500 setProp "libunit" "Controls" "name_type" "cl"
$cell1500 setScope "name_type" "de" "scopeSystem"

set cell1501 [$row1495 addCell parameter 0.0]
$cell1501 setLabel "name_type" "Accept: bool"
$cell1501 setProp "pass_by" "Variable"
$cell1501 setScope "name_type" "cl" "scopePhase"
$cell1501 setScope "name_type" "de" "scopeSystem"

set row1502 [$diag addRow method 0.0]
$row1502 setLabel "name_type" "EndDrag()\n"
$row1502 setProp "has_parmlist" "1"

set cell1503 [$row1502 addCell parameter 0.0]
$cell1503 setLabel "name_type" "Sender: TObject, "
$cell1503 setScope "name_type" "cl" "scopePhase"
$cell1503 setProp "is_vcl" "1" "name_type" "cl"
$cell1503 setProp "libunit" "System" "name_type" "cl"
$cell1503 setScope "name_type" "de" "scopeSystem"

set cell1504 [$row1502 addCell parameter 0.0]
$cell1504 setLabel "name_type" "Source: TObject, "
$cell1504 setScope "name_type" "cl" "scopePhase"
$cell1504 setProp "is_vcl" "1" "name_type" "cl"
$cell1504 setProp "libunit" "System" "name_type" "cl"
$cell1504 setScope "name_type" "de" "scopeSystem"

set cell1505 [$row1502 addCell parameter 0.0]
$cell1505 setLabel "name_type" "X: int, "
$cell1505 setScope "name_type" "cl" "scopePhase"
$cell1505 setScope "name_type" "de" "scopeSystem"

set cell1506 [$row1502 addCell parameter 0.0]
$cell1506 setLabel "name_type" "Y: int"
$cell1506 setScope "name_type" "cl" "scopePhase"
$cell1506 setScope "name_type" "de" "scopeSystem"

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

set cell1508 [$row1507 addCell parameter 0.0]
$cell1508 setLabel "name_type" "Sender: TObject, "
$cell1508 setScope "name_type" "cl" "scopePhase"
$cell1508 setProp "is_vcl" "1" "name_type" "cl"
$cell1508 setProp "libunit" "System" "name_type" "cl"
$cell1508 setScope "name_type" "de" "scopeSystem"

set cell1509 [$row1507 addCell parameter 0.0]
$cell1509 setLabel "name_type" "Button: TMouseButton, "
$cell1509 setScope "name_type" "cl" "scopePhase"
$cell1509 setProp "is_vcl" "1" "name_type" "cl"
$cell1509 setProp "libunit" "Controls" "name_type" "cl"
$cell1509 setScope "name_type" "de" "scopeSystem"

set cell1510 [$row1507 addCell parameter 0.0]
$cell1510 setLabel "name_type" "Shift: TShiftState, "
$cell1510 setScope "name_type" "cl" "scopePhase"
$cell1510 setProp "is_vcl" "1" "name_type" "cl"
$cell1510 setProp "libunit" "Classes" "name_type" "cl"
$cell1510 setScope "name_type" "de" "scopeSystem"

set cell1511 [$row1507 addCell parameter 0.0]
$cell1511 setLabel "name_type" "X: int, "
$cell1511 setScope "name_type" "cl" "scopePhase"
$cell1511 setScope "name_type" "de" "scopeSystem"

set cell1512 [$row1507 addCell parameter 0.0]
$cell1512 setLabel "name_type" "Y: int"
$cell1512 setScope "name_type" "cl" "scopePhase"
$cell1512 setScope "name_type" "de" "scopeSystem"

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

set cell1514 [$row1513 addCell parameter 0.0]
$cell1514 setLabel "name_type" "Sender: TObject, "
$cell1514 setScope "name_type" "cl" "scopePhase"
$cell1514 setProp "is_vcl" "1" "name_type" "cl"
$cell1514 setProp "libunit" "System" "name_type" "cl"
$cell1514 setScope "name_type" "de" "scopeSystem"

set cell1515 [$row1513 addCell parameter 0.0]
$cell1515 setLabel "name_type" "Shift: TShiftState, "
$cell1515 setScope "name_type" "cl" "scopePhase"
$cell1515 setProp "is_vcl" "1" "name_type" "cl"
$cell1515 setProp "libunit" "Classes" "name_type" "cl"
$cell1515 setScope "name_type" "de" "scopeSystem"

set cell1516 [$row1513 addCell parameter 0.0]
$cell1516 setLabel "name_type" "X: int, "
$cell1516 setScope "name_type" "cl" "scopePhase"
$cell1516 setScope "name_type" "de" "scopeSystem"

set cell1517 [$row1513 addCell parameter 0.0]
$cell1517 setLabel "name_type" "Y: int"
$cell1517 setScope "name_type" "cl" "scopePhase"
$cell1517 setScope "name_type" "de" "scopeSystem"

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

set cell1519 [$row1518 addCell parameter 0.0]
$cell1519 setLabel "name_type" "Sender: TObject, "
$cell1519 setScope "name_type" "cl" "scopePhase"
$cell1519 setProp "is_vcl" "1" "name_type" "cl"
$cell1519 setProp "libunit" "System" "name_type" "cl"
$cell1519 setScope "name_type" "de" "scopeSystem"

set cell1520 [$row1518 addCell parameter 0.0]
$cell1520 setLabel "name_type" "Button: TMouseButton, "
$cell1520 setScope "name_type" "cl" "scopePhase"
$cell1520 setProp "is_vcl" "1" "name_type" "cl"
$cell1520 setProp "libunit" "Controls" "name_type" "cl"
$cell1520 setScope "name_type" "de" "scopeSystem"

set cell1521 [$row1518 addCell parameter 0.0]
$cell1521 setLabel "name_type" "Shift: TShiftState, "
$cell1521 setScope "name_type" "cl" "scopePhase"
$cell1521 setProp "is_vcl" "1" "name_type" "cl"
$cell1521 setProp "libunit" "Classes" "name_type" "cl"
$cell1521 setScope "name_type" "de" "scopeSystem"

set cell1522 [$row1518 addCell parameter 0.0]
$cell1522 setLabel "name_type" "X: int, "
$cell1522 setScope "name_type" "cl" "scopePhase"
$cell1522 setScope "name_type" "de" "scopeSystem"

set cell1523 [$row1518 addCell parameter 0.0]
$cell1523 setLabel "name_type" "Y: int"
$cell1523 setScope "name_type" "cl" "scopePhase"
$cell1523 setScope "name_type" "de" "scopeSystem"

set row1524 [$diag addRow method 0.0]
$row1524 setLabel "name_type" "StartDrag()"
$row1524 setProp "has_parmlist" "1"
$row1524 setProp "is_event" "1"

set cell1525 [$row1524 addCell parameter 0.0]
$cell1525 setLabel "name_type" "Sender: TObject, "
$cell1525 setScope "name_type" "cl" "scopePhase"
$cell1525 setProp "is_vcl" "1" "name_type" "cl"
$cell1525 setProp "libunit" "System" "name_type" "cl"
$cell1525 setScope "name_type" "de" "scopeSystem"

set cell1526 [$row1524 addCell parameter 0.0]
$cell1526 setLabel "name_type" "DragObject: TDragObject"
$cell1526 setProp "pass_by" "Variable"
$cell1526 setScope "name_type" "cl" "scopePhase"
$cell1526 setProp "is_vcl" "1" "name_type" "cl"
$cell1526 setProp "libunit" "Controls" "name_type" "cl"
$cell1526 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TNotebook "DelphiVCL" "" "" "" "" "" 1]

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

set cell1528 [$row1527 addCell parameter 0.0]
$cell1528 setLabel "name_type" "Sender: TObject"
$cell1528 setScope "name_type" "cl" "scopePhase"
$cell1528 setProp "is_vcl" "1" "name_type" "cl"
$cell1528 setProp "libunit" "System" "name_type" "cl"
$cell1528 setScope "name_type" "de" "scopeSystem"

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

set cell1530 [$row1529 addCell parameter 0.0]
$cell1530 setLabel "name_type" "Sender: TObject"
$cell1530 setScope "name_type" "cl" "scopePhase"
$cell1530 setProp "is_vcl" "1" "name_type" "cl"
$cell1530 setProp "libunit" "System" "name_type" "cl"
$cell1530 setScope "name_type" "de" "scopeSystem"

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

set cell1532 [$row1531 addCell parameter 0.0]
$cell1532 setLabel "name_type" "Sender: TObject, "
$cell1532 setScope "name_type" "cl" "scopePhase"
$cell1532 setProp "is_vcl" "1" "name_type" "cl"
$cell1532 setProp "libunit" "System" "name_type" "cl"
$cell1532 setScope "name_type" "de" "scopeSystem"

set cell1533 [$row1531 addCell parameter 0.0]
$cell1533 setLabel "name_type" "Source: TObject, "
$cell1533 setScope "name_type" "cl" "scopePhase"
$cell1533 setProp "is_vcl" "1" "name_type" "cl"
$cell1533 setProp "libunit" "System" "name_type" "cl"
$cell1533 setScope "name_type" "de" "scopeSystem"

set cell1534 [$row1531 addCell parameter 0.0]
$cell1534 setLabel "name_type" "X: int, "
$cell1534 setScope "name_type" "cl" "scopePhase"
$cell1534 setScope "name_type" "de" "scopeSystem"

set cell1535 [$row1531 addCell parameter 0.0]
$cell1535 setLabel "name_type" "Y: int"
$cell1535 setScope "name_type" "cl" "scopePhase"
$cell1535 setScope "name_type" "de" "scopeSystem"

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

set cell1537 [$row1536 addCell parameter 0.0]
$cell1537 setLabel "name_type" "Sender: TObject, "
$cell1537 setScope "name_type" "cl" "scopePhase"
$cell1537 setProp "is_vcl" "1" "name_type" "cl"
$cell1537 setProp "libunit" "System" "name_type" "cl"
$cell1537 setScope "name_type" "de" "scopeSystem"

set cell1538 [$row1536 addCell parameter 0.0]
$cell1538 setLabel "name_type" "Source: TObject, "
$cell1538 setScope "name_type" "cl" "scopePhase"
$cell1538 setProp "is_vcl" "1" "name_type" "cl"
$cell1538 setProp "libunit" "System" "name_type" "cl"
$cell1538 setScope "name_type" "de" "scopeSystem"

set cell1539 [$row1536 addCell parameter 0.0]
$cell1539 setLabel "name_type" "X: int, "
$cell1539 setScope "name_type" "cl" "scopePhase"
$cell1539 setScope "name_type" "de" "scopeSystem"

set cell1540 [$row1536 addCell parameter 0.0]
$cell1540 setLabel "name_type" "Y: int, "
$cell1540 setScope "name_type" "cl" "scopePhase"
$cell1540 setScope "name_type" "de" "scopeSystem"

set cell1541 [$row1536 addCell parameter 0.0]
$cell1541 setLabel "name_type" "State: TDragState, "
$cell1541 setScope "name_type" "cl" "scopePhase"
$cell1541 setProp "is_vcl" "1" "name_type" "cl"
$cell1541 setProp "libunit" "Controls" "name_type" "cl"
$cell1541 setScope "name_type" "de" "scopeSystem"

set cell1542 [$row1536 addCell parameter 0.0]
$cell1542 setLabel "name_type" "Accept: bool"
$cell1542 setProp "pass_by" "Variable"
$cell1542 setScope "name_type" "cl" "scopePhase"
$cell1542 setScope "name_type" "de" "scopeSystem"

set row1543 [$diag addRow method 0.0]
$row1543 setLabel "name_type" "EndDrag()\n"
$row1543 setProp "has_parmlist" "1"
$row1543 setProp "is_event" "1"

set cell1544 [$row1543 addCell parameter 0.0]
$cell1544 setLabel "name_type" "Sender: TObject, "
$cell1544 setScope "name_type" "cl" "scopePhase"
$cell1544 setProp "is_vcl" "1" "name_type" "cl"
$cell1544 setProp "libunit" "System" "name_type" "cl"
$cell1544 setScope "name_type" "de" "scopeSystem"

set cell1545 [$row1543 addCell parameter 0.0]
$cell1545 setLabel "name_type" "Source: TObject, "
$cell1545 setScope "name_type" "cl" "scopePhase"
$cell1545 setProp "is_vcl" "1" "name_type" "cl"
$cell1545 setProp "libunit" "System" "name_type" "cl"
$cell1545 setScope "name_type" "de" "scopeSystem"

set cell1546 [$row1543 addCell parameter 0.0]
$cell1546 setLabel "name_type" "X: int, "
$cell1546 setScope "name_type" "cl" "scopePhase"
$cell1546 setScope "name_type" "de" "scopeSystem"

set cell1547 [$row1543 addCell parameter 0.0]
$cell1547 setLabel "name_type" "Y: int"
$cell1547 setScope "name_type" "cl" "scopePhase"
$cell1547 setScope "name_type" "de" "scopeSystem"

set row1548 [$diag addRow method 0.0]
$row1548 setLabel "name_type" "Enter()\n"
$row1548 setProp "has_parmlist" "1"
$row1548 setProp "is_event" "1"

set cell1549 [$row1548 addCell parameter 0.0]
$cell1549 setLabel "name_type" "Sender: TObject"
$cell1549 setScope "name_type" "cl" "scopePhase"
$cell1549 setProp "is_vcl" "1" "name_type" "cl"
$cell1549 setProp "libunit" "System" "name_type" "cl"
$cell1549 setScope "name_type" "de" "scopeSystem"

set row1550 [$diag addRow method 0.0]
$row1550 setLabel "name_type" "Exit()\n"
$row1550 setProp "has_parmlist" "1"
$row1550 setProp "is_event" "1"

set cell1551 [$row1550 addCell parameter 0.0]
$cell1551 setLabel "name_type" "Sender: TObject"
$cell1551 setScope "name_type" "cl" "scopePhase"
$cell1551 setProp "is_vcl" "1" "name_type" "cl"
$cell1551 setProp "libunit" "System" "name_type" "cl"
$cell1551 setScope "name_type" "de" "scopeSystem"

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

set cell1553 [$row1552 addCell parameter 0.0]
$cell1553 setLabel "name_type" "Sender: TObject, "
$cell1553 setScope "name_type" "cl" "scopePhase"
$cell1553 setProp "is_vcl" "1" "name_type" "cl"
$cell1553 setProp "libunit" "System" "name_type" "cl"
$cell1553 setScope "name_type" "de" "scopeSystem"

set cell1554 [$row1552 addCell parameter 0.0]
$cell1554 setLabel "name_type" "Button: TMouseButton, "
$cell1554 setScope "name_type" "cl" "scopePhase"
$cell1554 setProp "is_vcl" "1" "name_type" "cl"
$cell1554 setProp "libunit" "Controls" "name_type" "cl"
$cell1554 setScope "name_type" "de" "scopeSystem"

set cell1555 [$row1552 addCell parameter 0.0]
$cell1555 setLabel "name_type" "Shift: TShiftState, "
$cell1555 setScope "name_type" "cl" "scopePhase"
$cell1555 setProp "is_vcl" "1" "name_type" "cl"
$cell1555 setProp "libunit" "Classes" "name_type" "cl"
$cell1555 setScope "name_type" "de" "scopeSystem"

set cell1556 [$row1552 addCell parameter 0.0]
$cell1556 setLabel "name_type" "X: int, "
$cell1556 setScope "name_type" "cl" "scopePhase"
$cell1556 setScope "name_type" "de" "scopeSystem"

set cell1557 [$row1552 addCell parameter 0.0]
$cell1557 setLabel "name_type" "Y: int"
$cell1557 setScope "name_type" "cl" "scopePhase"
$cell1557 setScope "name_type" "de" "scopeSystem"

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

set cell1559 [$row1558 addCell parameter 0.0]
$cell1559 setLabel "name_type" "Sender: TObject, "
$cell1559 setScope "name_type" "cl" "scopePhase"
$cell1559 setProp "is_vcl" "1" "name_type" "cl"
$cell1559 setProp "libunit" "System" "name_type" "cl"
$cell1559 setScope "name_type" "de" "scopeSystem"

set cell1560 [$row1558 addCell parameter 0.0]
$cell1560 setLabel "name_type" "Shift: TShiftState, "
$cell1560 setScope "name_type" "cl" "scopePhase"
$cell1560 setProp "is_vcl" "1" "name_type" "cl"
$cell1560 setProp "libunit" "Classes" "name_type" "cl"
$cell1560 setScope "name_type" "de" "scopeSystem"

set cell1561 [$row1558 addCell parameter 0.0]
$cell1561 setLabel "name_type" "X: int, "
$cell1561 setScope "name_type" "cl" "scopePhase"
$cell1561 setScope "name_type" "de" "scopeSystem"

set cell1562 [$row1558 addCell parameter 0.0]
$cell1562 setLabel "name_type" "Y: int"
$cell1562 setScope "name_type" "cl" "scopePhase"
$cell1562 setScope "name_type" "de" "scopeSystem"

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

set cell1564 [$row1563 addCell parameter 0.0]
$cell1564 setLabel "name_type" "Sender: TObject, "
$cell1564 setScope "name_type" "cl" "scopePhase"
$cell1564 setProp "is_vcl" "1" "name_type" "cl"
$cell1564 setProp "libunit" "System" "name_type" "cl"
$cell1564 setScope "name_type" "de" "scopeSystem"

set cell1565 [$row1563 addCell parameter 0.0]
$cell1565 setLabel "name_type" "Button: TMouseButton, "
$cell1565 setScope "name_type" "cl" "scopePhase"
$cell1565 setProp "is_vcl" "1" "name_type" "cl"
$cell1565 setProp "libunit" "Controls" "name_type" "cl"
$cell1565 setScope "name_type" "de" "scopeSystem"

set cell1566 [$row1563 addCell parameter 0.0]
$cell1566 setLabel "name_type" "Shift: TShiftState, "
$cell1566 setScope "name_type" "cl" "scopePhase"
$cell1566 setProp "is_vcl" "1" "name_type" "cl"
$cell1566 setProp "libunit" "Classes" "name_type" "cl"
$cell1566 setScope "name_type" "de" "scopeSystem"

set cell1567 [$row1563 addCell parameter 0.0]
$cell1567 setLabel "name_type" "X: int, "
$cell1567 setScope "name_type" "cl" "scopePhase"
$cell1567 setScope "name_type" "de" "scopeSystem"

set cell1568 [$row1563 addCell parameter 0.0]
$cell1568 setLabel "name_type" "Y: int"
$cell1568 setScope "name_type" "cl" "scopePhase"
$cell1568 setScope "name_type" "de" "scopeSystem"

set row1569 [$diag addRow method 0.0]
$row1569 setLabel "name_type" "PageChanged()\n"
$row1569 setProp "has_parmlist" "1"
$row1569 setProp "is_event" "1"

set cell1570 [$row1569 addCell parameter 0.0]
$cell1570 setLabel "name_type" "Sender: TObject"
$cell1570 setScope "name_type" "cl" "scopePhase"
$cell1570 setProp "is_vcl" "1" "name_type" "cl"
$cell1570 setProp "libunit" "System" "name_type" "cl"
$cell1570 setScope "name_type" "de" "scopeSystem"

set row1571 [$diag addRow method 0.0]
$row1571 setLabel "name_type" "StartDrag()"
$row1571 setProp "has_parmlist" "1"
$row1571 setProp "is_event" "1"

set cell1572 [$row1571 addCell parameter 0.0]
$cell1572 setLabel "name_type" "Sender: TObject, "
$cell1572 setScope "name_type" "cl" "scopePhase"
$cell1572 setProp "is_vcl" "1" "name_type" "cl"
$cell1572 setProp "libunit" "System" "name_type" "cl"
$cell1572 setScope "name_type" "de" "scopeSystem"

set cell1573 [$row1571 addCell parameter 0.0]
$cell1573 setLabel "name_type" "DragObject: TDragObject"
$cell1573 setProp "pass_by" "Variable"
$cell1573 setScope "name_type" "cl" "scopePhase"
$cell1573 setProp "is_vcl" "1" "name_type" "cl"
$cell1573 setProp "libunit" "Controls" "name_type" "cl"
$cell1573 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TPanel "DelphiVCL" "" "" "" "" "" 1]

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

set cell1575 [$row1574 addCell parameter 0.0]
$cell1575 setLabel "name_type" "Sender: TObject"
$cell1575 setScope "name_type" "cl" "scopePhase"
$cell1575 setProp "is_vcl" "1" "name_type" "cl"
$cell1575 setProp "libunit" "System" "name_type" "cl"
$cell1575 setScope "name_type" "de" "scopeSystem"

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

set cell1577 [$row1576 addCell parameter 0.0]
$cell1577 setLabel "name_type" "Sender: TObject"
$cell1577 setScope "name_type" "cl" "scopePhase"
$cell1577 setProp "is_vcl" "1" "name_type" "cl"
$cell1577 setProp "libunit" "System" "name_type" "cl"
$cell1577 setScope "name_type" "de" "scopeSystem"

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

set cell1579 [$row1578 addCell parameter 0.0]
$cell1579 setLabel "name_type" "Sender: TObject, "
$cell1579 setScope "name_type" "cl" "scopePhase"
$cell1579 setProp "is_vcl" "1" "name_type" "cl"
$cell1579 setProp "libunit" "System" "name_type" "cl"
$cell1579 setScope "name_type" "de" "scopeSystem"

set cell1580 [$row1578 addCell parameter 0.0]
$cell1580 setLabel "name_type" "Source: TObject, "
$cell1580 setScope "name_type" "cl" "scopePhase"
$cell1580 setProp "is_vcl" "1" "name_type" "cl"
$cell1580 setProp "libunit" "System" "name_type" "cl"
$cell1580 setScope "name_type" "de" "scopeSystem"

set cell1581 [$row1578 addCell parameter 0.0]
$cell1581 setLabel "name_type" "X: int, "
$cell1581 setScope "name_type" "cl" "scopePhase"
$cell1581 setScope "name_type" "de" "scopeSystem"

set cell1582 [$row1578 addCell parameter 0.0]
$cell1582 setLabel "name_type" "Y: int"
$cell1582 setScope "name_type" "cl" "scopePhase"
$cell1582 setScope "name_type" "de" "scopeSystem"

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

set cell1584 [$row1583 addCell parameter 0.0]
$cell1584 setLabel "name_type" "Sender: TObject, "
$cell1584 setScope "name_type" "cl" "scopePhase"
$cell1584 setProp "is_vcl" "1" "name_type" "cl"
$cell1584 setProp "libunit" "System" "name_type" "cl"
$cell1584 setScope "name_type" "de" "scopeSystem"

set cell1585 [$row1583 addCell parameter 0.0]
$cell1585 setLabel "name_type" "Source: TObject, "
$cell1585 setScope "name_type" "cl" "scopePhase"
$cell1585 setProp "is_vcl" "1" "name_type" "cl"
$cell1585 setProp "libunit" "System" "name_type" "cl"
$cell1585 setScope "name_type" "de" "scopeSystem"

set cell1586 [$row1583 addCell parameter 0.0]
$cell1586 setLabel "name_type" "X: int, "
$cell1586 setScope "name_type" "cl" "scopePhase"
$cell1586 setScope "name_type" "de" "scopeSystem"

set cell1587 [$row1583 addCell parameter 0.0]
$cell1587 setLabel "name_type" "Y: int, "
$cell1587 setScope "name_type" "cl" "scopePhase"
$cell1587 setScope "name_type" "de" "scopeSystem"

set cell1588 [$row1583 addCell parameter 0.0]
$cell1588 setLabel "name_type" "State: TDragState, "
$cell1588 setScope "name_type" "cl" "scopePhase"
$cell1588 setProp "is_vcl" "1" "name_type" "cl"
$cell1588 setProp "libunit" "Controls" "name_type" "cl"
$cell1588 setScope "name_type" "de" "scopeSystem"

set cell1589 [$row1583 addCell parameter 0.0]
$cell1589 setLabel "name_type" "Accept: bool"
$cell1589 setProp "pass_by" "Variable"
$cell1589 setScope "name_type" "cl" "scopePhase"
$cell1589 setScope "name_type" "de" "scopeSystem"

set row1590 [$diag addRow method 0.0]
$row1590 setLabel "name_type" "EndDrag()\n"
$row1590 setProp "has_parmlist" "1"
$row1590 setProp "is_event" "1"

set cell1591 [$row1590 addCell parameter 0.0]
$cell1591 setLabel "name_type" "Sender: TObject, "
$cell1591 setScope "name_type" "cl" "scopePhase"
$cell1591 setProp "is_vcl" "1" "name_type" "cl"
$cell1591 setProp "libunit" "System" "name_type" "cl"
$cell1591 setScope "name_type" "de" "scopeSystem"

set cell1592 [$row1590 addCell parameter 0.0]
$cell1592 setLabel "name_type" "Source: TObject, "
$cell1592 setScope "name_type" "cl" "scopePhase"
$cell1592 setProp "is_vcl" "1" "name_type" "cl"
$cell1592 setProp "libunit" "System" "name_type" "cl"
$cell1592 setScope "name_type" "de" "scopeSystem"

set cell1593 [$row1590 addCell parameter 0.0]
$cell1593 setLabel "name_type" "X: int, "
$cell1593 setScope "name_type" "cl" "scopePhase"
$cell1593 setScope "name_type" "de" "scopeSystem"

set cell1594 [$row1590 addCell parameter 0.0]
$cell1594 setLabel "name_type" "Y: int"
$cell1594 setScope "name_type" "cl" "scopePhase"
$cell1594 setScope "name_type" "de" "scopeSystem"

set row1595 [$diag addRow method 0.0]
$row1595 setLabel "name_type" "Enter()\n"
$row1595 setProp "has_parmlist" "1"
$row1595 setProp "is_event" "1"

set cell1596 [$row1595 addCell parameter 0.0]
$cell1596 setLabel "name_type" "Sender: TObject"
$cell1596 setScope "name_type" "cl" "scopePhase"
$cell1596 setProp "is_vcl" "1" "name_type" "cl"
$cell1596 setProp "libunit" "System" "name_type" "cl"
$cell1596 setScope "name_type" "de" "scopeSystem"

set row1597 [$diag addRow method 0.0]
$row1597 setLabel "name_type" "Exit()\n"
$row1597 setProp "has_parmlist" "1"
$row1597 setProp "is_event" "1"

set cell1598 [$row1597 addCell parameter 0.0]
$cell1598 setLabel "name_type" "Sender: TObject"
$cell1598 setScope "name_type" "cl" "scopePhase"
$cell1598 setProp "is_vcl" "1" "name_type" "cl"
$cell1598 setProp "libunit" "System" "name_type" "cl"
$cell1598 setScope "name_type" "de" "scopeSystem"

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

set cell1600 [$row1599 addCell parameter 0.0]
$cell1600 setLabel "name_type" "Sender: TObject, "
$cell1600 setScope "name_type" "cl" "scopePhase"
$cell1600 setProp "is_vcl" "1" "name_type" "cl"
$cell1600 setProp "libunit" "System" "name_type" "cl"
$cell1600 setScope "name_type" "de" "scopeSystem"

set cell1601 [$row1599 addCell parameter 0.0]
$cell1601 setLabel "name_type" "Button: TMouseButton, "
$cell1601 setScope "name_type" "cl" "scopePhase"
$cell1601 setProp "is_vcl" "1" "name_type" "cl"
$cell1601 setProp "libunit" "Controls" "name_type" "cl"
$cell1601 setScope "name_type" "de" "scopeSystem"

set cell1602 [$row1599 addCell parameter 0.0]
$cell1602 setLabel "name_type" "Shift: TShiftState, "
$cell1602 setScope "name_type" "cl" "scopePhase"
$cell1602 setProp "is_vcl" "1" "name_type" "cl"
$cell1602 setProp "libunit" "Classes" "name_type" "cl"
$cell1602 setScope "name_type" "de" "scopeSystem"

set cell1603 [$row1599 addCell parameter 0.0]
$cell1603 setLabel "name_type" "X: int, "
$cell1603 setScope "name_type" "cl" "scopePhase"
$cell1603 setScope "name_type" "de" "scopeSystem"

set cell1604 [$row1599 addCell parameter 0.0]
$cell1604 setLabel "name_type" "Y: int"
$cell1604 setScope "name_type" "cl" "scopePhase"
$cell1604 setScope "name_type" "de" "scopeSystem"

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

set cell1606 [$row1605 addCell parameter 0.0]
$cell1606 setLabel "name_type" "Sender: TObject, "
$cell1606 setScope "name_type" "cl" "scopePhase"
$cell1606 setProp "is_vcl" "1" "name_type" "cl"
$cell1606 setProp "libunit" "System" "name_type" "cl"
$cell1606 setScope "name_type" "de" "scopeSystem"

set cell1607 [$row1605 addCell parameter 0.0]
$cell1607 setLabel "name_type" "Shift: TShiftState, "
$cell1607 setScope "name_type" "cl" "scopePhase"
$cell1607 setProp "is_vcl" "1" "name_type" "cl"
$cell1607 setProp "libunit" "Classes" "name_type" "cl"
$cell1607 setScope "name_type" "de" "scopeSystem"

set cell1608 [$row1605 addCell parameter 0.0]
$cell1608 setLabel "name_type" "X: int, "
$cell1608 setScope "name_type" "cl" "scopePhase"
$cell1608 setScope "name_type" "de" "scopeSystem"

set cell1609 [$row1605 addCell parameter 0.0]
$cell1609 setLabel "name_type" "Y: int"
$cell1609 setScope "name_type" "cl" "scopePhase"
$cell1609 setScope "name_type" "de" "scopeSystem"

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

set cell1611 [$row1610 addCell parameter 0.0]
$cell1611 setLabel "name_type" "Sender: TObject, "
$cell1611 setScope "name_type" "cl" "scopePhase"
$cell1611 setProp "is_vcl" "1" "name_type" "cl"
$cell1611 setProp "libunit" "System" "name_type" "cl"
$cell1611 setScope "name_type" "de" "scopeSystem"

set cell1612 [$row1610 addCell parameter 0.0]
$cell1612 setLabel "name_type" "Button: TMouseButton, "
$cell1612 setScope "name_type" "cl" "scopePhase"
$cell1612 setProp "is_vcl" "1" "name_type" "cl"
$cell1612 setProp "libunit" "Controls" "name_type" "cl"
$cell1612 setScope "name_type" "de" "scopeSystem"

set cell1613 [$row1610 addCell parameter 0.0]
$cell1613 setLabel "name_type" "Shift: TShiftState, "
$cell1613 setScope "name_type" "cl" "scopePhase"
$cell1613 setProp "is_vcl" "1" "name_type" "cl"
$cell1613 setProp "libunit" "Classes" "name_type" "cl"
$cell1613 setScope "name_type" "de" "scopeSystem"

set cell1614 [$row1610 addCell parameter 0.0]
$cell1614 setLabel "name_type" "X: int, "
$cell1614 setScope "name_type" "cl" "scopePhase"
$cell1614 setScope "name_type" "de" "scopeSystem"

set cell1615 [$row1610 addCell parameter 0.0]
$cell1615 setLabel "name_type" "Y: int"
$cell1615 setScope "name_type" "cl" "scopePhase"
$cell1615 setScope "name_type" "de" "scopeSystem"

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

set cell1617 [$row1616 addCell parameter 0.0]
$cell1617 setLabel "name_type" "Sender: TObject"
$cell1617 setScope "name_type" "cl" "scopePhase"
$cell1617 setProp "is_vcl" "1" "name_type" "cl"
$cell1617 setProp "libunit" "System" "name_type" "cl"
$cell1617 setScope "name_type" "de" "scopeSystem"

set row1618 [$diag addRow method 0.0]
$row1618 setLabel "name_type" "StartDrag()"
$row1618 setProp "has_parmlist" "1"
$row1618 setProp "is_event" "1"

set cell1619 [$row1618 addCell parameter 0.0]
$cell1619 setLabel "name_type" "Sender: TObject, "
$cell1619 setScope "name_type" "cl" "scopePhase"
$cell1619 setProp "is_vcl" "1" "name_type" "cl"
$cell1619 setProp "libunit" "System" "name_type" "cl"
$cell1619 setScope "name_type" "de" "scopeSystem"

set cell1620 [$row1618 addCell parameter 0.0]
$cell1620 setLabel "name_type" "DragObject: TDragObject"
$cell1620 setProp "pass_by" "Variable"
$cell1620 setScope "name_type" "cl" "scopePhase"
$cell1620 setProp "is_vcl" "1" "name_type" "cl"
$cell1620 setProp "libunit" "Controls" "name_type" "cl"
$cell1620 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TRadioGroup "DelphiVCL" "" "" "" "" "" 1]

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

set cell1622 [$row1621 addCell parameter 0.0]
$cell1622 setLabel "name_type" "Sender: TObject"
$cell1622 setScope "name_type" "cl" "scopePhase"
$cell1622 setProp "is_vcl" "1" "name_type" "cl"
$cell1622 setProp "libunit" "System" "name_type" "cl"
$cell1622 setScope "name_type" "de" "scopeSystem"

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

set cell1624 [$row1623 addCell parameter 0.0]
$cell1624 setLabel "name_type" "Sender: TObject, "
$cell1624 setScope "name_type" "cl" "scopePhase"
$cell1624 setProp "is_vcl" "1" "name_type" "cl"
$cell1624 setProp "libunit" "System" "name_type" "cl"
$cell1624 setScope "name_type" "de" "scopeSystem"

set cell1625 [$row1623 addCell parameter 0.0]
$cell1625 setLabel "name_type" "Source: TObject, "
$cell1625 setScope "name_type" "cl" "scopePhase"
$cell1625 setProp "is_vcl" "1" "name_type" "cl"
$cell1625 setProp "libunit" "System" "name_type" "cl"
$cell1625 setScope "name_type" "de" "scopeSystem"

set cell1626 [$row1623 addCell parameter 0.0]
$cell1626 setLabel "name_type" "X: int, "
$cell1626 setScope "name_type" "cl" "scopePhase"
$cell1626 setScope "name_type" "de" "scopeSystem"

set cell1627 [$row1623 addCell parameter 0.0]
$cell1627 setLabel "name_type" "Y: int"
$cell1627 setScope "name_type" "cl" "scopePhase"
$cell1627 setScope "name_type" "de" "scopeSystem"

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

set cell1629 [$row1628 addCell parameter 0.0]
$cell1629 setLabel "name_type" "Sender: TObject, "
$cell1629 setScope "name_type" "cl" "scopePhase"
$cell1629 setProp "is_vcl" "1" "name_type" "cl"
$cell1629 setProp "libunit" "System" "name_type" "cl"
$cell1629 setScope "name_type" "de" "scopeSystem"

set cell1630 [$row1628 addCell parameter 0.0]
$cell1630 setLabel "name_type" "Source: TObject, "
$cell1630 setScope "name_type" "cl" "scopePhase"
$cell1630 setProp "is_vcl" "1" "name_type" "cl"
$cell1630 setProp "libunit" "System" "name_type" "cl"
$cell1630 setScope "name_type" "de" "scopeSystem"

set cell1631 [$row1628 addCell parameter 0.0]
$cell1631 setLabel "name_type" "X: int, "
$cell1631 setScope "name_type" "cl" "scopePhase"
$cell1631 setScope "name_type" "de" "scopeSystem"

set cell1632 [$row1628 addCell parameter 0.0]
$cell1632 setLabel "name_type" "Y: int, "
$cell1632 setScope "name_type" "cl" "scopePhase"
$cell1632 setScope "name_type" "de" "scopeSystem"

set cell1633 [$row1628 addCell parameter 0.0]
$cell1633 setLabel "name_type" "State: TDragState, "
$cell1633 setScope "name_type" "cl" "scopePhase"
$cell1633 setProp "is_vcl" "1" "name_type" "cl"
$cell1633 setProp "libunit" "Controls" "name_type" "cl"
$cell1633 setScope "name_type" "de" "scopeSystem"

set cell1634 [$row1628 addCell parameter 0.0]
$cell1634 setLabel "name_type" "Accept: bool"
$cell1634 setProp "pass_by" "Variable"
$cell1634 setScope "name_type" "cl" "scopePhase"
$cell1634 setScope "name_type" "de" "scopeSystem"

set row1635 [$diag addRow method 0.0]
$row1635 setLabel "name_type" "EndDrag()\n"
$row1635 setProp "has_parmlist" "1"
$row1635 setProp "is_event" "1"

set cell1636 [$row1635 addCell parameter 0.0]
$cell1636 setLabel "name_type" "Sender: TObject, "
$cell1636 setScope "name_type" "cl" "scopePhase"
$cell1636 setProp "is_vcl" "1" "name_type" "cl"
$cell1636 setProp "libunit" "System" "name_type" "cl"
$cell1636 setScope "name_type" "de" "scopeSystem"

set cell1637 [$row1635 addCell parameter 0.0]
$cell1637 setLabel "name_type" "Source: TObject, "
$cell1637 setScope "name_type" "cl" "scopePhase"
$cell1637 setProp "is_vcl" "1" "name_type" "cl"
$cell1637 setProp "libunit" "System" "name_type" "cl"
$cell1637 setScope "name_type" "de" "scopeSystem"

set cell1638 [$row1635 addCell parameter 0.0]
$cell1638 setLabel "name_type" "X: int, "
$cell1638 setScope "name_type" "cl" "scopePhase"
$cell1638 setScope "name_type" "de" "scopeSystem"

set cell1639 [$row1635 addCell parameter 0.0]
$cell1639 setLabel "name_type" "Y: int"
$cell1639 setScope "name_type" "cl" "scopePhase"
$cell1639 setScope "name_type" "de" "scopeSystem"

set row1640 [$diag addRow method 0.0]
$row1640 setLabel "name_type" "Enter()\n"
$row1640 setProp "has_parmlist" "1"
$row1640 setProp "is_event" "1"

set cell1641 [$row1640 addCell parameter 0.0]
$cell1641 setLabel "name_type" "Sender: TObject"
$cell1641 setScope "name_type" "cl" "scopePhase"
$cell1641 setProp "is_vcl" "1" "name_type" "cl"
$cell1641 setProp "libunit" "System" "name_type" "cl"
$cell1641 setScope "name_type" "de" "scopeSystem"

set row1642 [$diag addRow method 0.0]
$row1642 setLabel "name_type" "Exit()\n"
$row1642 setProp "has_parmlist" "1"
$row1642 setProp "is_event" "1"

set cell1643 [$row1642 addCell parameter 0.0]
$cell1643 setLabel "name_type" "Sender: TObject"
$cell1643 setScope "name_type" "cl" "scopePhase"
$cell1643 setProp "is_vcl" "1" "name_type" "cl"
$cell1643 setProp "libunit" "System" "name_type" "cl"
$cell1643 setScope "name_type" "de" "scopeSystem"

set row1644 [$diag addRow method 0.0]
$row1644 setLabel "name_type" "StartDrag()"
$row1644 setProp "has_parmlist" "1"
$row1644 setProp "is_event" "1"

set cell1645 [$row1644 addCell parameter 0.0]
$cell1645 setLabel "name_type" "Sender: TObject, "
$cell1645 setScope "name_type" "cl" "scopePhase"
$cell1645 setProp "is_vcl" "1" "name_type" "cl"
$cell1645 setProp "libunit" "System" "name_type" "cl"
$cell1645 setScope "name_type" "de" "scopeSystem"

set cell1646 [$row1644 addCell parameter 0.0]
$cell1646 setLabel "name_type" "DragObject: TDragObject"
$cell1646 setProp "pass_by" "Variable"
$cell1646 setScope "name_type" "cl" "scopePhase"
$cell1646 setProp "is_vcl" "1" "name_type" "cl"
$cell1646 setProp "libunit" "Controls" "name_type" "cl"
$cell1646 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TShape "DelphiVCL" "" "" "" "" "" 1]

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

set cell1648 [$row1647 addCell parameter 0.0]
$cell1648 setLabel "name_type" "Sender: TObject, "
$cell1648 setScope "name_type" "cl" "scopePhase"
$cell1648 setProp "is_vcl" "1" "name_type" "cl"
$cell1648 setProp "libunit" "System" "name_type" "cl"
$cell1648 setScope "name_type" "de" "scopeSystem"

set cell1649 [$row1647 addCell parameter 0.0]
$cell1649 setLabel "name_type" "Source: TObject, "
$cell1649 setScope "name_type" "cl" "scopePhase"
$cell1649 setProp "is_vcl" "1" "name_type" "cl"
$cell1649 setProp "libunit" "System" "name_type" "cl"
$cell1649 setScope "name_type" "de" "scopeSystem"

set cell1650 [$row1647 addCell parameter 0.0]
$cell1650 setLabel "name_type" "X: int, "
$cell1650 setScope "name_type" "cl" "scopePhase"
$cell1650 setScope "name_type" "de" "scopeSystem"

set cell1651 [$row1647 addCell parameter 0.0]
$cell1651 setLabel "name_type" "Y: int"
$cell1651 setScope "name_type" "cl" "scopePhase"
$cell1651 setScope "name_type" "de" "scopeSystem"

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

set cell1653 [$row1652 addCell parameter 0.0]
$cell1653 setLabel "name_type" "Sender: TObject, "
$cell1653 setScope "name_type" "cl" "scopePhase"
$cell1653 setProp "is_vcl" "1" "name_type" "cl"
$cell1653 setProp "libunit" "System" "name_type" "cl"
$cell1653 setScope "name_type" "de" "scopeSystem"

set cell1654 [$row1652 addCell parameter 0.0]
$cell1654 setLabel "name_type" "Source: TObject, "
$cell1654 setScope "name_type" "cl" "scopePhase"
$cell1654 setProp "is_vcl" "1" "name_type" "cl"
$cell1654 setProp "libunit" "System" "name_type" "cl"
$cell1654 setScope "name_type" "de" "scopeSystem"

set cell1655 [$row1652 addCell parameter 0.0]
$cell1655 setLabel "name_type" "X: int, "
$cell1655 setScope "name_type" "cl" "scopePhase"
$cell1655 setScope "name_type" "de" "scopeSystem"

set cell1656 [$row1652 addCell parameter 0.0]
$cell1656 setLabel "name_type" "Y: int, "
$cell1656 setScope "name_type" "cl" "scopePhase"
$cell1656 setScope "name_type" "de" "scopeSystem"

set cell1657 [$row1652 addCell parameter 0.0]
$cell1657 setLabel "name_type" "State: TDragState, "
$cell1657 setScope "name_type" "cl" "scopePhase"
$cell1657 setProp "is_vcl" "1" "name_type" "cl"
$cell1657 setProp "libunit" "Controls" "name_type" "cl"
$cell1657 setScope "name_type" "de" "scopeSystem"

set cell1658 [$row1652 addCell parameter 0.0]
$cell1658 setLabel "name_type" "Accept: bool"
$cell1658 setProp "pass_by" "Variable"
$cell1658 setScope "name_type" "cl" "scopePhase"
$cell1658 setScope "name_type" "de" "scopeSystem"

set row1659 [$diag addRow method 0.0]
$row1659 setLabel "name_type" "EndDrag()\n"
$row1659 setProp "has_parmlist" "1"
$row1659 setProp "is_event" "1"

set cell1660 [$row1659 addCell parameter 0.0]
$cell1660 setLabel "name_type" "Sender: TObject, "
$cell1660 setScope "name_type" "cl" "scopePhase"
$cell1660 setProp "is_vcl" "1" "name_type" "cl"
$cell1660 setProp "libunit" "System" "name_type" "cl"
$cell1660 setScope "name_type" "de" "scopeSystem"

set cell1661 [$row1659 addCell parameter 0.0]
$cell1661 setLabel "name_type" "Source: TObject, "
$cell1661 setScope "name_type" "cl" "scopePhase"
$cell1661 setProp "is_vcl" "1" "name_type" "cl"
$cell1661 setProp "libunit" "System" "name_type" "cl"
$cell1661 setScope "name_type" "de" "scopeSystem"

set cell1662 [$row1659 addCell parameter 0.0]
$cell1662 setLabel "name_type" "X: int, "
$cell1662 setScope "name_type" "cl" "scopePhase"
$cell1662 setScope "name_type" "de" "scopeSystem"

set cell1663 [$row1659 addCell parameter 0.0]
$cell1663 setLabel "name_type" "Y: int"
$cell1663 setScope "name_type" "cl" "scopePhase"
$cell1663 setScope "name_type" "de" "scopeSystem"

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

set cell1665 [$row1664 addCell parameter 0.0]
$cell1665 setLabel "name_type" "Sender: TObject, "
$cell1665 setScope "name_type" "cl" "scopePhase"
$cell1665 setProp "is_vcl" "1" "name_type" "cl"
$cell1665 setProp "libunit" "System" "name_type" "cl"
$cell1665 setScope "name_type" "de" "scopeSystem"

set cell1666 [$row1664 addCell parameter 0.0]
$cell1666 setLabel "name_type" "Button: TMouseButton, "
$cell1666 setScope "name_type" "cl" "scopePhase"
$cell1666 setProp "is_vcl" "1" "name_type" "cl"
$cell1666 setProp "libunit" "Controls" "name_type" "cl"
$cell1666 setScope "name_type" "de" "scopeSystem"

set cell1667 [$row1664 addCell parameter 0.0]
$cell1667 setLabel "name_type" "Shift: TShiftState, "
$cell1667 setScope "name_type" "cl" "scopePhase"
$cell1667 setProp "is_vcl" "1" "name_type" "cl"
$cell1667 setProp "libunit" "Classes" "name_type" "cl"
$cell1667 setScope "name_type" "de" "scopeSystem"

set cell1668 [$row1664 addCell parameter 0.0]
$cell1668 setLabel "name_type" "X: int, "
$cell1668 setScope "name_type" "cl" "scopePhase"
$cell1668 setScope "name_type" "de" "scopeSystem"

set cell1669 [$row1664 addCell parameter 0.0]
$cell1669 setLabel "name_type" "Y: int"
$cell1669 setScope "name_type" "cl" "scopePhase"
$cell1669 setScope "name_type" "de" "scopeSystem"

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

set cell1671 [$row1670 addCell parameter 0.0]
$cell1671 setLabel "name_type" "Sender: TObject, "
$cell1671 setScope "name_type" "cl" "scopePhase"
$cell1671 setProp "is_vcl" "1" "name_type" "cl"
$cell1671 setProp "libunit" "System" "name_type" "cl"
$cell1671 setScope "name_type" "de" "scopeSystem"

set cell1672 [$row1670 addCell parameter 0.0]
$cell1672 setLabel "name_type" "Shift: TShiftState, "
$cell1672 setScope "name_type" "cl" "scopePhase"
$cell1672 setProp "is_vcl" "1" "name_type" "cl"
$cell1672 setProp "libunit" "Classes" "name_type" "cl"
$cell1672 setScope "name_type" "de" "scopeSystem"

set cell1673 [$row1670 addCell parameter 0.0]
$cell1673 setLabel "name_type" "X: int, "
$cell1673 setScope "name_type" "cl" "scopePhase"
$cell1673 setScope "name_type" "de" "scopeSystem"

set cell1674 [$row1670 addCell parameter 0.0]
$cell1674 setLabel "name_type" "Y: int"
$cell1674 setScope "name_type" "cl" "scopePhase"
$cell1674 setScope "name_type" "de" "scopeSystem"

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

set cell1676 [$row1675 addCell parameter 0.0]
$cell1676 setLabel "name_type" "Sender: TObject, "
$cell1676 setScope "name_type" "cl" "scopePhase"
$cell1676 setProp "is_vcl" "1" "name_type" "cl"
$cell1676 setProp "libunit" "System" "name_type" "cl"
$cell1676 setScope "name_type" "de" "scopeSystem"

set cell1677 [$row1675 addCell parameter 0.0]
$cell1677 setLabel "name_type" "Button: TMouseButton, "
$cell1677 setScope "name_type" "cl" "scopePhase"
$cell1677 setProp "is_vcl" "1" "name_type" "cl"
$cell1677 setProp "libunit" "Controls" "name_type" "cl"
$cell1677 setScope "name_type" "de" "scopeSystem"

set cell1678 [$row1675 addCell parameter 0.0]
$cell1678 setLabel "name_type" "Shift: TShiftState, "
$cell1678 setScope "name_type" "cl" "scopePhase"
$cell1678 setProp "is_vcl" "1" "name_type" "cl"
$cell1678 setProp "libunit" "Classes" "name_type" "cl"
$cell1678 setScope "name_type" "de" "scopeSystem"

set cell1679 [$row1675 addCell parameter 0.0]
$cell1679 setLabel "name_type" "X: int, "
$cell1679 setScope "name_type" "cl" "scopePhase"
$cell1679 setScope "name_type" "de" "scopeSystem"

set cell1680 [$row1675 addCell parameter 0.0]
$cell1680 setLabel "name_type" "Y: int"
$cell1680 setScope "name_type" "cl" "scopePhase"
$cell1680 setScope "name_type" "de" "scopeSystem"

set row1681 [$diag addRow method 0.0]
$row1681 setLabel "name_type" "StartDrag()"
$row1681 setProp "has_parmlist" "1"
$row1681 setProp "is_event" "1"

set cell1682 [$row1681 addCell parameter 0.0]
$cell1682 setLabel "name_type" "Sender: TObject, "
$cell1682 setScope "name_type" "cl" "scopePhase"
$cell1682 setProp "is_vcl" "1" "name_type" "cl"
$cell1682 setProp "libunit" "System" "name_type" "cl"
$cell1682 setScope "name_type" "de" "scopeSystem"

set cell1683 [$row1681 addCell parameter 0.0]
$cell1683 setLabel "name_type" "DragObject: TDragObject"
$cell1683 setProp "pass_by" "Variable"
$cell1683 setScope "name_type" "cl" "scopePhase"
$cell1683 setProp "is_vcl" "1" "name_type" "cl"
$cell1683 setProp "libunit" "Controls" "name_type" "cl"
$cell1683 setScope "name_type" "de" "scopeSystem"

$diag save

# Generator: et.tcl    /main/hindenburg/19
# Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
# Interpreter to use: Otsh V6.1.1/B1
#
OTShRegister::importTool

set diag [CDM new TTimer "DelphiVCL" "" "" "" "" "" 1]

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

set cell1685 [$row1684 addCell parameter 0.0]
$cell1685 setLabel "name_type" "Sender: TObject"
$cell1685 setScope "name_type" "cl" "scopePhase"
$cell1685 setProp "is_vcl" "1" "name_type" "cl"
$cell1685 setProp "libunit" "System" "name_type" "cl"
$cell1685 setScope "name_type" "de" "scopeSystem"

$diag save