home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / trainmatproj.tcl < prev    next >
Text File  |  1997-11-28  |  175KB  |  4,636 lines

  1.  
  2. # Generator: et.tcl    /main/titanic/10
  3. # Argument(s): -fGraph:Uj0DirzR9xzcAqQDoAGUAAQAAAA8A -e -g -dproj {-oC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4. # Interpreter to use: Otsh V7.1.1/B6
  5. #
  6. OTShRegister::importTool
  7.  
  8. set diag [CAD new CoreClasses "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  9.  
  10. set node2 [$diag addNode cad_class 304.0 576.0 120.0 144.0]
  11. $node2 setLabel "name" "Employee"
  12. $node2 setScope "name" "cl" "scopePhase"
  13.  
  14. set node3 [$diag addNode cad_class 416.0 800.0 120.0 92.0]
  15. $node3 setLabel "name" "Borrower"
  16. $node3 setScope "name" "cl" "scopePhase"
  17.  
  18. set node4 [$diag addNode cad_class 688.0 896.0 120.0 180.0]
  19. $node4 setLabel "name" "Loan"
  20. $node4 setScope "name" "cl" "scopePhase"
  21.  
  22. set node5 [$diag addNode cad_class 496.0 1200.0 120.0 92.0]
  23. $node5 setLabel "name" "Return"
  24. $node5 setScope "name" "cl" "scopePhase"
  25.  
  26. set node6 [$diag addNode cad_class 960.0 976.0 120.0 92.0]
  27. $node6 setLabel "name" "Extension"
  28. $node6 setScope "name" "cl" "scopePhase"
  29.  
  30. set node7 [$diag addNode cad_class 960.0 1200.0 120.0 92.0]
  31. $node7 setLabel "name" "LateFee"
  32. $node7 setScope "name" "cl" "scopePhase"
  33.  
  34. set node8 [$diag addNode cad_class 1104.0 704.0 134.67 48.0]
  35. $node8 setLabel "name" "TrainingMaterial"
  36. $node8 setProp "is_folded" "1"
  37. $node8 setScope "name" "cl" "scopePhase"
  38.  
  39. set node9 [$diag addNode cad_class 832.0 544.0 120.0 121.33]
  40. $node9 setLabel "name" "WaitingList"
  41. $node9 setScope "name" "cl" "scopePhase"
  42.  
  43. set node10 [$diag addNode cad_class 1104.0 896.0 120.0 92.0]
  44. $node10 setLabel "name" "Inventory"
  45. $node10 setScope "name" "cl" "scopePhase"
  46.  
  47. set node11 [$diag addNode cad_class 800.0 1248.0 124.0 106.67]
  48. $node11 setLabel "name" "DamageReport"
  49. $node11 setScope "name" "cl" "scopePhase"
  50.  
  51. set node12 [$diag addNode cad_class 560.0 1424.0 120.0 180.0]
  52. $node12 setLabel "name" "Loan"
  53. $node12 setScope "name" "cl" "scopePhase"
  54.  
  55. set node1 [$diag addRake generalization $node2 $node3 384.0 704.0 448.0 800.0 783.5]
  56.  
  57. set conn39 [$node1 getInConn]
  58. set segm40 [$conn39 getFirstSegm]
  59.  
  60. set conn41 [$node1 getFirstOutConn]
  61. set segm42 [$conn41 getFirstSegm]
  62.  
  63. set conn17 [$diag addConn association $node3 $node8 512.0 848.0 1136.0 736.0]
  64. $conn17 setProp "mult_kind_end" "many"
  65. $conn17 setProp "mult_kind_start" "one"
  66. set segm18 [$conn17 getFirstSegm]
  67. $segm18 setLabel "name" "borrows"
  68. $segm18 setScope "name" "cl" "scopeSystem"
  69. set segm19 [$conn17 addSegm 1136.0 848.0]
  70.  
  71. set conn20 [$diag addConn association $node8 $node10 1168.0 752.0 1168.0 944.0]
  72. $conn20 setProp "mult_kind_end" "many"
  73. $conn20 setProp "mult_kind_start" "optional"
  74. set segm21 [$conn20 getFirstSegm]
  75. $segm21 setLabel "name" "has"
  76. $segm21 setScope "name" "cl" "scopeSystem"
  77.  
  78. set conn22 [$diag addConn association $node4 $node5 704.0 1008.0 560.0 1232.0]
  79. $conn22 setProp "mult_kind_end" "optional"
  80. $conn22 setProp "mult_kind_start" "one"
  81. set segm23 [$conn22 getFirstSegm]
  82. set segm24 [$conn22 addSegm 560.0 1008.0]
  83. $segm24 setLabel "name" "is_returned"
  84. $segm24 setScope "name" "cl" "scopeSystem"
  85.  
  86. set conn25 [$diag addConn association $node4 $node6 784.0 1024.0 1024.0 1024.0]
  87. $conn25 setProp "mult_kind_end" "optional"
  88. $conn25 setProp "mult_kind_start" "one"
  89. set segm26 [$conn25 getFirstSegm]
  90. $segm26 setLabel "name" "is_extended"
  91. $segm26 setScope "name" "cl" "scopeSystem"
  92.  
  93. set conn27 [$diag addConn association $node5 $node7 608.0 1216.0 960.0 1216.0]
  94. $conn27 setProp "mult_kind_end" "optional"
  95. $conn27 setProp "mult_kind_start" "one"
  96. set segm28 [$conn27 getFirstSegm]
  97. $segm28 setLabel "name" "is_late"
  98. $segm28 setScope "name" "cl" "scopeSystem"
  99.  
  100. set conn29 [$diag addConn association $node5 $node11 608.0 1280.0 816.0 1280.0]
  101. $conn29 setProp "mult_kind_end" "optional"
  102. $conn29 setProp "mult_kind_start" "one"
  103. set segm30 [$conn29 getFirstSegm]
  104. $segm30 setLabel "name" "is_damaged"
  105. $segm30 setScope "name" "cl" "scopeSystem"
  106.  
  107. set conn31 [$diag addConn association $node5 $node12 560.0 1280.0 640.0 1472.0]
  108. $conn31 setProp "mult_kind_end" "many"
  109. $conn31 setProp "mult_kind_start" "optional"
  110. set segm32 [$conn31 getFirstSegm]
  111.  
  112. set conn33 [$diag addConn association $node2 $node5 336.0 720.0 544.0 1280.0]
  113. $conn33 setProp "mult_kind_end" "optional"
  114. $conn33 setProp "mult_kind_start" "one"
  115. set segm34 [$conn33 getFirstSegm]
  116. $segm34 setLabel "name" "checks_in"
  117. $segm34 setScope "name" "cl" "scopeSystem"
  118. set segm35 [$conn33 addSegm 336.0 1280.0]
  119.  
  120. set conn36 [$diag addConn association $node3 $node8 496.0 816.0 1136.0 736.0]
  121. $conn36 setProp "mult_kind_end" "many"
  122. $conn36 setProp "mult_kind_start" "many"
  123. set segm37 [$conn36 getFirstSegm]
  124. set segm38 [$conn36 addSegm 496.0 736.0]
  125. $segm38 setLabel "name" "waits_for"
  126. $segm38 setScope "name" "cl" "scopeSystem"
  127.  
  128. set conn13 [$diag addConn loop $segm18 $node4 720.0 848.0 720.0 896.0]
  129. set segm14 [$conn13 getFirstSegm]
  130.  
  131. set conn15 [$diag addConn loop $segm38 $node9 880.0 736.0 880.0 656.0]
  132. set segm16 [$conn15 getFirstSegm]
  133.  
  134. $diag save
  135.  
  136. # Generator: et.tcl    /main/titanic/10
  137. # Argument(s): -fGraph:Uj0DirzR9xzcAqQEWAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  138. # Interpreter to use: Otsh V7.1.1/B6
  139. #
  140. OTShRegister::importTool
  141.  
  142. set diag [CAD new Overview "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  143.  
  144. set node44 [$diag addNode cad_class 816.0 992.0 120.0 32.0]
  145. $node44 setLabel "name" "Employee"
  146. $node44 setProp "is_folded" "1"
  147. $node44 setScope "name" "cl" "scopePhase"
  148.  
  149. set node45 [$diag addNode cad_class 928.0 1152.0 120.0 28.0]
  150. $node45 setLabel "name" "Return"
  151. $node45 setProp "is_folded" "1"
  152. $node45 setScope "name" "cl" "scopePhase"
  153.  
  154. set node46 [$diag addNode cad_class 1008.0 848.0 133.0 28.0]
  155. $node46 setLabel "name" "LoanCoordinator"
  156. $node46 setProp "is_folded" "1"
  157. $node46 setScope "name" "cl" "scopePhase"
  158. $node46 setProp "freeText" "The loan coordinator is responsible\nfor all Training materials.\nHe loans the materials to employees\n(trainers), replaces old materials and\nkeeps a stock of materials not\nloaned." "name" "cl"
  159.  
  160. set node47 [$diag addNode cad_class 1008.0 944.0 120.0 28.0]
  161. $node47 setLabel "name" "Loan"
  162. $node47 setProp "is_folded" "1"
  163. $node47 setScope "name" "cl" "scopePhase"
  164.  
  165. set node48 [$diag addNode cad_class 976.0 1056.0 120.0 28.0]
  166. $node48 setLabel "name" "Sale"
  167. $node48 setProp "is_folded" "1"
  168. $node48 setScope "name" "cl" "scopePhase"
  169.  
  170. set node49 [$diag addNode cad_class 1280.0 848.0 120.0 28.0]
  171. $node49 setLabel "name" "WaitingList"
  172. $node49 setProp "is_folded" "1"
  173. $node49 setScope "name" "cl" "scopePhase"
  174.  
  175. set node50 [$diag addNode cad_class 1328.0 1104.0 120.0 28.0]
  176. $node50 setLabel "name" "Workbook"
  177. $node50 setProp "is_folded" "1"
  178. $node50 setScope "name" "cl" "scopePhase"
  179.  
  180. set node51 [$diag addNode cad_class 1360.0 992.0 145.0 32.0]
  181. $node51 setLabel "name" "TrainingMaterial"
  182. $node51 setProp "is_folded" "1"
  183. $node51 setScope "name" "cl" "scopePhase"
  184.  
  185. set node43 [$diag addRake generalization $node51 $node50 1424.0 1024.0 1424.0 1104.0 1055.5]
  186.  
  187. set conn81 [$node43 getInConn]
  188. set segm82 [$conn81 getFirstSegm]
  189.  
  190. set conn83 [$node43 getFirstOutConn]
  191. set segm84 [$conn83 getFirstSegm]
  192.  
  193. set conn61 [$diag addConn association $node44 $node46 896.0 992.0 1072.0 864.0]
  194. $conn61 setProp "mult_kind_end" "one"
  195. $conn61 setProp "mult_kind_start" "many"
  196. set segm62 [$conn61 getFirstSegm]
  197. $segm62 setLabel "name" "calls"
  198. $segm62 setScope "name" "cl" "scopeSystem"
  199. set segm63 [$conn61 addSegm 896.0 864.0]
  200.  
  201. set conn64 [$diag addConn association $node46 $node49 1120.0 864.0 1296.0 864.0]
  202. $conn64 setProp "mult_kind_end" "many"
  203. $conn64 setProp "mult_kind_start" "one"
  204. set segm65 [$conn64 getFirstSegm]
  205. $segm65 setLabel "name" "manages"
  206. $segm65 setScope "name" "cl" "scopeSystem"
  207.  
  208. set conn66 [$diag addConn association $node44 $node51 832.0 1024.0 1472.0 1024.0]
  209. $conn66 setLabel "role_start" "anyone"
  210. $conn66 setProp "mult_kind_end" "many"
  211. $conn66 setProp "mult_kind_start" "many"
  212. set segm67 [$conn66 getFirstSegm]
  213. set segm68 [$conn66 addSegm 832.0 1216.0]
  214. $segm68 setLabel "name" "checks_in"
  215. $segm68 setScope "name" "cl" "scopeSystem"
  216. set segm69 [$conn66 addSegm 1472.0 1216.0]
  217.  
  218. set conn70 [$diag addConn association $node44 $node51 832.0 992.0 1424.0 1008.0]
  219. $conn70 setProp "mult_kind_end" "one"
  220. $conn70 setProp "mult_kind_start" "many"
  221. set segm71 [$conn70 getFirstSegm]
  222. set segm72 [$conn70 addSegm 832.0 800.0]
  223. $segm72 setLabel "name" "waits_for"
  224. $segm72 setScope "name" "cl" "scopeSystem"
  225. set segm73 [$conn70 addSegm 1424.0 800.0]
  226.  
  227. set conn74 [$diag addConn association $node46 $node47 1056.0 864.0 1056.0 960.0]
  228. $conn74 setProp "mult_kind_end" "many"
  229. $conn74 setProp "mult_kind_start" "one"
  230. set segm75 [$conn74 getFirstSegm]
  231. $segm75 setLabel "name" "arranges"
  232. $segm75 setScope "name" "cl" "scopeSystem"
  233.  
  234. set conn76 [$diag addConn association $node44 $node50 896.0 1008.0 1392.0 1120.0]
  235. $conn76 setLabel "role_start" "buyer"
  236. $conn76 setProp "mult_kind_end" "many"
  237. $conn76 setProp "mult_kind_start" "many"
  238. set segm77 [$conn76 getFirstSegm]
  239. set segm78 [$conn76 addSegm 896.0 1120.0]
  240. $segm78 setLabel "name" "purchases"
  241. $segm78 setScope "name" "cl" "scopeSystem"
  242.  
  243. set conn79 [$diag addConn association $node44 $node51 928.0 1008.0 1408.0 1008.0]
  244. $conn79 setLabel "role_start" "borrower"
  245. $conn79 setProp "mult_kind_end" "many"
  246. $conn79 setProp "mult_kind_start" "many"
  247. set segm80 [$conn79 getFirstSegm]
  248. $segm80 setLabel "name" "checks_out"
  249. $segm80 setScope "name" "cl" "scopeSystem"
  250.  
  251. set conn52 [$diag addConn loop $segm68 $node45 992.0 1216.0 992.0 1168.0]
  252. set segm53 [$conn52 getFirstSegm]
  253. set segm54 [$conn52 addSegm 992.0 1232.0]
  254.  
  255. set conn55 [$diag addConn loop $segm78 $node48 1040.0 1120.0 1040.0 1072.0]
  256. set segm56 [$conn55 getFirstSegm]
  257.  
  258. set conn57 [$diag addConn loop $segm72 $node49 1328.0 800.0 1328.0 864.0]
  259. set segm58 [$conn57 getFirstSegm]
  260.  
  261. set conn59 [$diag addConn loop $segm80 $node47 1056.0 1008.0 1056.0 960.0]
  262. set segm60 [$conn59 getFirstSegm]
  263.  
  264. $diag save
  265.  
  266. # Generator: et.tcl    /main/titanic/10
  267. # Argument(s): -fGraph:Uj0DirzR9xzcAqQE1AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  268. # Interpreter to use: Otsh V7.1.1/B6
  269. #
  270. OTShRegister::importTool
  271.  
  272. set diag [CAD new TrainingMaterial "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  273.  
  274. set node88 [$diag addNode cad_class 1712.0 1168.0 120.0 104.0]
  275. $node88 setLabel "name" "VCR_Tape"
  276. $node88 setScope "name" "cl" "scopePhase"
  277.  
  278. set node89 [$diag addNode cad_class 1616.0 1024.0 120.0 104.0]
  279. $node89 setLabel "name" "Sample Product"
  280. $node89 setScope "name" "cl" "scopePhase"
  281.  
  282. set node90 [$diag addNode cad_class 864.0 1024.0 120.0 133.334]
  283. $node90 setLabel "name" "Book"
  284. $node90 setScope "name" "cl" "scopePhase"
  285.  
  286. set node91 [$diag addNode cad_class 864.0 1232.0 128.0 104.0]
  287. $node91 setLabel "name" "Workbook"
  288. $node91 setScope "name" "cl" "scopePhase"
  289.  
  290. set node92 [$diag addNode cad_class 1360.0 1232.0 120.0 104.0]
  291. $node92 setLabel "name" "OverheadProj"
  292. $node92 setScope "name" "cl" "scopePhase"
  293.  
  294. set node93 [$diag addNode cad_class 1168.0 800.0 120.0 104.0]
  295. $node93 setLabel "name" "TrainingMaterial"
  296. $node93 setScope "name" "cl" "scopePhase"
  297.  
  298. set node94 [$diag addNode cad_class 1008.0 1024.0 120.0 118.667]
  299. $node94 setLabel "name" "Software"
  300. $node94 setScope "name" "cl" "scopePhase"
  301.  
  302. set node95 [$diag addNode cad_class 1152.0 1024.0 120.0 104.0]
  303. $node95 setLabel "name" "VCR_Tape"
  304. $node95 setScope "name" "cl" "scopePhase"
  305.  
  306. set node96 [$diag addNode cad_class 1296.0 1024.0 120.0 89.3336]
  307. $node96 setLabel "name" "CDROM"
  308. $node96 setScope "name" "cl" "scopePhase"
  309.  
  310. set node97 [$diag addNode cad_class 1504.0 1232.0 120.0 89.3336]
  311. $node97 setLabel "name" "LCD_Panel"
  312. $node97 setScope "name" "cl" "scopePhase"
  313.  
  314. set node98 [$diag addNode cad_class 1440.0 1024.0 120.0 104.0]
  315. $node98 setLabel "name" "AV_Equipment"
  316. $node98 setScope "name" "cl" "scopePhase"
  317.  
  318. set node85 [$diag addRake generalization $node93 $node89 1216.0 880.0 1680.0 1040.0 968.0]
  319. $node85 setLabel "name" "training material type"
  320. $node85 setScope "name" "de" "scopeSystem"
  321.  
  322. set conn103 [$node85 getInConn]
  323. set segm104 [$conn103 getFirstSegm]
  324.  
  325. set conn105 [$node85 getFirstOutConn]
  326. set segm106 [$conn105 getFirstSegm]
  327.  
  328. set conn107 [$diag addConn generalization_conn $node85 $node90 928.0 968.0 928.0 1056.0]
  329. set segm108 [$conn107 getFirstSegm]
  330.  
  331. set conn109 [$diag addConn generalization_conn $node85 $node94 1072.0 968.0 1072.0 1056.0]
  332. set segm110 [$conn109 getFirstSegm]
  333.  
  334. set conn111 [$diag addConn generalization_conn $node85 $node95 1216.0 968.0 1216.0 1056.0]
  335. set segm112 [$conn111 getFirstSegm]
  336.  
  337. set conn113 [$diag addConn generalization_conn $node85 $node96 1360.0 968.0 1360.0 1056.0]
  338. set segm114 [$conn113 getFirstSegm]
  339.  
  340. set conn115 [$diag addConn generalization_conn $node85 $node98 1504.0 968.0 1504.0 1056.0]
  341. set segm116 [$conn115 getFirstSegm]
  342.  
  343. set node86 [$diag addRake generalization $node98 $node92 1488.0 1104.0 1424.0 1280.0 1176.0]
  344.  
  345. set conn117 [$node86 getInConn]
  346. set segm118 [$conn117 getFirstSegm]
  347.  
  348. set conn119 [$node86 getFirstOutConn]
  349. set segm120 [$conn119 getFirstSegm]
  350.  
  351. set conn121 [$diag addConn generalization_conn $node86 $node97 1568.0 1176.0 1568.0 1248.0]
  352. set segm122 [$conn121 getFirstSegm]
  353.  
  354. set node87 [$diag addRake generalization $node90 $node91 928.0 1120.0 928.0 1264.0 1200.0]
  355.  
  356. set conn123 [$node87 getInConn]
  357. set segm124 [$conn123 getFirstSegm]
  358.  
  359. set conn125 [$node87 getFirstOutConn]
  360. set segm126 [$conn125 getFirstSegm]
  361.  
  362. set conn99 [$diag addConn association $node91 $node93 880.0 1280.0 1200.0 848.0]
  363. $conn99 setProp "mult_kind_end" "one"
  364. $conn99 setProp "mult_kind_start" "optional"
  365. set segm100 [$conn99 getFirstSegm]
  366. set segm101 [$conn99 addSegm 800.0 1280.0]
  367. set segm102 [$conn99 addSegm 800.0 848.0]
  368. $segm102 setLabel "name" "companion"
  369. $segm102 setScope "name" "cl" "scopeSystem"
  370.  
  371. $diag save
  372.  
  373. # Generator: et.tcl    /main/titanic/10
  374. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQFRAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  375. # Interpreter to use: Otsh V7.1.1/B6
  376. #
  377. OTShRegister::importTool
  378.  
  379. set diag [CDM new AV_Equipment "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  380.  
  381. set row127 [$diag addRow attribute 0.0]
  382. $row127 setLabel "name_type" "serial_number\n"
  383.  
  384. set row128 [$diag addRow attribute 0.0]
  385. $row128 setLabel "name_type" "repair_state"
  386.  
  387. $diag save
  388.  
  389. # Generator: et.tcl    /main/titanic/10
  390. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQFdAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  391. # Interpreter to use: Otsh V7.1.1/B6
  392. #
  393. OTShRegister::importTool
  394.  
  395. set diag [CDM new Book "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  396.  
  397. set row129 [$diag addRow attribute 0.0]
  398. $row129 setLabel "name_type" "author\n"
  399.  
  400. set row130 [$diag addRow attribute 0.0]
  401. $row130 setLabel "name_type" "publisher\n"
  402.  
  403. set row131 [$diag addRow attribute 0.0]
  404. $row131 setLabel "name_type" "ISBN\n"
  405.  
  406. set row132 [$diag addRow attribute 0.0]
  407. $row132 setLabel "name_type" "is_reference"
  408.  
  409. $diag save
  410.  
  411. # Generator: et.tcl    /main/titanic/10
  412. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQFtAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  413. # Interpreter to use: Otsh V7.1.1/B6
  414. #
  415. OTShRegister::importTool
  416.  
  417. set diag [CDM new Borrower "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  418.  
  419. set row133 [$diag addRow attribute 0.0]
  420. $row133 setLabel "name_type" "charge_number"
  421.  
  422. $diag save
  423.  
  424. # Generator: et.tcl    /main/titanic/10
  425. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQF3AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  426. # Interpreter to use: Otsh V7.1.1/B6
  427. #
  428. OTShRegister::importTool
  429.  
  430. set diag [CDM new CDROM "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  431.  
  432. set row134 [$diag addRow attribute 0.0]
  433. $row134 setLabel "name_type" "compatibility"
  434.  
  435. $diag save
  436.  
  437. # Generator: et.tcl    /main/titanic/10
  438. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQGBAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  439. # Interpreter to use: Otsh V7.1.1/B6
  440. #
  441. OTShRegister::importTool
  442.  
  443. set diag [CDM new DamageReport "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  444.  
  445. set row135 [$diag addRow attribute 0.0]
  446. $row135 setLabel "name_type" "description\n"
  447.  
  448. set row136 [$diag addRow attribute 0.0]
  449. $row136 setLabel "name_type" "is_lost"
  450.  
  451. $diag save
  452.  
  453. # Generator: et.tcl    /main/titanic/10
  454. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQGNAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  455. # Interpreter to use: Otsh V7.1.1/B6
  456. #
  457. OTShRegister::importTool
  458.  
  459. set diag [CDM new Employee "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  460.  
  461. set row137 [$diag addRow attribute 0.0]
  462. $row137 setLabel "name_type" "name\n"
  463.  
  464. set row138 [$diag addRow attribute 0.0]
  465. $row138 setLabel "name_type" "department\n"
  466.  
  467. set row139 [$diag addRow attribute 0.0]
  468. $row139 setLabel "name_type" "phone_number"
  469.  
  470. $diag save
  471.  
  472. # Generator: et.tcl    /main/titanic/10
  473. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQGbAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  474. # Interpreter to use: Otsh V7.1.1/B6
  475. #
  476. OTShRegister::importTool
  477.  
  478. set diag [CDM new Extension "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  479.  
  480. set row140 [$diag addRow attribute 0.0]
  481. $row140 setLabel "name_type" "term\n"
  482.  
  483. set row141 [$diag addRow attribute 0.0]
  484. $row141 setLabel "name_type" "is_extended"
  485.  
  486. set row142 [$diag addRow method 0.0]
  487. $row142 setLabel "name_type" "extend()"
  488. $row142 setProp "has_parmlist" "1"
  489.  
  490. $diag save
  491.  
  492. # Generator: et.tcl    /main/titanic/10
  493. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQGpAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  494. # Interpreter to use: Otsh V7.1.1/B6
  495. #
  496. OTShRegister::importTool
  497.  
  498. set diag [CDM new Inventory "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  499.  
  500. set row143 [$diag addRow attribute 0.0]
  501. $row143 setLabel "name_type" "qty_available"
  502.  
  503. $diag save
  504.  
  505. # Generator: et.tcl    /main/titanic/10
  506. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQGzAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  507. # Interpreter to use: Otsh V7.1.1/B6
  508. #
  509. OTShRegister::importTool
  510.  
  511. set diag [CDM new LCD_Panel "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  512.  
  513. set row144 [$diag addRow attribute 0.0]
  514. $row144 setLabel "name_type" "compatibility"
  515.  
  516. $diag save
  517.  
  518. # Generator: et.tcl    /main/titanic/10
  519. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQG9AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  520. # Interpreter to use: Otsh V7.1.1/B6
  521. #
  522. OTShRegister::importTool
  523.  
  524. set diag [CDM new LateFee "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  525.  
  526. set row145 [$diag addRow attribute 0.0]
  527. $row145 setLabel "name_type" "is_paid"
  528.  
  529. $diag save
  530.  
  531. # Generator: et.tcl    /main/titanic/10
  532. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQHHAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  533. # Interpreter to use: Otsh V7.1.1/B6
  534. #
  535. OTShRegister::importTool
  536.  
  537. set diag [CDM new Loan "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  538.  
  539. set row146 [$diag addRow attribute 0.0]
  540. $row146 setLabel "name_type" "*LoanID:integer\n"
  541. $row146 setProp "key" "1"
  542. $row146 setScope "name_type" "cl" "scopePhase"
  543.  
  544. set row147 [$diag addRow attribute 0.0]
  545. $row147 setLabel "name_type" "check_out_date:datetime\n"
  546. $row147 setScope "name_type" "cl" "scopePhase"
  547.  
  548. set row148 [$diag addRow attribute 0.0]
  549. $row148 setLabel "name_type" "/expire_date:datetime\n"
  550. $row148 setProp "is_derived" "1"
  551. $row148 setScope "name_type" "cl" "scopePhase"
  552.  
  553. set row149 [$diag addRow attribute 0.0]
  554. $row149 setLabel "name_type" "term:integer\n"
  555. $row149 setScope "name_type" "cl" "scopePhase"
  556.  
  557. set row150 [$diag addRow attribute 0.0]
  558. $row150 setLabel "name_type" "/due_date:datetime\n"
  559. $row150 setProp "is_derived" "1"
  560. $row150 setScope "name_type" "cl" "scopePhase"
  561.  
  562. set row151 [$diag addRow attribute 0.0]
  563. $row151 setLabel "name_type" "late_fee:real = 20.00\n"
  564. $row151 setProp "initial_value" "20.00"
  565. $row151 setScope "name_type" "cl" "scopePhase"
  566.  
  567. set row152 [$diag addRow attribute 0.0]
  568. $row152 setLabel "name_type" "status: char\[2\]\n"
  569. $row152 setScope "name_type" "cl" "scopePhase"
  570.  
  571. set row153 [$diag addRow attribute 0.0]
  572. $row153 setLabel "name_type" "attr: integer"
  573. $row153 setScope "name_type" "cl" "scopePhase"
  574.  
  575. set row154 [$diag addRow method 0.0]
  576. $row154 setLabel "name_type" "calculate_due_date(): integer\n"
  577. $row154 setProp "has_parmlist" "1"
  578. $row154 setScope "name_type" "cl" "scopePhase"
  579.  
  580. set row155 [$diag addRow method 0.0]
  581. $row155 setLabel "name_type" "calculate_expire_date(): integer"
  582. $row155 setProp "has_parmlist" "1"
  583. $row155 setScope "name_type" "cl" "scopePhase"
  584.  
  585. $diag save
  586.  
  587. # Generator: et.tcl    /main/titanic/10
  588. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQHrAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  589. # Interpreter to use: Otsh V7.1.1/B6
  590. #
  591. OTShRegister::importTool
  592.  
  593. set diag [CDM new OverheadProj "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  594.  
  595. set row156 [$diag addRow attribute 0.0]
  596. $row156 setLabel "name_type" "intensity\n"
  597.  
  598. set row157 [$diag addRow attribute 0.0]
  599. $row157 setLabel "name_type" "portability"
  600.  
  601. $diag save
  602.  
  603. # Generator: et.tcl    /main/titanic/10
  604. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQH3AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  605. # Interpreter to use: Otsh V7.1.1/B6
  606. #
  607. OTShRegister::importTool
  608.  
  609. set diag [CDM new Return "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  610.  
  611. set row158 [$diag addRow attribute 0.0]
  612. $row158 setLabel "name_type" "check_in_date"
  613.  
  614. $diag save
  615.  
  616. # Generator: et.tcl    /main/titanic/10
  617. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQIBAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  618. # Interpreter to use: Otsh V7.1.1/B6
  619. #
  620. OTShRegister::importTool
  621.  
  622. set diag [CDM new SampleProduct "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  623.  
  624. set row159 [$diag addRow attribute 0.0]
  625. $row159 setLabel "name_type" "product_name\n"
  626.  
  627. set row160 [$diag addRow attribute 0.0]
  628. $row160 setLabel "name_type" "product_type"
  629.  
  630. set row161 [$diag addRow method 0.0]
  631. $row161 setLabel "name_type" "ship()"
  632. $row161 setProp "has_parmlist" "1"
  633.  
  634. $diag save
  635.  
  636. # Generator: et.tcl    /main/titanic/10
  637. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQIPAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  638. # Interpreter to use: Otsh V7.1.1/B6
  639. #
  640. OTShRegister::importTool
  641.  
  642. set diag [CDM new Software "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  643.  
  644. set row162 [$diag addRow attribute 0.0]
  645. $row162 setLabel "name_type" "version\n"
  646.  
  647. set row163 [$diag addRow attribute 0.0]
  648. $row163 setLabel "name_type" "compatibility\n"
  649.  
  650. set row164 [$diag addRow attribute 0.0]
  651. $row164 setLabel "name_type" "format"
  652.  
  653. $diag save
  654.  
  655. # Generator: et.tcl    /main/titanic/10
  656. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQIdAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  657. # Interpreter to use: Otsh V7.1.1/B6
  658. #
  659. OTShRegister::importTool
  660.  
  661. set diag [CDM new TrainingMaterial "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  662.  
  663. set row165 [$diag addRow attribute 0.0]
  664. $row165 setLabel "name_type" "item\n"
  665.  
  666. set row166 [$diag addRow attribute 0.0]
  667. $row166 setLabel "name_type" "description"
  668.  
  669. set row167 [$diag addRow method 0.0]
  670. $row167 setLabel "name_type" "count"
  671.  
  672. $diag save
  673.  
  674. # Generator: et.tcl    /main/titanic/10
  675. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQIrAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  676. # Interpreter to use: Otsh V7.1.1/B6
  677. #
  678. OTShRegister::importTool
  679.  
  680. set diag [CDM new VCR_Tape "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  681.  
  682. set row168 [$diag addRow attribute 0.0]
  683. $row168 setLabel "name_type" "duration\n"
  684.  
  685. set row169 [$diag addRow attribute 0.0]
  686. $row169 setLabel "name_type" "rating "
  687.  
  688. $diag save
  689.  
  690. # Generator: et.tcl    /main/titanic/10
  691. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQI3AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  692. # Interpreter to use: Otsh V7.1.1/B6
  693. #
  694. OTShRegister::importTool
  695.  
  696. set diag [CDM new WaitingList "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  697.  
  698. set row170 [$diag addRow attribute 0.0]
  699. $row170 setLabel "name_type" "request_date\n"
  700.  
  701. set row171 [$diag addRow attribute 0.0]
  702. $row171 setLabel "name_type" "date_required\n"
  703.  
  704. set row172 [$diag addRow attribute 0.0]
  705. $row172 setLabel "name_type" "status"
  706.  
  707. set row173 [$diag addRow method 0.0]
  708. $row173 setLabel "name_type" "reserve"
  709.  
  710. $diag save
  711.  
  712. # Generator: et.tcl    /main/titanic/10
  713. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQJHAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  714. # Interpreter to use: Otsh V7.1.1/B6
  715. #
  716. OTShRegister::importTool
  717.  
  718. set diag [CDM new Workbook "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  719.  
  720. set row174 [$diag addRow attribute 0.0]
  721. $row174 setLabel "name_type" "price\n"
  722.  
  723. set row175 [$diag addRow attribute 0.0]
  724. $row175 setLabel "name_type" "minimum_quantity"
  725.  
  726. set row176 [$diag addRow method 0.0]
  727. $row176 setLabel "name_type" "reorder"
  728.  
  729. $diag save
  730.  
  731. # Generator: et.tcl    /main/titanic/10
  732. # Argument(s): -fGraph:Uj0DirzR9xzcAqQJXAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  733. # Interpreter to use: Otsh V7.1.1/B6
  734. #
  735. OTShRegister::importTool
  736.  
  737. set diag [ETD new WaitListing:request "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  738.  
  739. set node177 [$diag addNode etd_initiator 622.5 704.0 3.0 200.0]
  740. $node177 setLabel "name_type" ":LoanCoordinator"
  741. $node177 setScope "name_type" "cl" "scopePhase"
  742. $node177 setProp "freeText" "The loan coordinator is responsible\nfor all Training materials.\nHe loans the materials to employees\n(trainers), replaces old materials and\nkeeps a stock of materials not\nloaned." "name_type" "cl"
  743.  
  744. set node178 [$diag addNode etd_object 798.5 688.0 3.0 200.0]
  745. $node178 setLabel "name_type" ":requests"
  746. $node178 setScope "name_type" "cl" "scopePhase"
  747.  
  748. set node179 [$diag addNode etd_object 974.5 688.0 3.0 200.0]
  749. $node179 setLabel "name_type" ":stock"
  750. $node179 setScope "name_type" "cl" "scopePhase"
  751.  
  752. set node180 [$diag addNode etd_timing_constr 496.0 752.0 4.0 4.0]
  753. $node180 setLabel "timing_constraint" "If it is there\nlet me know"
  754.  
  755. set node181 [$diag addNode etd_timing_constr 496.0 832.0 4.0 4.0]
  756. $node181 setLabel "timing_constraint" "{e-s < 10 sec}"
  757.  
  758. set conn182 [$diag addConn etd_event $node177 $node178 624.0 736.0 800.0 736.0]
  759. $conn182 setLabel "timing_mark_start" "s"
  760. $conn182 setProp "msg_type" "nested"
  761. set segm183 [$conn182 getFirstSegm]
  762. $segm183 setLabel "event" "record\nrequest"
  763. $segm183 setScope "event" "pe" "scopeSystem"
  764.  
  765. set conn184 [$diag addConn etd_event $node178 $node179 800.0 768.0 976.0 768.0]
  766. $conn184 setProp "msg_type" "nested"
  767. set segm185 [$conn184 getFirstSegm]
  768. $segm185 setLabel "event" "available?"
  769. $segm185 setScope "event" "pe" "scopeSystem"
  770.  
  771. set conn186 [$diag addConn etd_event $node178 $node177 800.0 848.0 624.0 848.0]
  772. $conn186 setLabel "timing_mark_end" "e"
  773. $conn186 setProp "msg_type" "nested"
  774. set segm187 [$conn186 getFirstSegm]
  775. $segm187 setLabel "event" "acknowledge"
  776. $segm187 setScope "event" "pe" "scopeSystem"
  777.  
  778. set conn188 [$diag addConn etd_event $node179 $node178 976.0 816.0 800.0 816.0]
  779. $conn188 setProp "msg_type" "return"
  780. set segm189 [$conn188 getFirstSegm]
  781. $segm189 setLabel "event" "yes"
  782. $segm189 setScope "event" "pe" "scopeSystem"
  783.  
  784. set cono191 [$diag addCono in_scope_region $node178 798.5 688.0 5.0 199.0]
  785.  
  786. set cono190 [$diag addCono in_scope_region $node179 974.5 768.0 5.0 48.0]
  787.  
  788. $diag save
  789.  
  790. # Generator: et.tcl    /main/titanic/10
  791. # Argument(s): -fGraph:Uj0DirzR9xzcAqQJvAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  792. # Interpreter to use: Otsh V7.1.1/B6
  793. #
  794. OTShRegister::importTool
  795.  
  796. set diag [ETD new common:BorrowerRequestsExtension "Business" "Analysis" "Analysis" "Prototype" "1" "" 0]
  797.  
  798. set node192 [$diag addNode etd_object 1246.5 1072.0 3.0 84.0]
  799. $node192 setLabel "name_type" ":Extension"
  800. $node192 setScope "name_type" "cl" "scopePhase"
  801.  
  802. set node193 [$diag addNode etd_object 1390.5 928.0 3.0 73.3333]
  803. $node193 setLabel "name_type" ":WaitingList"
  804. $node193 setScope "name_type" "cl" "scopePhase"
  805.  
  806. set node194 [$diag addNode etd_object 1086.5 816.0 3.0 385.0]
  807. $node194 setLabel "name_type" ":LoanCoordinator"
  808. $node194 setScope "name_type" "cl" "scopePhase"
  809. $node194 setProp "freeText" "The loan coordinator is responsible\nfor all Training materials.\nHe loans the materials to employees\n(trainers), replaces old materials and\nkeeps a stock of materials not\nloaned." "name_type" "cl"
  810.  
  811. set node195 [$diag addNode etd_object 1454.5 816.0 3.0 381.0]
  812. $node195 setLabel "name_type" ":Loan"
  813. $node195 setScope "name_type" "cl" "scopePhase"
  814.  
  815. set node196 [$diag addNode etd_initiator 862.5 816.0 3.0 385.0]
  816. $node196 setLabel "name_type" "Mike:Borrower"
  817. $node196 setScope "name_type" "cl" "scopePhase"
  818. $node196 setScope "name_type" "de" "scopeFile"
  819.  
  820. set conn197 [$diag addConn etd_event $node193 $node194 1392.0 976.0 1088.0 976.0]
  821. set segm198 [$conn197 getFirstSegm]
  822. $segm198 setLabel "event" "item is not reserved"
  823. $segm198 setScope "event" "pe" "scopeSystem"
  824.  
  825. set conn199 [$diag addConn etd_event $node194 $node195 1088.0 848.0 1456.0 848.0]
  826. set segm200 [$conn199 getFirstSegm]
  827. $segm200 setLabel "event" "checks status of Loan"
  828. $segm200 setScope "event" "pe" "scopeSystem"
  829.  
  830. set conn201 [$diag addConn etd_event $node192 $node195 1248.0 1104.0 1456.0 1104.0]
  831. set segm202 [$conn201 getFirstSegm]
  832. $segm202 setLabel "event" "updates due date"
  833. $segm202 setScope "event" "pe" "scopeSystem"
  834.  
  835. set conn203 [$diag addConn etd_event $node194 $node196 1088.0 1184.0 864.0 1184.0]
  836. set segm204 [$conn203 getFirstSegm]
  837. $segm204 setLabel "event" "notifies new due date"
  838. $segm204 setScope "event" "pe" "scopeSystem"
  839.  
  840. set conn205 [$diag addConn etd_event $node194 $node192 1088.0 1056.0 1248.0 1056.0]
  841. $conn205 setProp "msg_action" "create"
  842. set segm206 [$conn205 getFirstSegm]
  843. $segm206 setLabel "event" "creates"
  844. $segm206 setScope "event" "pe" "scopeSystem"
  845.  
  846. set conn207 [$diag addConn etd_event $node194 $node193 1088.0 944.0 1392.0 944.0]
  847. set segm208 [$conn207 getFirstSegm]
  848. $segm208 setLabel "event" "checks WaitingList for item and date"
  849. $segm208 setScope "event" "pe" "scopeSystem"
  850.  
  851. set conn209 [$diag addConn etd_event $node195 $node194 1456.0 1184.0 1088.0 1184.0]
  852. set segm210 [$conn209 getFirstSegm]
  853. $segm210 setLabel "event" "new due date"
  854. $segm210 setScope "event" "pe" "scopeSystem"
  855.  
  856. set conn211 [$diag addConn etd_event $node196 $node194 864.0 848.0 1088.0 848.0]
  857. set segm212 [$conn211 getFirstSegm]
  858. $segm212 setLabel "event" "requests extension of Loan\n(LCD panel, until Friday)"
  859. $segm212 setScope "event" "de" "scopeFile"
  860. $segm212 setScope "event" "pe" "scopeSystem"
  861.  
  862. set conn213 [$diag addConn etd_event $node195 $node194 1456.0 864.0 1088.0 864.0]
  863. set segm214 [$conn213 getFirstSegm]
  864. $segm214 setLabel "event" "status is on_loan"
  865. $segm214 setScope "event" "pe" "scopeSystem"
  866.  
  867. set cono215 [$diag addCono in_scope_region $node192 1246.5 1072.0 5.0 84.0]
  868.  
  869. $diag save
  870.  
  871. # Generator: et.tcl    /main/titanic/10
  872. # Argument(s): -fGraph:Uj0DirzR9xzcAqQKSAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  873. # Interpreter to use: Otsh V7.1.1/B6
  874. #
  875. OTShRegister::importTool
  876.  
  877. set diag [ETD new common:Employee_requests_LCD_Panel "Business" "Analysis" "Analysis" "Prototype" "1" "" 0]
  878.  
  879. set node216 [$diag addNode etd_object 1310.5 1344.0 3.0 45.0]
  880. $node216 setLabel "name_type" "Loan"
  881. $node216 setScope "name_type" "cl" "scopePhase"
  882.  
  883. set node217 [$diag addNode etd_object 1310.5 1424.0 3.0 39.0]
  884. $node217 setLabel "name_type" "WaitingList"
  885. $node217 setScope "name_type" "cl" "scopePhase"
  886.  
  887. set node218 [$diag addNode etd_object 1502.5 884.0 3.0 49.0]
  888. $node218 setLabel "name_type" "Inventory"
  889. $node218 setScope "name_type" "cl" "scopePhase"
  890.  
  891. set node219 [$diag addNode etd_object 1320.5 1104.0 3.0 198.667]
  892. $node219 setLabel "name_type" "WaitingList"
  893. $node219 setScope "name_type" "cl" "scopePhase"
  894.  
  895. set node220 [$diag addNode etd_object 1134.5 760.0 3.0 695.0]
  896. $node220 setLabel "name_type" "LoanCoordinator"
  897. $node220 setScope "name_type" "cl" "scopePhase"
  898. $node220 setProp "freeText" "The loan coordinator is responsible\nfor all Training materials.\nHe loans the materials to employees\n(trainers), replaces old materials and\nkeeps a stock of materials not\nloaned." "name_type" "cl"
  899.  
  900. set node221 [$diag addNode etd_object 1518.5 1344.0 3.0 46.0]
  901. $node221 setLabel "name_type" "Inventory"
  902. $node221 setScope "name_type" "cl" "scopePhase"
  903.  
  904. set node222 [$diag addNode etd_object 1328.5 884.0 3.0 52.0]
  905. $node222 setLabel "name_type" "Loan"
  906. $node222 setScope "name_type" "cl" "scopePhase"
  907.  
  908. set node223 [$diag addNode etd_initiator 830.5 758.0 3.0 688.0]
  909. $node223 setLabel "name_type" "Mike:Borrower"
  910. $node223 setScope "name_type" "cl" "scopePhase"
  911. $node223 setScope "name_type" "de" "scopeSystem"
  912.  
  913. set node224 [$diag addNode etd_object 1598.5 762.0 3.0 176.0]
  914. $node224 setLabel "name_type" "TrainingMaterial"
  915. $node224 setScope "name_type" "cl" "scopePhase"
  916.  
  917. set node225 [$diag addNode etd_object 1598.5 986.0 3.0 339.0]
  918. $node225 setLabel "name_type" "TrainingMaterial"
  919. $node225 setScope "name_type" "cl" "scopePhase"
  920.  
  921. set conn226 [$diag addConn etd_event $node220 $node223 1136.0 834.0 832.0 836.0]
  922. set segm227 [$conn226 getFirstSegm]
  923. $segm227 setLabel "event" "item is available"
  924. $segm227 setScope "event" "pe" "scopeSystem"
  925.  
  926. set conn228 [$diag addConn etd_event $node220 $node223 1136.0 1042.0 832.0 1044.0]
  927. set segm229 [$conn228 getFirstSegm]
  928. $segm229 setLabel "event" "item is not available"
  929. $segm229 setScope "event" "pe" "scopeSystem"
  930.  
  931. set conn230 [$diag addConn etd_event $node220 $node223 1136.0 1234.0 832.0 1236.0]
  932. set segm231 [$conn230 getFirstSegm]
  933. $segm231 setLabel "event" "item is available"
  934. $segm231 setScope "event" "pe" "scopeSystem"
  935.  
  936. set conn232 [$diag addConn etd_event $node220 $node224 1136.0 798.0 1600.0 800.0]
  937. set segm233 [$conn232 getFirstSegm]
  938. $segm233 setLabel "event" "checks availability(LCD_Panel)"
  939. $segm233 setScope "event" "pe" "scopeSystem"
  940. $segm233 setScope "event" "de" "scopeFile"
  941.  
  942. set conn234 [$diag addConn etd_event $node220 $node225 1136.0 1002.0 1600.0 1004.0]
  943. set segm235 [$conn234 getFirstSegm]
  944. $segm235 setLabel "event" "checks availability(OverheadProj)"
  945. $segm235 setScope "event" "pe" "scopeSystem"
  946. $segm235 setScope "event" "de" "scopeFile"
  947.  
  948. set conn236 [$diag addConn etd_event $node219 $node225 1322.0 1208.0 1600.0 1208.0]
  949. set segm237 [$conn236 getFirstSegm]
  950. $segm237 setLabel "event" "checks availablity"
  951. $segm237 setScope "event" "pe" "scopeSystem"
  952.  
  953. set conn238 [$diag addConn etd_event $node220 $node216 1136.0 1360.0 1312.0 1360.0]
  954. set segm239 [$conn238 getFirstSegm]
  955. $segm239 setLabel "event" "creates"
  956. $segm239 setScope "event" "pe" "scopeSystem"
  957.  
  958. set conn240 [$diag addConn etd_event $node220 $node217 1136.0 1440.0 1312.0 1440.0]
  959. set segm241 [$conn240 getFirstSegm]
  960. $segm241 setLabel "event" "deletes"
  961. $segm241 setScope "event" "pe" "scopeSystem"
  962.  
  963. set conn242 [$diag addConn etd_event $node222 $node218 1330.0 900.0 1504.0 900.0]
  964. set segm243 [$conn242 getFirstSegm]
  965. $segm243 setLabel "event" "decrement qty"
  966. $segm243 setScope "event" "pe" "scopeSystem"
  967.  
  968. set conn244 [$diag addConn etd_event $node225 $node219 1600.0 1234.0 1322.0 1234.0]
  969. set segm245 [$conn244 getFirstSegm]
  970. $segm245 setLabel "event" "item is available"
  971. $segm245 setScope "event" "pe" "scopeSystem"
  972.  
  973. set conn246 [$diag addConn etd_event $node220 $node219 1136.0 1134.0 1322.0 1136.0]
  974. set segm247 [$conn246 getFirstSegm]
  975. $segm247 setLabel "event" "creates"
  976. $segm247 setScope "event" "pe" "scopeSystem"
  977.  
  978. set conn248 [$diag addConn etd_event $node223 $node220 832.0 798.0 1136.0 800.0]
  979. set segm249 [$conn248 getFirstSegm]
  980. $segm249 setLabel "event" "requests LCD_Panel"
  981. $segm249 setScope "event" "pe" "scopeSystem"
  982.  
  983. set conn250 [$diag addConn etd_event $node224 $node220 1600.0 834.0 1136.0 834.0]
  984. set segm251 [$conn250 getFirstSegm]
  985. $segm251 setLabel "event" "item is available"
  986. $segm251 setScope "event" "pe" "scopeSystem"
  987.  
  988. set conn252 [$diag addConn etd_event $node223 $node220 832.0 1098.0 1136.0 1098.0]
  989. set segm253 [$conn252 getFirstSegm]
  990. $segm253 setLabel "event" "place on waiting list"
  991. $segm253 setScope "event" "pe" "scopeSystem"
  992.  
  993. set conn254 [$diag addConn etd_event $node225 $node220 1600.0 1042.0 1136.0 1044.0]
  994. set segm255 [$conn254 getFirstSegm]
  995. $segm255 setLabel "event" "item is not available"
  996. $segm255 setScope "event" "pe" "scopeSystem"
  997.  
  998. set conn256 [$diag addConn etd_event $node219 $node220 1322.0 1234.0 1136.0 1236.0]
  999. set segm257 [$conn256 getFirstSegm]
  1000. $segm257 setLabel "event" "item is available"
  1001. $segm257 setScope "event" "pe" "scopeSystem"
  1002.  
  1003. set conn258 [$diag addConn etd_event $node223 $node220 832.0 1006.0 1136.0 1004.0]
  1004. set segm259 [$conn258 getFirstSegm]
  1005. $segm259 setLabel "event" "requests overhead projector"
  1006. $segm259 setScope "event" "pe" "scopeSystem"
  1007.  
  1008. set conn260 [$diag addConn etd_event $node216 $node221 1312.0 1360.0 1520.0 1360.0]
  1009. set segm261 [$conn260 getFirstSegm]
  1010. $segm261 setLabel "event" "decrement qty"
  1011. $segm261 setScope "event" "pe" "scopeSystem"
  1012.  
  1013. set conn262 [$diag addConn etd_event $node220 $node222 1136.0 900.0 1330.0 900.0]
  1014. set segm263 [$conn262 getFirstSegm]
  1015. $segm263 setLabel "event" "creates"
  1016. $segm263 setScope "event" "pe" "scopeSystem"
  1017.  
  1018. $diag save
  1019.  
  1020. # Generator: et.tcl    /main/titanic/10
  1021. # Argument(s): -fGraph:Uj0DirzR9xzcAqQKzAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  1022. # Interpreter to use: Otsh V7.1.1/B6
  1023. #
  1024. OTShRegister::importTool
  1025.  
  1026. set diag [ETD new common:WaitListdetail "Business" "Analysis" "Analysis" "Prototype" "1" "" 0]
  1027.  
  1028. set node264 [$diag addNode etd_object 862.5 672.0 3.0 120.0]
  1029. $node264 setLabel "name_type" "Loan"
  1030. $node264 setScope "name_type" "cl" "scopePhase"
  1031.  
  1032. set node265 [$diag addNode etd_initiator 654.5 672.0 3.0 120.0]
  1033. $node265 setLabel "name_type" "WaitList"
  1034. $node265 setScope "name_type" "cl" "scopePhase"
  1035.  
  1036. set conn266 [$diag addConn etd_event $node265 $node264 656.0 720.0 864.0 720.0]
  1037. set segm267 [$conn266 getFirstSegm]
  1038. $segm267 setLabel "event" "check availability"
  1039. $segm267 setScope "event" "pe" "scopeSystem"
  1040.  
  1041. $diag save
  1042.  
  1043. # Generator: et.tcl    /main/titanic/10
  1044. # Argument(s): -fGraph:Uj0DirzR9xzcAqQLBAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  1045. # Interpreter to use: Otsh V7.1.1/B6
  1046. #
  1047. OTShRegister::importTool
  1048.  
  1049. set diag [STD new Loan:top "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  1050.  
  1051. set node268 [$diag addNode state 1344.0 1088.0 172.0 96.0001]
  1052. $node268 setLabel "name" "On Loan"
  1053.  
  1054. set node269 [$diag addNode state 1344.0 1344.0 270.667 81.3334]
  1055. $node269 setLabel "name" "Returned"
  1056.  
  1057. set node270 [$diag addNode state 1344.0 880.0 276.0 96.0001]
  1058. $node270 setLabel "name" "Reserved"
  1059.  
  1060. set node271 [$diag addNode final_state 866.0 1474.0 28.0 28.0]
  1061. $node271 setLabel "name" "Damaged"
  1062.  
  1063. set node272 [$diag addNode std_class 868.0 924.0 120.0 40.0]
  1064. $node272 setLabel "name" "Loan\nCoordinator"
  1065. $node272 setScope "name" "cl" "scopePhase"
  1066. $node272 setProp "freeText" "The loan coordinator is responsible\nfor all Training materials.\nHe loans the materials to employees\n(trainers), replaces old materials and\nkeeps a stock of materials not\nloaned." "name" "cl"
  1067.  
  1068. set node273 [$diag addNode final_state 1106.0 1474.0 28.0 28.0]
  1069. $node273 setLabel "name" "Lost"
  1070.  
  1071. set node274 [$diag addNode state 816.0 1344.0 170.667 66.6668]
  1072. $node274 setLabel "name" "Damaged"
  1073.  
  1074. set node275 [$diag addNode state 1008.0 1120.0 165.334 66.6668]
  1075. $node275 setLabel "name" "Overdue"
  1076.  
  1077. set node276 [$diag addNode final_state 1058.0 1218.0 28.0 28.0]
  1078.  
  1079. set node277 [$diag addNode state 1072.0 1344.0 134.667 66.6668]
  1080. $node277 setLabel "name" "Lost"
  1081.  
  1082. set node278 [$diag addNode final_state 1394.0 1474.0 28.0 28.0]
  1083. $node278 setLabel "name" "Done"
  1084.  
  1085. set node279 [$diag addNode start_state 1401.0 809.0 14.0 14.0]
  1086.  
  1087. set node280 [$diag addNode super_state 925.0 1049.0 710.0 206.0]
  1088. $node280 setLabel "name" "Checked out"
  1089.  
  1090. set conn284 [$diag addConn transition $node280 $node274 949.0 1152.0 864.0 1360.0]
  1091. $conn284 setLabel "event" "check_in"
  1092. $conn284 setLabel "condition" "\[is_damaged=true\]"
  1093. set segm285 [$conn284 getFirstSegm]
  1094. set segm286 [$conn284 addSegm 864.0 1152.0]
  1095. set segm287 [$conn284 addSegm 864.0 1216.0]
  1096. $segm287 setLabel "editor_only" " "
  1097.  
  1098. set conn288 [$diag addConn transition $node279 $node270 1408.0 816.0 1408.0 896.0]
  1099. set segm289 [$conn288 getFirstSegm]
  1100. $segm289 setLabel "editor_only" " "
  1101.  
  1102. set conn290 [$diag addConn transition $node280 $node269 1408.0 1248.0 1408.0 1360.0]
  1103. $conn290 setLabel "event" "check_in"
  1104. set segm291 [$conn290 getFirstSegm]
  1105. $segm291 setLabel "editor_only" " "
  1106.  
  1107. set conn292 [$diag addConn transition $node269 $node278 1408.0 1408.0 1408.0 1488.0]
  1108. set segm293 [$conn292 getFirstSegm]
  1109. $segm293 setLabel "editor_only" " "
  1110.  
  1111. set conn294 [$diag addConn transition $node270 $node268 1408.0 928.0 1408.0 1136.0]
  1112. $conn294 setLabel "event" "check_out"
  1113. set segm295 [$conn294 getFirstSegm]
  1114. $segm295 setLabel "editor_only" " "
  1115.  
  1116. set conn296 [$diag addConn transition $node270 $node269 1456.0 912.0 1424.0 1376.0]
  1117. $conn296 setLabel "event" "reservation expired"
  1118. set segm297 [$conn296 getFirstSegm]
  1119. $segm297 setLabel "editor_only" " "
  1120. set segm298 [$conn296 addSegm 1776.0 912.0]
  1121. set segm299 [$conn296 addSegm 1776.0 1376.0]
  1122.  
  1123. set conn300 [$diag addConn transition $node274 $node271 880.0 1408.0 880.0 1488.0]
  1124. set segm301 [$conn300 getFirstSegm]
  1125. $segm301 setLabel "editor_only" " "
  1126.  
  1127. set conn302 [$diag addConn transition $node277 $node273 1120.0 1408.0 1120.0 1488.0]
  1128. set segm303 [$conn302 getFirstSegm]
  1129. $segm303 setLabel "editor_only" " "
  1130.  
  1131. set conn304 [$diag addConn transition $node268 $node275 1360.0 1152.0 1072.0 1152.0]
  1132. $conn304 setLabel "event" "due_date_exceeded"
  1133. set segm305 [$conn304 getFirstSegm]
  1134. $segm305 setLabel "editor_only" " "
  1135.  
  1136. set conn306 [$diag addConn transition $node268 $node276 1408.0 1184.0 1072.0 1232.0]
  1137. set segm307 [$conn306 getFirstSegm]
  1138. set segm308 [$conn306 addSegm 1408.0 1232.0]
  1139. $segm308 setLabel "editor_only" " "
  1140.  
  1141. set conn309 [$diag addConn transition $node275 $node276 1072.0 1184.0 1072.0 1232.0]
  1142. set segm310 [$conn309 getFirstSegm]
  1143. $segm310 setLabel "editor_only" " "
  1144.  
  1145. set conn311 [$diag addConn transition $node280 $node277 1136.0 1248.0 1136.0 1360.0]
  1146. $conn311 setLabel "event" "check_in"
  1147. $conn311 setLabel "condition" "\[is_lost=true\]"
  1148. set segm312 [$conn311 getFirstSegm]
  1149. $segm312 setLabel "editor_only" " "
  1150.  
  1151. set conn313 [$diag addConn transition $node268 $node268 1488.0 1152.0 1456.0 1184.0]
  1152. $conn313 setLabel "event" "loan extended"
  1153. set segm314 [$conn313 getFirstSegm]
  1154. set segm315 [$conn313 addSegm 1584.0 1152.0]
  1155. $segm315 setLabel "editor_only" " "
  1156. set segm316 [$conn313 addSegm 1584.0 1232.0]
  1157. set segm317 [$conn313 addSegm 1456.0 1232.0]
  1158.  
  1159. set conn281 [$diag addConn event_msg $segm305 $node272 1216.0 1152.0 976.0 944.0]
  1160. set segm282 [$conn281 getFirstSegm]
  1161. set segm283 [$conn281 addSegm 1216.0 944.0]
  1162. $segm283 setLabel "event" "loan is overdue"
  1163.  
  1164. set cono321 [$node268 addStateAction]
  1165. $cono321 setLabel "action" "/status=on loan\n"
  1166. $cono321 setLabel "event" "entry"
  1167. $cono321 setScope "action" "de" "scopeSystem"
  1168. $cono321 setScope "event" "rs" "scopeSystem"
  1169.  
  1170. set cono323 [$node269 addStateAction]
  1171. $cono323 setLabel "action" "/increment item quantity available\n"
  1172. $cono323 setLabel "event" "entry"
  1173. $cono323 setScope "event" "rs" "scopeSystem"
  1174.  
  1175. set cono325 [$node270 addStateAction]
  1176. $cono325 setLabel "action" "/decrement item quantity available\n"
  1177. $cono325 setLabel "event" "entry"
  1178. $cono325 setScope "event" "rs" "scopeSystem"
  1179.  
  1180. set cono326 [$node274 addStateAction]
  1181. $cono326 setLabel "action" "/status=damaged"
  1182. $cono326 setLabel "event" "entry"
  1183. $cono326 setScope "action" "de" "scopeSystem"
  1184. $cono326 setScope "event" "rs" "scopeSystem"
  1185.  
  1186. set cono327 [$node275 addStateAction]
  1187. $cono327 setLabel "action" "/status=overdue"
  1188. $cono327 setLabel "event" "entry"
  1189. $cono327 setScope "action" "de" "scopeSystem"
  1190. $cono327 setScope "event" "rs" "scopeSystem"
  1191.  
  1192. set cono328 [$node277 addStateAction]
  1193. $cono328 setLabel "action" "/status=lost"
  1194. $cono328 setLabel "event" "entry"
  1195. $cono328 setScope "action" "de" "scopeSystem"
  1196. $cono328 setScope "event" "rs" "scopeSystem"
  1197.  
  1198. set cono320 [$node268 addActivity]
  1199. $cono320 setLabel "name" "do: calculate due_date\n"
  1200.  
  1201. set cono322 [$node269 addStateAction]
  1202. $cono322 setLabel "action" "/status=returned"
  1203. $cono322 setLabel "event" "entry"
  1204. $cono322 setScope "action" "de" "scopeSystem"
  1205. $cono322 setScope "event" "rs" "scopeSystem"
  1206.  
  1207. set cono324 [$node270 addStateAction]
  1208. $cono324 setLabel "action" "/status=reserved\n"
  1209. $cono324 setLabel "event" "entry"
  1210. $cono324 setScope "action" "de" "scopeSystem"
  1211. $cono324 setScope "event" "rs" "scopeSystem"
  1212.  
  1213. set cono318 [$node270 addActivity]
  1214. $cono318 setLabel "name" "do:check expire date"
  1215.  
  1216. set cono319 [$node268 addActivity]
  1217. $cono319 setLabel "name" "do: check due_date"
  1218.  
  1219. $diag save
  1220.  
  1221. # Generator: et.tcl    /main/titanic/10
  1222. # Argument(s): -fGraph:Uj0DirzR9xzcAqQMHAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  1223. # Interpreter to use: Otsh V7.1.1/B6
  1224. #
  1225. OTShRegister::importTool
  1226.  
  1227. set diag [STD new WaitingList:top "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  1228.  
  1229. set node329 [$diag addNode std_class 836.0 1068.0 120.0 40.0]
  1230. $node329 setLabel "name" "Loan\nCoordinator"
  1231. $node329 setScope "name" "cl" "scopePhase"
  1232. $node329 setProp "freeText" "The loan coordinator is responsible\nfor all Training materials.\nHe loans the materials to employees\n(trainers), replaces old materials and\nkeeps a stock of materials not\nloaned." "name" "cl"
  1233.  
  1234. set node330 [$diag addNode state 1104.0 928.0 173.333 73.3333]
  1235. $node330 setLabel "name" "Waiting"
  1236.  
  1237. set node331 [$diag addNode state 1104.0 1344.0 133.333 58.6667]
  1238. $node331 setLabel "name" "Not Waiting"
  1239.  
  1240. set node332 [$diag addNode state 1104.0 1136.0 160.0 73.3333]
  1241. $node332 setLabel "name" "Reserved"
  1242.  
  1243. set node333 [$diag addNode final_state 1554.0 1362.0 28.0 28.0]
  1244. $node333 setLabel "name" "Done"
  1245.  
  1246. set node334 [$diag addNode start_state 1177.0 809.0 14.0 14.0]
  1247.  
  1248. set node335 [$diag addNode state 1504.0 1136.0 154.667 73.3333]
  1249. $node335 setLabel "name" "Expired"
  1250.  
  1251. set conn338 [$diag addConn transition $node330 $node332 1184.0 976.0 1184.0 1168.0]
  1252. $conn338 setLabel "event" "item is available\n"
  1253. set segm339 [$conn338 getFirstSegm]
  1254. $segm339 setLabel "editor_only" " "
  1255.  
  1256. set conn340 [$diag addConn transition $node332 $node331 1184.0 1200.0 1184.0 1360.0]
  1257. $conn340 setLabel "event" "item is checked_out"
  1258. set segm341 [$conn340 getFirstSegm]
  1259. $segm341 setLabel "editor_only" " "
  1260.  
  1261. set conn342 [$diag addConn transition $node334 $node330 1184.0 816.0 1184.0 944.0]
  1262. set segm343 [$conn342 getFirstSegm]
  1263. $segm343 setLabel "editor_only" " "
  1264.  
  1265. set conn344 [$diag addConn transition $node332 $node335 1264.0 1168.0 1504.0 1168.0]
  1266. $conn344 setLabel "event" "reservation date has expired"
  1267. set segm345 [$conn344 getFirstSegm]
  1268. $segm345 setLabel "editor_only" " "
  1269.  
  1270. set conn346 [$diag addConn transition $node330 $node335 1248.0 960.0 1568.0 1168.0]
  1271. $conn346 setLabel "event" "date required has expired"
  1272. set segm347 [$conn346 getFirstSegm]
  1273. set segm348 [$conn346 addSegm 1568.0 960.0]
  1274. $segm348 setLabel "editor_only" " "
  1275.  
  1276. set conn349 [$diag addConn transition $node335 $node333 1568.0 1200.0 1568.0 1376.0]
  1277. set segm350 [$conn349 getFirstSegm]
  1278. $segm350 setLabel "editor_only" " "
  1279.  
  1280. set conn351 [$diag addConn transition $node331 $node333 1216.0 1376.0 1568.0 1376.0]
  1281. set segm352 [$conn351 getFirstSegm]
  1282. $segm352 setLabel "editor_only" " "
  1283.  
  1284. set conn336 [$diag addConn event_msg $segm339 $node329 1184.0 1088.0 944.0 1088.0]
  1285. set segm337 [$conn336 getFirstSegm]
  1286. $segm337 setLabel "event" "item is available"
  1287.  
  1288. set cono356 [$node335 addStateAction]
  1289. $cono356 setLabel "action" "/status='expired'\n"
  1290. $cono356 setLabel "event" "entry"
  1291. $cono356 setScope "action" "de" "scopeSystem"
  1292. $cono356 setScope "event" "rs" "scopeSystem"
  1293.  
  1294. set cono357 [$node331 addStateAction]
  1295. $cono357 setLabel "action" "/status=done"
  1296. $cono357 setLabel "event" "entry"
  1297. $cono357 setScope "action" "de" "scopeSystem"
  1298. $cono357 setScope "event" "rs" "scopeSystem"
  1299.  
  1300. set cono358 [$node332 addStateAction]
  1301. $cono358 setLabel "action" "/status=reserved\n"
  1302. $cono358 setLabel "event" "entry"
  1303. $cono358 setScope "action" "de" "scopeSystem"
  1304. $cono358 setScope "event" "rs" "scopeSystem"
  1305.  
  1306. set cono359 [$node330 addStateAction]
  1307. $cono359 setLabel "action" "/status=waiting\n"
  1308. $cono359 setLabel "event" "entry"
  1309. $cono359 setScope "action" "de" "scopeSystem"
  1310. $cono359 setScope "event" "rs" "scopeSystem"
  1311.  
  1312. set cono353 [$node335 addActivity]
  1313. $cono353 setLabel "name" "do:expired loan"
  1314.  
  1315. set cono354 [$node332 addActivity]
  1316. $cono354 setLabel "name" "do:reserve item"
  1317.  
  1318. set cono355 [$node330 addActivity]
  1319. $cono355 setLabel "name" "do:check item availability"
  1320.  
  1321. $diag save
  1322.  
  1323. # Generator: et.tcl    /main/titanic/10
  1324. # Argument(s): -fGraph:Uj0DirzR9xzcAqQMzAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  1325. # Interpreter to use: Otsh V7.1.1/B6
  1326. #
  1327. OTShRegister::importTool
  1328.  
  1329. set diag [UCD new Lending "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  1330.  
  1331. set node360 [$diag addNode use_case 1124.0 1228.0 120.0 40.0]
  1332. $node360 setLabel "name" "Item is Lost"
  1333. $node360 setScope "name" "cl" "scopePhase"
  1334.  
  1335. set node361 [$diag addNode use_case 981.333 1228.0 117.333 40.0]
  1336. $node361 setLabel "name" "Item is \nDamaged"
  1337. $node361 setScope "name" "cl" "scopePhase"
  1338.  
  1339. set node362 [$diag addNode use_case 1044.0 1068.0 120.0 40.0]
  1340. $node362 setLabel "name" "Extend Loan"
  1341. $node362 setProp "basic_action" "The borrower checks out an item that has been \nreserved. The normal sequence proceeds as \nfollows:\n1) Borrower (B) gives LoanCoordinator (LC) his Borrower.name and \nLoan.loan_date.\n2) LC retrieves B's Loan record.\n3) If the Loan.status = reserved, LC changes the status to \non loan and updates Loan. If status != reserved, see Alternate Action.\n4) LC fetches TrainingMaterial.item from inventory and gives it to B.\n"
  1342. $node362 setProp "uc_precondition" "The Loan can be extended only if the item is not on the WaitingList."
  1343. $node362 setScope "name" "cl" "scopePhase"
  1344. $node362 setProp "classification" "secondary" "name" "cl"
  1345.  
  1346. set node363 [$diag addNode ucd_actor 801.0 1063.0 30.0 50.0]
  1347. $node363 setLabel "name" "Inventory"
  1348. $node363 setScope "name" "cl" "scopePhase"
  1349.  
  1350. set node364 [$diag addNode ucd_actor 1361.0 967.0 30.0 50.0]
  1351. $node364 setLabel "name" "Borrower"
  1352. $node364 setScope "name" "cl" "scopePhase"
  1353.  
  1354. set node365 [$diag addNode use_case 1046.67 889.333 114.667 45.3334]
  1355. $node365 setLabel "name" "Reserve"
  1356. $node365 setProp "basic_action" "The borrower checks out an item that has been \nreserved. The normal sequence proceeds as \nfollows:\n1) Borrower (B) gives LoanCoordinator (LC) his Borrower.name and \nLoan.loan_date.\n2) LC retrieves B's Loan record.\n3) If the Loan.status = reserved, LC changes the status to \non loan and updates Loan. If status != reserved, see Alternate Action.\n4) LC fetches TrainingMaterial.item from inventory and gives it to B."
  1357. $node365 setScope "name" "cl" "scopePhase"
  1358.  
  1359. set node366 [$diag addNode use_case 1046.67 793.333 114.667 45.3334]
  1360. $node366 setLabel "name" "Wait Listing"
  1361. $node366 setScope "name" "cl" "scopePhase"
  1362.  
  1363. set node367 [$diag addNode use_case 1050.67 970.667 106.667 42.6666]
  1364. $node367 setLabel "name" "Check Out"
  1365. $node367 setProp "basic_action" "The borrower checks out an item that has been \nreserved. The normal sequence proceeds as \nfollows:\n1) Borrower (B) gives LoanCoordinator (LC) his Borrower.name and \nLoan.loan_date.\n2) LC retrieves B's Loan record.\n3) If the Loan.status = reserved, LC changes the status to \non loan and updates Loan. If status != reserved, see Alternate Action.\n4) LC fetches TrainingMaterial.item from inventory and gives it to B.\n"
  1366. $node367 setScope "name" "cl" "scopePhase"
  1367.  
  1368. set node368 [$diag addNode use_case 1049.33 1130.67 109.333 42.6666]
  1369. $node368 setLabel "name" "Check In"
  1370. $node368 setProp "basic_action" "The borrower checks in a borrowed item. The normal sequence proceeds \nas follows:\n1) Borrower (B) gives LoanCoordinator (LC) his Borrower.name and \nthe borrowed item.\n2) LC retrieves the TM's Loan record.\n3) If the Loan.status = on loan, LC changes the status to \nreturned and updates Loan. If status != overdue, see Alternate Action.\nIf the item is damaged, see Alternate Action.\nIf the item is lost, see Alternate Action."
  1371. $node368 setScope "name" "cl" "scopePhase"
  1372.  
  1373. set node369 [$diag addNode ucd_actor 801.0 887.0 30.0 50.0]
  1374. $node369 setLabel "name" "LoanCoordinator"
  1375. $node369 setScope "name" "cl" "scopePhase"
  1376. $node369 setProp "freeText" "The loan coordinator is responsible\nfor all Training materials.\nHe loans the materials to employees\n(trainers), replaces old materials and\nkeeps a stock of materials not\nloaned." "name" "cl"
  1377.  
  1378. set node370 [$diag addNode note 1280.0 832.0 210.667 62.6668]
  1379. $node370 setLabel "note_text" "Open this use case\nto see sequence diagram\n(double click)"
  1380.  
  1381. set conn371 [$diag addConn und_com_assoc $node365 $node369 1104.0 912.0 816.0 912.0]
  1382. set segm372 [$conn371 getFirstSegm]
  1383.  
  1384. set conn373 [$diag addConn use_case_gen $node365 $node366 1104.0 912.0 1104.0 816.0]
  1385. $conn373 setProp "gen_stereotype" "uses"
  1386. set segm374 [$conn373 getFirstSegm]
  1387.  
  1388. set conn375 [$diag addConn use_case_gen $node362 $node367 1104.0 1088.0 1104.0 992.0]
  1389. $conn375 setProp "gen_stereotype" "extends"
  1390. set segm376 [$conn375 getFirstSegm]
  1391.  
  1392. set conn377 [$diag addConn use_case_gen $node361 $node368 1040.0 1248.0 1104.0 1152.0]
  1393. $conn377 setProp "gen_stereotype" "extends"
  1394. set segm378 [$conn377 getFirstSegm]
  1395.  
  1396. set conn379 [$diag addConn use_case_gen $node360 $node368 1184.0 1248.0 1104.0 1152.0]
  1397. $conn379 setProp "gen_stereotype" "extends"
  1398. set segm380 [$conn379 getFirstSegm]
  1399.  
  1400. set conn381 [$diag addConn dir_com_assoc $node365 $node364 1104.0 912.0 1376.0 976.0]
  1401. set segm382 [$conn381 getFirstSegm]
  1402. $segm382 setLabel "name" "confirm"
  1403. $segm382 setScope "name" "pe" "scopeSystem"
  1404.  
  1405. set conn383 [$diag addConn dir_com_assoc $node364 $node368 1373.0 987.0 1104.0 1152.0]
  1406. set segm384 [$conn383 getFirstSegm]
  1407. $segm384 setLabel "name" "item"
  1408. $segm384 setScope "name" "pe" "scopeSystem"
  1409.  
  1410. set conn385 [$diag addConn und_com_assoc $node364 $node367 1376.0 992.0 1104.0 992.0]
  1411. set segm386 [$conn385 getFirstSegm]
  1412. $segm386 setLabel "name" "check out"
  1413. $segm386 setScope "name" "pe" "scopeSystem"
  1414.  
  1415. set conn387 [$diag addConn dir_com_assoc $node368 $node363 1104.0 1152.0 831.0 1104.0]
  1416. set segm388 [$conn387 getFirstSegm]
  1417. $segm388 setLabel "name" "item"
  1418. $segm388 setScope "name" "pe" "scopeSystem"
  1419.  
  1420. set conn389 [$diag addConn dir_com_assoc $node363 $node367 831.0 1067.0 1104.0 992.0]
  1421. set segm390 [$conn389 getFirstSegm]
  1422. $segm390 setLabel "name" "item"
  1423. $segm390 setScope "name" "pe" "scopeSystem"
  1424.  
  1425. set conn391 [$diag addConn dir_com_assoc $node369 $node367 831.0 923.0 1104.0 992.0]
  1426. set segm392 [$conn391 getFirstSegm]
  1427.  
  1428. set conn393 [$diag addConn note_conn $node366 $node370 1104.0 816.0 1376.0 864.0]
  1429. set segm394 [$conn393 getFirstSegm]
  1430.  
  1431. $diag save
  1432.  
  1433. # Generator: et.tcl    /main/titanic/10
  1434. # Argument(s): -fGraph:Uj0DirzR9xzcAqQNPAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  1435. # Interpreter to use: Otsh V7.1.1/B6
  1436. #
  1437. OTShRegister::importTool
  1438.  
  1439. set diag [UCD new Overview-UseCase "Business" "Analysis" "Analysis" "Prototype" "1" "" 1]
  1440.  
  1441. set node395 [$diag addNode note 352.0 480.0 156.0 62.6668]
  1442. $node395 setLabel "note_text" "Main use cases\nfor the Training-\nmaterials application"
  1443.  
  1444. set node396 [$diag addNode note 976.0 512.0 184.0 62.6668]
  1445. $node396 setLabel "note_text" "Open this use case\nto see next use case\n(double click)"
  1446.  
  1447. set node397 [$diag addNode ucd_actor 465.0 903.0 30.0 50.0]
  1448. $node397 setLabel "name" "Loan Coordinator"
  1449. $node397 setProp "initiator" "1"
  1450. $node397 setScope "name" "cl" "scopePhase"
  1451. $node397 setProp "freeText" "The loan coordinator is responsible\nfor all Training materials.\nHe loans the materials to employees\n(trainers), replaces old materials and\nkeeps a stock of materials not\nloaned." "name" "cl"
  1452.  
  1453. set node398 [$diag addNode ucd_actor 993.0 663.0 30.0 50.0]
  1454. $node398 setLabel "name" "Employee"
  1455. $node398 setProp "initiator" "1"
  1456. $node398 setScope "name" "cl" "scopePhase"
  1457.  
  1458. set node399 [$diag addNode ucd_actor 465.0 663.0 30.0 50.0]
  1459. $node399 setLabel "name" "Loan Coordinator"
  1460. $node399 setScope "name" "cl" "scopePhase"
  1461. $node399 setProp "freeText" "The loan coordinator is responsible\nfor all Training materials.\nHe loans the materials to employees\n(trainers), replaces old materials and\nkeeps a stock of materials not\nloaned." "name" "cl"
  1462.  
  1463. set node400 [$diag addNode ucd_actor 993.0 855.0 30.0 50.0]
  1464. $node400 setLabel "name" "Training Department"
  1465. $node400 setProp "initiator" "1"
  1466. $node400 setScope "name" "cl" "scopePhase"
  1467.  
  1468. set node401 [$diag addNode use_case 692.0 898.667 152.0 58.6666]
  1469. $node401 setLabel "name" "Managing \nMaterials"
  1470. $node401 setScope "name" "cl" "scopePhase"
  1471.  
  1472. set node402 [$diag addNode use_case 688.0 770.667 160.0 58.6666]
  1473. $node402 setLabel "name" "Tracking Loans\n& Reporting"
  1474. $node402 setScope "name" "cl" "scopePhase"
  1475.  
  1476. set node403 [$diag addNode use_case 697.333 656.0 141.333 64.0]
  1477. $node403 setLabel "name" "Selling \ncompanion\nworkbooks"
  1478. $node403 setScope "name" "cl" "scopePhase"
  1479.  
  1480. set node404 [$diag addNode use_case 678.667 532.0 178.667 56.0]
  1481. $node404 setLabel "name" "Lending"
  1482. $node404 setScope "name" "cl" "scopePhase"
  1483.  
  1484. set node405 [$diag addNode note 336.0 784.0 201.334 48.0001]
  1485. $node405 setLabel "note_text" "Show properties\nto see text (description)"
  1486.  
  1487. set conn408 [$diag addConn dir_com_assoc $node402 $node398 768.0 800.0 1021.0 683.0]
  1488. set segm409 [$conn408 getFirstSegm]
  1489.  
  1490. set conn410 [$diag addConn dir_com_assoc $node397 $node401 495.0 928.0 768.0 928.0]
  1491. set segm411 [$conn410 getFirstSegm]
  1492.  
  1493. set conn412 [$diag addConn dir_com_assoc $node399 $node403 480.0 688.0 768.0 688.0]
  1494. set segm413 [$conn412 getFirstSegm]
  1495.  
  1496. set conn414 [$diag addConn dir_com_assoc $node398 $node404 1008.0 688.0 768.0 560.0]
  1497. set segm415 [$conn414 getFirstSegm]
  1498.  
  1499. set conn416 [$diag addConn dir_com_assoc $node399 $node404 474.333 683.0 768.0 560.0]
  1500. set segm417 [$conn416 getFirstSegm]
  1501.  
  1502. set conn418 [$diag addConn use_case_gen $node401 $node402 768.0 928.0 768.0 800.0]
  1503. set segm419 [$conn418 getFirstSegm]
  1504.  
  1505. set conn420 [$diag addConn dir_com_assoc $node402 $node399 768.0 800.0 490.333 699.0]
  1506. set segm421 [$conn420 getFirstSegm]
  1507.  
  1508. set conn422 [$diag addConn dir_com_assoc $node403 $node398 768.0 688.0 1008.0 688.0]
  1509. set segm423 [$conn422 getFirstSegm]
  1510.  
  1511. set conn424 [$diag addConn use_case_gen $node404 $node403 768.0 560.0 768.0 688.0]
  1512. set segm425 [$conn424 getFirstSegm]
  1513.  
  1514. set conn426 [$diag addConn und_com_assoc $node402 $node400 768.0 800.0 1023.0 875.0]
  1515. set segm427 [$conn426 getFirstSegm]
  1516. $segm427 setLabel "name" "Reports"
  1517. $segm427 setScope "name" "pe" "scopeSystem"
  1518.  
  1519. set conn406 [$diag addConn note_conn $node396 $node404 1008.0 528.0 768.0 560.0]
  1520. set segm407 [$conn406 getFirstSegm]
  1521.  
  1522. set conn428 [$diag addConn note_conn $node405 $node397 448.0 816.0 480.0 928.0]
  1523. set segm429 [$conn428 getFirstSegm]
  1524.  
  1525. $diag save
  1526.  
  1527. # Generator: et.tcl    /main/titanic/10
  1528. # Argument(s): -fGraph:Uj0DirzR9xzcAqQfEAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  1529. # Interpreter to use: Otsh V7.1.1/B6
  1530. #
  1531. OTShRegister::importTool
  1532.  
  1533. set diag [CAD new Client-Server_Architecture "Architecture" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  1534.  
  1535. set node3 [$diag addNode cad_class 768.0 1200.0 120.0 32.0]
  1536. $node3 setLabel "name" "UI"
  1537. $node3 setProp "is_folded" "1"
  1538. $node3 setScope "name" "cl" "scopePhase"
  1539.  
  1540. set node4 [$diag addNode cad_class 896.0 912.0 120.0 32.0]
  1541. $node4 setLabel "name" "Client-Host"
  1542. $node4 setProp "is_folded" "1"
  1543. $node4 setScope "name" "cl" "scopePhase"
  1544.  
  1545. set node5 [$diag addNode cad_class 1216.0 1056.0 120.0 48.0]
  1546. $node5 setLabel "name" "Response_\nManager"
  1547. $node5 setProp "is_folded" "1"
  1548. $node5 setScope "name" "cl" "scopePhase"
  1549.  
  1550. set node6 [$diag addNode cad_class 1408.0 1200.0 120.0 48.0]
  1551. $node6 setLabel "name" "Numerical_\nCalcs"
  1552. $node6 setProp "is_folded" "1"
  1553. $node6 setScope "name" "cl" "scopePhase"
  1554.  
  1555. set node7 [$diag addNode cad_class 1536.0 1056.0 120.0 48.0]
  1556. $node7 setLabel "name" "Database_\nServer"
  1557. $node7 setProp "is_folded" "1"
  1558. $node7 setScope "name" "cl" "scopePhase"
  1559.  
  1560. set node8 [$diag addNode more_classes 900.0 1196.0 120.0 40.0]
  1561.  
  1562. set node9 [$diag addNode cad_class 1168.0 800.0 120.0 32.0]
  1563. $node9 setLabel "name" "Application"
  1564. $node9 setProp "is_folded" "1"
  1565. $node9 setScope "name" "cl" "scopePhase"
  1566.  
  1567. set node10 [$diag addNode cad_class 1360.0 912.0 120.0 32.0]
  1568. $node10 setLabel "name" "Server-Host"
  1569. $node10 setProp "is_folded" "1"
  1570. $node10 setScope "name" "cl" "scopePhase"
  1571.  
  1572. set node11 [$diag addNode cad_class 1360.0 1056.0 120.0 48.0]
  1573. $node11 setLabel "name" "Server_\nPartition"
  1574. $node11 setProp "is_folded" "1"
  1575. $node11 setScope "name" "cl" "scopePhase"
  1576.  
  1577. set node12 [$diag addNode cad_class 1552.0 1200.0 120.0 64.0]
  1578. $node12 setLabel "name" "Combine\nfiles with\nDB_Data"
  1579. $node12 setProp "is_folded" "1"
  1580. $node12 setScope "name" "cl" "scopePhase"
  1581.  
  1582. set node13 [$diag addNode cad_class 816.0 1056.0 120.0 48.0]
  1583. $node13 setLabel "name" "Client_\nPartition"
  1584. $node13 setProp "is_folded" "1"
  1585. $node13 setScope "name" "cl" "scopePhase"
  1586.  
  1587. set node14 [$diag addNode cad_class 976.0 1056.0 120.0 48.0]
  1588. $node14 setLabel "name" "Request_\nManager"
  1589. $node14 setProp "is_folded" "1"
  1590. $node14 setScope "name" "cl" "scopePhase"
  1591.  
  1592. set node15 [$diag addNode cad_class 1120.0 1200.0 120.0 48.0]
  1593. $node15 setLabel "name" "Report_\nGenerator"
  1594. $node15 setProp "is_folded" "1"
  1595. $node15 setScope "name" "cl" "scopePhase"
  1596.  
  1597. set node16 [$diag addNode cad_class 1264.0 1200.0 120.0 32.0]
  1598. $node16 setLabel "name" "UI"
  1599. $node16 setProp "is_folded" "1"
  1600. $node16 setScope "name" "cl" "scopePhase"
  1601.  
  1602. set node1 [$diag addRake generalization $node13 $node3 880.0 1088.0 832.0 1216.0 1151.5]
  1603.  
  1604. set conn47 [$node1 getInConn]
  1605. set segm48 [$conn47 getFirstSegm]
  1606.  
  1607. set conn49 [$node1 getFirstOutConn]
  1608. set segm50 [$conn49 getFirstSegm]
  1609.  
  1610. set conn51 [$diag addConn generalization_conn $node1 $node8 960.0 1151.5 960.0 1216.0]
  1611. set segm52 [$conn51 getFirstSegm]
  1612.  
  1613. set node2 [$diag addRake generalization $node11 $node6 1424.0 1088.0 1472.0 1232.0 1160.0]
  1614. $node2 setLabel "name" "partition_type"
  1615. $node2 setScope "name" "de" "scopeSystem"
  1616.  
  1617. set conn53 [$node2 getInConn]
  1618. set segm54 [$conn53 getFirstSegm]
  1619.  
  1620. set conn55 [$node2 getFirstOutConn]
  1621. set segm56 [$conn55 getFirstSegm]
  1622.  
  1623. set conn57 [$diag addConn generalization_conn $node2 $node12 1616.0 1160.0 1616.0 1216.0]
  1624. set segm58 [$conn57 getFirstSegm]
  1625.  
  1626. set conn59 [$diag addConn generalization_conn $node2 $node15 1184.0 1160.0 1184.0 1216.0]
  1627. set segm60 [$conn59 getFirstSegm]
  1628.  
  1629. set conn61 [$diag addConn generalization_conn $node2 $node16 1328.0 1160.0 1328.0 1216.0]
  1630. set segm62 [$conn61 getFirstSegm]
  1631.  
  1632. set conn17 [$diag addConn aggregation $node9 $node4 1232.0 832.0 960.0 912.0]
  1633. $conn17 setProp "mult_kind_end" "one"
  1634. $conn17 setProp "mult_kind_start" "one"
  1635. set segm18 [$conn17 getFirstSegm]
  1636. set segm19 [$conn17 addSegm 1232.0 880.0]
  1637. set segm20 [$conn17 addSegm 960.0 880.0]
  1638.  
  1639. set conn21 [$diag addConn association $node13 $node14 928.0 1088.0 992.0 1088.0]
  1640. $conn21 setProp "mult_kind_end" "optional"
  1641. $conn21 setProp "mult_kind_start" "one"
  1642. set segm22 [$conn21 getFirstSegm]
  1643.  
  1644. set conn23 [$diag addConn association $node5 $node14 1232.0 1088.0 1088.0 1088.0]
  1645. $conn23 setProp "mult_kind_end" "many"
  1646. $conn23 setProp "mult_kind_start" "one"
  1647. set segm24 [$conn23 getFirstSegm]
  1648. $segm24 setLabel "name" "connection"
  1649. $segm24 setScope "name" "cl" "scopeSystem"
  1650.  
  1651. set conn25 [$diag addConn aggregation $node4 $node14 960.0 928.0 1040.0 1072.0]
  1652. $conn25 setProp "mult_kind_end" "many"
  1653. $conn25 setProp "mult_kind_start" "one"
  1654. set segm26 [$conn25 getFirstSegm]
  1655. set segm27 [$conn25 addSegm 960.0 1008.0]
  1656. set segm28 [$conn25 addSegm 1040.0 1008.0]
  1657.  
  1658. set conn29 [$diag addConn aggregation $node10 $node11 1424.0 928.0 1424.0 1072.0]
  1659. $conn29 setProp "mult_kind_end" "many"
  1660. $conn29 setProp "mult_kind_start" "one"
  1661. set segm30 [$conn29 getFirstSegm]
  1662.  
  1663. set conn31 [$diag addConn aggregation $node10 $node7 1424.0 928.0 1616.0 1072.0]
  1664. $conn31 setProp "mult_kind_end" "one"
  1665. $conn31 setProp "mult_kind_start" "one"
  1666. set segm32 [$conn31 getFirstSegm]
  1667. set segm33 [$conn31 addSegm 1424.0 1008.0]
  1668. set segm34 [$conn31 addSegm 1616.0 1008.0]
  1669.  
  1670. set conn35 [$diag addConn aggregation $node4 $node13 960.0 944.0 880.0 1072.0]
  1671. $conn35 setProp "mult_kind_end" "many"
  1672. $conn35 setProp "mult_kind_start" "one"
  1673. set segm36 [$conn35 getFirstSegm]
  1674. set segm37 [$conn35 addSegm 960.0 1008.0]
  1675. set segm38 [$conn35 addSegm 880.0 1008.0]
  1676.  
  1677. set conn39 [$diag addConn aggregation $node10 $node5 1424.0 928.0 1248.0 1072.0]
  1678. $conn39 setProp "mult_kind_end" "many"
  1679. $conn39 setProp "mult_kind_start" "one"
  1680. set segm40 [$conn39 getFirstSegm]
  1681. set segm41 [$conn39 addSegm 1424.0 1008.0]
  1682. set segm42 [$conn39 addSegm 1248.0 1008.0]
  1683.  
  1684. set conn43 [$diag addConn aggregation $node9 $node10 1232.0 832.0 1440.0 928.0]
  1685. $conn43 setProp "mult_kind_end" "many"
  1686. $conn43 setProp "mult_kind_start" "one"
  1687. set segm44 [$conn43 getFirstSegm]
  1688. set segm45 [$conn43 addSegm 1232.0 880.0]
  1689. set segm46 [$conn43 addSegm 1440.0 880.0]
  1690.  
  1691. $diag save
  1692.  
  1693. # Generator: et.tcl    /main/titanic/10
  1694. # Argument(s): -fGraph:Uj0DirzR9xzcAqQfqAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  1695. # Interpreter to use: Otsh V7.1.1/B6
  1696. #
  1697. OTShRegister::importTool
  1698.  
  1699. set diag [CAD new Three-Tiered_Architecture "Architecture" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  1700.  
  1701. set node66 [$diag addNode more_classes 1300.0 1228.0 120.0 40.0]
  1702.  
  1703. set node67 [$diag addNode cad_class 928.0 1088.0 128.0 28.0]
  1704. $node67 setLabel "name" "Business_Rules"
  1705. $node67 setProp "is_folded" "1"
  1706. $node67 setScope "name" "cl" "scopePhase"
  1707.  
  1708. set node68 [$diag addNode cad_class 800.0 1088.0 107.001 28.0]
  1709. $node68 setLabel "name" "Algorithms"
  1710. $node68 setProp "is_folded" "1"
  1711. $node68 setScope "name" "cl" "scopePhase"
  1712.  
  1713. set node69 [$diag addNode cad_class 1360.0 1088.0 120.0 92.0001]
  1714. $node69 setLabel "name" "External_Data"
  1715. $node69 setScope "name" "cl" "scopePhase"
  1716.  
  1717. set node70 [$diag addNode cad_class 1024.0 1344.0 120.0 28.0]
  1718. $node70 setLabel "name" "In-Out_Tokens"
  1719. $node70 setProp "is_folded" "1"
  1720. $node70 setScope "name" "cl" "scopePhase"
  1721.  
  1722. set node71 [$diag addNode cad_class 1200.0 1088.0 130.0 96.0]
  1723. $node71 setLabel "name" "External_Events"
  1724. $node71 setScope "name" "cl" "scopePhase"
  1725.  
  1726. set node72 [$diag addNode cad_class 1328.0 960.0 167.0 32.0]
  1727. $node72 setLabel "name" "Communications_Part"
  1728. $node72 setProp "is_folded" "1"
  1729. $node72 setScope "name" "cl" "scopePhase"
  1730.  
  1731. set node73 [$diag addNode more_classes 1508.0 1084.0 120.0 40.0]
  1732.  
  1733. set node74 [$diag addNode cad_class 864.0 944.0 152.0 32.0]
  1734. $node74 setLabel "name" "Computational_Part"
  1735. $node74 setProp "is_folded" "1"
  1736. $node74 setScope "name" "cl" "scopePhase"
  1737.  
  1738. set node75 [$diag addNode cad_class 1104.0 800.0 120.0 32.0]
  1739. $node75 setLabel "name" "Application"
  1740. $node75 setProp "is_folded" "1"
  1741. $node75 setScope "name" "cl" "scopePhase"
  1742.  
  1743. set node76 [$diag addNode cad_class 1168.0 1344.0 170.0 28.0]
  1744. $node76 setLabel "name" "Presentation_Formats"
  1745. $node76 setProp "is_folded" "1"
  1746. $node76 setScope "name" "cl" "scopePhase"
  1747.  
  1748. set node77 [$diag addNode cad_class 1104.0 1232.0 162.0 32.0]
  1749. $node77 setLabel "name" "Interactive_Interface"
  1750. $node77 setProp "is_folded" "1"
  1751. $node77 setScope "name" "cl" "scopePhase"
  1752.  
  1753. set node78 [$diag addNode more_classes 1060.0 1084.0 120.0 40.0]
  1754.  
  1755. set node63 [$diag addRake generalization $node72 $node69 1408.0 992.0 1424.0 1104.0 1039.5]
  1756.  
  1757. set conn95 [$node63 getInConn]
  1758. set segm96 [$conn95 getFirstSegm]
  1759.  
  1760. set conn97 [$node63 getFirstOutConn]
  1761. set segm98 [$conn97 getFirstSegm]
  1762.  
  1763. set conn99 [$diag addConn generalization_conn $node63 $node71 1264.0 1039.5 1264.0 1104.0]
  1764. set segm100 [$conn99 getFirstSegm]
  1765.  
  1766. set conn101 [$diag addConn generalization_conn $node63 $node73 1568.0 1039.5 1568.0 1104.0]
  1767. set segm102 [$conn101 getFirstSegm]
  1768. set segm103 [$conn101 addSegm 1568.0 1056.0]
  1769.  
  1770. set node64 [$diag addRake overlap_gen $node74 $node67 944.0 960.0 976.0 1104.0 1032.0]
  1771.  
  1772. set conn104 [$node64 getInConn]
  1773. set segm105 [$conn104 getFirstSegm]
  1774.  
  1775. set conn106 [$node64 getFirstOutConn]
  1776. set segm107 [$conn106 getFirstSegm]
  1777.  
  1778. set conn108 [$diag addConn overlap_gen_conn $node64 $node68 848.0 1032.0 848.0 1088.0]
  1779. set segm109 [$conn108 getFirstSegm]
  1780. set segm110 [$conn108 addSegm 848.0 1040.0]
  1781.  
  1782. set conn111 [$diag addConn overlap_gen_conn $node64 $node78 1120.0 1032.0 1120.0 1088.0]
  1783. set segm112 [$conn111 getFirstSegm]
  1784.  
  1785. set node65 [$diag addRake generalization $node71 $node77 1264.0 1184.0 1168.0 1248.0 1216.0]
  1786.  
  1787. set conn113 [$node65 getInConn]
  1788. set segm114 [$conn113 getFirstSegm]
  1789.  
  1790. set conn115 [$node65 getFirstOutConn]
  1791. set segm116 [$conn115 getFirstSegm]
  1792.  
  1793. set conn117 [$diag addConn generalization_conn $node65 $node66 1360.0 1216.0 1360.0 1248.0]
  1794. set segm118 [$conn117 getFirstSegm]
  1795.  
  1796. set conn79 [$diag addConn aggregation $node75 $node74 1168.0 832.0 944.0 944.0]
  1797. $conn79 setProp "mult_kind_end" "one"
  1798. $conn79 setProp "mult_kind_start" "one"
  1799. set segm80 [$conn79 getFirstSegm]
  1800. $segm80 setLabel "name" "consists_of"
  1801. $segm80 setScope "name" "cl" "scopeSystem"
  1802. set segm81 [$conn79 addSegm 1168.0 912.0]
  1803. set segm82 [$conn79 addSegm 944.0 912.0]
  1804.  
  1805. set conn83 [$diag addConn aggregation $node77 $node70 1168.0 1264.0 1088.0 1344.0]
  1806. $conn83 setProp "mult_kind_end" "one"
  1807. $conn83 setProp "mult_kind_start" "one"
  1808. set segm84 [$conn83 getFirstSegm]
  1809. set segm85 [$conn83 addSegm 1168.0 1312.0]
  1810. set segm86 [$conn83 addSegm 1088.0 1312.0]
  1811.  
  1812. set conn87 [$diag addConn aggregation $node75 $node72 1168.0 832.0 1408.0 960.0]
  1813. $conn87 setProp "mult_kind_end" "one"
  1814. $conn87 setProp "mult_kind_start" "one"
  1815. set segm88 [$conn87 getFirstSegm]
  1816. set segm89 [$conn87 addSegm 1168.0 912.0]
  1817. set segm90 [$conn87 addSegm 1408.0 912.0]
  1818.  
  1819. set conn91 [$diag addConn aggregation $node77 $node76 1168.0 1248.0 1264.0 1344.0]
  1820. $conn91 setProp "mult_kind_end" "one"
  1821. $conn91 setProp "mult_kind_start" "one"
  1822. set segm92 [$conn91 getFirstSegm]
  1823. set segm93 [$conn91 addSegm 1168.0 1312.0]
  1824. set segm94 [$conn91 addSegm 1264.0 1312.0]
  1825.  
  1826. $diag save
  1827.  
  1828. # Generator: et.tcl    /main/titanic/10
  1829. # Argument(s): -fGraph:Uj0DirzR9xzcAqQgIAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  1830. # Interpreter to use: Otsh V7.1.1/B6
  1831. #
  1832. OTShRegister::importTool
  1833.  
  1834. set diag [CAD new Two-Tiered_Architecture "Architecture" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  1835.  
  1836. set node121 [$diag addNode cad_class 800.0 1152.0 120.0 48.0]
  1837. $node121 setLabel "name" "Client_\nHost"
  1838. $node121 setProp "is_folded" "1"
  1839. $node121 setScope "name" "cl" "scopePhase"
  1840.  
  1841. set node122 [$diag addNode cad_class 992.0 1088.0 120.0 48.0]
  1842. $node122 setLabel "name" "Client_\nApplication"
  1843. $node122 setProp "is_folded" "1"
  1844. $node122 setScope "name" "cl" "scopePhase"
  1845.  
  1846. set node123 [$diag addNode cad_class 1280.0 1408.0 120.0 32.0]
  1847. $node123 setLabel "name" "Triggers"
  1848. $node123 setProp "is_folded" "1"
  1849. $node123 setScope "name" "cl" "scopePhase"
  1850.  
  1851. set node124 [$diag addNode cad_class 1408.0 1088.0 126.0 48.0]
  1852. $node124 setLabel "name" "Database\nServer_Process"
  1853. $node124 setProp "is_folded" "1"
  1854. $node124 setScope "name" "cl" "scopePhase"
  1855.  
  1856. set node125 [$diag addNode cad_class 1408.0 1264.0 120.0 48.0]
  1857. $node125 setLabel "name" "Database_\nBackup"
  1858. $node125 setProp "is_folded" "1"
  1859. $node125 setScope "name" "cl" "scopePhase"
  1860.  
  1861. set node126 [$diag addNode more_classes 1412.0 1404.0 120.0 40.0]
  1862.  
  1863. set node127 [$diag addNode more_classes 1540.0 1084.0 120.0 40.0]
  1864.  
  1865. set node128 [$diag addNode cad_class 1232.0 800.0 120.0 32.0]
  1866. $node128 setLabel "name" "Application"
  1867. $node128 setProp "is_folded" "1"
  1868. $node128 setScope "name" "cl" "scopePhase"
  1869.  
  1870. set node129 [$diag addNode cad_class 1552.0 1264.0 120.0 48.0]
  1871. $node129 setLabel "name" "Data_\nProcessing"
  1872. $node129 setProp "is_folded" "1"
  1873. $node129 setScope "name" "cl" "scopePhase"
  1874.  
  1875. set node130 [$diag addNode cad_class 1616.0 992.0 120.0 48.0]
  1876. $node130 setLabel "name" "Server_\nHost"
  1877. $node130 setProp "is_folded" "1"
  1878. $node130 setScope "name" "cl" "scopePhase"
  1879.  
  1880. set node131 [$diag addNode more_classes 1684.0 1260.0 120.0 40.0]
  1881.  
  1882. set node132 [$diag addNode cad_class 912.0 1264.0 120.0 48.0]
  1883. $node132 setLabel "name" "User_\nInterface"
  1884. $node132 setProp "is_folded" "1"
  1885. $node132 setScope "name" "cl" "scopePhase"
  1886.  
  1887. set node133 [$diag addNode cad_class 1056.0 928.0 120.0 32.0]
  1888. $node133 setLabel "name" "Client_Part"
  1889. $node133 setProp "is_folded" "1"
  1890. $node133 setScope "name" "cl" "scopePhase"
  1891.  
  1892. set node134 [$diag addNode cad_class 1056.0 1264.0 120.0 48.0]
  1893. $node134 setLabel "name" "Program_\nLogic"
  1894. $node134 setProp "is_folded" "1"
  1895. $node134 setScope "name" "cl" "scopePhase"
  1896.  
  1897. set node135 [$diag addNode more_classes 1124.0 1084.0 120.0 40.0]
  1898.  
  1899. set node136 [$diag addNode cad_class 1136.0 1408.0 120.0 48.0]
  1900. $node136 setLabel "name" "Stored_\nProcedures"
  1901. $node136 setProp "is_folded" "1"
  1902. $node136 setScope "name" "cl" "scopePhase"
  1903.  
  1904. set node137 [$diag addNode cad_class 1264.0 1264.0 120.0 48.0]
  1905. $node137 setLabel "name" "Data_\nStorage"
  1906. $node137 setProp "is_folded" "1"
  1907. $node137 setScope "name" "cl" "scopePhase"
  1908.  
  1909. set node138 [$diag addNode cad_class 1456.0 928.0 120.0 32.0]
  1910. $node138 setLabel "name" "Server_Part"
  1911. $node138 setProp "is_folded" "1"
  1912. $node138 setScope "name" "cl" "scopePhase"
  1913.  
  1914. set node119 [$diag addRake generalization $node137 $node126 1328.0 1296.0 1472.0 1424.0 1360.0]
  1915.  
  1916. set conn171 [$node119 getInConn]
  1917. set segm172 [$conn171 getFirstSegm]
  1918.  
  1919. set conn173 [$node119 getFirstOutConn]
  1920. set segm174 [$conn173 getFirstSegm]
  1921.  
  1922. set conn175 [$diag addConn generalization_conn $node119 $node136 1200.0 1360.0 1200.0 1424.0]
  1923. set segm176 [$conn175 getFirstSegm]
  1924.  
  1925. set conn177 [$diag addConn generalization_conn $node119 $node123 1328.0 1360.0 1328.0 1424.0]
  1926. set segm178 [$conn177 getFirstSegm]
  1927.  
  1928. set node120 [$diag addRake generalization $node124 $node125 1472.0 1120.0 1472.0 1296.0 1208.0]
  1929.  
  1930. set conn179 [$node120 getInConn]
  1931. set segm180 [$conn179 getFirstSegm]
  1932.  
  1933. set conn181 [$node120 getFirstOutConn]
  1934. set segm182 [$conn181 getFirstSegm]
  1935.  
  1936. set conn183 [$diag addConn generalization_conn $node120 $node129 1616.0 1208.0 1616.0 1296.0]
  1937. set segm184 [$conn183 getFirstSegm]
  1938.  
  1939. set conn185 [$diag addConn generalization_conn $node120 $node131 1744.0 1208.0 1744.0 1280.0]
  1940. set segm186 [$conn185 getFirstSegm]
  1941.  
  1942. set conn187 [$diag addConn generalization_conn $node120 $node137 1328.0 1208.0 1328.0 1280.0]
  1943. set segm188 [$conn187 getFirstSegm]
  1944.  
  1945. set conn139 [$diag addConn association $node121 $node122 848.0 1168.0 1024.0 1104.0]
  1946. $conn139 setProp "mult_kind_end" "many"
  1947. $conn139 setProp "mult_kind_start" "one"
  1948. set segm140 [$conn139 getFirstSegm]
  1949. set segm141 [$conn139 addSegm 848.0 1104.0]
  1950. $segm141 setLabel "name" "executes\n"
  1951. $segm141 setScope "name" "cl" "scopeSystem"
  1952.  
  1953. set conn142 [$diag addConn aggregation $node138 $node124 1520.0 960.0 1472.0 1104.0]
  1954. $conn142 setProp "mult_kind_end" "one"
  1955. $conn142 setProp "mult_kind_start" "one"
  1956. set segm143 [$conn142 getFirstSegm]
  1957. set segm144 [$conn142 addSegm 1520.0 1024.0]
  1958. set segm145 [$conn142 addSegm 1472.0 1024.0]
  1959.  
  1960. set conn146 [$diag addConn aggregation $node133 $node122 1120.0 944.0 1040.0 1104.0]
  1961. $conn146 setProp "mult_kind_end" "one"
  1962. $conn146 setProp "mult_kind_start" "one"
  1963. set segm147 [$conn146 getFirstSegm]
  1964. set segm148 [$conn146 addSegm 1120.0 1024.0]
  1965. set segm149 [$conn146 addSegm 1040.0 1024.0]
  1966.  
  1967. set conn150 [$diag addConn aggregation $node128 $node133 1296.0 832.0 1104.0 944.0]
  1968. $conn150 setProp "mult_kind_end" "one"
  1969. $conn150 setProp "mult_kind_start" "one"
  1970. set segm151 [$conn150 getFirstSegm]
  1971. $segm151 setLabel "name" "consists of"
  1972. $segm151 setScope "name" "cl" "scopeSystem"
  1973. set segm152 [$conn150 addSegm 1296.0 896.0]
  1974. set segm153 [$conn150 addSegm 1104.0 896.0]
  1975.  
  1976. set conn154 [$diag addConn association $node138 $node133 1456.0 944.0 1168.0 944.0]
  1977. $conn154 setProp "mult_kind_end" "many"
  1978. $conn154 setProp "mult_kind_start" "optional"
  1979. set segm155 [$conn154 getFirstSegm]
  1980. $segm155 setLabel "name" "fetch\n"
  1981. $segm155 setScope "name" "cl" "scopeSystem"
  1982.  
  1983. set conn156 [$diag addConn association $node138 $node130 1568.0 944.0 1680.0 1008.0]
  1984. $conn156 setProp "mult_kind_end" "many"
  1985. $conn156 setProp "mult_kind_start" "one"
  1986. set segm157 [$conn156 getFirstSegm]
  1987. $segm157 setLabel "name" "executes\n"
  1988. $segm157 setScope "name" "cl" "scopeSystem"
  1989. set segm158 [$conn156 addSegm 1680.0 944.0]
  1990.  
  1991. set conn159 [$diag addConn aggregation $node122 $node132 1056.0 1136.0 976.0 1280.0]
  1992. $conn159 setProp "mult_kind_end" "one"
  1993. $conn159 setProp "mult_kind_start" "one"
  1994. set segm160 [$conn159 getFirstSegm]
  1995. set segm161 [$conn159 addSegm 1056.0 1216.0]
  1996. set segm162 [$conn159 addSegm 976.0 1216.0]
  1997.  
  1998. set conn163 [$diag addConn aggregation $node122 $node134 1056.0 1120.0 1120.0 1280.0]
  1999. $conn163 setProp "mult_kind_end" "one"
  2000. $conn163 setProp "mult_kind_start" "one"
  2001. set segm164 [$conn163 getFirstSegm]
  2002. set segm165 [$conn163 addSegm 1056.0 1216.0]
  2003. set segm166 [$conn163 addSegm 1120.0 1216.0]
  2004.  
  2005. set conn167 [$diag addConn aggregation $node128 $node138 1296.0 832.0 1520.0 944.0]
  2006. $conn167 setProp "mult_kind_end" "one"
  2007. $conn167 setProp "mult_kind_start" "one"
  2008. set segm168 [$conn167 getFirstSegm]
  2009. set segm169 [$conn167 addSegm 1296.0 896.0]
  2010. set segm170 [$conn167 addSegm 1520.0 896.0]
  2011.  
  2012. $diag save
  2013.  
  2014. # Generator: et.tcl    /main/titanic/10
  2015. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQgxAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2016. # Interpreter to use: Otsh V7.1.1/B6
  2017. #
  2018. OTShRegister::importTool
  2019.  
  2020. set diag [CDM new External_Data "Architecture" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2021.  
  2022. set row189 [$diag addRow method 0.0]
  2023. $row189 setLabel "name_type" "data_managers"
  2024.  
  2025. $diag save
  2026.  
  2027. # Generator: et.tcl    /main/titanic/10
  2028. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQg7AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2029. # Interpreter to use: Otsh V7.1.1/B6
  2030. #
  2031. OTShRegister::importTool
  2032.  
  2033. set diag [CDM new External_Events "Architecture" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2034.  
  2035. set row190 [$diag addRow method 0.0]
  2036. $row190 setLabel "name_type" "event_handlers"
  2037.  
  2038. $diag save
  2039.  
  2040. # Generator: et.tcl    /main/titanic/10
  2041. # Argument(s): -fGraph:Uj0DirzR9xzcAqQOEAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2042. # Interpreter to use: Otsh V7.1.1/B6
  2043. #
  2044. OTShRegister::importTool
  2045.  
  2046. set diag [CAD new CoreClasses "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2047.  
  2048. set node2 [$diag addNode cad_class 800.0 832.0 170.667 129.333]
  2049. $node2 setLabel "name" "Employee"
  2050. $node2 setScope "name" "cl" "scopePhase"
  2051.  
  2052. set node3 [$diag addNode cad_class 992.0 1456.0 140.0 129.333]
  2053. $node3 setLabel "name" "Return"
  2054. $node3 setScope "name" "cl" "scopePhase"
  2055.  
  2056. set node4 [$diag addNode cad_class 1600.0 960.0 137.333 39.3333]
  2057. $node4 setLabel "name" "TrainingMaterial"
  2058. $node4 setProp "is_folded" "1"
  2059. $node4 setScope "name" "cl" "scopePhase"
  2060.  
  2061. set node5 [$diag addNode cad_class 1664.0 1456.0 140.0 129.333]
  2062. $node5 setLabel "name" "LateFee"
  2063. $node5 setScope "name" "cl" "scopePhase"
  2064.  
  2065. set node6 [$diag addNode cad_class 912.0 1056.0 161.333 100.0]
  2066. $node6 setLabel "name" "Borrower"
  2067. $node6 setScope "name" "cl" "scopePhase"
  2068.  
  2069. set node7 [$diag addNode cad_class 1376.0 1520.0 181.333 129.333]
  2070. $node7 setLabel "name" "DamageReport"
  2071. $node7 setScope "name" "cl" "scopePhase"
  2072.  
  2073. set node8 [$diag addNode cad_class 1136.0 1168.0 178.667 188.0]
  2074. $node8 setLabel "name" "Loan"
  2075. $node8 setScope "name" "cl" "scopePhase"
  2076.  
  2077. set node9 [$diag addNode cad_class 1328.0 800.0 136.0 129.333]
  2078. $node9 setLabel "name" "WaitingList"
  2079. $node9 setScope "name" "cl" "scopePhase"
  2080.  
  2081. set node10 [$diag addNode cad_class 1456.0 1232.0 145.333 114.667]
  2082. $node10 setLabel "name" "Extension"
  2083. $node10 setScope "name" "cl" "scopePhase"
  2084.  
  2085. set node11 [$diag addNode cad_class 1648.0 1152.0 158.667 114.667]
  2086. $node11 setLabel "name" "Inventory"
  2087. $node11 setScope "name" "cl" "scopePhase"
  2088.  
  2089. set node1 [$diag addRake generalization $node2 $node6 944.0 960.0 944.0 1056.0 1023.5]
  2090.  
  2091. set conn36 [$node1 getInConn]
  2092. set segm37 [$conn36 getFirstSegm]
  2093.  
  2094. set conn38 [$node1 getFirstOutConn]
  2095. set segm39 [$conn38 getFirstSegm]
  2096.  
  2097. set conn16 [$diag addConn association $node2 $node3 832.0 912.0 1040.0 1536.0]
  2098. $conn16 setLabel "role_start" "employee"
  2099. $conn16 setProp "mult_kind_end" "optional"
  2100. $conn16 setProp "mult_kind_start" "one"
  2101. set segm17 [$conn16 getFirstSegm]
  2102. $segm17 setLabel "name" "checks_in"
  2103. $segm17 setScope "name" "cl" "scopeSystem"
  2104. set segm18 [$conn16 addSegm 832.0 1536.0]
  2105.  
  2106. set conn19 [$diag addConn association $node3 $node7 1040.0 1568.0 1424.0 1568.0]
  2107. $conn19 setLabel "role_end" "Returned"
  2108. $conn19 setLabel "role_start" "Damager"
  2109. $conn19 setProp "mult_kind_end" "optional"
  2110. $conn19 setProp "mult_kind_start" "one"
  2111. set segm20 [$conn19 getFirstSegm]
  2112. $segm20 setLabel "name" "is_damaged"
  2113. $segm20 setScope "name" "cl" "scopeSystem"
  2114.  
  2115. set conn21 [$diag addConn association $node6 $node4 1008.0 1104.0 1616.0 992.0]
  2116. $conn21 setLabel "role_end" "inventory"
  2117. $conn21 setProp "mult_kind_end" "optional"
  2118. $conn21 setProp "mult_kind_start" "optional"
  2119. set segm22 [$conn21 getFirstSegm]
  2120. $segm22 setLabel "name" "borrows"
  2121. $segm22 setScope "name" "cl" "scopeSystem"
  2122. set segm23 [$conn21 addSegm 1616.0 1104.0]
  2123.  
  2124. set conn24 [$diag addConn association $node3 $node5 1104.0 1488.0 1680.0 1488.0]
  2125. $conn24 setLabel "role_end" "before"
  2126. $conn24 setLabel "role_start" "too_late"
  2127. $conn24 setProp "mult_kind_end" "optional"
  2128. $conn24 setProp "mult_kind_start" "one"
  2129. set segm25 [$conn24 getFirstSegm]
  2130. $segm25 setLabel "name" "is_late"
  2131. $segm25 setScope "name" "cl" "scopeSystem"
  2132.  
  2133. set conn26 [$diag addConn association $node8 $node3 1152.0 1280.0 1056.0 1488.0]
  2134. $conn26 setProp "mult_kind_end" "optional"
  2135. $conn26 setProp "mult_kind_start" "one"
  2136. set segm27 [$conn26 getFirstSegm]
  2137. set segm28 [$conn26 addSegm 1056.0 1280.0]
  2138. $segm28 setLabel "name" "is_returned"
  2139. $segm28 setScope "name" "cl" "scopeSystem"
  2140.  
  2141. set conn29 [$diag addConn association $node6 $node4 992.0 1072.0 1632.0 992.0]
  2142. $conn29 setLabel "role_start" "borrower"
  2143. $conn29 setProp "mult_kind_end" "many"
  2144. $conn29 setProp "mult_kind_start" "many"
  2145. set segm30 [$conn29 getFirstSegm]
  2146. set segm31 [$conn29 addSegm 992.0 992.0]
  2147. $segm31 setLabel "name" "waits_for"
  2148. $segm31 setScope "name" "cl" "scopeSystem"
  2149.  
  2150. set conn32 [$diag addConn association $node8 $node10 1296.0 1280.0 1520.0 1280.0]
  2151. $conn32 setLabel "role_start" "needed_by"
  2152. $conn32 setProp "mult_kind_end" "optional"
  2153. $conn32 setProp "mult_kind_start" "one"
  2154. set segm33 [$conn32 getFirstSegm]
  2155.  
  2156. set conn34 [$diag addConn association $node4 $node11 1712.0 992.0 1712.0 1168.0]
  2157. $conn34 setLabel "role_end" "amount"
  2158. $conn34 setProp "mult_kind_end" "one"
  2159. $conn34 setProp "mult_kind_start" "optional"
  2160. set segm35 [$conn34 getFirstSegm]
  2161. $segm35 setLabel "name" "has"
  2162. $segm35 setScope "name" "cl" "scopeSystem"
  2163.  
  2164. set conn12 [$diag addConn loop $segm31 $node9 1376.0 992.0 1376.0 912.0]
  2165. set segm13 [$conn12 getFirstSegm]
  2166.  
  2167. set conn14 [$diag addConn loop $segm22 $node8 1209.98 1104.0 1200.0 1184.0]
  2168. set segm15 [$conn14 getFirstSegm]
  2169.  
  2170. $diag save
  2171.  
  2172. # Generator: et.tcl    /main/titanic/10
  2173. # Argument(s): -fGraph:Uj0DirzR9xzcAqQOvAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2174. # Interpreter to use: Otsh V7.1.1/B6
  2175. #
  2176. OTShRegister::importTool
  2177.  
  2178. set diag [CAD new Overview "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2179.  
  2180. set node41 [$diag addNode cad_class 512.0 752.0 120.0 32.0]
  2181. $node41 setLabel "name" "Employee"
  2182. $node41 setProp "is_folded" "1"
  2183. $node41 setScope "name" "cl" "scopePhase"
  2184.  
  2185. set node42 [$diag addNode cad_class 608.0 1008.0 120.0 32.0]
  2186. $node42 setLabel "name" "Return"
  2187. $node42 setProp "is_folded" "1"
  2188. $node42 setScope "name" "cl" "scopePhase"
  2189.  
  2190. set node43 [$diag addNode cad_class 704.0 608.0 134.0 32.0]
  2191. $node43 setLabel "name" "LoanCoordinator"
  2192. $node43 setProp "is_folded" "1"
  2193. $node43 setScope "name" "cl" "scopePhase"
  2194.  
  2195. set node44 [$diag addNode cad_class 704.0 704.0 120.0 32.0]
  2196. $node44 setLabel "name" "Loan"
  2197. $node44 setProp "is_folded" "1"
  2198. $node44 setScope "name" "cl" "scopePhase"
  2199.  
  2200. set node45 [$diag addNode cad_class 704.0 912.0 120.0 32.0]
  2201. $node45 setLabel "name" "Sale"
  2202. $node45 setProp "is_folded" "1"
  2203. $node45 setScope "name" "cl" "scopePhase"
  2204.  
  2205. set node46 [$diag addNode cad_class 976.0 608.0 120.0 32.0]
  2206. $node46 setLabel "name" "WaitingList"
  2207. $node46 setProp "is_folded" "1"
  2208. $node46 setScope "name" "cl" "scopePhase"
  2209.  
  2210. set node47 [$diag addNode cad_class 1056.0 864.0 120.0 32.0]
  2211. $node47 setLabel "name" "Workbook"
  2212. $node47 setProp "is_folded" "1"
  2213. $node47 setScope "name" "cl" "scopePhase"
  2214.  
  2215. set node48 [$diag addNode cad_class 1120.0 640.0 128.0 32.0]
  2216. $node48 setLabel "name" "TrainingMaterial"
  2217. $node48 setProp "is_folded" "1"
  2218. $node48 setScope "name" "cl" "scopePhase"
  2219.  
  2220. set node40 [$diag addRake generalization $node48 $node47 1168.0 672.0 1120.0 880.0 815.5]
  2221.  
  2222. set conn78 [$node40 getInConn]
  2223. set segm79 [$conn78 getFirstSegm]
  2224.  
  2225. set conn80 [$node40 getFirstOutConn]
  2226. set segm81 [$conn80 getFirstSegm]
  2227.  
  2228. set conn57 [$diag addConn association $node41 $node43 592.0 752.0 768.0 624.0]
  2229. $conn57 setProp "mult_kind_end" "one"
  2230. $conn57 setProp "mult_kind_start" "many"
  2231. set segm58 [$conn57 getFirstSegm]
  2232. $segm58 setLabel "name" "calls"
  2233. $segm58 setScope "name" "cl" "scopeSystem"
  2234. set segm59 [$conn57 addSegm 592.0 624.0]
  2235.  
  2236. set conn60 [$diag addConn association $node43 $node46 816.0 624.0 992.0 624.0]
  2237. $conn60 setProp "mult_kind_end" "many"
  2238. $conn60 setProp "mult_kind_start" "one"
  2239. set segm61 [$conn60 getFirstSegm]
  2240. $segm61 setLabel "name" "manages"
  2241. $segm61 setScope "name" "cl" "scopeSystem"
  2242.  
  2243. set conn62 [$diag addConn association $node41 $node48 528.0 784.0 1216.0 672.0]
  2244. $conn62 setLabel "role_start" "anyone"
  2245. $conn62 setProp "mult_kind_end" "many"
  2246. $conn62 setProp "mult_kind_start" "many"
  2247. set segm63 [$conn62 getFirstSegm]
  2248. set segm64 [$conn62 addSegm 528.0 976.0]
  2249. $segm64 setLabel "name" "checks_in"
  2250. $segm64 setScope "name" "cl" "scopeSystem"
  2251. set segm65 [$conn62 addSegm 1216.0 976.0]
  2252.  
  2253. set conn66 [$diag addConn association $node41 $node48 528.0 752.0 1168.0 656.0]
  2254. $conn66 setProp "mult_kind_end" "one"
  2255. $conn66 setProp "mult_kind_start" "many"
  2256. set segm67 [$conn66 getFirstSegm]
  2257. set segm68 [$conn66 addSegm 528.0 560.0]
  2258. $segm68 setLabel "name" "waits_for"
  2259. $segm68 setScope "name" "cl" "scopeSystem"
  2260. set segm69 [$conn66 addSegm 1168.0 560.0]
  2261.  
  2262. set conn70 [$diag addConn association $node43 $node44 752.0 624.0 752.0 720.0]
  2263. $conn70 setProp "mult_kind_end" "many"
  2264. $conn70 setProp "mult_kind_start" "one"
  2265. set segm71 [$conn70 getFirstSegm]
  2266. $segm71 setLabel "name" "arranges"
  2267. $segm71 setScope "name" "cl" "scopeSystem"
  2268.  
  2269. set conn72 [$diag addConn association $node41 $node47 592.0 768.0 1120.0 880.0]
  2270. $conn72 setLabel "role_start" "buyer"
  2271. $conn72 setProp "mult_kind_end" "many"
  2272. $conn72 setProp "mult_kind_start" "many"
  2273. set segm73 [$conn72 getFirstSegm]
  2274. set segm74 [$conn72 addSegm 592.0 880.0]
  2275. $segm74 setLabel "name" "purchases"
  2276. $segm74 setScope "name" "cl" "scopeSystem"
  2277.  
  2278. set conn75 [$diag addConn association $node41 $node48 592.0 768.0 1136.0 656.0]
  2279. $conn75 setLabel "role_start" "borrower"
  2280. $conn75 setProp "mult_kind_end" "many"
  2281. $conn75 setProp "mult_kind_start" "many"
  2282. set segm76 [$conn75 getFirstSegm]
  2283. $segm76 setLabel "name" "checks_out"
  2284. $segm76 setScope "name" "cl" "scopeSystem"
  2285. set segm77 [$conn75 addSegm 1136.0 768.0]
  2286.  
  2287. set conn49 [$diag addConn loop $segm64 $node42 640.0 976.0 640.0 1024.0]
  2288. set segm50 [$conn49 getFirstSegm]
  2289.  
  2290. set conn51 [$diag addConn loop $segm74 $node45 736.0 880.0 736.0 912.0]
  2291. set segm52 [$conn51 getFirstSegm]
  2292.  
  2293. set conn53 [$diag addConn loop $segm68 $node46 1024.0 560.0 1024.0 624.0]
  2294. set segm54 [$conn53 getFirstSegm]
  2295.  
  2296. set conn55 [$diag addConn loop $segm76 $node44 752.0 768.0 752.0 720.0]
  2297. set segm56 [$conn55 getFirstSegm]
  2298.  
  2299. $diag save
  2300.  
  2301. # Generator: et.tcl    /main/titanic/10
  2302. # Argument(s): -fGraph:Uj0DirzR9xzcAqQPCAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2303. # Interpreter to use: Otsh V7.1.1/B6
  2304. #
  2305. OTShRegister::importTool
  2306.  
  2307. set diag [CAD new TrainingMaterial "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2308.  
  2309. set node85 [$diag addNode cad_class 864.0 1024.0 146.0 148.0]
  2310. $node85 setLabel "name" "Book"
  2311. $node85 setScope "name" "cl" "scopePhase"
  2312.  
  2313. set node86 [$diag addNode cad_class 864.0 1248.0 163.0 100.0]
  2314. $node86 setLabel "name" "Workbook"
  2315. $node86 setScope "name" "cl" "scopePhase"
  2316.  
  2317. set node87 [$diag addNode cad_class 1536.0 1248.0 120.0 116.0]
  2318. $node87 setLabel "name" "OverheadProj"
  2319. $node87 setScope "name" "cl" "scopePhase"
  2320.  
  2321. set node88 [$diag addNode cad_class 1168.0 800.0 143.0 116.0]
  2322. $node88 setLabel "name" "TrainingMaterial"
  2323. $node88 setScope "name" "cl" "scopePhase"
  2324.  
  2325. set node89 [$diag addNode cad_class 1056.0 1024.0 125.0 132.0]
  2326. $node89 setLabel "name" "Software"
  2327. $node89 setScope "name" "cl" "scopePhase"
  2328.  
  2329. set node90 [$diag addNode cad_class 1248.0 1024.0 120.0 116.0]
  2330. $node90 setLabel "name" "VCR_Tape"
  2331. $node90 setScope "name" "cl" "scopePhase"
  2332.  
  2333. set node91 [$diag addNode cad_class 1440.0 1024.0 125.0 100.0]
  2334. $node91 setLabel "name" "CDROM"
  2335. $node91 setScope "name" "cl" "scopePhase"
  2336.  
  2337. set node92 [$diag addNode cad_class 1696.0 1248.0 125.0 100.0]
  2338. $node92 setLabel "name" "LCD_Panel"
  2339. $node92 setScope "name" "cl" "scopePhase"
  2340.  
  2341. set node93 [$diag addNode cad_class 1648.0 1024.0 153.0 116.0]
  2342. $node93 setLabel "name" "AV_Equipment"
  2343. $node93 setScope "name" "cl" "scopePhase"
  2344.  
  2345. set node82 [$diag addRake generalization $node88 $node85 1216.0 880.0 928.0 1056.0 968.0]
  2346. $node82 setLabel "name" "training material type"
  2347. $node82 setScope "name" "de" "scopeSystem"
  2348.  
  2349. set conn98 [$node82 getInConn]
  2350. set segm99 [$conn98 getFirstSegm]
  2351.  
  2352. set conn100 [$node82 getFirstOutConn]
  2353. set segm101 [$conn100 getFirstSegm]
  2354.  
  2355. set conn102 [$diag addConn generalization_conn $node82 $node89 1120.0 968.0 1120.0 1056.0]
  2356. set segm103 [$conn102 getFirstSegm]
  2357.  
  2358. set conn104 [$diag addConn generalization_conn $node82 $node90 1312.0 968.0 1312.0 1056.0]
  2359. set segm105 [$conn104 getFirstSegm]
  2360.  
  2361. set conn106 [$diag addConn generalization_conn $node82 $node91 1504.0 968.0 1504.0 1056.0]
  2362. set segm107 [$conn106 getFirstSegm]
  2363.  
  2364. set conn108 [$diag addConn generalization_conn $node82 $node93 1712.0 968.0 1712.0 1056.0]
  2365. set segm109 [$conn108 getFirstSegm]
  2366.  
  2367. set node83 [$diag addRake generalization $node85 $node86 928.0 1120.0 928.0 1280.0 1215.5]
  2368.  
  2369. set conn110 [$node83 getInConn]
  2370. set segm111 [$conn110 getFirstSegm]
  2371.  
  2372. set conn112 [$node83 getFirstOutConn]
  2373. set segm113 [$conn112 getFirstSegm]
  2374.  
  2375. set node84 [$diag addRake generalization $node93 $node87 1696.0 1104.0 1600.0 1296.0 1192.0]
  2376. $node84 setLabel "name" "equipment_type"
  2377. $node84 setScope "name" "de" "scopeSystem"
  2378.  
  2379. set conn114 [$node84 getInConn]
  2380. set segm115 [$conn114 getFirstSegm]
  2381.  
  2382. set conn116 [$node84 getFirstOutConn]
  2383. set segm117 [$conn116 getFirstSegm]
  2384.  
  2385. set conn118 [$diag addConn generalization_conn $node84 $node92 1760.0 1192.0 1760.0 1264.0]
  2386. set segm119 [$conn118 getFirstSegm]
  2387.  
  2388. set conn94 [$diag addConn association $node86 $node88 880.0 1296.0 1200.0 848.0]
  2389. $conn94 setLabel "role_end" "companion"
  2390. $conn94 setProp "mult_kind_end" "one"
  2391. $conn94 setProp "mult_kind_start" "optional"
  2392. set segm95 [$conn94 getFirstSegm]
  2393. set segm96 [$conn94 addSegm 800.0 1296.0]
  2394. set segm97 [$conn94 addSegm 800.0 848.0]
  2395. $segm97 setLabel "name" "accompanies"
  2396. $segm97 setScope "name" "cl" "scopeSystem"
  2397.  
  2398. $diag save
  2399.  
  2400. # Generator: et.tcl    /main/titanic/10
  2401. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQPYAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2402. # Interpreter to use: Otsh V7.1.1/B6
  2403. #
  2404. OTShRegister::importTool
  2405.  
  2406. set diag [CDM new AV_Equipment "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2407.  
  2408. set row120 [$diag addRow attribute 0.0]
  2409. $row120 setLabel "name_type" "serial_number:integer\n"
  2410. $row120 setScope "name_type" "cl" "scopePhase"
  2411.  
  2412. set row121 [$diag addRow attribute 0.0]
  2413. $row121 setLabel "name_type" "repair_state:boolean"
  2414. $row121 setScope "name_type" "cl" "scopePhase"
  2415.  
  2416. $diag save
  2417.  
  2418. # Generator: et.tcl    /main/titanic/10
  2419. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQPlAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2420. # Interpreter to use: Otsh V7.1.1/B6
  2421. #
  2422. OTShRegister::importTool
  2423.  
  2424. set diag [CDM new Book "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2425.  
  2426. set row122 [$diag addRow attribute 0.0]
  2427. $row122 setLabel "name_type" "author:char\n"
  2428. $row122 setScope "name_type" "cl" "scopePhase"
  2429.  
  2430. set row123 [$diag addRow attribute 0.0]
  2431. $row123 setLabel "name_type" "publisher:char\n"
  2432. $row123 setScope "name_type" "cl" "scopePhase"
  2433.  
  2434. set row124 [$diag addRow attribute 0.0]
  2435. $row124 setLabel "name_type" "ISBN:char\n"
  2436. $row124 setScope "name_type" "cl" "scopePhase"
  2437.  
  2438. set row125 [$diag addRow attribute 0.0]
  2439. $row125 setLabel "name_type" "is_reference:smallint"
  2440. $row125 setScope "name_type" "cl" "scopePhase"
  2441.  
  2442. $diag save
  2443.  
  2444. # Generator: et.tcl    /main/titanic/10
  2445. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQP1AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2446. # Interpreter to use: Otsh V7.1.1/B6
  2447. #
  2448. OTShRegister::importTool
  2449.  
  2450. set diag [CDM new Borrower "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2451.  
  2452. set row126 [$diag addRow attribute 0.0]
  2453. $row126 setLabel "name_type" "charge_number:char"
  2454. $row126 setScope "name_type" "cl" "scopePhase"
  2455.  
  2456. $diag save
  2457.  
  2458. # Generator: et.tcl    /main/titanic/10
  2459. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQP_AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2460. # Interpreter to use: Otsh V7.1.1/B6
  2461. #
  2462. OTShRegister::importTool
  2463.  
  2464. set diag [CDM new CDROM "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2465.  
  2466. set row127 [$diag addRow attribute 0.0]
  2467. $row127 setLabel "name_type" "compatibility:char"
  2468. $row127 setScope "name_type" "cl" "scopePhase"
  2469.  
  2470. $diag save
  2471.  
  2472. # Generator: et.tcl    /main/titanic/10
  2473. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQQHAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2474. # Interpreter to use: Otsh V7.1.1/B6
  2475. #
  2476. OTShRegister::importTool
  2477.  
  2478. set diag [CDM new DamageReport "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2479.  
  2480. set row128 [$diag addRow attribute 0.0]
  2481. $row128 setLabel "name_type" "DamageReportID:integer\n"
  2482. $row128 setScope "name_type" "cl" "scopePhase"
  2483.  
  2484. set row129 [$diag addRow attribute 0.0]
  2485. $row129 setLabel "name_type" "description:varchar\n"
  2486. $row129 setScope "name_type" "cl" "scopePhase"
  2487.  
  2488. set row130 [$diag addRow attribute 0.0]
  2489. $row130 setLabel "name_type" "is_lost"
  2490.  
  2491. $diag save
  2492.  
  2493. # Generator: et.tcl    /main/titanic/10
  2494. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQQVAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2495. # Interpreter to use: Otsh V7.1.1/B6
  2496. #
  2497. OTShRegister::importTool
  2498.  
  2499. set diag [CDM new Employee "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2500.  
  2501. set row131 [$diag addRow attribute 0.0]
  2502. $row131 setLabel "name_type" "name:char\n"
  2503. $row131 setScope "name_type" "cl" "scopePhase"
  2504.  
  2505. set row132 [$diag addRow attribute 0.0]
  2506. $row132 setLabel "name_type" "department\n"
  2507.  
  2508. set row133 [$diag addRow attribute 0.0]
  2509. $row133 setLabel "name_type" "phone_number:integer"
  2510. $row133 setScope "name_type" "cl" "scopePhase"
  2511.  
  2512. set row134 [$diag addRow method 0.0]
  2513. $row134 setLabel "name_type" "\$getEmployeeName()"
  2514. $row134 setProp "has_parmlist" "1"
  2515. $row134 setProp "is_class_feature" "1"
  2516.  
  2517. $diag save
  2518.  
  2519. # Generator: et.tcl    /main/titanic/10
  2520. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQQiAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2521. # Interpreter to use: Otsh V7.1.1/B6
  2522. #
  2523. OTShRegister::importTool
  2524.  
  2525. set diag [CDM new Extension "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2526.  
  2527. set row135 [$diag addRow attribute 0.0]
  2528. $row135 setLabel "name_type" "ExtentionID:integer\n"
  2529. $row135 setScope "name_type" "cl" "scopePhase"
  2530.  
  2531. set row136 [$diag addRow attribute 0.0]
  2532. $row136 setLabel "name_type" "term"
  2533.  
  2534. $diag save
  2535.  
  2536. # Generator: et.tcl    /main/titanic/10
  2537. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQQtAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2538. # Interpreter to use: Otsh V7.1.1/B6
  2539. #
  2540. OTShRegister::importTool
  2541.  
  2542. set diag [CDM new Inventory "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2543.  
  2544. set row137 [$diag addRow attribute 0.0]
  2545. $row137 setLabel "name_type" "*name:char\n"
  2546. $row137 setProp "key" "1"
  2547. $row137 setScope "name_type" "cl" "scopePhase"
  2548.  
  2549. set row138 [$diag addRow attribute 0.0]
  2550. $row138 setLabel "name_type" "qty_available:integer"
  2551. $row138 setScope "name_type" "cl" "scopePhase"
  2552.  
  2553. set row139 [$diag addRow method 0.0]
  2554. $row139 setLabel "name_type" "reorder()"
  2555. $row139 setProp "has_parmlist" "1"
  2556.  
  2557. $diag save
  2558.  
  2559. # Generator: et.tcl    /main/titanic/10
  2560. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQQ6AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2561. # Interpreter to use: Otsh V7.1.1/B6
  2562. #
  2563. OTShRegister::importTool
  2564.  
  2565. set diag [CDM new LCD_Panel "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2566.  
  2567. set row140 [$diag addRow attribute 0.0]
  2568. $row140 setLabel "name_type" "compatibility:char"
  2569. $row140 setScope "name_type" "cl" "scopePhase"
  2570.  
  2571. $diag save
  2572.  
  2573. # Generator: et.tcl    /main/titanic/10
  2574. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQRDAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2575. # Interpreter to use: Otsh V7.1.1/B6
  2576. #
  2577. OTShRegister::importTool
  2578.  
  2579. set diag [CDM new LateFee "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2580.  
  2581. set row141 [$diag addRow attribute 0.0]
  2582. $row141 setLabel "name_type" "*LateFeeIDinteger\n"
  2583. $row141 setProp "key" "1"
  2584.  
  2585. set row142 [$diag addRow attribute 0.0]
  2586. $row142 setLabel "name_type" "/fee_amount:real\n"
  2587. $row142 setProp "is_derived" "1"
  2588. $row142 setScope "name_type" "cl" "scopePhase"
  2589.  
  2590. set row143 [$diag addRow attribute 0.0]
  2591. $row143 setLabel "name_type" "is_paid"
  2592.  
  2593. set row144 [$diag addRow method 0.0]
  2594. $row144 setLabel "name_type" "\$calculate_Fee()"
  2595. $row144 setProp "has_parmlist" "1"
  2596. $row144 setProp "is_class_feature" "1"
  2597.  
  2598. $diag save
  2599.  
  2600. # Generator: et.tcl    /main/titanic/10
  2601. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQRTAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2602. # Interpreter to use: Otsh V7.1.1/B6
  2603. #
  2604. OTShRegister::importTool
  2605.  
  2606. set diag [CDM new Loan "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2607.  
  2608. set row145 [$diag addRow attribute 0.0]
  2609. $row145 setLabel "name_type" "check_out_date\n"
  2610.  
  2611. set row146 [$diag addRow attribute 0.0]
  2612. $row146 setLabel "name_type" "/expire_data\n"
  2613. $row146 setProp "is_derived" "1"
  2614.  
  2615. set row147 [$diag addRow attribute 0.0]
  2616. $row147 setLabel "name_type" "term:integer\n"
  2617. $row147 setScope "name_type" "cl" "scopePhase"
  2618.  
  2619. set row148 [$diag addRow attribute 0.0]
  2620. $row148 setLabel "name_type" "/due_date\n"
  2621. $row148 setProp "is_derived" "1"
  2622.  
  2623. set row149 [$diag addRow attribute 0.0]
  2624. $row149 setLabel "name_type" "late_fee:real\n"
  2625. $row149 setScope "name_type" "cl" "scopePhase"
  2626.  
  2627. set row150 [$diag addRow attribute 0.0]
  2628. $row150 setLabel "name_type" "status"
  2629.  
  2630. set row151 [$diag addRow method 0.0]
  2631. $row151 setLabel "name_type" "calculate_due_date()\n"
  2632. $row151 setProp "has_parmlist" "1"
  2633.  
  2634. set row152 [$diag addRow method 0.0]
  2635. $row152 setLabel "name_type" "calculate_expire_data()"
  2636. $row152 setProp "has_parmlist" "1"
  2637.  
  2638. $diag save
  2639.  
  2640. # Generator: et.tcl    /main/titanic/10
  2641. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQRlAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2642. # Interpreter to use: Otsh V7.1.1/B6
  2643. #
  2644. OTShRegister::importTool
  2645.  
  2646. set diag [CDM new OverheadProj "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2647.  
  2648. set row153 [$diag addRow attribute 0.0]
  2649. $row153 setLabel "name_type" "intensity:char\n"
  2650. $row153 setScope "name_type" "cl" "scopePhase"
  2651.  
  2652. set row154 [$diag addRow attribute 0.0]
  2653. $row154 setLabel "name_type" "portability:char"
  2654. $row154 setScope "name_type" "cl" "scopePhase"
  2655.  
  2656. $diag save
  2657.  
  2658. # Generator: et.tcl    /main/titanic/10
  2659. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQRvAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2660. # Interpreter to use: Otsh V7.1.1/B6
  2661. #
  2662. OTShRegister::importTool
  2663.  
  2664. set diag [CDM new Return "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2665.  
  2666. set row155 [$diag addRow attribute 0.0]
  2667. $row155 setLabel "name_type" "check_in_date\n"
  2668.  
  2669. set row156 [$diag addRow attribute 0.0]
  2670. $row156 setLabel "name_type" "name:char"
  2671. $row156 setScope "name_type" "cl" "scopePhase"
  2672.  
  2673. set row157 [$diag addRow method 0.0]
  2674. $row157 setLabel "name_type" "getEquipInfo()\n"
  2675. $row157 setProp "has_parmlist" "1"
  2676.  
  2677. set row158 [$diag addRow method 0.0]
  2678. $row158 setLabel "name_type" "updateEquipInfo()"
  2679. $row158 setProp "has_parmlist" "1"
  2680.  
  2681. $diag save
  2682.  
  2683. # Generator: et.tcl    /main/titanic/10
  2684. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQR_AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2685. # Interpreter to use: Otsh V7.1.1/B6
  2686. #
  2687. OTShRegister::importTool
  2688.  
  2689. set diag [CDM new Software "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2690.  
  2691. set row159 [$diag addRow attribute 0.0]
  2692. $row159 setLabel "name_type" "version:char\n"
  2693. $row159 setScope "name_type" "cl" "scopePhase"
  2694.  
  2695. set row160 [$diag addRow attribute 0.0]
  2696. $row160 setLabel "name_type" "compatibility:char\n"
  2697. $row160 setScope "name_type" "cl" "scopePhase"
  2698.  
  2699. set row161 [$diag addRow attribute 0.0]
  2700. $row161 setLabel "name_type" "format:integer"
  2701. $row161 setScope "name_type" "cl" "scopePhase"
  2702.  
  2703. $diag save
  2704.  
  2705. # Generator: et.tcl    /main/titanic/10
  2706. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQSJAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2707. # Interpreter to use: Otsh V7.1.1/B6
  2708. #
  2709. OTShRegister::importTool
  2710.  
  2711. set diag [CDM new TrainingMaterial "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2712.  
  2713. set row162 [$diag addRow attribute 0.0]
  2714. $row162 setLabel "name_type" "*name:char\n"
  2715. $row162 setProp "key" "1"
  2716. $row162 setScope "name_type" "cl" "scopePhase"
  2717.  
  2718. set row163 [$diag addRow attribute 0.0]
  2719. $row163 setLabel "name_type" "description :varchar"
  2720. $row163 setScope "name_type" "cl" "scopePhase"
  2721.  
  2722. set row164 [$diag addRow method 0.0]
  2723. $row164 setLabel "name_type" "getinfo()"
  2724. $row164 setProp "has_parmlist" "1"
  2725.  
  2726. $diag save
  2727.  
  2728. # Generator: et.tcl    /main/titanic/10
  2729. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQSWAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2730. # Interpreter to use: Otsh V7.1.1/B6
  2731. #
  2732. OTShRegister::importTool
  2733.  
  2734. set diag [CDM new VCR_Tape "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2735.  
  2736. set row165 [$diag addRow attribute 0.0]
  2737. $row165 setLabel "name_type" "duration:integer\n"
  2738. $row165 setScope "name_type" "cl" "scopePhase"
  2739.  
  2740. set row166 [$diag addRow attribute 0.0]
  2741. $row166 setLabel "name_type" "rating:char"
  2742. $row166 setScope "name_type" "cl" "scopePhase"
  2743.  
  2744. $diag save
  2745.  
  2746. # Generator: et.tcl    /main/titanic/10
  2747. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQSgAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2748. # Interpreter to use: Otsh V7.1.1/B6
  2749. #
  2750. OTShRegister::importTool
  2751.  
  2752. set diag [CDM new WaitingList "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2753.  
  2754. set row167 [$diag addRow attribute 0.0]
  2755. $row167 setLabel "name_type" "request_date\n"
  2756.  
  2757. set row168 [$diag addRow attribute 0.0]
  2758. $row168 setLabel "name_type" "date_required\n"
  2759.  
  2760. set row169 [$diag addRow attribute 0.0]
  2761. $row169 setLabel "name_type" "status"
  2762.  
  2763. set row170 [$diag addRow method 0.0]
  2764. $row170 setLabel "name_type" "reserve():integer"
  2765. $row170 setProp "has_parmlist" "1"
  2766. $row170 setScope "name_type" "cl" "scopePhase"
  2767.  
  2768. $diag save
  2769.  
  2770. # Generator: et.tcl    /main/titanic/10
  2771. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQSsAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2772. # Interpreter to use: Otsh V7.1.1/B6
  2773. #
  2774. OTShRegister::importTool
  2775.  
  2776. set diag [CDM new Workbook "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  2777.  
  2778. set row171 [$diag addRow attribute 0.0]
  2779. $row171 setLabel "name_type" "*course_name:varchar"
  2780. $row171 setProp "key" "1"
  2781. $row171 setScope "name_type" "cl" "scopePhase"
  2782.  
  2783. $diag save
  2784.  
  2785. # Generator: et.tcl    /main/titanic/10
  2786. # Argument(s): -fGraph:Uj0DirzR9xzcAqQS2AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2787. # Interpreter to use: Otsh V7.1.1/B6
  2788. #
  2789. OTShRegister::importTool
  2790.  
  2791. set diag [ETD new common:Employee_requests_LCD_Panel "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 0]
  2792.  
  2793. set node172 [$diag addNode etd_object 1310.5 1344.0 3.0 45.0]
  2794. $node172 setLabel "name_type" "Loan"
  2795. $node172 setScope "name_type" "cl" "scopePhase"
  2796.  
  2797. set node173 [$diag addNode etd_object 1310.5 1168.0 3.0 64.0]
  2798. $node173 setLabel "name_type" "WaitingList"
  2799. $node173 setScope "name_type" "cl" "scopePhase"
  2800.  
  2801. set node174 [$diag addNode etd_object 1310.5 1424.0 3.0 39.0]
  2802. $node174 setLabel "name_type" "WaitingList"
  2803. $node174 setScope "name_type" "cl" "scopePhase"
  2804.  
  2805. set node175 [$diag addNode etd_object 1502.5 928.0 3.0 49.0]
  2806. $node175 setLabel "name_type" "Inventory"
  2807. $node175 setScope "name_type" "cl" "scopePhase"
  2808.  
  2809. set node176 [$diag addNode etd_object 1134.5 816.0 3.0 639.0]
  2810. $node176 setLabel "name_type" "LoanCoordinator"
  2811. $node176 setScope "name_type" "cl" "scopePhase"
  2812.  
  2813. set node177 [$diag addNode etd_object 1326.5 928.0 3.0 52.0]
  2814. $node177 setLabel "name_type" "loan"
  2815. $node177 setScope "name_type" "cl" "scopePhase"
  2816.  
  2817. set node178 [$diag addNode etd_object 1518.5 1344.0 3.0 46.0]
  2818. $node178 setLabel "name_type" "Inventory"
  2819. $node178 setScope "name_type" "cl" "scopePhase"
  2820.  
  2821. set node179 [$diag addNode etd_initiator 830.5 816.0 3.0 630.0]
  2822. $node179 setLabel "name_type" "Borrower"
  2823. $node179 setScope "name_type" "cl" "scopePhase"
  2824.  
  2825. set node180 [$diag addNode etd_object 1598.5 1024.0 3.0 301.0]
  2826. $node180 setLabel "name_type" "TrainingMaterial"
  2827. $node180 setScope "name_type" "cl" "scopePhase"
  2828.  
  2829. set node181 [$diag addNode etd_object 1598.5 816.0 3.0 122.0]
  2830. $node181 setLabel "name_type" "Proxima:LCD_Panel"
  2831. $node181 setScope "name_type" "cl" "scopePhase"
  2832. $node181 setScope "name_type" "de" "scopeSystem"
  2833.  
  2834. set conn182 [$diag addConn etd_event $node176 $node179 1136.0 1296.0 832.0 1296.0]
  2835. set segm183 [$conn182 getFirstSegm]
  2836. $segm183 setLabel "event" "notify borrower"
  2837. $segm183 setScope "event" "pe" "scopeSystem"
  2838.  
  2839. set conn184 [$diag addConn etd_event $node176 $node179 1136.0 912.0 832.0 912.0]
  2840. set segm185 [$conn184 getFirstSegm]
  2841. $segm185 setLabel "event" "notifies borrower"
  2842. $segm185 setScope "event" "pe" "scopeSystem"
  2843.  
  2844. set conn186 [$diag addConn etd_event $node176 $node179 1136.0 1120.0 832.0 1120.0]
  2845. set segm187 [$conn186 getFirstSegm]
  2846. $segm187 setLabel "event" "notifies borrower"
  2847. $segm187 setScope "event" "pe" "scopeSystem"
  2848.  
  2849. set conn188 [$diag addConn etd_event $node176 $node181 1136.0 832.0 1600.0 832.0]
  2850. set segm189 [$conn188 getFirstSegm]
  2851. $segm189 setLabel "event" "checks availability"
  2852. $segm189 setScope "event" "pe" "scopeSystem"
  2853.  
  2854. set conn190 [$diag addConn etd_event $node176 $node180 1136.0 1056.0 1600.0 1056.0]
  2855. set segm191 [$conn190 getFirstSegm]
  2856. $segm191 setLabel "event" "checks availability"
  2857. $segm191 setScope "event" "pe" "scopeSystem"
  2858.  
  2859. set conn192 [$diag addConn etd_event $node176 $node180 1136.0 1248.0 1600.0 1248.0]
  2860. set segm193 [$conn192 getFirstSegm]
  2861. $segm193 setLabel "event" "checks availablity"
  2862. $segm193 setScope "event" "pe" "scopeSystem"
  2863.  
  2864. set conn194 [$diag addConn etd_event $node176 $node172 1136.0 1360.0 1312.0 1360.0]
  2865. set segm195 [$conn194 getFirstSegm]
  2866. $segm195 setLabel "event" "creates"
  2867. $segm195 setScope "event" "pe" "scopeSystem"
  2868.  
  2869. set conn196 [$diag addConn etd_event $node176 $node174 1136.0 1440.0 1312.0 1440.0]
  2870. set segm197 [$conn196 getFirstSegm]
  2871. $segm197 setLabel "event" "deletes"
  2872. $segm197 setScope "event" "pe" "scopeSystem"
  2873.  
  2874. set conn198 [$diag addConn etd_event $node176 $node173 1136.0 1200.0 1312.0 1200.0]
  2875. set segm199 [$conn198 getFirstSegm]
  2876. $segm199 setLabel "event" "creates"
  2877. $segm199 setScope "event" "pe" "scopeSystem"
  2878.  
  2879. set conn200 [$diag addConn etd_event $node177 $node175 1328.0 944.0 1504.0 944.0]
  2880. set segm201 [$conn200 getFirstSegm]
  2881. $segm201 setLabel "event" "decrement qty"
  2882. $segm201 setScope "event" "pe" "scopeSystem"
  2883.  
  2884. set conn202 [$diag addConn etd_event $node179 $node176 832.0 832.0 1136.0 832.0]
  2885. set segm203 [$conn202 getFirstSegm]
  2886. $segm203 setLabel "event" "calls to request LCD_Panel"
  2887. $segm203 setScope "event" "pe" "scopeSystem"
  2888.  
  2889. set conn204 [$diag addConn etd_event $node180 $node176 1600.0 1296.0 1136.0 1296.0]
  2890. set segm205 [$conn204 getFirstSegm]
  2891. $segm205 setLabel "event" "item is available"
  2892. $segm205 setScope "event" "pe" "scopeSystem"
  2893.  
  2894. set conn206 [$diag addConn etd_event $node181 $node176 1600.0 880.0 1136.0 880.0]
  2895. set segm207 [$conn206 getFirstSegm]
  2896. $segm207 setLabel "event" "item is available"
  2897. $segm207 setScope "event" "pe" "scopeSystem"
  2898.  
  2899. set conn208 [$diag addConn etd_event $node179 $node176 832.0 1056.0 1136.0 1056.0]
  2900. set segm209 [$conn208 getFirstSegm]
  2901. $segm209 setLabel "event" "request overhead projector"
  2902. $segm209 setScope "event" "pe" "scopeSystem"
  2903.  
  2904. set conn210 [$diag addConn etd_event $node180 $node176 1600.0 1120.0 1136.0 1120.0]
  2905. set segm211 [$conn210 getFirstSegm]
  2906. $segm211 setLabel "event" "item is not available"
  2907. $segm211 setScope "event" "pe" "scopeSystem"
  2908.  
  2909. set conn212 [$diag addConn etd_event $node179 $node176 832.0 1184.0 1136.0 1184.0]
  2910. set segm213 [$conn212 getFirstSegm]
  2911. $segm213 setLabel "event" "requests to be on waiting list"
  2912. $segm213 setScope "event" "pe" "scopeSystem"
  2913.  
  2914. set conn214 [$diag addConn etd_event $node176 $node177 1136.0 944.0 1328.0 944.0]
  2915. set segm215 [$conn214 getFirstSegm]
  2916. $segm215 setLabel "event" "creates"
  2917. $segm215 setScope "event" "pe" "scopeSystem"
  2918.  
  2919. set conn216 [$diag addConn etd_event $node172 $node178 1312.0 1360.0 1520.0 1360.0]
  2920. set segm217 [$conn216 getFirstSegm]
  2921. $segm217 setLabel "event" "decrement qty"
  2922. $segm217 setScope "event" "pe" "scopeSystem"
  2923.  
  2924. $diag save
  2925.  
  2926. # Generator: et.tcl    /main/titanic/10
  2927. # Argument(s): -fGraph:Uj0DirzR9xzcAqQTWAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  2928. # Interpreter to use: Otsh V7.1.1/B6
  2929. #
  2930. OTShRegister::importTool
  2931.  
  2932. set diag [ETD new common:Employee_requests_extension "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 0]
  2933.  
  2934. set node218 [$diag addNode etd_object 1614.5 816.0 3.0 481.0]
  2935. $node218 setLabel "name_type" "Loan"
  2936. $node218 setScope "name_type" "cl" "scopePhase"
  2937.  
  2938. set node219 [$diag addNode etd_object 1070.5 816.0 3.0 475.0]
  2939. $node219 setLabel "name_type" "LoanCoordinator"
  2940. $node219 setScope "name_type" "cl" "scopePhase"
  2941.  
  2942. set node220 [$diag addNode etd_object 1454.5 976.0 3.0 120.0]
  2943. $node220 setLabel "name_type" "WaitingList"
  2944. $node220 setScope "name_type" "cl" "scopePhase"
  2945.  
  2946. set node221 [$diag addNode etd_initiator 830.5 816.0 3.0 474.0]
  2947. $node221 setLabel "name_type" "Borrower"
  2948. $node221 setScope "name_type" "cl" "scopePhase"
  2949.  
  2950. set node222 [$diag addNode etd_object 1342.5 1104.0 3.0 120.0]
  2951. $node222 setLabel "name_type" "Extension"
  2952. $node222 setScope "name_type" "cl" "scopePhase"
  2953.  
  2954. set conn223 [$diag addConn etd_event $node219 $node221 1072.0 1248.0 832.0 1248.0]
  2955. set segm224 [$conn223 getFirstSegm]
  2956. $segm224 setLabel "event" "notifies new due date"
  2957. $segm224 setScope "event" "pe" "scopeSystem"
  2958.  
  2959. set conn225 [$diag addConn etd_event $node219 $node222 1072.0 1136.0 1344.0 1136.0]
  2960. set segm226 [$conn225 getFirstSegm]
  2961. $segm226 setLabel "event" "creates"
  2962. $segm226 setScope "event" "pe" "scopeSystem"
  2963.  
  2964. set conn227 [$diag addConn etd_event $node222 $node218 1344.0 1168.0 1616.0 1168.0]
  2965. set segm228 [$conn227 getFirstSegm]
  2966. $segm228 setLabel "event" "update due date"
  2967. $segm228 setScope "event" "pe" "scopeSystem"
  2968.  
  2969. set conn229 [$diag addConn etd_event $node219 $node218 1072.0 848.0 1616.0 848.0]
  2970. set segm230 [$conn229 getFirstSegm]
  2971. $segm230 setLabel "event" "checks Loan status"
  2972. $segm230 setScope "event" "pe" "scopeSystem"
  2973.  
  2974. set conn231 [$diag addConn etd_event $node220 $node219 1456.0 1040.0 1072.0 1040.0]
  2975. set segm232 [$conn231 getFirstSegm]
  2976. $segm232 setLabel "event" "item is not reserved"
  2977. $segm232 setScope "event" "pe" "scopeSystem"
  2978.  
  2979. set conn233 [$diag addConn etd_event $node221 $node219 832.0 848.0 1072.0 848.0]
  2980. set segm234 [$conn233 getFirstSegm]
  2981. $segm234 setLabel "event" "request extension for LCD_Panel"
  2982. $segm234 setScope "event" "pe" "scopeSystem"
  2983.  
  2984. set conn235 [$diag addConn etd_event $node218 $node219 1616.0 912.0 1072.0 912.0]
  2985. set segm236 [$conn235 getFirstSegm]
  2986. $segm236 setLabel "event" "status is on_loan"
  2987. $segm236 setScope "event" "pe" "scopeSystem"
  2988.  
  2989. set conn237 [$diag addConn etd_event $node218 $node219 1616.0 1248.0 1072.0 1248.0]
  2990. set segm238 [$conn237 getFirstSegm]
  2991. $segm238 setLabel "event" "new due date"
  2992. $segm238 setScope "event" "pe" "scopeSystem"
  2993.  
  2994. set conn239 [$diag addConn etd_event $node219 $node220 1072.0 992.0 1456.0 992.0]
  2995. set segm240 [$conn239 getFirstSegm]
  2996. $segm240 setLabel "event" "checks WaitingList for item and date"
  2997. $segm240 setScope "event" "pe" "scopeSystem"
  2998.  
  2999. $diag save
  3000.  
  3001. # Generator: et.tcl    /main/titanic/10
  3002. # Argument(s): -fGraph:Uj0DirzR9xzcAqQTqAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3003. # Interpreter to use: Otsh V7.1.1/B6
  3004. #
  3005. OTShRegister::importTool
  3006.  
  3007. set diag [STD new Loan:top "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  3008.  
  3009. set node241 [$diag addNode state 1344.0 1344.0 259.0 64.0]
  3010. $node241 setLabel "name" "Returned"
  3011.  
  3012. set node242 [$diag addNode state 1344.0 880.0 272.0 80.0]
  3013. $node242 setLabel "name" "Reserved"
  3014.  
  3015. set node243 [$diag addNode state 1344.0 1120.0 160.0 64.0]
  3016. $node243 setLabel "name" "On Loan"
  3017.  
  3018. set node244 [$diag addNode final_state 866.0 1474.0 28.0 28.0]
  3019. $node244 setLabel "name" "Damaged"
  3020.  
  3021. set node245 [$diag addNode final_state 1106.0 1474.0 28.0 28.0]
  3022. $node245 setLabel "name" "Lost"
  3023.  
  3024. set node246 [$diag addNode state 816.0 1344.0 120.0 64.0]
  3025. $node246 setLabel "name" "Damaged"
  3026.  
  3027. set node247 [$diag addNode state 1008.0 1120.0 120.0 64.0]
  3028. $node247 setLabel "name" "Overdue"
  3029.  
  3030. set node248 [$diag addNode final_state 1058.0 1218.0 28.0 28.0]
  3031.  
  3032. set node249 [$diag addNode std_class 948.0 924.0 120.0 40.0]
  3033. $node249 setLabel "name" "Loan\nCoordinator"
  3034. $node249 setScope "name" "cl" "scopePhase"
  3035.  
  3036. set node250 [$diag addNode state 1072.0 1344.0 120.0 64.0]
  3037. $node250 setLabel "name" "Lost"
  3038.  
  3039. set node251 [$diag addNode final_state 1394.0 1474.0 28.0 28.0]
  3040. $node251 setLabel "name" "Done"
  3041.  
  3042. set node252 [$diag addNode start_state 1401.0 809.0 14.0 14.0]
  3043.  
  3044. set node253 [$diag addNode super_state 925.0 1049.0 710.0 206.0]
  3045.  
  3046. set conn257 [$diag addConn transition $node253 $node246 949.0 1152.0 864.0 1360.0]
  3047. $conn257 setLabel "event" "check_in"
  3048. $conn257 setLabel "condition" "\[is_damaged=true\]"
  3049. set segm258 [$conn257 getFirstSegm]
  3050. set segm259 [$conn257 addSegm 864.0 1152.0]
  3051. set segm260 [$conn257 addSegm 864.0 1216.0]
  3052. $segm260 setLabel "editor_only" " "
  3053.  
  3054. set conn261 [$diag addConn transition $node252 $node242 1408.0 816.0 1408.0 896.0]
  3055. set segm262 [$conn261 getFirstSegm]
  3056. $segm262 setLabel "editor_only" " "
  3057.  
  3058. set conn263 [$diag addConn transition $node253 $node241 1408.0 1248.0 1408.0 1360.0]
  3059. $conn263 setLabel "event" "check_in"
  3060. set segm264 [$conn263 getFirstSegm]
  3061. $segm264 setLabel "editor_only" " "
  3062.  
  3063. set conn265 [$diag addConn transition $node241 $node251 1408.0 1408.0 1408.0 1488.0]
  3064. set segm266 [$conn265 getFirstSegm]
  3065. $segm266 setLabel "editor_only" " "
  3066.  
  3067. set conn267 [$diag addConn transition $node242 $node243 1408.0 928.0 1408.0 1136.0]
  3068. $conn267 setLabel "event" "check_out"
  3069. set segm268 [$conn267 getFirstSegm]
  3070. $segm268 setLabel "editor_only" " "
  3071.  
  3072. set conn269 [$diag addConn transition $node242 $node241 1456.0 912.0 1424.0 1376.0]
  3073. $conn269 setLabel "event" "reservation expired"
  3074. set segm270 [$conn269 getFirstSegm]
  3075. $segm270 setLabel "editor_only" " "
  3076. set segm271 [$conn269 addSegm 1776.0 912.0]
  3077. set segm272 [$conn269 addSegm 1776.0 1376.0]
  3078.  
  3079. set conn273 [$diag addConn transition $node246 $node244 880.0 1408.0 880.0 1488.0]
  3080. set segm274 [$conn273 getFirstSegm]
  3081. $segm274 setLabel "editor_only" " "
  3082.  
  3083. set conn275 [$diag addConn transition $node250 $node245 1120.0 1408.0 1120.0 1488.0]
  3084. set segm276 [$conn275 getFirstSegm]
  3085. $segm276 setLabel "editor_only" " "
  3086.  
  3087. set conn277 [$diag addConn transition $node243 $node247 1360.0 1152.0 1072.0 1152.0]
  3088. $conn277 setLabel "event" "due_date_exceeded"
  3089. set segm278 [$conn277 getFirstSegm]
  3090. $segm278 setLabel "editor_only" " "
  3091.  
  3092. set conn279 [$diag addConn transition $node243 $node248 1408.0 1184.0 1072.0 1232.0]
  3093. set segm280 [$conn279 getFirstSegm]
  3094. set segm281 [$conn279 addSegm 1408.0 1232.0]
  3095. $segm281 setLabel "editor_only" " "
  3096.  
  3097. set conn282 [$diag addConn transition $node247 $node248 1072.0 1184.0 1072.0 1232.0]
  3098. set segm283 [$conn282 getFirstSegm]
  3099. $segm283 setLabel "editor_only" " "
  3100.  
  3101. set conn284 [$diag addConn transition $node253 $node250 1136.0 1248.0 1136.0 1360.0]
  3102. $conn284 setLabel "event" "check_in"
  3103. $conn284 setLabel "condition" "\[is_lost=true\]"
  3104. set segm285 [$conn284 getFirstSegm]
  3105. $segm285 setLabel "editor_only" " "
  3106.  
  3107. set conn286 [$diag addConn transition $node243 $node243 1488.0 1152.0 1456.0 1184.0]
  3108. $conn286 setLabel "event" "loan extended"
  3109. set segm287 [$conn286 getFirstSegm]
  3110. set segm288 [$conn286 addSegm 1584.0 1152.0]
  3111. $segm288 setLabel "editor_only" " "
  3112. set segm289 [$conn286 addSegm 1584.0 1216.0]
  3113. set segm290 [$conn286 addSegm 1456.0 1216.0]
  3114.  
  3115. set conn254 [$diag addConn event_msg $segm278 $node249 1168.0 1152.0 1056.0 944.0]
  3116. set segm255 [$conn254 getFirstSegm]
  3117. set segm256 [$conn254 addSegm 1168.0 944.0]
  3118. $segm256 setLabel "event" "advise"
  3119.  
  3120. set cono292 [$node243 addActivity]
  3121. $cono292 setLabel "name" "do: calculate due_date"
  3122.  
  3123. set cono293 [$node241 addStateAction]
  3124. $cono293 setLabel "action" "/increment item quantity available"
  3125. $cono293 setLabel "event" "entry"
  3126. $cono293 setScope "event" "rs" "scopeSystem"
  3127.  
  3128. set cono294 [$node242 addStateAction]
  3129. $cono294 setLabel "action" "/decrement item quantity available\n"
  3130. $cono294 setLabel "event" "entery"
  3131.  
  3132. set cono291 [$node242 addActivity]
  3133. $cono291 setLabel "name" "do:check expire date"
  3134.  
  3135. $diag save
  3136.  
  3137. # Generator: et.tcl    /main/titanic/10
  3138. # Argument(s): -fGraph:Uj0DirzR9xzcAqQUKAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3139. # Interpreter to use: Otsh V7.1.1/B6
  3140. #
  3141. OTShRegister::importTool
  3142.  
  3143. set diag [STD new WaitingList:top "Business" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  3144.  
  3145. set node295 [$diag addNode state 1104.0 928.0 173.0 80.0]
  3146. $node295 setLabel "name" "Waiting"
  3147.  
  3148. set node296 [$diag addNode state 1104.0 1344.0 132.0 64.0]
  3149. $node296 setLabel "name" "Not Waiting"
  3150.  
  3151. set node297 [$diag addNode state 1104.0 1136.0 164.0 80.0]
  3152. $node297 setLabel "name" "Reserved"
  3153.  
  3154. set node298 [$diag addNode final_state 1554.0 1362.0 28.0 28.0]
  3155. $node298 setLabel "name" "Done"
  3156.  
  3157. set node299 [$diag addNode start_state 1177.0 809.0 14.0 14.0]
  3158.  
  3159. set node300 [$diag addNode state 1504.0 1136.0 153.0 80.0]
  3160. $node300 setLabel "name" "Expired"
  3161.  
  3162. set node301 [$diag addNode std_class 820.0 1068.0 120.0 40.0]
  3163. $node301 setLabel "name" "Loan\nCoordinator"
  3164. $node301 setScope "name" "cl" "scopePhase"
  3165.  
  3166. set conn304 [$diag addConn transition $node295 $node297 1184.0 976.0 1184.0 1168.0]
  3167. $conn304 setLabel "event" "item is available\n"
  3168. set segm305 [$conn304 getFirstSegm]
  3169. $segm305 setLabel "editor_only" " "
  3170.  
  3171. set conn306 [$diag addConn transition $node297 $node296 1184.0 1200.0 1184.0 1360.0]
  3172. $conn306 setLabel "event" "item is checked_out"
  3173. set segm307 [$conn306 getFirstSegm]
  3174. $segm307 setLabel "editor_only" " "
  3175.  
  3176. set conn308 [$diag addConn transition $node299 $node295 1184.0 816.0 1184.0 944.0]
  3177. set segm309 [$conn308 getFirstSegm]
  3178. $segm309 setLabel "editor_only" " "
  3179.  
  3180. set conn310 [$diag addConn transition $node297 $node300 1264.0 1168.0 1504.0 1168.0]
  3181. $conn310 setLabel "event" "reservation date has expired"
  3182. set segm311 [$conn310 getFirstSegm]
  3183. $segm311 setLabel "editor_only" " "
  3184.  
  3185. set conn312 [$diag addConn transition $node295 $node300 1248.0 960.0 1568.0 1168.0]
  3186. $conn312 setLabel "event" "date required has expired"
  3187. set segm313 [$conn312 getFirstSegm]
  3188. set segm314 [$conn312 addSegm 1568.0 960.0]
  3189. $segm314 setLabel "editor_only" " "
  3190.  
  3191. set conn315 [$diag addConn transition $node300 $node298 1568.0 1200.0 1568.0 1376.0]
  3192. set segm316 [$conn315 getFirstSegm]
  3193. $segm316 setLabel "editor_only" " "
  3194.  
  3195. set conn317 [$diag addConn transition $node296 $node298 1216.0 1376.0 1568.0 1376.0]
  3196. set segm318 [$conn317 getFirstSegm]
  3197. $segm318 setLabel "editor_only" " "
  3198.  
  3199. set conn302 [$diag addConn event_msg $segm305 $node301 1184.0 1088.0 928.0 1088.0]
  3200. set segm303 [$conn302 getFirstSegm]
  3201. $segm303 setLabel "event" "notify"
  3202.  
  3203. set cono322 [$node296 addStateAction]
  3204. $cono322 setLabel "action" "/status=done"
  3205. $cono322 setLabel "event" "entry"
  3206. $cono322 setScope "action" "de" "scopeSystem"
  3207. $cono322 setScope "event" "rs" "scopeSystem"
  3208.  
  3209. set cono323 [$node300 addStateAction]
  3210. $cono323 setLabel "action" "/status='expired'\n"
  3211. $cono323 setLabel "event" "entry"
  3212. $cono323 setScope "action" "de" "scopeSystem"
  3213. $cono323 setScope "event" "rs" "scopeSystem"
  3214.  
  3215. set cono324 [$node297 addStateAction]
  3216. $cono324 setLabel "action" "/status='reserved'\n"
  3217. $cono324 setLabel "event" "entry"
  3218. $cono324 setScope "action" "de" "scopeSystem"
  3219. $cono324 setScope "event" "rs" "scopeSystem"
  3220.  
  3221. set cono325 [$node295 addStateAction]
  3222. $cono325 setLabel "action" "/status='waiting'\n"
  3223. $cono325 setLabel "event" "entry"
  3224. $cono325 setScope "action" "de" "scopeSystem"
  3225. $cono325 setScope "event" "rs" "scopeSystem"
  3226.  
  3227. set cono319 [$node300 addActivity]
  3228. $cono319 setLabel "name" "do:expired loan"
  3229.  
  3230. set cono320 [$node297 addActivity]
  3231. $cono320 setLabel "name" "do:reserve item"
  3232.  
  3233. set cono321 [$node295 addActivity]
  3234. $cono321 setLabel "name" "do:check item availability"
  3235.  
  3236. $diag save
  3237.  
  3238. # Generator: et.tcl    /main/titanic/10
  3239. # Argument(s): -fGraph:Uj0DirzR9xzcAqQjnAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3240. # Interpreter to use: Otsh V7.1.1/B6
  3241. #
  3242. OTShRegister::importTool
  3243.  
  3244. set diag [CAD new PresentationUI "Presentation" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  3245.  
  3246. set node2 [$diag addNode cad_class 576.0 864.0 120.0 180.0]
  3247. $node2 setLabel "name" "Check_out"
  3248. $node2 setScope "name" "cl" "scopePhase"
  3249.  
  3250. set node3 [$diag addNode cad_class 864.0 864.0 120.0 180.0]
  3251. $node3 setLabel "name" "CRUD_User"
  3252. $node3 setScope "name" "cl" "scopePhase"
  3253.  
  3254. set node4 [$diag addNode cad_class 1152.0 864.0 120.0 100.0]
  3255. $node4 setLabel "name" "Late_return"
  3256. $node4 setScope "name" "cl" "scopePhase"
  3257.  
  3258. set node5 [$diag addNode cad_class 720.0 864.0 120.0 180.0]
  3259. $node5 setLabel "name" "Check_in"
  3260. $node5 setScope "name" "cl" "scopePhase"
  3261.  
  3262. set node6 [$diag addNode cad_class 784.0 672.0 120.0 32.0]
  3263. $node6 setLabel "name" "Forms"
  3264. $node6 setProp "is_folded" "1"
  3265. $node6 setScope "name" "cl" "scopePhase"
  3266.  
  3267. set node7 [$diag addNode cad_class 1008.0 864.0 120.0 100.0]
  3268. $node7 setLabel "name" "Extension"
  3269. $node7 setScope "name" "cl" "scopeSystem"
  3270.  
  3271. set node1 [$diag addRake generalization $node6 $node5 848.0 704.0 768.0 912.0 808.0]
  3272.  
  3273. set conn8 [$node1 getInConn]
  3274. set segm9 [$conn8 getFirstSegm]
  3275.  
  3276. set conn10 [$node1 getFirstOutConn]
  3277. set segm11 [$conn10 getFirstSegm]
  3278.  
  3279. set conn12 [$diag addConn generalization_conn $node1 $node3 928.0 808.0 928.0 896.0]
  3280. set segm13 [$conn12 getFirstSegm]
  3281.  
  3282. set conn14 [$diag addConn generalization_conn $node1 $node2 656.0 808.0 656.0 896.0]
  3283. set segm15 [$conn14 getFirstSegm]
  3284.  
  3285. set conn16 [$diag addConn generalization_conn $node1 $node7 1056.0 808.0 1056.0 896.0]
  3286. set segm17 [$conn16 getFirstSegm]
  3287.  
  3288. set conn18 [$diag addConn generalization_conn $node1 $node4 1200.0 808.0 1200.0 880.0]
  3289. set segm19 [$conn18 getFirstSegm]
  3290.  
  3291. $diag save
  3292.  
  3293. # Generator: et.tcl    /main/titanic/10
  3294. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQj2AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3295. # Interpreter to use: Otsh V7.1.1/B6
  3296. #
  3297. OTShRegister::importTool
  3298.  
  3299. set diag [CDM new CRUD_User "Presentation" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  3300.  
  3301. set row20 [$diag addRow method 0.0]
  3302. $row20 setLabel "name_type" "insert()\n"
  3303. $row20 setProp "has_parmlist" "1"
  3304.  
  3305. set row21 [$diag addRow method 0.0]
  3306. $row21 setLabel "name_type" "find()\n"
  3307. $row21 setProp "has_parmlist" "1"
  3308.  
  3309. set row22 [$diag addRow method 0.0]
  3310. $row22 setLabel "name_type" "update()\n"
  3311. $row22 setProp "has_parmlist" "1"
  3312.  
  3313. set row23 [$diag addRow method 0.0]
  3314. $row23 setLabel "name_type" "delete()\n"
  3315. $row23 setProp "has_parmlist" "1"
  3316.  
  3317. set row24 [$diag addRow method 0.0]
  3318. $row24 setLabel "name_type" "next()\n"
  3319. $row24 setProp "has_parmlist" "1"
  3320.  
  3321. set row25 [$diag addRow method 0.0]
  3322. $row25 setLabel "name_type" "previous()"
  3323. $row25 setProp "has_parmlist" "1"
  3324.  
  3325. $diag save
  3326.  
  3327. # Generator: et.tcl    /main/titanic/10
  3328. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQkEAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3329. # Interpreter to use: Otsh V7.1.1/B6
  3330. #
  3331. OTShRegister::importTool
  3332.  
  3333. set diag [CDM new Check_in "Presentation" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  3334.  
  3335. set row26 [$diag addRow method 0.0]
  3336. $row26 setLabel "name_type" "insert()\n"
  3337. $row26 setProp "has_parmlist" "1"
  3338.  
  3339. set row27 [$diag addRow method 0.0]
  3340. $row27 setLabel "name_type" "find()\n"
  3341. $row27 setProp "has_parmlist" "1"
  3342.  
  3343. set row28 [$diag addRow method 0.0]
  3344. $row28 setLabel "name_type" "update()\n"
  3345. $row28 setProp "has_parmlist" "1"
  3346.  
  3347. set row29 [$diag addRow method 0.0]
  3348. $row29 setLabel "name_type" "delete()\n"
  3349. $row29 setProp "has_parmlist" "1"
  3350.  
  3351. set row30 [$diag addRow method 0.0]
  3352. $row30 setLabel "name_type" "next()\n"
  3353. $row30 setProp "has_parmlist" "1"
  3354.  
  3355. set row31 [$diag addRow method 0.0]
  3356. $row31 setLabel "name_type" "previous()"
  3357. $row31 setProp "has_parmlist" "1"
  3358.  
  3359. $diag save
  3360.  
  3361. # Generator: et.tcl    /main/titanic/10
  3362. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQkSAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3363. # Interpreter to use: Otsh V7.1.1/B6
  3364. #
  3365. OTShRegister::importTool
  3366.  
  3367. set diag [CDM new Check_out "Presentation" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  3368.  
  3369. set row32 [$diag addRow method 0.0]
  3370. $row32 setLabel "name_type" "insert()\n"
  3371. $row32 setProp "has_parmlist" "1"
  3372.  
  3373. set row33 [$diag addRow method 0.0]
  3374. $row33 setLabel "name_type" "find()\n"
  3375. $row33 setProp "has_parmlist" "1"
  3376.  
  3377. set row34 [$diag addRow method 0.0]
  3378. $row34 setLabel "name_type" "update()\n"
  3379. $row34 setProp "has_parmlist" "1"
  3380.  
  3381. set row35 [$diag addRow method 0.0]
  3382. $row35 setLabel "name_type" "delete_object()\n"
  3383. $row35 setProp "has_parmlist" "1"
  3384.  
  3385. set row36 [$diag addRow method 0.0]
  3386. $row36 setLabel "name_type" "next()\n"
  3387. $row36 setProp "has_parmlist" "1"
  3388.  
  3389. set row37 [$diag addRow method 0.0]
  3390. $row37 setLabel "name_type" "previous()"
  3391. $row37 setProp "has_parmlist" "1"
  3392.  
  3393. $diag save
  3394.  
  3395. # Generator: et.tcl    /main/titanic/10
  3396. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQkgAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3397. # Interpreter to use: Otsh V7.1.1/B6
  3398. #
  3399. OTShRegister::importTool
  3400.  
  3401. set diag [CDM new Extension "Presentation" "SystemDesign" "SystemDesign" "Prototype" "1" "" 0]
  3402.  
  3403. set row38 [$diag addRow method 0.0]
  3404. $row38 setLabel "name_type" "ok()"
  3405. $row38 setProp "has_parmlist" "1"
  3406.  
  3407. $diag save
  3408.  
  3409. # Generator: et.tcl    /main/titanic/10
  3410. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQkpAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3411. # Interpreter to use: Otsh V7.1.1/B6
  3412. #
  3413. OTShRegister::importTool
  3414.  
  3415. set diag [CDM new Late_return "Presentation" "SystemDesign" "SystemDesign" "Prototype" "1" "" 1]
  3416.  
  3417. set row39 [$diag addRow method 0.0]
  3418. $row39 setLabel "name_type" "ok()"
  3419. $row39 setProp "has_parmlist" "1"
  3420.  
  3421. $diag save
  3422.  
  3423. # Generator: et.tcl    /main/titanic/10
  3424. # Argument(s): -fGraph:Uj0DirzR9xzcAqQVGAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3425. # Interpreter to use: Otsh V7.1.1/B6
  3426. #
  3427. OTShRegister::importTool
  3428.  
  3429. set diag [CAD new CoreClasses "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3430.  
  3431. set node2 [$diag addNode cad_class 800.0 832.0 318.667 129.333]
  3432. $node2 setLabel "name" "Employee"
  3433. $node2 setScope "name" "cl" "scopePhase"
  3434. $node2 setProp "persistent" "1" "name" "cl"
  3435.  
  3436. set node3 [$diag addNode cad_class 1280.0 1584.0 186.667 144.0]
  3437. $node3 setLabel "name" "Loan_Return"
  3438. $node3 setScope "name" "cl" "scopePhase"
  3439. $node3 setProp "persistent" "1" "name" "cl"
  3440.  
  3441. set node4 [$diag addNode cad_class 1792.0 1280.0 273.333 114.667]
  3442. $node4 setLabel "name" "Inventory"
  3443. $node4 setScope "name" "cl" "scopePhase"
  3444.  
  3445. set node5 [$diag addNode cad_class 1792.0 1072.0 137.333 103.333]
  3446. $node5 setLabel "name" "\n\nTrainingMaterial"
  3447. $node5 setProp "is_folded" "1"
  3448. $node5 setScope "name" "cl" "scopePhase"
  3449.  
  3450. set node6 [$diag addNode cad_class 1296.0 880.0 177.333 158.667]
  3451. $node6 setLabel "name" "WaitingList"
  3452. $node6 setScope "name" "cl" "scopePhase"
  3453. $node6 setProp "persistent" "1" "name" "cl"
  3454.  
  3455. set node7 [$diag addNode cad_class 1680.0 1456.0 154.667 100.0]
  3456. $node7 setLabel "name" "Extension"
  3457. $node7 setScope "name" "cl" "scopePhase"
  3458. $node7 setProp "persistent" "1" "name" "cl"
  3459.  
  3460. set node8 [$diag addNode cad_class 1680.0 1584.0 174.667 114.667]
  3461. $node8 setLabel "name" "LateFee"
  3462. $node8 setScope "name" "cl" "scopePhase"
  3463. $node8 setProp "persistent" "1" "name" "cl"
  3464.  
  3465. set node9 [$diag addNode cad_class 1280.0 1840.0 188.0 129.333]
  3466. $node9 setLabel "name" "DamageReport"
  3467. $node9 setScope "name" "cl" "scopePhase"
  3468. $node9 setProp "persistent" "1" "name" "cl"
  3469.  
  3470. set node10 [$diag addNode cad_class 944.0 1072.0 185.333 103.333]
  3471. $node10 setLabel "name" "Borrower"
  3472. $node10 setScope "name" "cl" "scopePhase"
  3473. $node10 setProp "persistent" "1" "name" "cl"
  3474.  
  3475. set node11 [$diag addNode cad_class 1264.0 1232.0 238.667 217.333]
  3476. $node11 setLabel "name" "Loan"
  3477. $node11 setScope "name" "cl" "scopePhase"
  3478. $node11 setProp "freeText" "This class creates a loan for Training Material and keeps track of its overdue status." "name" "cl"
  3479. $node11 setProp "persistent" "1" "name" "cl"
  3480.  
  3481. set node1 [$diag addRake generalization $node2 $node10 1008.0 944.0 1008.0 1088.0 1039.5]
  3482.  
  3483. set conn34 [$node1 getInConn]
  3484. set segm35 [$conn34 getFirstSegm]
  3485.  
  3486. set conn36 [$node1 getFirstOutConn]
  3487. set segm37 [$conn36 getFirstSegm]
  3488.  
  3489. set conn16 [$diag addConn association $node5 $node4 1856.0 1120.0 1856.0 1328.0]
  3490. $conn16 setLabel "role_end" "amount"
  3491. $conn16 setProp "mult_kind_end" "one"
  3492. $conn16 setProp "mult_kind_start" "optional"
  3493. set segm17 [$conn16 getFirstSegm]
  3494. $segm17 setLabel "name" "has"
  3495. $segm17 setScope "name" "cl" "scopeSystem"
  3496.  
  3497. set conn18 [$diag addConn association $node11 $node3 1360.0 1418.67 1360.0 1616.0]
  3498. $conn18 setLabel "role_start" "Loaned"
  3499. $conn18 setProp "mult_kind_end" "optional"
  3500. $conn18 setProp "mult_kind_start" "one"
  3501. set segm19 [$conn18 getFirstSegm]
  3502. $segm19 setLabel "name" "is_returned"
  3503. $segm19 setScope "name" "cl" "scopeSystem"
  3504.  
  3505. set conn20 [$diag addConn association $node3 $node9 1328.0 1696.0 1328.0 1888.0]
  3506. $conn20 setLabel "role_start" "Damaged"
  3507. $conn20 setProp "mult_kind_end" "optional"
  3508. $conn20 setProp "mult_kind_start" "one"
  3509. set segm21 [$conn20 getFirstSegm]
  3510. $segm21 setLabel "name" "is_damaged"
  3511. $segm21 setScope "name" "cl" "scopeSystem"
  3512.  
  3513. set conn22 [$diag addConn association $node11 $node7 1360.0 1280.0 1744.0 1504.0]
  3514. $conn22 setLabel "role_start" "Extended"
  3515. $conn22 setProp "mult_kind_end" "optional"
  3516. $conn22 setProp "mult_kind_start" "one"
  3517. set segm23 [$conn22 getFirstSegm]
  3518. $segm23 setLabel "name" "is_extended"
  3519. $segm23 setScope "name" "cl" "scopeSystem"
  3520.  
  3521. set conn24 [$diag addConn association $node10 $node5 1040.0 1088.0 1808.0 1088.0]
  3522. $conn24 setLabel "role_start" "borrower"
  3523. $conn24 setLabel "role_end" "training_material"
  3524. $conn24 setProp "mult_kind_end" "many"
  3525. $conn24 setProp "mult_kind_start" "many"
  3526. set segm25 [$conn24 getFirstSegm]
  3527. set segm26 [$conn24 addSegm 1232.0 1088.0]
  3528. $segm26 setLabel "name" "waits_for"
  3529. $segm26 setScope "name" "cl" "scopeSystem"
  3530.  
  3531. set conn27 [$diag addConn association $node10 $node5 1024.0 1168.0 1808.0 1168.0]
  3532. $conn27 setLabel "role_end" "inventory"
  3533. $conn27 setProp "mult_kind_end" "optional"
  3534. $conn27 setProp "mult_kind_start" "optional"
  3535. set segm28 [$conn27 getFirstSegm]
  3536. $segm28 setLabel "name" "borrows"
  3537. $segm28 setScope "name" "cl" "scopeSystem"
  3538.  
  3539. set conn29 [$diag addConn association $node2 $node3 832.0 956.0 1328.0 1664.0]
  3540. $conn29 setLabel "role_start" "employee"
  3541. $conn29 setProp "mult_kind_end" "optional"
  3542. $conn29 setProp "mult_kind_start" "one"
  3543. set segm30 [$conn29 getFirstSegm]
  3544. set segm31 [$conn29 addSegm 832.0 1664.0]
  3545. $segm31 setLabel "name" "checks_in"
  3546. $segm31 setScope "name" "cl" "scopeSystem"
  3547.  
  3548. set conn32 [$diag addConn association $node3 $node8 1360.0 1648.0 1712.0 1648.0]
  3549. $conn32 setLabel "role_start" "Late"
  3550. $conn32 setProp "mult_kind_end" "optional"
  3551. $conn32 setProp "mult_kind_start" "one"
  3552. set segm33 [$conn32 getFirstSegm]
  3553. $segm33 setLabel "name" "is_late"
  3554. $segm33 setScope "name" "cl" "scopeSystem"
  3555.  
  3556. set conn12 [$diag addConn loop $segm26 $node6 1352.0 1088.0 1360.0 1004.0]
  3557. set segm13 [$conn12 getFirstSegm]
  3558.  
  3559. set conn14 [$diag addConn loop $segm28 $node11 1366.85 1168.0 1360.0 1248.0]
  3560. set segm15 [$conn14 getFirstSegm]
  3561.  
  3562. $diag save
  3563.  
  3564. # Generator: et.tcl    /main/titanic/10
  3565. # Argument(s): -fGraph:Uj0DirzR9xzcAqQVyAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3566. # Interpreter to use: Otsh V7.1.1/B6
  3567. #
  3568. OTShRegister::importTool
  3569.  
  3570. set diag [CAD new Data_Types "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3571.  
  3572. set node38 [$diag addNode cad_class 992.0 816.0 120.0 100.0]
  3573. $node38 setLabel "name" "datetime"
  3574. $node38 setScope "name" "cl" "scopePhase"
  3575.  
  3576. set node39 [$diag addNode cad_class 592.0 672.0 120.0 100.0]
  3577. $node39 setLabel "name" "string"
  3578. $node39 setScope "name" "cl" "scopePhase"
  3579.  
  3580. set node40 [$diag addNode cad_class 592.0 816.0 120.0 100.0]
  3581. $node40 setLabel "name" "boolean"
  3582. $node40 setScope "name" "cl" "scopePhase"
  3583.  
  3584. set node41 [$diag addNode cad_class 784.0 672.0 120.0 100.0]
  3585. $node41 setLabel "name" "status"
  3586. $node41 setScope "name" "cl" "scopePhase"
  3587.  
  3588. set node42 [$diag addNode cad_class 784.0 816.0 120.0 100.0]
  3589. $node42 setLabel "name" "equip"
  3590. $node42 setScope "name" "cl" "scopePhase"
  3591.  
  3592. $diag save
  3593.  
  3594. # Generator: et.tcl    /main/titanic/10
  3595. # Argument(s): -fGraph:Uj0DirzR9xzcAqQWDAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3596. # Interpreter to use: Otsh V7.1.1/B6
  3597. #
  3598. OTShRegister::importTool
  3599.  
  3600. set diag [CAD new TrainingMaterial "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3601.  
  3602. set node46 [$diag addNode cad_class 400.0 832.0 152.0 136.0]
  3603. $node46 setLabel "name" "Book"
  3604. $node46 setScope "name" "cl" "scopePhase"
  3605.  
  3606. set node47 [$diag addNode cad_class 400.0 1056.0 166.667 92.0]
  3607. $node47 setLabel "name" "Workbook"
  3608. $node47 setScope "name" "cl" "scopePhase"
  3609.  
  3610. set node48 [$diag addNode cad_class 704.0 608.0 148.0 106.667]
  3611. $node48 setLabel "name" "TrainingMaterial"
  3612. $node48 setScope "name" "cl" "scopePhase"
  3613.  
  3614. set node49 [$diag addNode cad_class 1232.0 1056.0 142.667 92.0]
  3615. $node49 setLabel "name" "LCD_Panel"
  3616. $node49 setScope "name" "cl" "scopePhase"
  3617.  
  3618. set node50 [$diag addNode cad_class 592.0 832.0 142.667 121.333]
  3619. $node50 setLabel "name" "Software"
  3620. $node50 setScope "name" "cl" "scopePhase"
  3621.  
  3622. set node51 [$diag addNode cad_class 784.0 832.0 120.0 106.667]
  3623. $node51 setLabel "name" "VCR_Tape"
  3624. $node51 setScope "name" "cl" "scopePhase"
  3625.  
  3626. set node52 [$diag addNode cad_class 976.0 832.0 142.667 92.0]
  3627. $node52 setLabel "name" "CDROM"
  3628. $node52 setScope "name" "cl" "scopePhase"
  3629.  
  3630. set node53 [$diag addNode cad_class 1184.0 832.0 154.667 106.667]
  3631. $node53 setLabel "name" "AV_Equipment"
  3632. $node53 setScope "name" "cl" "scopePhase"
  3633.  
  3634. set node54 [$diag addNode cad_class 1072.0 1056.0 126.667 106.667]
  3635. $node54 setLabel "name" "OverheadProj"
  3636. $node54 setScope "name" "cl" "scopePhase"
  3637.  
  3638. set node43 [$diag addRake generalization $node48 $node46 752.0 688.0 464.0 864.0 776.0]
  3639. $node43 setLabel "name" "training_material_type"
  3640. $node43 setScope "name" "de" "scopeSystem"
  3641.  
  3642. set conn59 [$node43 getInConn]
  3643. set segm60 [$conn59 getFirstSegm]
  3644.  
  3645. set conn61 [$node43 getFirstOutConn]
  3646. set segm62 [$conn61 getFirstSegm]
  3647.  
  3648. set conn63 [$diag addConn generalization_conn $node43 $node52 1040.0 776.0 1040.0 864.0]
  3649. set segm64 [$conn63 getFirstSegm]
  3650.  
  3651. set conn65 [$diag addConn generalization_conn $node43 $node50 656.0 776.0 656.0 864.0]
  3652. set segm66 [$conn65 getFirstSegm]
  3653.  
  3654. set conn67 [$diag addConn generalization_conn $node43 $node51 848.0 776.0 848.0 864.0]
  3655. set segm68 [$conn67 getFirstSegm]
  3656.  
  3657. set conn69 [$diag addConn generalization_conn $node43 $node53 1248.0 776.0 1248.0 864.0]
  3658. set segm70 [$conn69 getFirstSegm]
  3659.  
  3660. set node44 [$diag addRake generalization $node46 $node47 464.0 928.0 464.0 1088.0 1023.5]
  3661.  
  3662. set conn71 [$node44 getInConn]
  3663. set segm72 [$conn71 getFirstSegm]
  3664.  
  3665. set conn73 [$node44 getFirstOutConn]
  3666. set segm74 [$conn73 getFirstSegm]
  3667.  
  3668. set node45 [$diag addRake generalization $node53 $node49 1232.0 912.0 1296.0 1072.0 1000.0]
  3669. $node45 setLabel "name" "equipment_type"
  3670. $node45 setScope "name" "de" "scopeSystem"
  3671.  
  3672. set conn75 [$node45 getInConn]
  3673. set segm76 [$conn75 getFirstSegm]
  3674.  
  3675. set conn77 [$node45 getFirstOutConn]
  3676. set segm78 [$conn77 getFirstSegm]
  3677.  
  3678. set conn79 [$diag addConn generalization_conn $node45 $node54 1136.0 1000.0 1136.0 1104.0]
  3679. set segm80 [$conn79 getFirstSegm]
  3680.  
  3681. set conn55 [$diag addConn association $node47 $node48 416.0 1104.0 736.0 656.0]
  3682. $conn55 setLabel "role_end" "companion"
  3683. $conn55 setProp "mult_kind_end" "one"
  3684. $conn55 setProp "mult_kind_start" "optional"
  3685. set segm56 [$conn55 getFirstSegm]
  3686. set segm57 [$conn55 addSegm 336.0 1104.0]
  3687. set segm58 [$conn55 addSegm 336.0 656.0]
  3688. $segm58 setLabel "name" "accompanies"
  3689. $segm58 setScope "name" "cl" "scopeSystem"
  3690.  
  3691. $diag save
  3692.  
  3693. # Generator: et.tcl    /main/titanic/10
  3694. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQWYAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3695. # Interpreter to use: Otsh V7.1.1/B6
  3696. #
  3697. OTShRegister::importTool
  3698.  
  3699. set diag [CDM new AV_Equipment "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3700.  
  3701. set row81 [$diag addRow attribute 0.0]
  3702. $row81 setLabel "name_type" "serial_number:integer\n"
  3703. $row81 setScope "name_type" "cl" "scopePhase"
  3704.  
  3705. set row82 [$diag addRow attribute 0.0]
  3706. $row82 setLabel "name_type" "repair_state:char\[2\]"
  3707. $row82 setScope "name_type" "cl" "scopePhase"
  3708.  
  3709. $diag save
  3710.  
  3711. # Generator: et.tcl    /main/titanic/10
  3712. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQWkAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3713. # Interpreter to use: Otsh V7.1.1/B6
  3714. #
  3715. OTShRegister::importTool
  3716.  
  3717. set diag [CDM new Book "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3718.  
  3719. set row83 [$diag addRow attribute 0.0]
  3720. $row83 setLabel "name_type" "author:char\[80\]\n"
  3721. $row83 setScope "name_type" "cl" "scopePhase"
  3722.  
  3723. set row84 [$diag addRow attribute 0.0]
  3724. $row84 setLabel "name_type" "publisher:char\[80\]\n"
  3725. $row84 setScope "name_type" "cl" "scopePhase"
  3726.  
  3727. set row85 [$diag addRow attribute 0.0]
  3728. $row85 setLabel "name_type" "ISBN:char\[15\]\n"
  3729. $row85 setScope "name_type" "cl" "scopePhase"
  3730. $row85 setProp "modifier" "Value" "name_type" "cl"
  3731. $row85 setProp "attrib_access" "Public-Public" "name_type" "de"
  3732.  
  3733. set row86 [$diag addRow attribute 0.0]
  3734. $row86 setLabel "name_type" "is_reference: char\[2\]"
  3735. $row86 setScope "name_type" "cl" "scopePhase"
  3736.  
  3737. $diag save
  3738.  
  3739. # Generator: et.tcl    /main/titanic/10
  3740. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQW0AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3741. # Interpreter to use: Otsh V7.1.1/B6
  3742. #
  3743. OTShRegister::importTool
  3744.  
  3745. set diag [CDM new Borrower "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3746.  
  3747. set row87 [$diag addRow attribute 0.0]
  3748. $row87 setLabel "name_type" "charge_number:char\[10\]"
  3749. $row87 setScope "name_type" "cl" "scopePhase"
  3750.  
  3751. set row88 [$diag addRow method 0.0]
  3752. $row88 setLabel "name_type" "\$create"
  3753. $row88 setProp "is_class_feature" "1"
  3754.  
  3755. $diag save
  3756.  
  3757. # Generator: et.tcl    /main/titanic/10
  3758. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQXCAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3759. # Interpreter to use: Otsh V7.1.1/B6
  3760. #
  3761. OTShRegister::importTool
  3762.  
  3763. set diag [CDM new BorrowerInd_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3764.  
  3765. $diag save
  3766.  
  3767. # Generator: et.tcl    /main/titanic/10
  3768. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQXMAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3769. # Interpreter to use: Otsh V7.1.1/B6
  3770. #
  3771. OTShRegister::importTool
  3772.  
  3773. set diag [CDM new BorrowerRow_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3774.  
  3775. $diag save
  3776.  
  3777. # Generator: et.tcl    /main/titanic/10
  3778. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQXVAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3779. # Interpreter to use: Otsh V7.1.1/B6
  3780. #
  3781. OTShRegister::importTool
  3782.  
  3783. set diag [CDM new CDROM "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3784.  
  3785. set row89 [$diag addRow attribute 0.0]
  3786. $row89 setLabel "name_type" "compatibility:char\[5\]"
  3787. $row89 setScope "name_type" "cl" "scopePhase"
  3788. $row89 setProp "modifier" "Value" "name_type" "cl"
  3789.  
  3790. $diag save
  3791.  
  3792. # Generator: et.tcl    /main/titanic/10
  3793. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQXgAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3794. # Interpreter to use: Otsh V7.1.1/B6
  3795. #
  3796. OTShRegister::importTool
  3797.  
  3798. set diag [CDM new DamageReport "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3799.  
  3800. set row90 [$diag addRow attribute 0.0]
  3801. $row90 setLabel "name_type" "*DamageReportID:integer\n"
  3802. $row90 setProp "key" "1"
  3803. $row90 setScope "name_type" "cl" "scopePhase"
  3804.  
  3805. set row91 [$diag addRow attribute 0.0]
  3806. $row91 setLabel "name_type" "description: varchar\[200\]\n"
  3807. $row91 setScope "name_type" "cl" "scopePhase"
  3808.  
  3809. set row92 [$diag addRow attribute 0.0]
  3810. $row92 setLabel "name_type" "is_lost:smallint"
  3811. $row92 setScope "name_type" "cl" "scopePhase"
  3812.  
  3813. set row93 [$diag addRow method 0.0]
  3814. $row93 setLabel "name_type" "\$create()"
  3815. $row93 setProp "has_parmlist" "1"
  3816. $row93 setProp "is_class_feature" "1"
  3817.  
  3818. $diag save
  3819.  
  3820. # Generator: et.tcl    /main/titanic/10
  3821. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQXxAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3822. # Interpreter to use: Otsh V7.1.1/B6
  3823. #
  3824. OTShRegister::importTool
  3825.  
  3826. set diag [CDM new DamageReportInd_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3827.  
  3828. $diag save
  3829.  
  3830. # Generator: et.tcl    /main/titanic/10
  3831. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQX7AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3832. # Interpreter to use: Otsh V7.1.1/B6
  3833. #
  3834. OTShRegister::importTool
  3835.  
  3836. set diag [CDM new DamageReportInitializer "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3837.  
  3838. $diag save
  3839.  
  3840. # Generator: et.tcl    /main/titanic/10
  3841. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQYFAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3842. # Interpreter to use: Otsh V7.1.1/B6
  3843. #
  3844. OTShRegister::importTool
  3845.  
  3846. set diag [CDM new DamageReportRow_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3847.  
  3848. $diag save
  3849.  
  3850. # Generator: et.tcl    /main/titanic/10
  3851. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQYOAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3852. # Interpreter to use: Otsh V7.1.1/B6
  3853. #
  3854. OTShRegister::importTool
  3855.  
  3856. set diag [CDM new Employee "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3857.  
  3858. set row94 [$diag addRow attribute 0.0]
  3859. $row94 setLabel "name_type" "*name: char\[80\]\n"
  3860. $row94 setProp "key" "1"
  3861. $row94 setScope "name_type" "cl" "scopePhase"
  3862.  
  3863. set row95 [$diag addRow attribute 0.0]
  3864. $row95 setLabel "name_type" "department: varchar\[132\]\n"
  3865. $row95 setScope "name_type" "cl" "scopePhase"
  3866.  
  3867. set row96 [$diag addRow attribute 0.0]
  3868. $row96 setLabel "name_type" "phone_number: integer"
  3869. $row96 setScope "name_type" "cl" "scopePhase"
  3870.  
  3871. set row97 [$diag addRow method 0.0]
  3872. $row97 setLabel "name_type" "\$getEmployeeName(): integer"
  3873. $row97 setProp "has_parmlist" "1"
  3874. $row97 setProp "is_class_feature" "1"
  3875. $row97 setScope "name_type" "cl" "scopePhase"
  3876.  
  3877. set cell98 [$row97 addCell parameter 0.0]
  3878. $cell98 setLabel "name_type" "name: char\[80\]"
  3879. $cell98 setProp "modifier" "Pointer to Const"
  3880. $cell98 setScope "name_type" "cl" "scopePhase"
  3881.  
  3882. $diag save
  3883.  
  3884. # Generator: et.tcl    /main/titanic/10
  3885. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQYfAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3886. # Interpreter to use: Otsh V7.1.1/B6
  3887. #
  3888. OTShRegister::importTool
  3889.  
  3890. set diag [CDM new EmployeeInd_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3891.  
  3892. $diag save
  3893.  
  3894. # Generator: et.tcl    /main/titanic/10
  3895. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQYpAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3896. # Interpreter to use: Otsh V7.1.1/B6
  3897. #
  3898. OTShRegister::importTool
  3899.  
  3900. set diag [CDM new EmployeeInitializer "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3901.  
  3902. $diag save
  3903.  
  3904. # Generator: et.tcl    /main/titanic/10
  3905. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQYzAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3906. # Interpreter to use: Otsh V7.1.1/B6
  3907. #
  3908. OTShRegister::importTool
  3909.  
  3910. set diag [CDM new EmployeeRow_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3911.  
  3912. $diag save
  3913.  
  3914. # Generator: et.tcl    /main/titanic/10
  3915. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQY8AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3916. # Interpreter to use: Otsh V7.1.1/B6
  3917. #
  3918. OTShRegister::importTool
  3919.  
  3920. set diag [CDM new Extension "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3921.  
  3922. set row99 [$diag addRow attribute 0.0]
  3923. $row99 setLabel "name_type" "*ExtensionID:integer"
  3924. $row99 setProp "key" "1"
  3925. $row99 setScope "name_type" "cl" "scopePhase"
  3926.  
  3927. set row100 [$diag addRow method 0.0]
  3928. $row100 setLabel "name_type" "\$create()"
  3929. $row100 setProp "has_parmlist" "1"
  3930. $row100 setProp "is_class_feature" "1"
  3931.  
  3932. $diag save
  3933.  
  3934. # Generator: et.tcl    /main/titanic/10
  3935. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQZJAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3936. # Interpreter to use: Otsh V7.1.1/B6
  3937. #
  3938. OTShRegister::importTool
  3939.  
  3940. set diag [CDM new ExtensionInd_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3941.  
  3942. $diag save
  3943.  
  3944. # Generator: et.tcl    /main/titanic/10
  3945. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQZTAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3946. # Interpreter to use: Otsh V7.1.1/B6
  3947. #
  3948. OTShRegister::importTool
  3949.  
  3950. set diag [CDM new ExtensionInitializer "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3951.  
  3952. $diag save
  3953.  
  3954. # Generator: et.tcl    /main/titanic/10
  3955. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQZdAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3956. # Interpreter to use: Otsh V7.1.1/B6
  3957. #
  3958. OTShRegister::importTool
  3959.  
  3960. set diag [CDM new ExtensionRow_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3961.  
  3962. $diag save
  3963.  
  3964. # Generator: et.tcl    /main/titanic/10
  3965. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQZmAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3966. # Interpreter to use: Otsh V7.1.1/B6
  3967. #
  3968. OTShRegister::importTool
  3969.  
  3970. set diag [CDM new Inventory "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  3971.  
  3972. set row101 [$diag addRow attribute 0.0]
  3973. $row101 setLabel "name_type" "*name:char\[30\]\n"
  3974. $row101 setProp "key" "1"
  3975. $row101 setScope "name_type" "cl" "scopePhase"
  3976.  
  3977. set row102 [$diag addRow attribute 0.0]
  3978. $row102 setLabel "name_type" "qty_available:integer"
  3979. $row102 setScope "name_type" "cl" "scopePhase"
  3980.  
  3981. set row103 [$diag addRow method 0.0]
  3982. $row103 setLabel "name_type" "reorder():integer"
  3983. $row103 setProp "has_parmlist" "1"
  3984. $row103 setProp "method_access" "Public"
  3985. $row103 setProp "modifier" "Value"
  3986. $row103 setScope "name_type" "cl" "scopePhase"
  3987.  
  3988. set cell104 [$row103 addCell parameter 0.0]
  3989. $cell104 setLabel "name_type" "qty_available:integer"
  3990. $cell104 setProp "modifier" "Value"
  3991. $cell104 setScope "name_type" "cl" "scopePhase"
  3992.  
  3993. $diag save
  3994.  
  3995. # Generator: et.tcl    /main/titanic/10
  3996. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQZ1AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  3997. # Interpreter to use: Otsh V7.1.1/B6
  3998. #
  3999. OTShRegister::importTool
  4000.  
  4001. set diag [CDM new LCD_Panel "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4002.  
  4003. set row105 [$diag addRow attribute 0.0]
  4004. $row105 setLabel "name_type" "compatibility:char\[5\]"
  4005. $row105 setScope "name_type" "cl" "scopePhase"
  4006. $row105 setProp "modifier" "Value" "name_type" "cl"
  4007. $row105 setProp "attrib_access" "Public-Public" "name_type" "de"
  4008.  
  4009. $diag save
  4010.  
  4011. # Generator: et.tcl    /main/titanic/10
  4012. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQZ_AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4013. # Interpreter to use: Otsh V7.1.1/B6
  4014. #
  4015. OTShRegister::importTool
  4016.  
  4017. set diag [CDM new LateFee "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4018.  
  4019. set row106 [$diag addRow attribute 0.0]
  4020. $row106 setLabel "name_type" "*LateFeeID:integer"
  4021. $row106 setProp "key" "1"
  4022. $row106 setScope "name_type" "cl" "scopePhase"
  4023.  
  4024. set row107 [$diag addRow method 0.0]
  4025. $row107 setLabel "name_type" "\$create\n"
  4026. $row107 setProp "is_class_feature" "1"
  4027.  
  4028. set row108 [$diag addRow method 0.0]
  4029. $row108 setLabel "name_type" "\$calculate_Fee():float"
  4030. $row108 setProp "has_parmlist" "1"
  4031. $row108 setProp "is_class_feature" "1"
  4032. $row108 setProp "method_access" "Public"
  4033. $row108 setProp "modifier" "Value"
  4034. $row108 setScope "name_type" "cl" "scopePhase"
  4035.  
  4036. $diag save
  4037.  
  4038. # Generator: et.tcl    /main/titanic/10
  4039. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQaOAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4040. # Interpreter to use: Otsh V7.1.1/B6
  4041. #
  4042. OTShRegister::importTool
  4043.  
  4044. set diag [CDM new LateFeeInd_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4045.  
  4046. $diag save
  4047.  
  4048. # Generator: et.tcl    /main/titanic/10
  4049. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQaYAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4050. # Interpreter to use: Otsh V7.1.1/B6
  4051. #
  4052. OTShRegister::importTool
  4053.  
  4054. set diag [CDM new LateFeeInitializer "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4055.  
  4056. $diag save
  4057.  
  4058. # Generator: et.tcl    /main/titanic/10
  4059. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQaiAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4060. # Interpreter to use: Otsh V7.1.1/B6
  4061. #
  4062. OTShRegister::importTool
  4063.  
  4064. set diag [CDM new LateFeeRow_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4065.  
  4066. $diag save
  4067.  
  4068. # Generator: et.tcl    /main/titanic/10
  4069. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQarAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4070. # Interpreter to use: Otsh V7.1.1/B6
  4071. #
  4072. OTShRegister::importTool
  4073.  
  4074. set diag [CDM new Loan "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4075.  
  4076. set row109 [$diag addRow attribute 0.0]
  4077. $row109 setLabel "name_type" "*LoanID:integer\n"
  4078. $row109 setProp "key" "1"
  4079. $row109 setScope "name_type" "cl" "scopePhase"
  4080.  
  4081. set row110 [$diag addRow attribute 0.0]
  4082. $row110 setLabel "name_type" "check_out_date:datetime\n"
  4083. $row110 setScope "name_type" "cl" "scopePhase"
  4084.  
  4085. set row111 [$diag addRow attribute 0.0]
  4086. $row111 setLabel "name_type" "/expire_date:datetime\n"
  4087. $row111 setProp "is_derived" "1"
  4088. $row111 setScope "name_type" "cl" "scopePhase"
  4089.  
  4090. set row112 [$diag addRow attribute 0.0]
  4091. $row112 setLabel "name_type" "term:integer\n"
  4092. $row112 setScope "name_type" "cl" "scopePhase"
  4093.  
  4094. set row113 [$diag addRow attribute 0.0]
  4095. $row113 setLabel "name_type" "/due_date:datetime\n"
  4096. $row113 setProp "is_derived" "1"
  4097. $row113 setScope "name_type" "cl" "scopePhase"
  4098.  
  4099. set row114 [$diag addRow attribute 0.0]
  4100. $row114 setLabel "name_type" "late_fee:real = 20.00\n"
  4101. $row114 setProp "initial_value" "20.00"
  4102. $row114 setScope "name_type" "cl" "scopePhase"
  4103.  
  4104. set row115 [$diag addRow attribute 0.0]
  4105. $row115 setLabel "name_type" "status: char\[2\]\n"
  4106. $row115 setScope "name_type" "cl" "scopePhase"
  4107.  
  4108. set row116 [$diag addRow attribute 0.0]
  4109. $row116 setLabel "name_type" "attr: integer"
  4110. $row116 setScope "name_type" "cl" "scopePhase"
  4111.  
  4112. set row117 [$diag addRow method 0.0]
  4113. $row117 setLabel "name_type" "calculate_due_date(): integer\n"
  4114. $row117 setProp "has_parmlist" "1"
  4115. $row117 setProp "freeText" "This function will calculate the due date for the Training Material being checked out." "name_type" "pe"
  4116. $row117 setScope "name_type" "cl" "scopePhase"
  4117.  
  4118. set row118 [$diag addRow method 0.0]
  4119. $row118 setLabel "name_type" "calculate_expire_date(): integer"
  4120. $row118 setProp "has_parmlist" "1"
  4121. $row118 setProp "freeText" "This function will inform about the past due of some Training Material." "name_type" "pe"
  4122. $row118 setScope "name_type" "cl" "scopePhase"
  4123.  
  4124. $diag save
  4125.  
  4126. # Generator: et.tcl    /main/titanic/10
  4127. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQa.AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4128. # Interpreter to use: Otsh V7.1.1/B6
  4129. #
  4130. OTShRegister::importTool
  4131.  
  4132. set diag [CDM new LoanInd_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4133.  
  4134. $diag save
  4135.  
  4136. # Generator: et.tcl    /main/titanic/10
  4137. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQbJAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4138. # Interpreter to use: Otsh V7.1.1/B6
  4139. #
  4140. OTShRegister::importTool
  4141.  
  4142. set diag [CDM new LoanInitializer "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4143.  
  4144. $diag save
  4145.  
  4146. # Generator: et.tcl    /main/titanic/10
  4147. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQbTAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4148. # Interpreter to use: Otsh V7.1.1/B6
  4149. #
  4150. OTShRegister::importTool
  4151.  
  4152. set diag [CDM new LoanRow_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4153.  
  4154. $diag save
  4155.  
  4156. # Generator: et.tcl    /main/titanic/10
  4157. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQbcAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4158. # Interpreter to use: Otsh V7.1.1/B6
  4159. #
  4160. OTShRegister::importTool
  4161.  
  4162. set diag [CDM new Loan_Return "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4163.  
  4164. set row119 [$diag addRow attribute 0.0]
  4165. $row119 setLabel "name_type" "*Loan_ReturnID:integer\n"
  4166. $row119 setProp "key" "1"
  4167. $row119 setScope "name_type" "cl" "scopePhase"
  4168.  
  4169. set row120 [$diag addRow attribute 0.0]
  4170. $row120 setLabel "name_type" "check_in_date:datetime\n"
  4171. $row120 setScope "name_type" "cl" "scopePhase"
  4172.  
  4173. set row121 [$diag addRow attribute 0.0]
  4174. $row121 setLabel "name_type" "name:char\[80\]"
  4175. $row121 setScope "name_type" "cl" "scopePhase"
  4176.  
  4177. set row122 [$diag addRow method 0.0]
  4178. $row122 setLabel "name_type" "getEquipInfo():equip\n"
  4179. $row122 setProp "has_parmlist" "1"
  4180. $row122 setScope "name_type" "cl" "scopePhase"
  4181.  
  4182. set row123 [$diag addRow method 0.0]
  4183. $row123 setLabel "name_type" "updateEquipInfo():equip"
  4184. $row123 setProp "has_parmlist" "1"
  4185. $row123 setScope "name_type" "cl" "scopePhase"
  4186.  
  4187. $diag save
  4188.  
  4189. # Generator: et.tcl    /main/titanic/10
  4190. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQbvAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4191. # Interpreter to use: Otsh V7.1.1/B6
  4192. #
  4193. OTShRegister::importTool
  4194.  
  4195. set diag [CDM new Loan_ReturnInd_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4196.  
  4197. $diag save
  4198.  
  4199. # Generator: et.tcl    /main/titanic/10
  4200. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQb5AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4201. # Interpreter to use: Otsh V7.1.1/B6
  4202. #
  4203. OTShRegister::importTool
  4204.  
  4205. set diag [CDM new Loan_ReturnInitializer "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4206.  
  4207. $diag save
  4208.  
  4209. # Generator: et.tcl    /main/titanic/10
  4210. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQcDAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4211. # Interpreter to use: Otsh V7.1.1/B6
  4212. #
  4213. OTShRegister::importTool
  4214.  
  4215. set diag [CDM new Loan_ReturnRow_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4216.  
  4217. $diag save
  4218.  
  4219. # Generator: et.tcl    /main/titanic/10
  4220. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQcMAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4221. # Interpreter to use: Otsh V7.1.1/B6
  4222. #
  4223. OTShRegister::importTool
  4224.  
  4225. set diag [CDM new OverheadProj "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4226.  
  4227. set row124 [$diag addRow attribute 0.0]
  4228. $row124 setLabel "name_type" "intensity:char\[5\]\n"
  4229. $row124 setScope "name_type" "cl" "scopePhase"
  4230. $row124 setProp "modifier" "Value" "name_type" "cl"
  4231. $row124 setProp "attrib_access" "Public-Public" "name_type" "de"
  4232.  
  4233. set row125 [$diag addRow attribute 0.0]
  4234. $row125 setLabel "name_type" "portability:char\[2\]"
  4235. $row125 setScope "name_type" "cl" "scopePhase"
  4236.  
  4237. $diag save
  4238.  
  4239. # Generator: et.tcl    /main/titanic/10
  4240. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQcWAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4241. # Interpreter to use: Otsh V7.1.1/B6
  4242. #
  4243. OTShRegister::importTool
  4244.  
  4245. set diag [CDM new Software "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4246.  
  4247. set row126 [$diag addRow attribute 0.0]
  4248. $row126 setLabel "name_type" "version:char\[5\]\n"
  4249. $row126 setScope "name_type" "cl" "scopePhase"
  4250. $row126 setProp "modifier" "Value" "name_type" "cl"
  4251. $row126 setProp "attrib_access" "Public-Public" "name_type" "de"
  4252.  
  4253. set row127 [$diag addRow attribute 0.0]
  4254. $row127 setLabel "name_type" "compatibility:char\[5\]\n"
  4255. $row127 setScope "name_type" "cl" "scopePhase"
  4256. $row127 setProp "modifier" "Value" "name_type" "cl"
  4257. $row127 setProp "attrib_access" "Public-Public" "name_type" "de"
  4258.  
  4259. set row128 [$diag addRow attribute 0.0]
  4260. $row128 setLabel "name_type" "format:integer"
  4261. $row128 setScope "name_type" "cl" "scopePhase"
  4262.  
  4263. $diag save
  4264.  
  4265. # Generator: et.tcl    /main/titanic/10
  4266. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQchAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4267. # Interpreter to use: Otsh V7.1.1/B6
  4268. #
  4269. OTShRegister::importTool
  4270.  
  4271. set diag [CDM new TrainingMaterial "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4272.  
  4273. $diag save
  4274.  
  4275. # Generator: et.tcl    /main/titanic/10
  4276. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQcpAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4277. # Interpreter to use: Otsh V7.1.1/B6
  4278. #
  4279. OTShRegister::importTool
  4280.  
  4281. set diag [CDM new VCR_Tape "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4282.  
  4283. set row129 [$diag addRow attribute 0.0]
  4284. $row129 setLabel "name_type" "duration:integer\n"
  4285. $row129 setScope "name_type" "cl" "scopePhase"
  4286.  
  4287. set row130 [$diag addRow attribute 0.0]
  4288. $row130 setLabel "name_type" "rating:char\[4\]"
  4289. $row130 setScope "name_type" "cl" "scopePhase"
  4290. $row130 setProp "modifier" "Value" "name_type" "cl"
  4291. $row130 setProp "attrib_access" "Public-Public" "name_type" "de"
  4292.  
  4293. $diag save
  4294.  
  4295. # Generator: et.tcl    /main/titanic/10
  4296. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQc1AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4297. # Interpreter to use: Otsh V7.1.1/B6
  4298. #
  4299. OTShRegister::importTool
  4300.  
  4301. set diag [CDM new WaitingList "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4302.  
  4303. set row131 [$diag addRow attribute 0.0]
  4304. $row131 setLabel "name_type" "*WaitingListID: integer\n"
  4305. $row131 setProp "key" "1"
  4306. $row131 setScope "name_type" "cl" "scopePhase"
  4307.  
  4308. set row132 [$diag addRow attribute 0.0]
  4309. $row132 setLabel "name_type" "request_date: datetime\n"
  4310. $row132 setScope "name_type" "cl" "scopePhase"
  4311.  
  4312. set row133 [$diag addRow attribute 0.0]
  4313. $row133 setLabel "name_type" "date_required: datetime\n"
  4314. $row133 setScope "name_type" "cl" "scopePhase"
  4315.  
  4316. set row134 [$diag addRow attribute 0.0]
  4317. $row134 setLabel "name_type" "status: char\[2\]"
  4318. $row134 setScope "name_type" "cl" "scopePhase"
  4319.  
  4320. set row135 [$diag addRow method 0.0]
  4321. $row135 setLabel "name_type" "\$create()\n"
  4322. $row135 setProp "has_parmlist" "1"
  4323. $row135 setProp "is_class_feature" "1"
  4324.  
  4325. set row136 [$diag addRow method 0.0]
  4326. $row136 setLabel "name_type" "reserve():integer"
  4327. $row136 setProp "has_parmlist" "1"
  4328. $row136 setProp "method_access" "Public"
  4329. $row136 setProp "modifier" "Value"
  4330. $row136 setScope "name_type" "cl" "scopePhase"
  4331.  
  4332. $diag save
  4333.  
  4334. # Generator: et.tcl    /main/titanic/10
  4335. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQdGAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4336. # Interpreter to use: Otsh V7.1.1/B6
  4337. #
  4338. OTShRegister::importTool
  4339.  
  4340. set diag [CDM new WaitingListInd_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4341.  
  4342. $diag save
  4343.  
  4344. # Generator: et.tcl    /main/titanic/10
  4345. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQdQAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4346. # Interpreter to use: Otsh V7.1.1/B6
  4347. #
  4348. OTShRegister::importTool
  4349.  
  4350. set diag [CDM new WaitingListInitializer "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4351.  
  4352. $diag save
  4353.  
  4354. # Generator: et.tcl    /main/titanic/10
  4355. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQdaAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4356. # Interpreter to use: Otsh V7.1.1/B6
  4357. #
  4358. OTShRegister::importTool
  4359.  
  4360. set diag [CDM new WaitingListRow_ "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4361.  
  4362. $diag save
  4363.  
  4364. # Generator: et.tcl    /main/titanic/10
  4365. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQdjAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4366. # Interpreter to use: Otsh V7.1.1/B6
  4367. #
  4368. OTShRegister::importTool
  4369.  
  4370. set diag [CDM new Workbook "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4371.  
  4372. set row137 [$diag addRow attribute 0.0]
  4373. $row137 setLabel "name_type" "*course_name:char\[20\]"
  4374. $row137 setProp "key" "1"
  4375. $row137 setScope "name_type" "cl" "scopePhase"
  4376. $row137 setProp "modifier" "Value" "name_type" "cl"
  4377. $row137 setProp "attrib_access" "Public-Public" "name_type" "de"
  4378.  
  4379. $diag save
  4380.  
  4381. # Generator: et.tcl    /main/titanic/10
  4382. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQduAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4383. # Interpreter to use: Otsh V7.1.1/B6
  4384. #
  4385. OTShRegister::importTool
  4386.  
  4387. set diag [CDM new boolean "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4388.  
  4389. set row138 [$diag addRow attribute 0.0]
  4390. $row138 setLabel "name_type" "_:char\[2\]"
  4391. $row138 setScope "name_type" "cl" "scopePhase"
  4392.  
  4393. $diag save
  4394.  
  4395. # Generator: et.tcl    /main/titanic/10
  4396. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQd4AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4397. # Interpreter to use: Otsh V7.1.1/B6
  4398. #
  4399. OTShRegister::importTool
  4400.  
  4401. set diag [CDM new datetime "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4402.  
  4403. set row139 [$diag addRow attribute 0.0]
  4404. $row139 setLabel "name_type" "_:char\[16\]"
  4405. $row139 setScope "name_type" "cl" "scopePhase"
  4406.  
  4407. $diag save
  4408.  
  4409. # Generator: et.tcl    /main/titanic/10
  4410. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQeEAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4411. # Interpreter to use: Otsh V7.1.1/B6
  4412. #
  4413. OTShRegister::importTool
  4414.  
  4415. set diag [CDM new equip "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4416.  
  4417. set row140 [$diag addRow attribute 0.0]
  4418. $row140 setLabel "name_type" "_:char\[4\]"
  4419. $row140 setScope "name_type" "cl" "scopePhase"
  4420. $row140 setProp "modifier" "Value" "name_type" "cl"
  4421.  
  4422. $diag save
  4423.  
  4424. # Generator: et.tcl    /main/titanic/10
  4425. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQeOAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4426. # Interpreter to use: Otsh V7.1.1/B6
  4427. #
  4428. OTShRegister::importTool
  4429.  
  4430. set diag [CDM new status "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4431.  
  4432. set row141 [$diag addRow attribute 0.0]
  4433. $row141 setLabel "name_type" "_:smallint"
  4434. $row141 setScope "name_type" "cl" "scopePhase"
  4435.  
  4436. $diag save
  4437.  
  4438. # Generator: et.tcl    /main/titanic/10
  4439. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQeYAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4440. # Interpreter to use: Otsh V7.1.1/B6
  4441. #
  4442. OTShRegister::importTool
  4443.  
  4444. set diag [CDM new string "Business" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4445.  
  4446. set row142 [$diag addRow attribute 0.0]
  4447. $row142 setLabel "name_type" "_:char\[132\]"
  4448. $row142 setScope "name_type" "cl" "scopePhase"
  4449.  
  4450. $diag save
  4451.  
  4452. # Generator: et.tcl    /main/titanic/10
  4453. # Argument(s): -fGraph:Uj0DirzR9xzcAqQhlAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4454. # Interpreter to use: Otsh V7.1.1/B6
  4455. #
  4456. OTShRegister::importTool
  4457.  
  4458. set diag [CAD new PresentationUI "Presentation" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4459.  
  4460. set node2 [$diag addNode cad_class 576.0 864.0 120.0 180.0]
  4461. $node2 setLabel "name" "Check_out"
  4462. $node2 setScope "name" "cl" "scopePhase"
  4463.  
  4464. set node3 [$diag addNode cad_class 864.0 864.0 120.0 180.0]
  4465. $node3 setLabel "name" "CRUD_User"
  4466. $node3 setScope "name" "cl" "scopePhase"
  4467.  
  4468. set node4 [$diag addNode cad_class 1152.0 864.0 120.0 100.0]
  4469. $node4 setLabel "name" "Late_return"
  4470. $node4 setScope "name" "cl" "scopePhase"
  4471.  
  4472. set node5 [$diag addNode cad_class 720.0 864.0 120.0 180.0]
  4473. $node5 setLabel "name" "Check_in"
  4474. $node5 setScope "name" "cl" "scopePhase"
  4475.  
  4476. set node6 [$diag addNode cad_class 784.0 672.0 120.0 32.0]
  4477. $node6 setLabel "name" "Forms"
  4478. $node6 setProp "is_folded" "1"
  4479. $node6 setScope "name" "cl" "scopePhase"
  4480.  
  4481. set node7 [$diag addNode cad_class 1008.0 864.0 120.0 100.0]
  4482. $node7 setLabel "name" "Extension"
  4483. $node7 setScope "name" "cl" "scopeSystem"
  4484.  
  4485. set node1 [$diag addRake generalization $node6 $node5 848.0 704.0 768.0 912.0 808.0]
  4486.  
  4487. set conn8 [$node1 getInConn]
  4488. set segm9 [$conn8 getFirstSegm]
  4489.  
  4490. set conn10 [$node1 getFirstOutConn]
  4491. set segm11 [$conn10 getFirstSegm]
  4492.  
  4493. set conn12 [$diag addConn generalization_conn $node1 $node3 928.0 808.0 928.0 896.0]
  4494. set segm13 [$conn12 getFirstSegm]
  4495.  
  4496. set conn14 [$diag addConn generalization_conn $node1 $node2 656.0 808.0 656.0 896.0]
  4497. set segm15 [$conn14 getFirstSegm]
  4498.  
  4499. set conn16 [$diag addConn generalization_conn $node1 $node7 1056.0 808.0 1056.0 896.0]
  4500. set segm17 [$conn16 getFirstSegm]
  4501.  
  4502. set conn18 [$diag addConn generalization_conn $node1 $node4 1200.0 808.0 1200.0 880.0]
  4503. set segm19 [$conn18 getFirstSegm]
  4504.  
  4505. $diag save
  4506.  
  4507. # Generator: et.tcl    /main/titanic/10
  4508. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQh5AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4509. # Interpreter to use: Otsh V7.1.1/B6
  4510. #
  4511. OTShRegister::importTool
  4512.  
  4513. set diag [CDM new CRUD_User "Presentation" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4514.  
  4515. set row20 [$diag addRow method 0.0]
  4516. $row20 setLabel "name_type" "insert()\n"
  4517. $row20 setProp "has_parmlist" "1"
  4518.  
  4519. set row21 [$diag addRow method 0.0]
  4520. $row21 setLabel "name_type" "find()\n"
  4521. $row21 setProp "has_parmlist" "1"
  4522.  
  4523. set row22 [$diag addRow method 0.0]
  4524. $row22 setLabel "name_type" "update()\n"
  4525. $row22 setProp "has_parmlist" "1"
  4526.  
  4527. set row23 [$diag addRow method 0.0]
  4528. $row23 setLabel "name_type" "delete()\n"
  4529. $row23 setProp "has_parmlist" "1"
  4530.  
  4531. set row24 [$diag addRow method 0.0]
  4532. $row24 setLabel "name_type" "next()\n"
  4533. $row24 setProp "has_parmlist" "1"
  4534.  
  4535. set row25 [$diag addRow method 0.0]
  4536. $row25 setLabel "name_type" "previous()"
  4537. $row25 setProp "has_parmlist" "1"
  4538.  
  4539. $diag save
  4540.  
  4541. # Generator: et.tcl    /main/titanic/10
  4542. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQiNAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4543. # Interpreter to use: Otsh V7.1.1/B6
  4544. #
  4545. OTShRegister::importTool
  4546.  
  4547. set diag [CDM new Check_in "Presentation" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4548.  
  4549. set row26 [$diag addRow method 0.0]
  4550. $row26 setLabel "name_type" "insert()\n"
  4551. $row26 setProp "has_parmlist" "1"
  4552.  
  4553. set row27 [$diag addRow method 0.0]
  4554. $row27 setLabel "name_type" "find()\n"
  4555. $row27 setProp "has_parmlist" "1"
  4556.  
  4557. set row28 [$diag addRow method 0.0]
  4558. $row28 setLabel "name_type" "update()\n"
  4559. $row28 setProp "has_parmlist" "1"
  4560.  
  4561. set row29 [$diag addRow method 0.0]
  4562. $row29 setLabel "name_type" "delete()\n"
  4563. $row29 setProp "has_parmlist" "1"
  4564.  
  4565. set row30 [$diag addRow method 0.0]
  4566. $row30 setLabel "name_type" "next()\n"
  4567. $row30 setProp "has_parmlist" "1"
  4568.  
  4569. set row31 [$diag addRow method 0.0]
  4570. $row31 setLabel "name_type" "previous()"
  4571. $row31 setProp "has_parmlist" "1"
  4572.  
  4573. $diag save
  4574.  
  4575. # Generator: et.tcl    /main/titanic/10
  4576. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQihAGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4577. # Interpreter to use: Otsh V7.1.1/B6
  4578. #
  4579. OTShRegister::importTool
  4580.  
  4581. set diag [CDM new Check_out "Presentation" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4582.  
  4583. set row32 [$diag addRow method 0.0]
  4584. $row32 setLabel "name_type" "insert()\n"
  4585. $row32 setProp "has_parmlist" "1"
  4586.  
  4587. set row33 [$diag addRow method 0.0]
  4588. $row33 setLabel "name_type" "find()\n"
  4589. $row33 setProp "has_parmlist" "1"
  4590.  
  4591. set row34 [$diag addRow method 0.0]
  4592. $row34 setLabel "name_type" "update()\n"
  4593. $row34 setProp "has_parmlist" "1"
  4594.  
  4595. set row35 [$diag addRow method 0.0]
  4596. $row35 setLabel "name_type" "delete_object()\n"
  4597. $row35 setProp "has_parmlist" "1"
  4598.  
  4599. set row36 [$diag addRow method 0.0]
  4600. $row36 setLabel "name_type" "next()\n"
  4601. $row36 setProp "has_parmlist" "1"
  4602.  
  4603. set row37 [$diag addRow method 0.0]
  4604. $row37 setLabel "name_type" "previous()"
  4605. $row37 setProp "has_parmlist" "1"
  4606.  
  4607. $diag save
  4608.  
  4609. # Generator: et.tcl    /main/titanic/10
  4610. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQi1AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4611. # Interpreter to use: Otsh V7.1.1/B6
  4612. #
  4613. OTShRegister::importTool
  4614.  
  4615. set diag [CDM new Extension "Presentation" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 0]
  4616.  
  4617. set row38 [$diag addRow method 0.0]
  4618. $row38 setLabel "name_type" "ok()"
  4619. $row38 setProp "has_parmlist" "1"
  4620.  
  4621. $diag save
  4622.  
  4623. # Generator: et.tcl    /main/titanic/10
  4624. # Argument(s): -fMatrix:Uj0DirzR9xzcAqQi.AGUAAQAAAA8A -e -g -dproj {-aC:/Cayenne/ObjectTeam/mymodules/trainmat-example/tcl\trainmatproj.tcl}
  4625. # Interpreter to use: Otsh V7.1.1/B6
  4626. #
  4627. OTShRegister::importTool
  4628.  
  4629. set diag [CDM new Late_return "Presentation" "ObjectDesign" "ObjectDesign" "Prototype" "1" "" 1]
  4630.  
  4631. set row39 [$diag addRow method 0.0]
  4632. $row39 setLabel "name_type" "ok()"
  4633. $row39 setProp "has_parmlist" "1"
  4634.  
  4635. $diag save
  4636.