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

Text File | 1997-11-28 | 115KB | 2,899 lines

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QDsAGcAAQAAAAEA -g -dproj {-oC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new ApplicationUI "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node1 [$diag addNode cad_class 1768.0 1984.0 120.0 33.3333]
$node1 setLabel "name" "CancelButton"
$node1 setProp "is_folded" "1"
$node1 setScope "name" "cl" "scopePhase"
$node1 setProp "freeText" "REQ004: The CancelButton is used to \ncancel the message by clearing both \nthe TxMessageField and the \nDestinationAddressField." "name" "cl"

set node2 [$diag addNode cad_class 1768.0 1928.0 120.0 33.3333]
$node2 setLabel "name" "SendButton"
$node2 setProp "is_folded" "1"
$node2 setScope "name" "cl" "scopePhase"
$node2 setProp "freeText" "REQ004: The SendButton is used to \nsend the message to the destination \naddressee(s) .\n" "name" "cl"

set node3 [$diag addNode cad_class 1768.0 1872.0 200.0 33.3333]
$node3 setLabel "name" "DestinationAddressField"
$node3 setProp "is_folded" "1"
$node3 setScope "name" "cl" "scopePhase"
$node3 setProp "freeText" "REQ003: The DestinationAddressField \nis used to compose the address to \nwhich the message will be sent.\nREQ010: The DestinationAddressField \ncan specify a list of addresses." "name" "cl"

set node4 [$diag addNode cad_class 1768.0 1816.0 138.666 33.3333]
$node4 setLabel "name" "TxMessageField"
$node4 setProp "is_folded" "1"
$node4 setScope "name" "cl" "scopePhase"
$node4 setProp "freeText" "REQ002: The TxMessageField is used \nto compose the body text of the \nmessage." "name" "cl"

set node5 [$diag addNode cad_class 1768.0 1728.0 120.0 33.3333]
$node5 setLabel "name" "ClearButton"
$node5 setProp "is_folded" "1"
$node5 setScope "name" "cl" "scopePhase"
$node5 setProp "freeText" "REQ008: The ClearButton clears both \nthe RxMessageField and the \nOriginAddressField." "name" "cl"

set node6 [$diag addNode cad_class 1768.0 1672.0 124.0 33.3333]
$node6 setLabel "name" "ReceiveButton"
$node6 setProp "is_folded" "1"
$node6 setScope "name" "cl" "scopePhase"
$node6 setProp "freeText" "REQ008: The ReceiveButton fetches \nthe next message from the message \nqueue and displays it in the \nRxMessageField." "name" "cl"

set node7 [$diag addNode cad_class 1768.0 1616.0 161.333 33.3333]
$node7 setLabel "name" "OriginAddressField"
$node7 setProp "is_folded" "1"
$node7 setScope "name" "cl" "scopePhase"
$node7 setProp "freeText" "REQ009: The OrignAddressField \ndisplays the origin address of the \nreceived message." "name" "cl"

set node8 [$diag addNode cad_class 1768.0 1560.0 138.666 33.3333]
$node8 setLabel "name" "RxMessageField"
$node8 setProp "is_folded" "1"
$node8 setScope "name" "cl" "scopePhase"
$node8 setProp "freeText" "REQ005: The RxMessageField \ndisplays the body text of the received \nmessage." "name" "cl"

set node9 [$diag addNode cad_class 2064.0 1816.0 122.667 33.3333]
$node9 setLabel "name" "MessageBody"
$node9 setProp "is_folded" "1"
$node9 setScope "name" "cl" "scopePhase"

set attribute50 [$node9 addAttrib]
$attribute50 setLabel "name_type" "text"

set method51 [$node9 addMethod]
$method51 setLabel "name_type" "create()\n"
$method51 setProp "has_parmlist" "1"

set method52 [$node9 addMethod]
$method52 setLabel "name_type" "encrypt()\n"
$method52 setProp "has_parmlist" "1"

set method53 [$node9 addMethod]
$method53 setLabel "name_type" "decrypt()"
$method53 setProp "has_parmlist" "1"

set node10 [$diag addNode cad_class 2064.0 1616.0 126.666 33.3333]
$node10 setLabel "name" "OriginAddress"
$node10 setProp "is_folded" "1"
$node10 setScope "name" "cl" "scopePhase"

set method54 [$node10 addMethod]
$method54 setLabel "name_type" "create()\n"
$method54 setProp "has_parmlist" "1"

set method55 [$node10 addMethod]
$method55 setLabel "name_type" "getMyOrigin():Address"
$method55 setProp "has_parmlist" "1"
$method55 setScope "name_type" "cl" "scopePhase"

set node11 [$diag addNode cad_class 2064.0 1560.0 122.667 33.3333]
$node11 setLabel "name" "MessageBody"
$node11 setProp "is_folded" "1"
$node11 setScope "name" "cl" "scopePhase"

set node12 [$diag addNode cad_class 2120.0 1872.0 165.333 33.3333]
$node12 setLabel "name" "DestinationAddress"
$node12 setProp "is_folded" "1"
$node12 setScope "name" "cl" "scopePhase"

set attribute56 [$node12 addAttrib]
$attribute56 setLabel "name_type" "Addresses"

set method57 [$node12 addMethod]
$method57 setLabel "name_type" "create()\n"
$method57 setProp "has_parmlist" "1"

set method58 [$node12 addMethod]
$method58 setLabel "name_type" "addToList()"
$method58 setProp "has_parmlist" "1"

set node13 [$diag addNode cad_class 1440.0 1928.0 173.333 99.9999]
$node13 setLabel "name" "SendWindow"
$node13 setScope "name" "cl" "scopePhase"
$node13 setProp "freeText" "REQ002: The SendWindow is used \nto compose and send messages.\n" "name" "cl"

set method59 [$node13 addMethod]
$method59 setLabel "name_type" "clear()"
$method59 setProp "has_parmlist" "1"

set node14 [$diag addNode cad_class 1440.0 1672.0 173.333 114.667]
$node14 setLabel "name" "ReceiveWindow"
$node14 setScope "name" "cl" "scopePhase"
$node14 setProp "freeText" "REQ005: The ReceiveWindow \nallows the receipt and display of \nmessages from other nodes." "name" "cl"

set method60 [$node14 addMethod]
$method60 setLabel "name_type" "show()\n"
$method60 setProp "has_parmlist" "1"
$method60 setProp "freeText" "Show causes the RxMessage to be \ndisplayed in the RxMessageField." "name_type" "pe"

set param61 [$method60 addParam]
$param61 setLabel "name_type" "RxMessage"
$param61 setScope "name_type" "de" "scopeFile"

set method62 [$node14 addMethod]
$method62 setLabel "name_type" "clear()"
$method62 setProp "has_parmlist" "1"

set node15 [$diag addNode cad_class 1240.0 1504.0 132.0 114.667]
$node15 setLabel "name" "ApplicationUI"
$node15 setScope "name" "cl" "scopePhase"
$node15 setProp "freeText" "The ApplicationUI provides an\ninterface for the users of the \nMessages system to write, send, \nreceive and read messages. " "name" "cl"

set attribute63 [$node15 addAttrib]
$attribute63 setLabel "name_type" "NodeID:Address"
$attribute63 setScope "name_type" "cl" "scopePhase"

set method64 [$node15 addMethod]
$method64 setLabel "name_type" "startApp()\n"
$method64 setProp "has_parmlist" "1"

set method65 [$node15 addMethod]
$method65 setLabel "name_type" "stopApp()"
$method65 setProp "has_parmlist" "1"

set conn16 [$diag addConn aggregation $node15 $node14 1344.0 1600.0 1496.0 1688.0]
$conn16 setProp "mult_kind_end" "one"
$conn16 setProp "mult_kind_start" "one"
set segm17 [$conn16 getFirstSegm]
set segm18 [$conn16 addSegm 1344.0 1688.0]

set conn19 [$diag addConn aggregation $node15 $node13 1304.0 1601.0 1448.0 1944.0]
$conn19 setProp "mult_kind_end" "one"
$conn19 setProp "mult_kind_start" "one"
set segm20 [$conn19 getFirstSegm]
set segm21 [$conn19 addSegm 1304.0 1944.0]

set conn22 [$diag addConn aggregation $node14 $node5 1608.0 1744.0 1776.0 1744.0]
$conn22 setLabel "role_end" "clear"
$conn22 setProp "mult_kind_end" "one"
$conn22 setProp "mult_kind_start" "optional"
set segm23 [$conn22 getFirstSegm]

set conn24 [$diag addConn aggregation $node14 $node6 1613.33 1688.0 1808.0 1688.0]
$conn24 setLabel "role_end" "get next"
$conn24 setProp "mult_kind_end" "one"
$conn24 setProp "mult_kind_start" "optional"
set segm25 [$conn24 getFirstSegm]

set conn26 [$diag addConn aggregation $node14 $node7 1600.0 1672.0 1784.0 1632.0]
$conn26 setLabel "role_end" "originator"
$conn26 setProp "mult_kind_end" "one"
$conn26 setProp "mult_kind_start" "optional"
set segm27 [$conn26 getFirstSegm]
set segm28 [$conn26 addSegm 1600.0 1632.0]

set conn29 [$diag addConn aggregation $node14 $node8 1552.0 1680.0 1792.0 1576.0]
$conn29 setLabel "role_end" "message text"
$conn29 setProp "mult_kind_end" "one"
$conn29 setProp "mult_kind_start" "optional"
set segm30 [$conn29 getFirstSegm]
set segm31 [$conn29 addSegm 1552.0 1576.0]

set conn32 [$diag addConn aggregation $node13 $node4 1552.0 1928.0 1800.0 1832.0]
$conn32 setLabel "role_end" "message text"
$conn32 setProp "mult_kind_end" "one"
$conn32 setProp "mult_kind_start" "optional"
set segm33 [$conn32 getFirstSegm]
set segm34 [$conn32 addSegm 1552.0 1832.0]

set conn35 [$diag addConn aggregation $node13 $node2 1613.33 1944.0 1776.0 1944.0]
$conn35 setLabel "role_end" "send"
$conn35 setProp "mult_kind_end" "one"
$conn35 setProp "mult_kind_start" "optional"
set segm36 [$conn35 getFirstSegm]

set conn37 [$diag addConn aggregation $node13 $node1 1608.0 2000.0 1784.0 2000.0]
$conn37 setLabel "role_end" "cancel"
$conn37 setProp "mult_kind_end" "one"
$conn37 setProp "mult_kind_start" "optional"
set segm38 [$conn37 getFirstSegm]

set conn39 [$diag addConn aggregation $node13 $node3 1600.0 1928.0 1800.0 1888.0]
$conn39 setLabel "role_end" "destination list"
$conn39 setProp "mult_kind_end" "one"
$conn39 setProp "mult_kind_start" "optional"
set segm40 [$conn39 getFirstSegm]
set segm41 [$conn39 addSegm 1600.0 1888.0]

set conn42 [$diag addConn association $node4 $node9 1904.0 1832.0 2080.0 1832.0]
$conn42 setLabel "role_end" "bodyText"
$conn42 setProp "mult_kind_end" "one"
$conn42 setProp "mult_kind_start" "optional"
set segm43 [$conn42 getFirstSegm]
$segm43 setLabel "name" "shows"
$segm43 setScope "name" "cl" "scopeSystem"

set conn44 [$diag addConn association $node7 $node10 1928.0 1632.0 2072.0 1632.0]
$conn44 setLabel "role_end" "addressText"
$conn44 setProp "mult_kind_end" "one"
$conn44 setProp "mult_kind_start" "optional"
set segm45 [$conn44 getFirstSegm]
$segm45 setLabel "name" "shows"
$segm45 setScope "name" "cl" "scopeSystem"

set conn46 [$diag addConn association $node8 $node11 1904.0 1576.0 2072.0 1576.0]
$conn46 setLabel "role_end" "bodyText"
$conn46 setProp "mult_kind_end" "one"
$conn46 setProp "mult_kind_start" "optional"
set segm47 [$conn46 getFirstSegm]
$segm47 setLabel "name" "shows"
$segm47 setScope "name" "cl" "scopeSystem"

set conn48 [$diag addConn association $node12 $node3 2120.0 1888.0 1968.0 1888.0]
$conn48 setLabel "role_start" "addressText"
$conn48 setProp "mult_kind_end" "optional"
$conn48 setProp "mult_kind_start" "one"
set segm49 [$conn48 getFirstSegm]
$segm49 setLabel "name" "shows"
$segm49 setScope "name" "cl" "scopeSystem"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRUY90AzwgxAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new Carrier "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node66 [$diag addNode cad_class 1168.0 1088.0 120.0 33.3333]
$node66 setLabel "name" "Socket"
$node66 setProp "is_folded" "1"
$node66 setScope "name" "cl" "scopePhase"
$node66 setProp "freeText" "Implementation of Carrier.receive and Carrier.send." "name" "cl"

set method79 [$node66 addMethod]
$method79 setLabel "name_type" "streamIn()\n"
$method79 setProp "has_parmlist" "1"

set method80 [$node66 addMethod]
$method80 setLabel "name_type" "streamOut()\n"
$method80 setProp "has_parmlist" "1"

set method81 [$node66 addMethod]
$method81 setLabel "name_type" "broadcast()"
$method81 setProp "has_parmlist" "1"

set node68 [$diag addNode cad_class 888.0 800.0 120.0 99.9999]
$node68 setLabel "name" "Node"
$node68 setScope "name" "cl" "scopePhase"

set attribute82 [$node68 addAttrib]
$attribute82 setLabel "name_type" "nodeID"

set node69 [$diag addNode cad_class 832.0 1160.0 120.0 33.3333]
$node69 setLabel "name" "Queue"
$node69 setProp "is_folded" "1"
$node69 setScope "name" "cl" "scopePhase"

set node70 [$diag addNode cad_class 1208.0 864.0 172.0 129.333]
$node70 setLabel "name" "Carrier"
$node70 setScope "name" "cl" "scopePhase"
$node70 setProp "actor_type" "system" "name" "cl"
$node70 setProp "freeText" "The Carrier provides an interface that is \ncapable of transporting messages \nbetween nodes. The Carrier can \nalso queue incoming messages at the \ndestination node until requested by the \nReader." "name" "cl"

set method83 [$node70 addMethod]
$method83 setLabel "name_type" "streamIn() {abstract}\n"
$method83 setProp "has_parmlist" "1"
$method83 setProp "is_abstract" "1"

set method84 [$node70 addMethod]
$method84 setLabel "name_type" "streamOut() {abstract}\n"
$method84 setProp "has_parmlist" "1"
$method84 setProp "is_abstract" "1"

set method85 [$node70 addMethod]
$method85 setLabel "name_type" "broadcast() {abstract}"
$method85 setProp "has_parmlist" "1"
$method85 setProp "is_abstract" "1"

set node71 [$diag addNode cad_class 1308.0 1088.0 120.0 33.3333]
$node71 setLabel "name" "TCP_IP"
$node71 setProp "is_folded" "1"
$node71 setScope "name" "cl" "scopePhase"
$node71 setProp "freeText" "Implementation of Carrier.receive and Carrier.send." "name" "cl"

set method86 [$node71 addMethod]
$method86 setLabel "name_type" "streamIn()\n"
$method86 setProp "has_parmlist" "1"

set method87 [$node71 addMethod]
$method87 setLabel "name_type" "streamOut()\n"
$method87 setProp "has_parmlist" "1"

set method88 [$node71 addMethod]
$method88 setLabel "name_type" "broadcast()"
$method88 setProp "has_parmlist" "1"

set node72 [$diag addNode cad_class 800.0 936.0 208.0 129.333]
$node72 setLabel "name" "MessageMgr"
$node72 setScope "name" "cl" "scopePhase"
$node72 setProp "freeText" "The MessageMgr has responsibilities \nto send and receive messages carried \nby the Carrier.\n\nWhen a Message is ready to be sent \nfeeds the Message to the Carrier via its \nstreamOut interface. \n\nThe MessageMrg listens to the Carrier's \nstreamIn channel and when it receives \na new stream, it creates a new Message \nand pushes it onto its Queue." "name" "cl"

set method89 [$node72 addMethod]
$method89 setLabel "name_type" "broadcast()\n"
$method89 setProp "has_parmlist" "1"

set param90 [$method89 addParam]
$param90 setLabel "name_type" "Message"
$param90 setScope "name_type" "de" "scopeFile"

set method91 [$node72 addMethod]
$method91 setLabel "name_type" "listen()\n"
$method91 setProp "has_parmlist" "1"

set method92 [$node72 addMethod]
$method92 setLabel "name_type" "getNextMessage():Message"
$method92 setProp "has_parmlist" "1"
$method92 setScope "name_type" "cl" "scopePhase"

set node67 [$diag addRake generalization $node70 $node66 1296.0 976.0 1232.0 1096.0 1055.5]
$node67 setLabel "name" "interface implementation"
$node67 setScope "name" "de" "scopeSystem"

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

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

set conn97 [$diag addConn generalization_conn $node67 $node71 1296.0 1056.0 1364.0 1104.0]
set segm98 [$conn97 getFirstSegm]

set conn75 [$diag addConn aggregation $node68 $node70 1008.0 880.0 1208.0 880.0]
$conn75 setLabel "role_end" "transporter"
$conn75 setProp "mult_kind_end" "optional"
$conn75 setProp "mult_kind_start" "one"
set segm76 [$conn75 getFirstSegm]

set conn77 [$diag addConn aggregation $node72 $node69 896.0 1056.0 896.0 1168.0]
$conn77 setProp "mult_kind_end" "one"
$conn77 setProp "mult_kind_start" "optional"
set segm78 [$conn77 getFirstSegm]

set conn73 [$diag addConn constraint $node72 $node70 1000.0 976.0 1208.0 976.0]
set segm74 [$conn73 getFirstSegm]
$segm74 setLabel "constraint" "╜interface⌐"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QEAAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new CoreClasses "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node100 [$diag addNode cad_class 1312.0 1040.0 173.333 114.667]
$node100 setLabel "name" "OriginAddress"
$node100 setScope "name" "cl" "scopePhase"

set method149 [$node100 addMethod]
$method149 setLabel "name_type" "create()\n"
$method149 setProp "has_parmlist" "1"

set method150 [$node100 addMethod]
$method150 setLabel "name_type" "getMyOrigin():Address"
$method150 setProp "has_parmlist" "1"
$method150 setScope "name_type" "cl" "scopePhase"

set node101 [$diag addNode cad_class 1088.0 1040.0 165.333 114.667]
$node101 setLabel "name" "DestinationAddress"
$node101 setScope "name" "cl" "scopePhase"

set attribute151 [$node101 addAttrib]
$attribute151 setLabel "name_type" "Addresses"

set method152 [$node101 addMethod]
$method152 setLabel "name_type" "create()\n"
$method152 setProp "has_parmlist" "1"

set method153 [$node101 addMethod]
$method153 setLabel "name_type" "addToList()"
$method153 setProp "has_parmlist" "1"

set node102 [$diag addNode cad_class 1088.0 856.0 154.666 99.9999]
$node102 setLabel "name" "Address"
$node102 setScope "name" "cl" "scopePhase"

set attribute154 [$node102 addAttrib]
$attribute154 setLabel "name_type" "NICname"

set method155 [$node102 addMethod]
$method155 setLabel "name_type" "\$create() {abstract}"
$method155 setProp "has_parmlist" "1"
$method155 setProp "is_abstract" "1"
$method155 setProp "is_class_feature" "1"

set node103 [$diag addNode cad_class 704.0 856.0 182.666 119.333]
$node103 setLabel "name" "AddressList"
$node103 setScope "name" "cl" "scopePhase"

set attribute156 [$node103 addAttrib]
$attribute156 setLabel "name_type" "Addresses"

set method157 [$node103 addMethod]
$method157 setLabel "name_type" "addToList()\n"
$method157 setProp "has_parmlist" "1"

set method158 [$node103 addMethod]
$method158 setLabel "name_type" "getSorted():AddressList"
$method158 setProp "has_parmlist" "1"
$method158 setScope "name_type" "cl" "scopePhase"

set node104 [$diag addNode cad_class 744.0 728.0 120.0 33.3333]
$node104 setLabel "name" "List"
$node104 setProp "is_folded" "1"
$node104 setScope "name" "cl" "scopePhase"

set method159 [$node104 addMethod]
$method159 setLabel "name_type" "add\n"

set method160 [$node104 addMethod]
$method160 setLabel "name_type" "remove\n"

set method161 [$node104 addMethod]
$method161 setLabel "name_type" "first\n"

set method162 [$node104 addMethod]
$method162 setLabel "name_type" "last"

set node105 [$diag addNode cad_class 1320.0 736.0 120.0 99.9999]
$node105 setLabel "name" "Node"
$node105 setScope "name" "cl" "scopePhase"

set attribute163 [$node105 addAttrib]
$attribute163 setLabel "name_type" "nodeID"

set node106 [$diag addNode cad_class 1360.0 1216.0 122.667 129.333]
$node106 setLabel "name" "MessageBody"
$node106 setScope "name" "cl" "scopePhase"

set attribute164 [$node106 addAttrib]
$attribute164 setLabel "name_type" "text"

set method165 [$node106 addMethod]
$method165 setLabel "name_type" "create()\n"
$method165 setProp "has_parmlist" "1"

set method166 [$node106 addMethod]
$method166 setLabel "name_type" "encrypt()\n"
$method166 setProp "has_parmlist" "1"

set method167 [$node106 addMethod]
$method167 setLabel "name_type" "decrypt()"
$method167 setProp "has_parmlist" "1"

set node107 [$diag addNode cad_class 1896.0 1040.0 132.0 114.667]
$node107 setLabel "name" "ApplicationUI"
$node107 setScope "name" "cl" "scopePhase"
$node107 setProp "freeText" "The ApplicationUI provides an\ninterface for the users of the \nMessages system to write, send, \nreceive and read messages. " "name" "cl"

set attribute168 [$node107 addAttrib]
$attribute168 setLabel "name_type" "NodeID:Address"
$attribute168 setScope "name_type" "cl" "scopePhase"

set method169 [$node107 addMethod]
$method169 setLabel "name_type" "startApp()\n"
$method169 setProp "has_parmlist" "1"

set method170 [$node107 addMethod]
$method170 setLabel "name_type" "stopApp()"
$method170 setProp "has_parmlist" "1"

set node108 [$diag addNode cad_class 1600.0 1000.0 120.0 158.666]
$node108 setLabel "name" "Message"
$node108 setScope "name" "cl" "scopePhase"

set attribute171 [$node108 addAttrib]
$attribute171 setLabel "name_type" "isEncrypted\n"

set attribute172 [$node108 addAttrib]
$attribute172 setLabel "name_type" "isPacked"

set method173 [$node108 addMethod]
$method173 setLabel "name_type" "create()\n"
$method173 setProp "has_parmlist" "1"

set method174 [$node108 addMethod]
$method174 setLabel "name_type" "pack()\n"
$method174 setProp "has_parmlist" "1"

set method175 [$node108 addMethod]
$method175 setLabel "name_type" "unpack()\n"
$method175 setProp "has_parmlist" "1"

set method176 [$node108 addMethod]
$method176 setLabel "name_type" "delete()"
$method176 setProp "has_parmlist" "1"

set node109 [$diag addNode note 736.0 1048.0 182.666 40.0]
$node109 setLabel "note_text" "Should be persistent."

set node110 [$diag addNode cad_class 1600.0 768.0 208.0 129.333]
$node110 setLabel "name" "MessageMgr"
$node110 setScope "name" "cl" "scopePhase"
$node110 setProp "freeText" "The MessageMgr has responsibilities \nto send and receive messages carried \nby the Carrier.\n\nWhen a Message is ready to be sent \nfeeds the Message to the Carrier via its \nstreamOut interface. \n\nThe MessageMrg listens to the Carrier's \nstreamIn channel and when it receives \na new stream, it creates a new Message \nand pushes it onto its Queue." "name" "cl"

set method177 [$node110 addMethod]
$method177 setLabel "name_type" "broadcast()\n"
$method177 setProp "has_parmlist" "1"

set param178 [$method177 addParam]
$param178 setLabel "name_type" "Message"
$param178 setScope "name_type" "de" "scopeFile"

set method179 [$node110 addMethod]
$method179 setLabel "name_type" "listen()\n"
$method179 setProp "has_parmlist" "1"

set method180 [$node110 addMethod]
$method180 setLabel "name_type" "getNextMessage():Message"
$method180 setProp "has_parmlist" "1"
$method180 setScope "name_type" "cl" "scopePhase"

set node99 [$diag addRake generalization $node104 $node103 800.0 756.444 800.0 856.0 799.5]

set conn181 [$node99 getInConn]
set segm182 [$conn181 getFirstSegm]

set conn183 [$node99 getFirstOutConn]
set segm184 [$conn183 getFirstSegm]

set conn111 [$diag addConn association $node101 $node102 1176.0 1056.0 1176.0 911.111]
$conn111 setLabel "constraint_end" "0+"
$conn111 setLabel "role_start" "messageAddress"
$conn111 setProp "mult_kind_end" "many"
$conn111 setProp "mult_kind_start" "optional"
$conn111 setProp "mult_spec_end" "0+"
set segm112 [$conn111 getFirstSegm]

set conn113 [$diag addConn association $node105 $node105 1344.0 736.0 1440.0 752.0]
$conn113 setLabel "constraint_end" "0+"
$conn113 setLabel "role_end" "destination"
$conn113 setLabel "role_start" "origin"
$conn113 setProp "mult_kind_end" "many"
$conn113 setProp "mult_kind_start" "optional"
$conn113 setProp "mult_spec_end" "0+"
set segm114 [$conn113 getFirstSegm]
set segm115 [$conn113 addSegm 1344.0 688.0]
$segm115 setLabel "name" "connects to"
$segm115 setScope "name" "cl" "scopeSystem"
set segm116 [$conn113 addSegm 1512.0 688.0]
set segm117 [$conn113 addSegm 1512.0 752.0]

set conn123 [$diag addConn association $node102 $node105 1168.0 864.0 1328.0 784.0]
$conn123 setProp "mult_kind_end" "optional"
$conn123 setProp "mult_kind_start" "one"
set segm124 [$conn123 getFirstSegm]
set segm125 [$conn123 addSegm 1168.0 784.0]
$segm125 setLabel "name" "identifies"
$segm125 setScope "name" "cl" "scopeSystem"

set conn126 [$diag addConn association $node107 $node108 1896.0 1096.0 1712.0 1096.0]
$conn126 setProp "mult_kind_end" "one"
$conn126 setProp "mult_kind_start" "optional"
set segm127 [$conn126 getFirstSegm]
$segm127 setLabel "name" "isDisplayedOn"
$segm127 setScope "name" "cl" "scopeSystem"

set conn128 [$diag addConn association $node102 $node100 1240.0 904.0 1400.0 1064.0]
$conn128 setLabel "role_end" "messageAddress"
$conn128 setProp "mult_kind_end" "optional"
$conn128 setProp "mult_kind_start" "optional"
set segm129 [$conn128 getFirstSegm]
set segm130 [$conn128 addSegm 1400.0 904.0]

set conn131 [$diag addConn aggregation $node103 $node102 824.0 904.0 1088.0 904.0]
$conn131 setLabel "constraint_end" "{ordered}, 0+"
$conn131 setLabel "role_end" "allAdresses"
$conn131 setProp "mult_kind_end" "many"
$conn131 setProp "mult_kind_start" "optional"
$conn131 setProp "mult_spec_end" "{ordered}, 0+"
set segm132 [$conn131 getFirstSegm]
$segm132 setLabel "name" "alphalists"
$segm132 setScope "name" "cl" "scopeSystem"

set conn133 [$diag addConn aggregation $node108 $node100 1608.0 1096.0 1472.0 1096.0]
$conn133 setLabel "role_end" "origin"
$conn133 setProp "mult_kind_end" "one"
$conn133 setProp "mult_kind_start" "optional"
set segm134 [$conn133 getFirstSegm]

set conn135 [$diag addConn aggregation $node108 $node101 1632.0 1127.0 1184.0 1136.0]
$conn135 setLabel "role_end" "destination"
$conn135 setProp "mult_kind_end" "one"
$conn135 setProp "mult_kind_start" "optional"
set segm136 [$conn135 getFirstSegm]
set segm137 [$conn135 addSegm 1632.0 1192.0]
set segm138 [$conn135 addSegm 1184.0 1192.0]

set conn139 [$diag addConn aggregation $node105 $node110 1440.0 808.0 1600.0 808.0]
$conn139 setProp "mult_kind_end" "optional"
$conn139 setProp "mult_kind_start" "optional"
set segm140 [$conn139 getFirstSegm]

set conn141 [$diag addConn association $node110 $node108 1656.0 880.0 1656.0 1024.0]
$conn141 setLabel "constraint_end" "0+"
$conn141 setProp "mult_kind_end" "many"
$conn141 setProp "mult_kind_start" "optional"
$conn141 setProp "mult_spec_end" "0+"
set segm142 [$conn141 getFirstSegm]

set conn143 [$diag addConn aggregation $node108 $node106 1688.0 1127.0 1464.0 1272.0]
$conn143 setLabel "role_end" "body"
$conn143 setProp "mult_kind_end" "one"
$conn143 setProp "mult_kind_start" "optional"
set segm144 [$conn143 getFirstSegm]
$segm144 setLabel "name" "conveys"
$segm144 setScope "name" "cl" "scopeSystem"
set segm145 [$conn143 addSegm 1688.0 1272.0]

set conn146 [$diag addConn association $node107 $node110 1968.0 1040.0 1800.0 816.0]
$conn146 setLabel "role_end" "transporter"
$conn146 setLabel "role_start" "client"
$conn146 setProp "mult_kind_end" "one"
$conn146 setProp "mult_kind_start" "optional"
set segm147 [$conn146 getFirstSegm]
set segm148 [$conn146 addSegm 1968.0 816.0]

set conn120 [$diag addConn constraint $segm112 $segm132 1176.0 1000.0 952.0 904.0]
set segm121 [$conn120 getFirstSegm]
$segm121 setLabel "constraint" "{subset}"
set segm122 [$conn120 addSegm 952.0 1000.0]

set conn118 [$diag addConn note_conn $node109 $node103 848.0 1048.0 784.0 968.0]
set segm119 [$conn118 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRS9PsApQAJAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new PackageDiagram "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node185 [$diag addNode cad_class 568.0 1032.0 120.0 77.3333]
$node185 setLabel "name" "\nTransport\n\n"
$node185 setProp "is_folded" "1"
$node185 setScope "name" "cl" "scopePhase"
$node185 setProp "freeText" "The Transport package provides \ninterfaces for inter process and inter\nnode communications." "name" "cl"

set node186 [$diag addNode cad_class 424.0 896.0 120.0 77.3333]
$node186 setLabel "name" "\nVisual\nBasic\n"
$node186 setProp "is_folded" "1"
$node186 setScope "name" "cl" "scopePhase"
$node186 setProp "freeText" "VB is used to construct and animate \nthe user interface for the application." "name" "cl"

set node187 [$diag addNode cad_class 960.0 864.0 120.0 77.3333]
$node187 setLabel "name" "\nAddresses\n\n"
$node187 setProp "is_folded" "1"
$node187 setScope "name" "cl" "scopePhase"
$node187 setProp "freeText" "The Addresses package is part of \nthe Information Domain. Its classes \nconstitute the address information \n(for example, node URLs) needed \nby the Messages Application \npackage." "name" "cl"

set node188 [$diag addNode cad_class 712.0 864.0 120.0 79.3333]
$node188 setLabel "name" "\nMessages\nApplication\n"
$node188 setProp "is_folded" "1"
$node188 setScope "name" "cl" "scopePhase"
$node188 setProp "freeText" "The Application package contains \nclasses that implement the essential \nrequirements of the application. Most \nof these classes, in turn, are dependent \non classes in other packages, as \nindicated." "name" "cl"

set node189 [$diag addNode cad_class 568.0 736.0 121.333 79.3333]
$node189 setLabel "name" "\nMessages\nUI\n"
$node189 setProp "is_folded" "1"
$node189 setScope "name" "cl" "scopePhase"
$node189 setProp "freeText" "The UI package provides the classes \nneeded for the user interface and \nto animate the application." "name" "cl"

set node190 [$diag addNode note 368.0 640.0 317.333 62.6667]
$node190 setLabel "note_text" "The CD Class symbol is used here \nto represent Packages. Packages appear \nelsewhere in the Project as Systems."

set node191 [$diag addNode cad_class 960.0 1032.0 120.0 77.3333]
$node191 setLabel "name" "\nDatabase\nInterface\n"
$node191 setProp "is_folded" "1"
$node191 setScope "name" "cl" "scopePhase"

set conn192 [$diag addConn constraint $node187 $node191 1024.0 936.0 1024.0 1048.0]
set segm193 [$conn192 getFirstSegm]
$segm193 setLabel "constraint" "╜depends⌐"

set conn194 [$diag addConn constraint $node188 $node185 776.0 936.0 624.0 1040.0]
set segm195 [$conn194 getFirstSegm]
$segm195 setLabel "constraint" "╜depends⌐"

set conn196 [$diag addConn constraint $node188 $node187 832.0 904.0 976.0 904.0]
set segm197 [$conn196 getFirstSegm]
$segm197 setLabel "constraint" "╜depends⌐"

set conn198 [$diag addConn constraint $node189 $node188 680.0 776.0 776.0 880.0]
set segm199 [$conn198 getFirstSegm]
$segm199 setLabel "constraint" "╜depends⌐"

set conn200 [$diag addConn constraint $node189 $node186 600.0 808.0 448.0 936.0]
set segm201 [$conn200 getFirstSegm]
$segm201 setLabel "constraint" "╜depends⌐"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QE1AGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new Address "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row202 [$diag addRow attribute 0.0]
$row202 setLabel "name_type" "NICname"

set row203 [$diag addRow method 0.0]
$row203 setLabel "name_type" "\$create() {abstract}"
$row203 setProp "has_parmlist" "1"
$row203 setProp "is_abstract" "1"
$row203 setProp "is_class_feature" "1"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QE.AGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new AddressList "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row204 [$diag addRow attribute 0.0]
$row204 setLabel "name_type" "Addresses"

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

set row206 [$diag addRow method 0.0]
$row206 setLabel "name_type" "getSorted():AddressList"
$row206 setProp "has_parmlist" "1"
$row206 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QFPAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new AddressPane "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QFXAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new ApplicationUI "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row207 [$diag addRow attribute 0.0]
$row207 setLabel "name_type" "NodeID:Address"
$row207 setScope "name_type" "cl" "scopePhase"

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

set row209 [$diag addRow method 0.0]
$row209 setLabel "name_type" "stopApp()"
$row209 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QFlAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new Carrier "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row210 [$diag addRow method 0.0]
$row210 setLabel "name_type" "streamIn() {abstract}\n"
$row210 setProp "has_parmlist" "1"
$row210 setProp "is_abstract" "1"

set row211 [$diag addRow method 0.0]
$row211 setLabel "name_type" "streamOut() {abstract}\n"
$row211 setProp "has_parmlist" "1"
$row211 setProp "is_abstract" "1"

set row212 [$diag addRow method 0.0]
$row212 setLabel "name_type" "broadcast() {abstract}"
$row212 setProp "has_parmlist" "1"
$row212 setProp "is_abstract" "1"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QFxAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new DestinationAddress "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row213 [$diag addRow attribute 0.0]
$row213 setLabel "name_type" "Addresses"

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

set row215 [$diag addRow method 0.0]
$row215 setLabel "name_type" "addToList()"
$row215 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QF9AGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new DestinationAddressPane "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row216 [$diag addRow method 0.0]
$row216 setLabel "name_type" "displayOn()"
$row216 setProp "has_parmlist" "1"

set cell217 [$row216 addCell parameter 0.0]
$cell217 setLabel "name_type" "DestinationAddress"
$cell217 setScope "name_type" "de" "scopeFile"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QGJAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new List "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row218 [$diag addRow method 0.0]
$row218 setLabel "name_type" "add\n"

set row219 [$diag addRow method 0.0]
$row219 setLabel "name_type" "remove\n"

set row220 [$diag addRow method 0.0]
$row220 setLabel "name_type" "first\n"

set row221 [$diag addRow method 0.0]
$row221 setLabel "name_type" "last"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QGZAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new Message "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row222 [$diag addRow attribute 0.0]
$row222 setLabel "name_type" "isEncrypted\n"

set row223 [$diag addRow attribute 0.0]
$row223 setLabel "name_type" "isPacked"

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

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

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

set row227 [$diag addRow method 0.0]
$row227 setLabel "name_type" "delete()"
$row227 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QGrAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new MessageBody "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row228 [$diag addRow attribute 0.0]
$row228 setLabel "name_type" "text"

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

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

set row231 [$diag addRow method 0.0]
$row231 setLabel "name_type" "decrypt()"
$row231 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRS9PsApQCfAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new MessageMgr "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

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

set cell233 [$row232 addCell parameter 0.0]
$cell233 setLabel "name_type" "Message"
$cell233 setScope "name_type" "de" "scopeFile"

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

set row235 [$diag addRow method 0.0]
$row235 setLabel "name_type" "getNextMessage():Message"
$row235 setProp "has_parmlist" "1"
$row235 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QG7AGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new Node "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row236 [$diag addRow attribute 0.0]
$row236 setLabel "name_type" "nodeID"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QHFAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new OriginAddress "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

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

set row238 [$diag addRow method 0.0]
$row238 setLabel "name_type" "getMyOrigin():Address"
$row238 setProp "has_parmlist" "1"
$row238 setScope "name_type" "cl" "scopePhase"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QHRAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new OriginAddressPane "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row239 [$diag addRow method 0.0]
$row239 setLabel "name_type" "displayOn()"
$row239 setProp "has_parmlist" "1"

set cell240 [$row239 addCell parameter 0.0]
$cell240 setLabel "name_type" "OriginAddress"
$cell240 setScope "name_type" "de" "scopeFile"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QHdAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new ReceiveWindow "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row241 [$diag addRow method 0.0]
$row241 setLabel "name_type" "show()\n"
$row241 setProp "has_parmlist" "1"
$row241 setProp "freeText" "Show causes the RxMessage to be \ndisplayed in the RxMessageField." "name_type" "pe"

set cell242 [$row241 addCell parameter 0.0]
$cell242 setLabel "name_type" "RxMessage"
$cell242 setScope "name_type" "de" "scopeFile"

set row243 [$diag addRow method 0.0]
$row243 setLabel "name_type" "clear()"
$row243 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QHpAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new SendWindow "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set row244 [$diag addRow method 0.0]
$row244 setLabel "name_type" "clear()"
$row244 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QH3AGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new Socket "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

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

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

set row247 [$diag addRow method 0.0]
$row247 setLabel "name_type" "broadcast()"
$row247 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QIDAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new TCP_IP "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

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

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

set row250 [$diag addRow method 0.0]
$row250 setLabel "name_type" "broadcast()"
$row250 setProp "has_parmlist" "1"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QIRAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [COD new Reception:fetch_next_message "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node251 [$diag addNode instance 1260.0 796.0 120.0 40.0]
$node251 setLabel "name_type" ":Queue"
$node251 setScope "name_type" "cl" "scopePhase"

set node252 [$diag addNode instance 1124.0 651.999 120.0 40.0017]
$node252 setLabel "name_type" ":MessageMgr"
$node252 setScope "name_type" "cl" "scopePhase"
$node252 setProp "freeText" "The MessageMgr has responsibilities \nto send and receive messages carried \nby the Carrier.\n\nWhen a Message is ready to be sent \nfeeds the Message to the Carrier via its \nstreamOut interface. \n\nThe MessageMrg listens to the Carrier's \nstreamIn channel and when it receives \na new stream, it creates a new Message \nand pushes it onto its Queue." "name_type" "cl"

set node253 [$diag addNode note 1088.0 1016.0 365.333 40.0]
$node253 setLabel "note_text" "{ CurrentMessage exists prior to this interaction. }"

set node254 [$diag addNode instance 969.332 898.665 157.336 58.6691]
$node254 setLabel "name_type" "CurrentMessage\n:RxMessage"
$node254 setScope "name_type" "cl" "scopePhase"

set node255 [$diag addNode instance 726.67 652.0 146.67 40.0]
$node255 setLabel "name_type" ":ReceiveButton"
$node255 setScope "name_type" "cl" "scopePhase"
$node255 setProp "freeText" "REQ008: The ReceiveButton fetches \nthe next message from the message \nqueue and displays it in the \nRxMessageField." "name_type" "cl"

set node256 [$diag addNode cod_actor 529.0 639.0 30.0 50.0]
$node256 setLabel "name" "Reader"
$node256 setScope "name" "cl" "scopePhase"
$node256 setProp "freeText" "The Reader uses the Messaging system \nto retreive and read messages sent by Writers on \nother nodes." "name" "cl"

set node257 [$diag addNode instance 490.67 892.0 138.66 40.0]
$node257 setLabel "name_type" "ApplicationUI:"
$node257 setScope "name_type" "de" "scopeFile"

set node258 [$diag addNode instance 725.33 892.0 149.34 40.0]
$node258 setLabel "name_type" ":ReceiveWindow"
$node258 setScope "name_type" "cl" "scopePhase"
$node258 setProp "freeText" "REQ005: The ReceiveWindow \nallows the receipt and display of \nmessages from other nodes." "name_type" "cl"

set node259 [$diag addNode instance 958.668 777.335 162.664 61.3307]
$node259 setLabel "name_type" "PreviousMessage\n:RxMessage"
$node259 setScope "name_type" "cl" "scopePhase"

set conn260 [$diag addConn link $node255 $node258 776.0 688.0 776.0 896.0]
$conn260 setProp "link_end_stereotype" ""
$conn260 setProp "link_start_stereotype" "local"
set segm261 [$conn260 getFirstSegm]

set conn264 [$diag addConn link $node255 $node258 856.0 688.0 856.0 896.0]
$conn264 setProp "link_end_stereotype" ""
$conn264 setProp "link_start_stereotype" ""
set segm265 [$conn264 getFirstSegm]

set conn266 [$diag addConn link $node256 $node255 552.0 672.0 736.0 672.0]
set segm267 [$conn266 getFirstSegm]

set conn268 [$diag addConn aggr_link $node257 $node258 490.67 912.0 872.0 912.0]
set segm269 [$conn268 getFirstSegm]

set conn270 [$diag addConn link $node255 $node252 864.0 672.0 1128.0 672.0]
$conn270 setLabel "role_start" " "
set segm271 [$conn270 getFirstSegm]

set conn272 [$diag addConn link $node252 $node259 1144.0 692.001 1048.0 792.0]
$conn272 setProp "link_end_stereotype" ""
$conn272 setProp "link_start_stereotype" ""
set segm273 [$conn272 getFirstSegm]

set conn274 [$diag addConn aggr_link $node258 $node255 744.0 896.0 744.0 688.0]
$conn274 setProp "link_end_stereotype" ""
$conn274 setProp "link_start_stereotype" ""
set segm275 [$conn274 getFirstSegm]

set conn276 [$diag addConn link $node251 $node259 1264.0 816.0 1104.0 816.0]
$conn276 setProp "link_end_stereotype" "parameter"
$conn276 setProp "link_start_stereotype" ""
set segm277 [$conn276 getFirstSegm]

set conn278 [$diag addConn link $node251 $node254 1328.0 832.0 1108.0 924.0]
$conn278 setProp "link_end_stereotype" "parameter"
$conn278 setProp "link_start_stereotype" ""
set segm279 [$conn278 getFirstSegm]

set conn280 [$diag addConn link $node252 $node251 1184.0 688.0 1320.0 816.0]
$conn280 setProp "link_end_stereotype" ""
$conn280 setProp "link_start_stereotype" ""
set segm281 [$conn280 getFirstSegm]

set cono285 [$diag addCono cod_message $segm267 640.0 664.0 35.0 10.0]
$cono285 setLabel "event" "1: Click()"
$cono285 setProp "msg_direction" "forward"
$cono285 setProp "msg_seq_expr" "1"
$cono285 setProp "msg_type" "nested"
$cono285 setScope "event" "pe" "scopeSystem"

set cono284 [$diag addCono cod_message $segm261 792.0 800.0 5.0 34.9998]
$cono284 setLabel "event" "2: \nClear()"
$cono284 setProp "msg_direction" "forward"
$cono284 setProp "msg_seq_expr" "2"
$cono284 setProp "msg_type" "asynchronous"
$cono284 setScope "event" "pe" "scopeSystem"

set cono283 [$diag addCono cod_message $segm265 872.0 800.0 10.0 35.0]
$cono283 setLabel "event" "6: \nShow()"
$cono283 setProp "msg_direction" "forward"
$cono283 setProp "msg_seq_expr" "6"
$cono283 setProp "msg_type" "nested"
$cono283 setScope "event" "pe" "scopeSystem"

set cono282 [$diag addCono cod_message $segm271 979.098 662.0 34.9999 10.0]
$cono282 setLabel "event" "3: GetNextMessage()"
$cono282 setProp "msg_direction" "forward"
$cono282 setProp "msg_seq_expr" "3"
$cono282 setProp "msg_type" "nested"
$cono282 setScope "event" "pe" "scopeSystem"

set cono286 [$diag addCono cod_message $segm273 1088.39 731.445 24.2386 25.2484]
$cono286 setLabel "event" "5: Delete()"
$cono286 setProp "msg_direction" "forward"
$cono286 setProp "msg_seq_expr" "5"
$cono286 setProp "msg_type" "nested"
$cono286 setScope "event" "pe" "scopeSystem"

set cono287 [$diag addCono cod_message $segm281 1252.9 740.295 25.4871 23.9879]
$cono287 setLabel "event" "4: GetNext()"
$cono287 setProp "msg_direction" "forward"
$cono287 setProp "msg_seq_expr" "4"
$cono287 setProp "msg_type" "nested"
$cono287 setScope "event" "pe" "scopeSystem"

set conn262 [$diag addConn note_conn $node254 $node253 1096.0 944.0 1192.0 1024.0]
set segm263 [$conn262 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QS2AGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [COD new TransmitMessage:message_passing_mechanism "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node288 [$diag addNode instance 1300.0 1116.0 120.0 40.0]
$node288 setLabel "name_type" "Listener\n:Carrier"
$node288 setScope "name_type" "cl" "scopePhase"
$node288 setProp "actor_type" "system" "name_type" "cl"
$node288 setProp "freeText" "The Carrier provides an interface that is \ncapable of transporting messages \nbetween nodes. The Carrier can \nalso queue incoming messages at the \ndestination node until requested by the \nReader." "name_type" "cl"
$node288 setScope "name_type" "de" "scopeFile"

set node289 [$diag addNode instance 1060.0 1116.0 120.0 40.0]
$node289 setLabel "name_type" "Transporter\n:Carrier"
$node289 setScope "name_type" "cl" "scopePhase"
$node289 setProp "actor_type" "system" "name_type" "cl"
$node289 setProp "freeText" "The Carrier provides an interface that is \ncapable of transporting messages \nbetween nodes. The Carrier can \nalso queue incoming messages at the \ndestination node until requested by the \nReader." "name_type" "cl"
$node289 setScope "name_type" "de" "scopeFile"

set node290 [$diag addNode instance 1060.0 952.0 120.0 48.0]
$node290 setLabel "name_type" "messageMgr\n:MessageMgr"
$node290 setScope "name_type" "cl" "scopePhase"
$node290 setProp "freeText" "The MessageMgr has responsibilities \nto send and receive messages carried \nby the Carrier.\n\nWhen a Message is ready to be sent \nfeeds the Message to the Carrier via its \nstreamOut interface. \n\nThe MessageMrg listens to the Carrier's \nstreamIn channel and when it receives \na new stream, it creates a new Message \nand pushes it onto its Queue." "name_type" "cl"
$node290 setScope "name_type" "de" "scopeFile"

set node291 [$diag addNode instance 852.0 1014.67 120.0 50.6666]
$node291 setLabel "name_type" "TxMessage\n:Message"
$node291 setScope "name_type" "cl" "scopePhase"
$node291 setScope "name_type" "de" "scopeFile"

set node292 [$diag addNode instance 948.0 814.667 120.0 50.6666]
$node292 setLabel "name_type" "SendButton\n:Button"
$node292 setScope "name_type" "cl" "scopePhase"

set node293 [$diag addNode cod_actor 809.0 807.0 30.0 50.0]
$node293 setLabel "name" "Writer"
$node293 setScope "name" "cl" "scopePhase"
$node293 setProp "freeText" "The Writer uses the Messaging system \nto compose messages and dispatch them \nto Readers on other nodes." "name" "cl"

set node294 [$diag addNode instance 1642.67 800.0 154.667 48.0]
$node294 setLabel "name_type" "ReceiveWindow"
$node294 setScope "name_type" "de" "scopeFile"

set node295 [$diag addNode note 1160.0 1192.0 137.333 47.9999]
$node295 setLabel "note_text" "Crosses node\nboundaries"

set node296 [$diag addNode cod_actor 1785.0 943.0 30.0 50.0]
$node296 setLabel "name" "Reader"
$node296 setScope "name" "cl" "scopePhase"
$node296 setProp "freeText" "The Reader uses the Messaging system \nto retreive and read messages sent by Writers on \nother nodes." "name" "cl"

set node297 [$diag addNode instance 1556.0 949.333 120.0 53.3334]
$node297 setLabel "name_type" "ReceiveButton\n:Button"
$node297 setScope "name_type" "cl" "scopePhase"

set node298 [$diag addNode instance 1420.0 788.0 120.0 56.0]
$node298 setLabel "name_type" "RxMessage\n:Message"
$node298 setScope "name_type" "cl" "scopePhase"
$node298 setScope "name_type" "de" "scopeFile"

set node299 [$diag addNode instance 1300.0 952.0 120.0 48.0]
$node299 setLabel "name_type" "messageMgr'\n:MessageMgr"
$node299 setScope "name_type" "cl" "scopePhase"
$node299 setProp "freeText" "The MessageMgr has responsibilities \nto send and receive messages carried \nby the Carrier.\n\nWhen a Message is ready to be sent \nfeeds the Message to the Carrier via its \nstreamOut interface. \n\nThe MessageMrg listens to the Carrier's \nstreamIn channel and when it receives \na new stream, it creates a new Message \nand pushes it onto its Queue." "name_type" "cl"
$node299 setScope "name_type" "de" "scopeFile"

set conn302 [$diag addConn link $node297 $node296 1672.0 976.0 1800.0 976.0]
$conn302 setProp "link_end_stereotype" ""
$conn302 setProp "link_start_stereotype" ""
set segm303 [$conn302 getFirstSegm]

set conn304 [$diag addConn link $node297 $node298 1616.0 960.0 1480.0 832.0]
$conn304 setProp "link_end_stereotype" "parameter"
$conn304 setProp "link_start_stereotype" ""
set segm305 [$conn304 getFirstSegm]

set conn306 [$diag addConn link $node297 $node299 1560.0 976.0 1408.0 976.0]
$conn306 setLabel "role_start" "Receiver"
$conn306 setProp "link_end_stereotype" ""
$conn306 setProp "link_start_stereotype" ""
set segm307 [$conn306 getFirstSegm]

set conn308 [$diag addConn link $node299 $node298 1368.0 960.0 1456.0 840.0]
$conn308 setProp "link_end_stereotype" ""
$conn308 setProp "link_start_stereotype" ""
set segm309 [$conn308 getFirstSegm]

set conn310 [$diag addConn link $node289 $node288 1176.0 1136.0 1320.0 1136.0]
$conn310 setProp "link_end_stereotype" ""
$conn310 setProp "link_start_stereotype" ""
set segm311 [$conn310 getFirstSegm]

set conn312 [$diag addConn link $node288 $node299 1360.0 1128.0 1360.0 992.0]
$conn312 setProp "link_end_stereotype" ""
$conn312 setProp "link_start_stereotype" ""
set segm313 [$conn312 getFirstSegm]

set conn314 [$diag addConn link $node290 $node289 1120.0 992.0 1120.0 1128.0]
$conn314 setProp "link_end_stereotype" ""
$conn314 setProp "link_start_stereotype" ""
set segm315 [$conn314 getFirstSegm]

set conn316 [$diag addConn link $node292 $node290 1024.0 856.0 1104.0 968.0]
$conn316 setLabel "role_start" "Sender"
$conn316 setProp "link_end_stereotype" ""
$conn316 setProp "link_start_stereotype" ""
set segm317 [$conn316 getFirstSegm]

set conn318 [$diag addConn link $node292 $node291 1000.0 856.0 912.0 1032.0]
$conn318 setProp "link_end_stereotype" "parameter"
$conn318 setProp "link_start_stereotype" ""
set segm319 [$conn318 getFirstSegm]

set conn320 [$diag addConn link $node293 $node292 839.0 840.0 952.0 840.0]
$conn320 setProp "link_end_stereotype" ""
$conn320 setProp "link_start_stereotype" ""
set segm321 [$conn320 getFirstSegm]

set conn322 [$diag addConn link $node294 $node297 1720.0 808.0 1616.0 984.0]
$conn322 setProp "link_end_stereotype" ""
$conn322 setProp "link_start_stereotype" "local"
set segm323 [$conn322 getFirstSegm]

set conn324 [$diag addConn link $node291 $node291 888.0 1016.0 856.0 1040.0]
$conn324 setProp "link_end_stereotype" ""
$conn324 setProp "link_start_stereotype" ""
set segm325 [$conn324 getFirstSegm]
set segm326 [$conn324 addSegm 888.0 984.0]
set segm327 [$conn324 addSegm 792.0 984.0]
set segm328 [$conn324 addSegm 792.0 1040.0]

set cono339 [$diag addCono cod_message $segm326 848.0 976.0 35.0 0.0]
$cono339 setLabel "event" "2.1: encrypt()"
$cono339 setProp "msg_direction" "forward"
$cono339 setProp "msg_seq_expr" "2.1"
$cono339 setProp "msg_type" "nested"
$cono339 setScope "event" "pe" "scopeSystem"

set cono337 [$diag addCono cod_message $segm321 886.55 832.0 35.0 0.0]
$cono337 setLabel "event" "1: Click()"
$cono337 setProp "msg_direction" "forward"
$cono337 setProp "msg_seq_expr" "1"
$cono337 setProp "msg_type" "asynchronous"
$cono337 setScope "event" "pe" "scopeSystem"

set cono336 [$diag addCono cod_message $segm319 976.725 930.616 15.6525 31.3049]
$cono336 setLabel "event" "2: new()"
$cono336 setProp "msg_direction" "forward"
$cono336 setProp "msg_seq_expr" "2"
$cono336 setProp "msg_type" "nested"
$cono336 setScope "event" "pe" "scopeSystem"

set cono335 [$diag addCono cod_message $segm317 1079.67 911.542 20.3434 28.4807]
$cono335 setLabel "event" "3: broadcast()"
$cono335 setProp "msg_direction" "forward"
$cono335 setProp "msg_seq_expr" "3"
$cono335 setProp "msg_type" "nested"
$cono335 setScope "event" "pe" "scopeSystem"

set cono330 [$diag addCono cod_message $segm315 1112.0 1050.27 0.0 35.0]
$cono330 setLabel "event" "4: streamout()"
$cono330 setProp "msg_direction" "forward"
$cono330 setProp "msg_seq_expr" "4"
$cono330 setProp "msg_type" "nested"
$cono330 setScope "event" "pe" "scopeSystem"

set cono334 [$diag addCono cod_message $segm311 1240.0 1128.0 35.0 0.0]
$cono334 setLabel "event" "5: broadcast()"
$cono334 setProp "msg_direction" "forward"
$cono334 setProp "msg_seq_expr" "5"
$cono334 setProp "msg_type" "asynchronous"
$cono334 setScope "event" "pe" "scopeSystem"

set cono329 [$diag addCono cod_message $segm313 1368.0 1058.0 0.0 35.0]
$cono329 setLabel "event" "6: streamin()"
$cono329 setProp "msg_direction" "forward"
$cono329 setProp "msg_seq_expr" "6"
$cono329 setProp "msg_type" "nested"
$cono329 setScope "event" "pe" "scopeSystem"

set cono333 [$diag addCono cod_message $segm309 1398.25 899.617 20.6978 28.2242]
$cono333 setLabel "event" "7: new()"
$cono333 setProp "msg_direction" "forward"
$cono333 setProp "msg_seq_expr" "7"
$cono333 setProp "msg_type" "nested"
$cono333 setScope "event" "pe" "scopeSystem"

set cono332 [$diag addCono cod_message $segm307 1487.23 962.257 35.0 0.0]
$cono332 setLabel "event" "9: nextMessage()"
$cono332 setProp "msg_direction" "forward"
$cono332 setProp "msg_seq_expr" "9"
$cono332 setProp "msg_type" "nested"
$cono332 setScope "event" "pe" "scopeSystem"

set cono338 [$diag addCono cod_message $segm323 1680.27 895.548 17.8054 30.1324]
$cono338 setLabel "event" "10: show()"
$cono338 setProp "msg_direction" "backward"
$cono338 setProp "msg_seq_expr" "10"
$cono338 setProp "msg_type" "nested"
$cono338 setScope "event" "pe" "scopeSystem"

set cono331 [$diag addCono cod_message $segm303 1732.12 968.0 35.0 0.0]
$cono331 setLabel "event" "8: Click()"
$cono331 setProp "msg_direction" "backward"
$cono331 setProp "msg_seq_expr" "8"
$cono331 setProp "msg_type" "nested"
$cono331 setScope "event" "pe" "scopeSystem"

set conn300 [$diag addConn note_conn $node295 $segm311 1232.0 1240.0 1232.0 1136.0]
set segm301 [$conn300 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QRMAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [ETD new ComposeMessage:edit_text "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node340 [$diag addNode etd_timing_constr 568.0 952.0 4.0 4.0]
$node340 setLabel "timing_constraint" "Editing may continue until the \nWriter sends the message."

set node341 [$diag addNode etd_object 1277.5 752.0 3.0 268.335]
$node341 setLabel "name_type" "Destination\nAddress"
$node341 setScope "name_type" "de" "scopeFile"

set node342 [$diag addNode etd_timing_constr 568.0 840.0 4.0 4.0]
$node342 setLabel "timing_constraint" "The Writer places the cursor \nin the message text field, \nclicks the mouse then enters \nor edits text."

set node343 [$diag addNode etd_object 1147.5 752.0 3.0 270.668]
$node343 setLabel "name_type" "ClearButton"
$node343 setProp "interact_type" "control"
$node343 setScope "name_type" "de" "scopeFile"

set node344 [$diag addNode etd_object 990.5 752.0 3.0 260.0]
$node344 setLabel "name_type" "TxMessage"
$node344 setScope "name_type" "de" "scopeFile"

set node345 [$diag addNode etd_initiator 782.5 768.0 3.0 248.001]
$node345 setLabel "name_type" ":Writer"
$node345 setScope "name_type" "cl" "scopePhase"
$node345 setProp "freeText" "The Writer uses the Messaging system \nto compose messages and dispatch them \nto Readers on other nodes." "name_type" "cl"

set node346 [$diag addNode etd_object 1405.5 752.0 3.0 278.001]
$node346 setLabel "name_type" "SendButton"
$node346 setProp "interact_type" "control"
$node346 setScope "name_type" "de" "scopeFile"

set conn347 [$diag addConn etd_event $node343 $node341 1149.0 824.0 1279.0 823.0]
$conn347 setProp "msg_type" "flat"
set segm348 [$conn347 getFirstSegm]
$segm348 setLabel "event" "Clear()"
$segm348 setScope "event" "pe" "scopeSystem"

set conn349 [$diag addConn etd_event $node345 $node343 784.0 800.0 1149.0 800.0]
$conn349 setLabel "timing_mark_start" "\[if theTxMessage is dirty\]"
$conn349 setProp "msg_type" "flat"
set segm350 [$conn349 getFirstSegm]
$segm350 setLabel "event" "Click()"
$segm350 setScope "event" "pe" "scopeSystem"

set conn351 [$diag addConn etd_event $node345 $node346 784.0 984.0 1407.0 985.0]
$conn351 setProp "msg_type" "nested"
set segm352 [$conn351 getFirstSegm]
$segm352 setLabel "event" "Click()"
$segm352 setScope "event" "pe" "scopeSystem"

set conn353 [$diag addConn etd_event $node345 $node344 784.0 904.0 992.0 960.0]
$conn353 setProp "msg_type" "nested"
set segm354 [$conn353 getFirstSegm]
$segm354 setLabel "event" "edit text"
$segm354 setScope "event" "pe" "scopeSystem"

set conn355 [$diag addConn etd_event $node345 $node344 784.0 904.0 992.0 904.0]
$conn355 setProp "msg_type" "nested"
set segm356 [$conn355 getFirstSegm]
$segm356 setLabel "event" "enter text"
$segm356 setScope "event" "pe" "scopeSystem"

set conn357 [$diag addConn etd_event $node345 $node344 784.0 864.0 992.0 864.0]
$conn357 setProp "msg_type" "nested"
set segm358 [$conn357 getFirstSegm]
$segm358 setLabel "event" "Click()"
$segm358 setScope "event" "pe" "scopeSystem"

set conn359 [$diag addConn etd_event $node343 $node344 1149.0 824.0 992.0 824.0]
$conn359 setProp "msg_type" "flat"
set segm360 [$conn359 getFirstSegm]
$segm360 setLabel "event" "Clear()"
$segm360 setScope "event" "pe" "scopeSystem"

set cono361 [$diag addCono in_scope_region $node344 990.5 864.0 5.0 121.332]

set cono362 [$diag addCono in_scope_region $node343 1147.5 800.0 5.0 25.3333]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QJaAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [ETD new Encrypt:request_encryption "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node363 [$diag addNode note 879.0 935.0 274.667 62.6667]
$node363 setLabel "note_text" "Encryption occurs as part\nof message transmission. See COD\n- message passing mechanism."

set node364 [$diag addNode note 456.0 552.0 350.667 62.6667]
$node364 setLabel "note_text" "The message may be encypted for security \nby setting the Secure Message CheckBox. This\noperation is reversible (unset). "

set node365 [$diag addNode etd_object 854.5 704.0 3.0 214.668]
$node365 setLabel "name_type" "SecureMessageCheckBox"
$node365 setProp "interact_type" "control"
$node365 setScope "name_type" "de" "scopeFile"

set node366 [$diag addNode etd_initiator 662.5 712.0 3.0 205.335]
$node366 setLabel "name_type" ":Writer"
$node366 setScope "name_type" "cl" "scopePhase"
$node366 setProp "freeText" "The Writer uses the Messaging system \nto compose messages and dispatch them \nto Readers on other nodes." "name_type" "cl"

set conn369 [$diag addConn etd_event $node365 $node365 856.0 744.0 856.0 776.0]
$conn369 setProp "msg_type" "nested"
set segm370 [$conn369 getFirstSegm]
$segm370 setLabel "event" "set"
$segm370 setScope "event" "pe" "scopeSystem"
set segm371 [$conn369 addSegm 963.0 744.0]
set segm372 [$conn369 addSegm 963.0 776.0]

set conn373 [$diag addConn etd_event $node366 $node365 664.0 744.0 856.0 744.0]
$conn373 setLabel "timing_mark_start" "\[SecureMessageCheckBox is not set\]"
$conn373 setProp "msg_type" "nested"
set segm374 [$conn373 getFirstSegm]
$segm374 setLabel "event" "Click()"
$segm374 setScope "event" "pe" "scopeSystem"

set conn375 [$diag addConn etd_event $node365 $node365 856.0 811.0 856.0 843.0]
$conn375 setProp "msg_type" "nested"
set segm376 [$conn375 getFirstSegm]
$segm376 setLabel "event" "unset"
$segm376 setScope "event" "pe" "scopeSystem"
set segm377 [$conn375 addSegm 962.0 810.0]
set segm378 [$conn375 addSegm 962.0 843.0]

set conn379 [$diag addConn etd_event $node366 $node365 664.0 811.0 856.0 811.0]
$conn379 setLabel "timing_mark_start" "\[SecureMessageCheckBox is set\]"
$conn379 setProp "msg_type" "nested"
set segm380 [$conn379 getFirstSegm]
$segm380 setLabel "event" "Click()"
$segm380 setScope "event" "pe" "scopeSystem"

set conn367 [$diag addConn note_conn $node363 $node365 975.0 936.0 856.0 862.0]
set segm368 [$conn367 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QJpAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [ETD new Reception:fetch_and_display_next_message "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QO_AGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [STD new Message:receivingRxMessage "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node381 [$diag addNode note 1128.0 1136.0 265.333 47.9999]
$node381 setLabel "note_text" "Message may be displayed on the\nRxMessageWindow, at this point."

set node382 [$diag addNode name_state 832.0 1144.0 209.333 33.3333]
$node382 setLabel "name" "Idle"

set node383 [$diag addNode final_state 922.0 1298.0 28.0 28.0]

set node384 [$diag addNode start_state 1033.0 753.0 14.0 14.0]

set node385 [$diag addNode note 816.0 688.0 248.0 42.0]
$node385 setLabel "note_text" "from the Reader's messageMgr"

set node386 [$diag addNode state 976.0 992.0 120.0 66.6666]
$node386 setLabel "name" "Decrypting"

set node387 [$diag addNode state 1264.0 824.0 120.0 66.6666]
$node387 setLabel "name" "Unpacking"

set node388 [$diag addNode name_state 976.0 824.0 121.333 55.3333]
$node388 setLabel "name" "Preparing"

set conn393 [$diag addConn transition $node382 $node383 936.0 1176.0 936.0 1312.0]
$conn393 setLabel "event" "delete"
set segm394 [$conn393 getFirstSegm]
$segm394 setLabel "editor_only" " "

set conn395 [$diag addConn transition $node386 $node382 1032.0 1048.0 1032.0 1160.0]
$conn395 setLabel "event" "decrypt Done"
set segm396 [$conn395 getFirstSegm]
$segm396 setLabel "editor_only" " "

set conn397 [$diag addConn transition $node388 $node386 1032.0 879.333 1032.0 1000.0]
$conn397 setLabel "condition" "\[isPacked==false && \nisEncrypted==true\]"
set segm398 [$conn397 getFirstSegm]
$segm398 setLabel "editor_only" " "

set conn399 [$diag addConn transition $node384 $node388 1040.0 760.0 1040.0 832.0]
$conn399 setLabel "event" "create"
set segm400 [$conn399 getFirstSegm]
$segm400 setLabel "editor_only" " "

set conn401 [$diag addConn transition $node388 $node387 1096.0 840.0 1272.0 840.0]
$conn401 setLabel "condition" "\[isPacked==true\]"
set segm402 [$conn401 getFirstSegm]
$segm402 setLabel "editor_only" " "

set conn403 [$diag addConn transition $node388 $node382 984.0 856.0 864.0 1152.0]
$conn403 setLabel "condition" "\[isPacked==false &&\n isEncrypted==false\]"
set segm404 [$conn403 getFirstSegm]
set segm405 [$conn403 addSegm 864.0 856.0]
$segm405 setLabel "editor_only" " "

set conn406 [$diag addConn transition $node387 $node388 1264.0 864.0 1080.0 864.0]
$conn406 setLabel "event" "unpack Done"
set segm407 [$conn406 getFirstSegm]
$segm407 setLabel "editor_only" " "

set cono408 [$node386 addActivity]
$cono408 setLabel "name" "do:decrypt"

set cono409 [$node387 addActivity]
$cono409 setLabel "name" "do:unpack"

set conn389 [$diag addConn note_conn $node382 $node381 1040.0 1160.0 1152.0 1160.0]
set segm390 [$conn389 getFirstSegm]

set conn391 [$diag addConn note_conn $node385 $segm400 920.0 722.667 1040.0 777.888]
set segm392 [$conn391 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QPaAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [STD new Message:sendingTxMessage "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node410 [$diag addNode std_class 820.0 1148.0 120.0 40.0]
$node410 setLabel "name" "SendButton"
$node410 setScope "name" "cl" "scopePhase"
$node410 setProp "freeText" "REQ004: The SendButton is used to \nsend the message to the destination \naddressee(s) .\n" "name" "cl"

set node411 [$diag addNode final_state 1074.0 1194.0 28.0 28.0]

set node412 [$diag addNode state 1024.0 1056.0 120.0 66.6667]
$node412 setLabel "name" "Packing"

set node413 [$diag addNode start_state 913.0 745.0 14.0 14.0]

set node414 [$diag addNode name_state 856.0 936.0 120.0 33.3333]
$node414 setLabel "name" "Encrypting"

set node415 [$diag addNode name_state 856.0 824.0 120.0 33.3333]
$node415 setLabel "name" "Composing"

set conn418 [$diag addConn transition $node415 $node412 976.0 840.0 1096.0 1064.0]
$conn418 setLabel "event" "send "
$conn418 setLabel "condition" "\[isEncrypted==false\]"
set segm419 [$conn418 getFirstSegm]
set segm420 [$conn418 addSegm 1096.0 840.0]
$segm420 setLabel "editor_only" " "

set conn421 [$diag addConn transition $node412 $node411 1088.0 1112.0 1088.0 1208.0]
$conn421 setLabel "event" "pack Done"
set segm422 [$conn421 getFirstSegm]
$segm422 setLabel "editor_only" " "

set conn423 [$diag addConn transition $node414 $node412 920.0 968.0 1056.0 1056.0]
$conn423 setLabel "event" "encrypt Done"
set segm424 [$conn423 getFirstSegm]
$segm424 setLabel "editor_only" " "
set segm425 [$conn423 addSegm 920.0 1024.0]
set segm426 [$conn423 addSegm 1056.0 1024.0]

set conn427 [$diag addConn transition $node413 $node415 920.0 752.0 920.0 824.0]
$conn427 setLabel "event" "create"
set segm428 [$conn427 getFirstSegm]
$segm428 setLabel "editor_only" " "

set conn429 [$diag addConn transition $node415 $node414 920.0 856.0 920.0 944.0]
$conn429 setLabel "condition" "\[isEncrypted==true\]"
$conn429 setLabel "event" "send "
set segm430 [$conn429 getFirstSegm]
$segm430 setLabel "editor_only" " "

set conn416 [$diag addConn event_msg $segm422 $node410 1088.0 1168.0 928.0 1168.0]
set segm417 [$conn416 getFirstSegm]
$segm417 setLabel "event" "return"

set cono431 [$node412 addStateAction]
$cono431 setLabel "action" "/pack"
$cono431 setLabel "event" "entry"
$cono431 setScope "event" "rs" "scopeSystem"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRUY90AzwkgAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [STD new Message:top "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node432 [$diag addNode start_state 557.0 841.0 14.0 14.0]

set node433 [$diag addNode final_state 834.0 754.0 28.0 28.0]

set node434 [$diag addNode name_state 349.0 751.0 120.0 33.3333]
$node434 setLabel "name" "Preparing"

set node435 [$diag addNode name_state 654.0 752.0 120.0 33.3333]
$node435 setLabel "name" "Sending"

set node436 [$diag addNode final_state 1183.0 940.0 28.0 28.0]

set node437 [$diag addNode name_state 768.0 832.0 120.0 33.3333]
$node437 setLabel "name" "Received"

set node438 [$diag addNode name_state 1133.0 832.0 120.0 33.3333]
$node438 setLabel "name" "Displaying"

set node439 [$diag addNode name_state 961.0 832.0 120.0 33.3333]
$node439 setLabel "name" "Preparing"

set node440 [$diag addNode super_state 503.0 688.0 415.669 193.336]
$node440 setLabel "name" "ExistsConcurrentlyAs"

set node441 [$diag addNode start_state 406.0 666.0 14.0 14.0]

set conn442 [$diag addConn transition $node432 $node437 564.0 848.0 776.0 848.0]
$conn442 setLabel "event" "receivingRxMessage"
set segm443 [$conn442 getFirstSegm]
$segm443 setLabel "editor_only" " "

set conn444 [$diag addConn transition $node435 $node433 774.0 768.0 848.0 768.0]
set segm445 [$conn444 getFirstSegm]
$segm445 setLabel "editor_only" " "

set conn446 [$diag addConn transition $node438 $node436 1197.0 864.0 1197.0 954.0]
$conn446 setLabel "event" "delete"
set segm447 [$conn446 getFirstSegm]
$segm447 setLabel "editor_only" " "

set conn448 [$diag addConn transition $node439 $node438 1081.0 848.0 1149.0 848.0]
set segm449 [$conn448 getFirstSegm]
$segm449 setLabel "editor_only" " "

set conn450 [$diag addConn transition $node437 $node439 888.0 848.0 977.0 848.0]
set segm451 [$conn450 getFirstSegm]
$segm451 setLabel "editor_only" " "

set conn452 [$diag addConn transition $node441 $node434 413.0 673.0 413.0 759.0]
$conn452 setLabel "event" "create"
set segm453 [$conn452 getFirstSegm]
$segm453 setLabel "editor_only" " "

set conn454 [$diag addConn transition $node434 $node435 467.0 767.0 677.0 767.0]
$conn454 setLabel "event" "sendingTxMessage"
set segm455 [$conn454 getFirstSegm]
$segm455 setLabel "editor_only" " "

set cono456 [$diag addCono state_region $node440 503.0 800.0 415.669 81.3357]
$cono456 setLabel "name" "RxMessage"

set cono457 [$diag addCono state_region $node440 503.0 721.0 415.669 79.0]
$cono457 setLabel "name" "TxMessage"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QQKAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [UCD new Composition "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node458 [$diag addNode ucd_actor 529.0 639.0 30.0 50.0]
$node458 setLabel "name" "Writer"
$node458 setProp "initiator" "1"
$node458 setScope "name" "cl" "scopePhase"
$node458 setProp "freeText" "The Writer uses the Messaging system \nto compose messages and dispatch them \nto Readers on other nodes." "name" "cl"

set node459 [$diag addNode use_case 650.67 868.0 138.67 56.0]
$node459 setLabel "name" "Manage\nAddress List"
$node459 setScope "name" "cl" "scopePhase"

set node460 [$diag addNode use_case 796.0 748.0 136.0 56.0]
$node460 setLabel "name" "Address\nMessage"
$node460 setScope "name" "cl" "scopePhase"

set node461 [$diag addNode use_case 653.333 638.67 133.323 50.667]
$node461 setLabel "name" "Compose\nMessage"
$node461 setScope "name" "cl" "scopePhase"

set node462 [$diag addNode use_case 804.0 548.0 120.0 40.0]
$node462 setLabel "name" "Edit Text"
$node462 setScope "name" "cl" "scopePhase"

set conn463 [$diag addConn dir_com_assoc $node458 $node461 552.0 664.0 719.995 664.003]
set segm464 [$conn463 getFirstSegm]

set conn465 [$diag addConn use_case_gen $node459 $node460 720.005 896.0 864.0 776.0]
$conn465 setProp "gen_stereotype" "extends"
set segm466 [$conn465 getFirstSegm]

set conn467 [$diag addConn use_case_gen $node460 $node461 864.0 776.0 719.995 664.003]
$conn467 setProp "gen_stereotype" "extends"
set segm468 [$conn467 getFirstSegm]

set conn469 [$diag addConn use_case_gen $node460 $node462 864.0 776.0 864.0 568.0]
$conn469 setProp "gen_stereotype" "uses"
set segm470 [$conn469 getFirstSegm]

set conn471 [$diag addConn use_case_gen $node461 $node462 719.995 664.003 864.0 568.0]
$conn471 setProp "gen_stereotype" "uses"
set segm472 [$conn471 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QQuAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [UCD new Overview "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node473 [$diag addNode note 376.0 760.0 213.333 47.9999]
$node473 setLabel "note_text" "Show properties to read \ndescriptions of objects."

set node474 [$diag addNode note 744.0 936.0 220.0 47.9999]
$node474 setLabel "note_text" "Double click or open to see\ncollaboration diagrams."

set node475 [$diag addNode note 928.0 576.0 220.0 47.9999]
$node475 setLabel "note_text" "Double click or open to see\na detailed use case."

set node476 [$diag addNode note 432.0 560.0 256.0 47.9999]
$node476 setLabel "note_text" "Analysis of project requirements\nFirst pass 9/97."

set node477 [$diag addNode ucd_actor 1041.0 743.0 30.0 50.0]
$node477 setLabel "name" "MessageMgr"
$node477 setScope "name" "cl" "scopePhase"
$node477 setProp "freeText" "The MessageMgr has responsibilities \nto send and receive messages carried \nby the Carrier.\n\nWhen a Message is ready to be sent \nfeeds the Message to the Carrier via its \nstreamOut interface. \n\nThe MessageMrg listens to the Carrier's \nstreamIn channel and when it receives \na new stream, it creates a new Message \nand pushes it onto its Queue." "name" "cl"

set node478 [$diag addNode use_case 764.0 852.0 120.0 40.0]
$node478 setLabel "name" "Reception"
$node478 setScope "name" "cl" "scopePhase"

set node479 [$diag addNode use_case 756.0 748.0 120.0 40.0]
$node479 setLabel "name" "Transmission"
$node479 setScope "name" "cl" "scopePhase"
$node479 setProp "alternateAct" "If the Carrier is unavailable, the message may be \nqueued for later dispatch." "name" "cl"
$node479 setProp "basicAct" "Using the Carrier interface, the \nmessage is dispatched to the \nreceiver nodes." "name" "cl"
$node479 setProp "postcond" "The message is dispatched." "name" "cl"
$node479 setProp "precond" "A message is ready for dispatch." "name" "cl"
$node479 setProp "reqText" "<rephrase>\nThe message shall be sent to the \naddressee(s) specified in the address \nfield." "name" "cl"
$node479 setProp "req_ID" "REQ004" "name" "cl"

set node480 [$diag addNode use_case 756.0 644.0 120.0 40.0]
$node480 setLabel "name" "Composition"
$node480 setScope "name" "cl" "scopePhase"
$node480 setProp "alternateAct" "The Writer forwards an existing message to \nother receivers' nodes." "name" "cl"
$node480 setProp "basicAct" "The Writer composes a new message and \naddresses it to the receivers' nodes. The \nmessage may be encrypted for security." "name" "cl"
$node480 setProp "postcond" "The message is ready for dispatch." "name" "cl"
$node480 setProp "precond" "none" "name" "cl"
$node480 setProp "reqText" "<rephrased>The sender should be able to compose \na new message and address it to its destination." "name" "cl"
$node480 setProp "req_ID" "REQ002, REQ003, REQ004, REQ010REQ014" "name" "cl"

set node481 [$diag addNode ucd_actor 585.0 847.0 30.0 50.0]
$node481 setLabel "name" "Reader"
$node481 setProp "initiator" "1"
$node481 setScope "name" "cl" "scopePhase"
$node481 setProp "freeText" "The Reader uses the Messaging system \nto retreive and read messages sent by Writers on \nother nodes." "name" "cl"

set node482 [$diag addNode ucd_actor 585.0 639.0 30.0 50.0]
$node482 setLabel "name" "Writer"
$node482 setProp "initiator" "1"
$node482 setScope "name" "cl" "scopePhase"
$node482 setProp "freeText" "The Writer uses the Messaging system \nto compose messages and dispatch them \nto Readers on other nodes." "name" "cl"

set conn485 [$diag addConn dir_com_assoc $node482 $node480 600.0 664.0 816.0 664.0]
set segm486 [$conn485 getFirstSegm]

set conn487 [$diag addConn use_case_gen $node479 $node480 816.0 768.0 816.0 664.0]
$conn487 setProp "gen_stereotype" "extends"
set segm488 [$conn487 getFirstSegm]

set conn489 [$diag addConn dir_com_assoc $node481 $node478 608.0 872.0 824.0 872.0]
set segm490 [$conn489 getFirstSegm]

set conn491 [$diag addConn dir_com_assoc $node478 $node477 824.0 872.0 1048.0 776.0]
set segm492 [$conn491 getFirstSegm]
$segm492 setLabel "name" "retrieval"
$segm492 setScope "name" "pe" "scopeSystem"
$segm492 setProp "freeText" "Retrieval means to request the next \nincoming message from the \nqueue of the destination Carrier." "name" "pe"

set conn493 [$diag addConn dir_com_assoc $node479 $node477 816.0 768.0 1056.0 768.0]
set segm494 [$conn493 getFirstSegm]
$segm494 setLabel "name" "dispatch"
$segm494 setScope "name" "pe" "scopeSystem"
$segm494 setProp "freeText" "Dispatch means to send an \noutgoing message to the origin's \nCarrier for transmission \nto the destination's Carrier." "name" "pe"

set conn483 [$diag addConn note_conn $node475 $node480 976.0 592.0 816.0 664.0]
set segm484 [$conn483 getFirstSegm]

set conn495 [$diag addConn note_conn $node473 $node480 576.0 784.0 816.0 664.0]
set segm496 [$conn495 getFirstSegm]

set conn497 [$diag addConn note_conn $node473 $node479 576.0 784.0 816.0 768.0]
set segm498 [$conn497 getFirstSegm]

set conn499 [$diag addConn note_conn $node473 $node482 456.0 760.0 592.0 680.0]
set segm500 [$conn499 getFirstSegm]

set conn501 [$diag addConn note_conn $node473 $node481 448.0 760.0 600.0 872.0]
set segm502 [$conn501 getFirstSegm]

set conn503 [$diag addConn note_conn $node474 $node478 840.0 944.0 824.0 872.0]
set segm504 [$conn503 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QQ9AGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [UCD new Transmission "Messages" "Analysis" "Analysis" "VB_Prototype" "1" "" 1]

set node505 [$diag addNode ucd_actor 1057.0 759.0 30.0 50.0]
$node505 setLabel "name" "Carrier"
$node505 setScope "name" "cl" "scopePhase"
$node505 setProp "actor_type" "system" "name" "cl"
$node505 setProp "freeText" "The Carrier provides an interface that is \ncapable of transporting messages \nbetween nodes. The Carrier can \nalso queue incoming messages at the \ndestination node until requested by the \nReader." "name" "cl"

set node506 [$diag addNode ucd_actor 537.0 639.0 30.0 50.0]
$node506 setLabel "name" "Writer"
$node506 setScope "name" "cl" "scopePhase"
$node506 setProp "freeText" "The Writer uses the Messaging system \nto compose messages and dispatch them \nto Readers on other nodes." "name" "cl"

set node507 [$diag addNode use_case 716.0 828.0 120.0 40.0]
$node507 setLabel "name" "Pack"
$node507 setScope "name" "cl" "scopePhase"

set node508 [$diag addNode use_case 828.0 764.0 120.0 40.0]
$node508 setLabel "name" "Send"
$node508 setScope "name" "cl" "scopePhase"

set node509 [$diag addNode use_case 604.0 764.0 120.0 40.0]
$node509 setLabel "name" "Encrypt"
$node509 setScope "name" "cl" "scopePhase"

set node510 [$diag addNode use_case 705.33 645.33 141.33 53.333]
$node510 setLabel "name" "Transmit \nMessage"
$node510 setScope "name" "cl" "scopePhase"

set conn511 [$diag addConn use_case_gen $node509 $node510 664.0 784.0 775.995 671.997]
$conn511 setProp "gen_stereotype" "extends"
set segm512 [$conn511 getFirstSegm]

set conn513 [$diag addConn dir_com_assoc $node506 $node510 560.0 672.0 775.995 671.997]
set segm514 [$conn513 getFirstSegm]

set conn515 [$diag addConn dir_com_assoc $node508 $node505 888.0 784.0 1064.0 784.0]
set segm516 [$conn515 getFirstSegm]

set conn517 [$diag addConn use_case_gen $node510 $node508 775.995 671.997 888.0 784.0]
$conn517 setProp "gen_stereotype" "uses"
set segm518 [$conn517 getFirstSegm]

set conn519 [$diag addConn use_case_gen $node510 $node507 775.995 671.997 776.0 848.0]
$conn519 setProp "gen_stereotype" "uses"
set segm520 [$conn519 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QNFAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new CheckBoxTree "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set node2 [$diag addNode cad_class 0.0 100.0 175.0 103.0]
$node2 setLabel "name" "EncryptReqCheckBox"
$node2 setProp "gui_lib" "VB"
$node2 setScope "name" "cl" "scopePhase"

set node3 [$diag addNode cad_class 27.5 0.0 120.0 36.0]
$node3 setLabel "name" "CheckBox"
$node3 setProp "is_folded" "1"
$node3 setScope "name" "cl" "scopePhase"

set node1 [$diag addRake generalization $node3 $node2 87.5 36.0 87.5 100.0 68.0]

set conn4 [$node1 getInConn]
set segm5 [$conn4 getFirstSegm]

set conn6 [$node1 getFirstOutConn]
set segm7 [$conn6 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QLbAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new CommandButtonTree "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set node8 [$diag addNode cad_class 1451.0 908.0 120.0 99.9999]
$node8 setLabel "name" "CancelButton"
$node8 setProp "gui_lib" "VB"
$node8 setScope "name" "cl" "scopePhase"

set method15 [$node8 addMethod]
$method15 setLabel "name_type" "Click()"
$method15 setProp "has_parmlist" "1"
$method15 setProp "is_event" "Yes"
$method15 setProp "method_access" "Public"

set node9 [$diag addNode cad_class 1268.0 908.0 160.0 99.9999]
$node9 setLabel "name" "AddressListButton"
$node9 setProp "gui_lib" "VB"
$node9 setScope "name" "cl" "scopePhase"

set method16 [$node9 addMethod]
$method16 setLabel "name_type" "Click()"
$method16 setProp "has_parmlist" "1"
$method16 setProp "is_event" "Yes"
$method16 setProp "method_access" "Public"

set node10 [$diag addNode cad_class 1116.0 908.0 120.0 99.9999]
$node10 setLabel "name" "SendButton"
$node10 setProp "gui_lib" "VB"
$node10 setScope "name" "cl" "scopePhase"

set method17 [$node10 addMethod]
$method17 setLabel "name_type" "Click()"
$method17 setProp "has_parmlist" "1"
$method17 setProp "is_event" "Yes"
$method17 setProp "method_access" "Public"

set node11 [$diag addNode cad_class 964.0 908.0 120.0 99.9999]
$node11 setLabel "name" "ClearButton"
$node11 setProp "gui_lib" "VB"
$node11 setScope "name" "cl" "scopePhase"

set method18 [$node11 addMethod]
$method18 setLabel "name_type" "Click()"
$method18 setProp "has_parmlist" "1"
$method18 setProp "is_event" "Yes"
$method18 setProp "method_access" "Public"

set node13 [$diag addNode cad_class 806.0 908.0 124.0 99.9999]
$node13 setLabel "name" "ReceiveButton"
$node13 setProp "gui_lib" "VB"
$node13 setScope "name" "cl" "scopePhase"

set method19 [$node13 addMethod]
$method19 setLabel "name_type" "Click()"
$method19 setProp "has_parmlist" "1"
$method19 setProp "is_event" "Yes"
$method19 setProp "method_access" "Public"

set node14 [$diag addNode cad_class 1120.0 808.0 142.666 33.3333]
$node14 setLabel "name" "CommandButton"
$node14 setProp "is_folded" "1"
$node14 setScope "name" "cl" "scopePhase"

set node12 [$diag addRake generalization $node14 $node8 1188.5 841.333 1511.0 908.0 876.0]

set conn20 [$node12 getInConn]
set segm21 [$conn20 getFirstSegm]

set conn22 [$node12 getFirstOutConn]
set segm23 [$conn22 getFirstSegm]

set conn24 [$diag addConn generalization_conn $node12 $node9 1188.5 876.5 1343.5 908.0]
set segm25 [$conn24 getFirstSegm]

set conn26 [$diag addConn generalization_conn $node12 $node10 1176.0 876.5 1176.0 908.0]
set segm27 [$conn26 getFirstSegm]

set conn28 [$diag addConn generalization_conn $node12 $node11 1024.0 876.5 1024.0 908.0]
set segm29 [$conn28 getFirstSegm]

set conn30 [$diag addConn generalization_conn $node12 $node13 1024.0 876.5 869.0 908.0]
set segm31 [$conn30 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QKdAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new FormTree "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set node33 [$diag addNode cad_class 800.0 912.0 128.0 33.3333]
$node33 setLabel "name" "Messages_GUI"
$node33 setProp "is_folded" "1"
$node33 setScope "name" "cl" "scopePhase"

set method35 [$node33 addMethod]
$method35 setLabel "name_type" "Messages_GUI_Constructor()\n"
$method35 setProp "has_parmlist" "1"
$method35 setProp "is_event" "No"
$method35 setProp "method_access" "Public"

set method36 [$node33 addMethod]
$method36 setLabel "name_type" "Initialize()"
$method36 setProp "has_parmlist" "1"
$method36 setProp "is_event" "Yes"
$method36 setProp "method_access" "Private"

set node34 [$diag addNode cad_class 800.0 760.0 120.0 35.9989]
$node34 setLabel "name" "Form"
$node34 setProp "is_folded" "1"
$node34 setScope "name" "cl" "scopePhase"

set node32 [$diag addRake generalization $node34 $node33 864.0 792.0 864.0 920.0 892.0]

set conn37 [$node32 getInConn]
set segm38 [$conn37 getFirstSegm]

set conn39 [$node32 getFirstOutConn]
set segm40 [$conn39 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QK3AGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new FrameTree "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set node41 [$diag addNode cad_class 152.0 100.0 120.0 36.0]
$node41 setLabel "name" "TxFrame"
$node41 setProp "gui_lib" "VB"
$node41 setProp "is_folded" "1"
$node41 setScope "name" "cl" "scopePhase"

set node43 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
$node43 setLabel "name" "RxFrame"
$node43 setProp "gui_lib" "VB"
$node43 setProp "is_folded" "1"
$node43 setScope "name" "cl" "scopePhase"

set node44 [$diag addNode cad_class 76.0 0.0 120.0 36.0]
$node44 setLabel "name" "Frame"
$node44 setProp "is_folded" "1"
$node44 setScope "name" "cl" "scopePhase"

set node42 [$diag addRake generalization $node44 $node41 136.0 36.0 212.0 100.0 68.0]

set conn45 [$node42 getInConn]
set segm46 [$conn45 getFirstSegm]

set conn47 [$node42 getFirstOutConn]
set segm48 [$conn47 getFirstSegm]

set conn49 [$diag addConn generalization_conn $node42 $node43 60.0 68.0 60.0 100.0]
set segm50 [$conn49 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QM3AGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new LabelTree "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set node52 [$diag addNode cad_class 0.0 100.0 160.0 103.0]
$node52 setLabel "name" "OriginAddressLabel"
$node52 setProp "gui_lib" "VB"
$node52 setScope "name" "cl" "scopePhase"

set node53 [$diag addNode cad_class 20.0 0.0 120.0 36.0]
$node53 setLabel "name" "Label"
$node53 setProp "is_folded" "1"
$node53 setScope "name" "cl" "scopePhase"

set node51 [$diag addRake generalization $node53 $node52 80.0 36.0 80.0 100.0 68.0]

set conn54 [$node51 getInConn]
set segm55 [$conn54 getFirstSegm]

set conn56 [$node51 getFirstOutConn]
set segm57 [$conn56 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QMjAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new LineTree "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set node58 [$diag addNode cad_class 615.0 100.0 173.0 103.0]
$node58 setLabel "name" "Messages_GUI_Line1"
$node58 setProp "gui_lib" "VB"
$node58 setScope "name" "cl" "scopePhase"

set node59 [$diag addNode cad_class 410.0 100.0 173.0 103.0]
$node59 setLabel "name" "Messages_GUI_Line3"
$node59 setProp "gui_lib" "VB"
$node59 setScope "name" "cl" "scopePhase"

set node60 [$diag addNode cad_class 205.0 100.0 173.0 103.0]
$node60 setLabel "name" "Messages_GUI_Line2"
$node60 setProp "gui_lib" "VB"
$node60 setScope "name" "cl" "scopePhase"

set node62 [$diag addNode cad_class 0.0 100.0 173.0 103.0]
$node62 setLabel "name" "Messages_GUI_Line4"
$node62 setProp "gui_lib" "VB"
$node62 setScope "name" "cl" "scopePhase"

set node63 [$diag addNode cad_class 334.0 0.0 120.0 36.0]
$node63 setLabel "name" "Line"
$node63 setProp "is_folded" "1"
$node63 setScope "name" "cl" "scopePhase"

set node61 [$diag addRake generalization $node63 $node58 394.0 36.0 701.5 100.0 68.0]

set conn64 [$node61 getInConn]
set segm65 [$conn64 getFirstSegm]

set conn66 [$node61 getFirstOutConn]
set segm67 [$conn66 getFirstSegm]

set conn68 [$diag addConn generalization_conn $node61 $node59 496.5 68.0 496.5 100.0]
set segm69 [$conn68 getFirstSegm]

set conn70 [$diag addConn generalization_conn $node61 $node60 291.5 68.0 291.5 100.0]
set segm71 [$conn70 getFirstSegm]

set conn72 [$diag addConn generalization_conn $node61 $node62 86.5 68.0 86.5 100.0]
set segm73 [$conn72 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QNTAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new MenuTree "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set node74 [$diag addNode cad_class 171.0 100.0 126.0 103.0]
$node74 setLabel "name" "Messages_Exit"
$node74 setProp "gui_lib" "VB"
$node74 setScope "name" "cl" "scopePhase"

set method78 [$node74 addMethod]
$method78 setLabel "name_type" "Click()"
$method78 setProp "has_parmlist" "1"
$method78 setProp "is_event" "Yes"
$method78 setProp "method_access" "Public"

set node76 [$diag addNode cad_class 0.0 100.0 139.0 36.0]
$node76 setLabel "name" "Messages_Menu"
$node76 setProp "gui_lib" "VB"
$node76 setProp "is_folded" "1"
$node76 setScope "name" "cl" "scopePhase"

set node77 [$diag addNode cad_class 88.5 0.0 120.0 36.0]
$node77 setLabel "name" "Menu"
$node77 setProp "is_folded" "1"
$node77 setScope "name" "cl" "scopePhase"

set node75 [$diag addRake generalization $node77 $node74 148.5 36.0 234.0 100.0 68.0]

set conn79 [$node75 getInConn]
set segm80 [$conn79 getFirstSegm]

set conn81 [$node75 getFirstOutConn]
set segm82 [$conn81 getFirstSegm]

set conn83 [$diag addConn generalization_conn $node75 $node76 69.5 68.0 69.5 100.0]
set segm84 [$conn83 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QNtAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new Messages_GUI "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set node85 [$diag addNode cad_class 1250.0 944.0 145.333 33.3333]
$node85 setLabel "name" "Messages_Menu"
$node85 setProp "gui_lib" "VB"
$node85 setProp "is_folded" "1"
$node85 setScope "name" "cl" "scopePhase"

set node86 [$diag addNode cad_class 1250.0 876.0 120.0 33.3333]
$node86 setLabel "name" "TxFrame"
$node86 setProp "gui_lib" "VB"
$node86 setProp "is_folded" "1"
$node86 setScope "name" "cl" "scopePhase"

set node87 [$diag addNode cad_class 1250.0 808.0 120.0 33.3333]
$node87 setLabel "name" "RxFrame"
$node87 setProp "gui_lib" "VB"
$node87 setProp "is_folded" "1"
$node87 setScope "name" "cl" "scopePhase"

set node88 [$diag addNode cad_class 800.0 808.0 218.667 161.333]
$node88 setLabel "name" "Messages_GUI"
$node88 setScope "name" "cl" "scopePhase"

set method99 [$node88 addMethod]
$method99 setLabel "name_type" "Messages_GUI_Constructor()\n"
$method99 setProp "has_parmlist" "1"
$method99 setProp "is_event" "No"
$method99 setProp "method_access" "Public"

set method100 [$node88 addMethod]
$method100 setLabel "name_type" "Initialize()"
$method100 setProp "has_parmlist" "1"
$method100 setProp "is_event" "Yes"
$method100 setProp "method_access" "Private"

set node89 [$diag addNode cad_class 1416.0 992.0 129.333 34.6666]
$node89 setLabel "name" "Messages_Exit"
$node89 setProp "gui_lib" "VB"
$node89 setProp "is_folded" "1"
$node89 setScope "name" "cl" "scopePhase"

set method101 [$node89 addMethod]
$method101 setLabel "name_type" "Click()"
$method101 setProp "has_parmlist" "1"
$method101 setProp "is_event" "Yes"
$method101 setProp "method_access" "Public"

set conn90 [$diag addConn aggregation $node88 $node85 1008.59 962.0 1250.0 962.0]
$conn90 setLabel "role_end" "Menu"
$conn90 setProp "mult_kind_end" "one"
$conn90 setProp "mult_kind_start" "optional"
set segm91 [$conn90 getFirstSegm]

set conn92 [$diag addConn aggregation $node88 $node86 1008.59 894.0 1250.0 894.0]
$conn92 setLabel "role_end" "TxFrame"
$conn92 setProp "mult_kind_end" "one"
$conn92 setProp "mult_kind_start" "optional"
set segm93 [$conn92 getFirstSegm]

set conn94 [$diag addConn aggregation $node88 $node87 1008.59 824.0 1250.0 824.0]
$conn94 setLabel "role_end" "RxFrame"
$conn94 setProp "mult_kind_end" "one"
$conn94 setProp "mult_kind_start" "optional"
set segm95 [$conn94 getFirstSegm]

set conn96 [$diag addConn aggregation $node85 $node89 1320.0 968.0 1424.0 1016.0]
$conn96 setLabel "role_end" "Exit"
$conn96 setProp "mult_kind_end" "one"
$conn96 setProp "mult_kind_start" "optional"
set segm97 [$conn96 getFirstSegm]
set segm98 [$conn96 addSegm 1320.0 1016.0]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QOvAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new Messages_Menu "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set node102 [$diag addNode cad_class 227.0 0.0 126.0 36.0]
$node102 setLabel "name" "Messages_Exit"
$node102 setProp "gui_lib" "VB"
$node102 setProp "is_folded" "1"
$node102 setScope "name" "cl" "scopePhase"

set method106 [$node102 addMethod]
$method106 setLabel "name_type" "Click()"
$method106 setProp "has_parmlist" "1"
$method106 setProp "is_event" "Yes"
$method106 setProp "method_access" "Public"

set node103 [$diag addNode cad_class 0.0 0.0 139.0 103.0]
$node103 setLabel "name" "Messages_Menu"
$node103 setProp "gui_lib" "VB"
$node103 setScope "name" "cl" "scopePhase"

set conn104 [$diag addConn aggregation $node103 $node102 139.0 18.0 227.0 18.0]
$conn104 setLabel "role_end" "Exit"
$conn104 setProp "mult_kind_end" "one"
$conn104 setProp "mult_kind_start" "optional"
set segm105 [$conn104 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QN9AGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new RxFrame "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set node107 [$diag addNode cad_class 904.0 868.0 166.667 33.3333]
$node107 setLabel "name" "OriginAddressLabel"
$node107 setProp "gui_lib" "VB"
$node107 setProp "is_folded" "1"
$node107 setScope "name" "cl" "scopePhase"

set node108 [$diag addNode cad_class 904.0 800.0 176.0 33.3333]
$node108 setLabel "name" "Messages_GUI_Line2"
$node108 setProp "gui_lib" "VB"
$node108 setProp "is_folded" "1"
$node108 setScope "name" "cl" "scopePhase"

set node109 [$diag addNode cad_class 904.0 732.0 176.0 33.3333]
$node109 setLabel "name" "Messages_GUI_Line4"
$node109 setProp "gui_lib" "VB"
$node109 setProp "is_folded" "1"
$node109 setScope "name" "cl" "scopePhase"

set node110 [$diag addNode cad_class 904.0 664.0 120.0 33.3333]
$node110 setLabel "name" "ClearButton"
$node110 setProp "gui_lib" "VB"
$node110 setProp "is_folded" "1"
$node110 setScope "name" "cl" "scopePhase"

set method129 [$node110 addMethod]
$method129 setLabel "name_type" "Click()"
$method129 setProp "has_parmlist" "1"
$method129 setProp "is_event" "Yes"
$method129 setProp "method_access" "Public"

set node111 [$diag addNode cad_class 904.0 596.0 124.0 33.3333]
$node111 setLabel "name" "ReceiveButton"
$node111 setProp "gui_lib" "VB"
$node111 setProp "is_folded" "1"
$node111 setScope "name" "cl" "scopePhase"

set method130 [$node111 addMethod]
$method130 setLabel "name_type" "Click()"
$method130 setProp "has_parmlist" "1"
$method130 setProp "is_event" "Yes"
$method130 setProp "method_access" "Public"

set node112 [$diag addNode cad_class 904.0 528.0 185.333 33.3333]
$node112 setLabel "name" "OriginAddressTextBox"
$node112 setProp "gui_lib" "VB"
$node112 setProp "is_folded" "1"
$node112 setScope "name" "cl" "scopePhase"

set node113 [$diag addNode cad_class 904.0 460.0 162.667 33.3333]
$node113 setLabel "name" "RxMessageTextBox"
$node113 setProp "gui_lib" "VB"
$node113 setProp "is_folded" "1"
$node113 setScope "name" "cl" "scopePhase"

set node114 [$diag addNode cad_class 592.0 460.0 120.0 433.333]
$node114 setLabel "name" "RxFrame"
$node114 setProp "gui_lib" "VB"
$node114 setScope "name" "cl" "scopePhase"

set conn115 [$diag addConn aggregation $node114 $node107 712.0 886.0 904.0 886.0]
$conn115 setLabel "role_end" "OriginAddressLabel"
$conn115 setProp "mult_kind_end" "one"
$conn115 setProp "mult_kind_start" "optional"
set segm116 [$conn115 getFirstSegm]

set conn117 [$diag addConn aggregation $node114 $node108 712.0 818.0 904.0 818.0]
$conn117 setLabel "role_end" "Line2"
$conn117 setProp "mult_kind_end" "one"
$conn117 setProp "mult_kind_start" "optional"
set segm118 [$conn117 getFirstSegm]

set conn119 [$diag addConn aggregation $node114 $node109 712.0 750.0 904.0 750.0]
$conn119 setLabel "role_end" "Line4"
$conn119 setProp "mult_kind_end" "one"
$conn119 setProp "mult_kind_start" "optional"
set segm120 [$conn119 getFirstSegm]

set conn121 [$diag addConn aggregation $node114 $node110 712.0 682.0 904.0 682.0]
$conn121 setLabel "role_end" "ClearButton"
$conn121 setProp "mult_kind_end" "one"
$conn121 setProp "mult_kind_start" "optional"
set segm122 [$conn121 getFirstSegm]

set conn123 [$diag addConn aggregation $node114 $node111 712.0 614.0 904.0 614.0]
$conn123 setLabel "role_end" "ReceiveButton"
$conn123 setProp "mult_kind_end" "one"
$conn123 setProp "mult_kind_start" "optional"
set segm124 [$conn123 getFirstSegm]

set conn125 [$diag addConn aggregation $node114 $node112 712.0 546.0 904.0 546.0]
$conn125 setLabel "role_end" "OriginAddressPane"
$conn125 setProp "mult_kind_end" "one"
$conn125 setProp "mult_kind_start" "optional"
set segm126 [$conn125 getFirstSegm]

set conn127 [$diag addConn aggregation $node114 $node113 712.0 478.0 904.0 478.0]
$conn127 setLabel "role_end" "RxMessagePane"
$conn127 setProp "mult_kind_end" "one"
$conn127 setProp "mult_kind_start" "optional"
set segm128 [$conn127 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QLHAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new TextBoxTree "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set node131 [$diag addNode cad_class 600.0 100.0 218.0 103.0]
$node131 setLabel "name" "DestinationAddressTextBox"
$node131 setProp "gui_lib" "VB"
$node131 setScope "name" "cl" "scopePhase"

set node132 [$diag addNode cad_class 407.0 100.0 161.0 103.0]
$node132 setLabel "name" "TxMessageTextBox"
$node132 setProp "gui_lib" "VB"
$node132 setScope "name" "cl" "scopePhase"

set node133 [$diag addNode cad_class 194.0 100.0 181.0 103.0]
$node133 setLabel "name" "OriginAddressTextBox"
$node133 setProp "gui_lib" "VB"
$node133 setScope "name" "cl" "scopePhase"

set node135 [$diag addNode cad_class 0.0 100.0 162.0 103.0]
$node135 setLabel "name" "RxMessageTextBox"
$node135 setProp "gui_lib" "VB"
$node135 setScope "name" "cl" "scopePhase"

set node136 [$diag addNode cad_class 349.0 0.0 120.0 36.0]
$node136 setLabel "name" "TextBox"
$node136 setProp "is_folded" "1"
$node136 setScope "name" "cl" "scopePhase"

set node134 [$diag addRake generalization $node136 $node131 409.0 36.0 709.0 100.0 68.0]

set conn137 [$node134 getInConn]
set segm138 [$conn137 getFirstSegm]

set conn139 [$node134 getFirstOutConn]
set segm140 [$conn139 getFirstSegm]

set conn141 [$diag addConn generalization_conn $node134 $node132 487.5 68.0 487.5 100.0]
set segm142 [$conn141 getFirstSegm]

set conn143 [$diag addConn generalization_conn $node134 $node133 284.5 68.0 284.5 100.0]
set segm144 [$conn143 getFirstSegm]

set conn145 [$diag addConn generalization_conn $node134 $node135 81.0 68.0 81.0 100.0]
set segm146 [$conn145 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fGraph:Uj0DisDRSDUgA1QOVAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CAD new TxFrame "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set node147 [$diag addNode cad_class 345.0 476.0 173.0 36.0]
$node147 setLabel "name" "Messages_GUI_Line1"
$node147 setProp "gui_lib" "VB"
$node147 setProp "is_folded" "1"
$node147 setScope "name" "cl" "scopePhase"

set node148 [$diag addNode cad_class 345.0 408.0 173.0 36.0]
$node148 setLabel "name" "Messages_GUI_Line3"
$node148 setProp "gui_lib" "VB"
$node148 setProp "is_folded" "1"
$node148 setScope "name" "cl" "scopePhase"

set node149 [$diag addNode cad_class 345.0 340.0 218.0 36.0]
$node149 setLabel "name" "DestinationAddressTextBox"
$node149 setProp "gui_lib" "VB"
$node149 setProp "is_folded" "1"
$node149 setScope "name" "cl" "scopePhase"

set node150 [$diag addNode cad_class 345.0 272.0 161.0 36.0]
$node150 setLabel "name" "TxMessageTextBox"
$node150 setProp "gui_lib" "VB"
$node150 setProp "is_folded" "1"
$node150 setScope "name" "cl" "scopePhase"

set node151 [$diag addNode cad_class 345.0 204.0 120.0 36.0]
$node151 setLabel "name" "CancelButton"
$node151 setProp "gui_lib" "VB"
$node151 setProp "is_folded" "1"
$node151 setScope "name" "cl" "scopePhase"

set method172 [$node151 addMethod]
$method172 setLabel "name_type" "Click()"
$method172 setProp "has_parmlist" "1"
$method172 setProp "is_event" "Yes"
$method172 setProp "method_access" "Public"

set node152 [$diag addNode cad_class 345.0 136.0 151.0 36.0]
$node152 setLabel "name" "AddressListButton"
$node152 setProp "gui_lib" "VB"
$node152 setProp "is_folded" "1"
$node152 setScope "name" "cl" "scopePhase"

set method173 [$node152 addMethod]
$method173 setLabel "name_type" "Click()"
$method173 setProp "has_parmlist" "1"
$method173 setProp "is_event" "Yes"
$method173 setProp "method_access" "Public"

set node153 [$diag addNode cad_class 345.0 68.0 120.0 36.0]
$node153 setLabel "name" "SendButton"
$node153 setProp "gui_lib" "VB"
$node153 setProp "is_folded" "1"
$node153 setScope "name" "cl" "scopePhase"

set method174 [$node153 addMethod]
$method174 setLabel "name_type" "Click()"
$method174 setProp "has_parmlist" "1"
$method174 setProp "is_event" "Yes"
$method174 setProp "method_access" "Public"

set node154 [$diag addNode cad_class 345.0 0.0 175.0 36.0]
$node154 setLabel "name" "EncryptReqCheckBox"
$node154 setProp "gui_lib" "VB"
$node154 setProp "is_folded" "1"
$node154 setScope "name" "cl" "scopePhase"

set node155 [$diag addNode cad_class 0.0 0.0 120.0 544.0]
$node155 setLabel "name" "TxFrame"
$node155 setProp "gui_lib" "VB"
$node155 setScope "name" "cl" "scopePhase"

set conn156 [$diag addConn aggregation $node155 $node147 120.0 494.0 345.0 494.0]
$conn156 setLabel "role_end" "Line1"
$conn156 setProp "mult_kind_end" "one"
$conn156 setProp "mult_kind_start" "optional"
set segm157 [$conn156 getFirstSegm]

set conn158 [$diag addConn aggregation $node155 $node148 120.0 426.0 345.0 426.0]
$conn158 setLabel "role_end" "Line3"
$conn158 setProp "mult_kind_end" "one"
$conn158 setProp "mult_kind_start" "optional"
set segm159 [$conn158 getFirstSegm]

set conn160 [$diag addConn aggregation $node155 $node149 120.0 358.0 345.0 358.0]
$conn160 setLabel "role_end" "DestinationAddressPane"
$conn160 setProp "mult_kind_end" "one"
$conn160 setProp "mult_kind_start" "optional"
set segm161 [$conn160 getFirstSegm]

set conn162 [$diag addConn aggregation $node155 $node150 120.0 290.0 345.0 290.0]
$conn162 setLabel "role_end" "TxMessagePane"
$conn162 setProp "mult_kind_end" "one"
$conn162 setProp "mult_kind_start" "optional"
set segm163 [$conn162 getFirstSegm]

set conn164 [$diag addConn aggregation $node155 $node151 120.0 222.0 345.0 222.0]
$conn164 setLabel "role_end" "CancelButton"
$conn164 setProp "mult_kind_end" "one"
$conn164 setProp "mult_kind_start" "optional"
set segm165 [$conn164 getFirstSegm]

set conn166 [$diag addConn aggregation $node155 $node152 120.0 154.0 345.0 154.0]
$conn166 setLabel "role_end" "AddressButton"
$conn166 setProp "mult_kind_end" "one"
$conn166 setProp "mult_kind_start" "optional"
set segm167 [$conn166 getFirstSegm]

set conn168 [$diag addConn aggregation $node155 $node153 120.0 86.0 345.0 86.0]
$conn168 setLabel "role_end" "SendButton"
$conn168 setProp "mult_kind_end" "one"
$conn168 setProp "mult_kind_start" "optional"
set segm169 [$conn168 getFirstSegm]

set conn170 [$diag addConn aggregation $node155 $node154 120.0 18.0 345.0 18.0]
$conn170 setLabel "role_end" "EncryptReqCheckBox"
$conn170 setProp "mult_kind_end" "one"
$conn170 setProp "mult_kind_start" "optional"
set segm171 [$conn170 getFirstSegm]

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QMKAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new AddressListButton "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

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

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QMWAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new CancelButton "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

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

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QLyAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new ClearButton "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

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

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QNfAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new Messages_Exit "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

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

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QKoAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new Messages_GUI "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

set row179 [$diag addRow method 0.0]
$row179 setLabel "name_type" "Messages_GUI_Constructor()\n"
$row179 setProp "has_parmlist" "1"
$row179 setProp "is_event" "No"
$row179 setProp "method_access" "Public"

set row180 [$diag addRow method 0.0]
$row180 setLabel "name_type" "Initialize()"
$row180 setProp "has_parmlist" "1"
$row180 setProp "is_event" "Yes"
$row180 setProp "method_access" "Private"

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QLmAGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new ReceiveButton "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

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

$diag save

# Generator: et.tcl    /main/titanic/10
# Argument(s): -fMatrix:Uj0DisDRSDUgA1QL_AGcAAQAAAAEA -g -dproj {-aC:/Cayenne/Tools/contrib/modules/messages-example/tcl\messagesproj.tcl}
# Interpreter to use: Otsh V7.1.1/B6
#
OTShRegister::importTool

set diag [CDM new SendButton "VB_Messages" "ObjectDesign" "ObjectDesign" "VB_Prototype" "1" "" 1]

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

$diag save