home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / samplemodel.tcl < prev    next >
Text File  |  1997-01-07  |  433KB  |  10,591 lines

  1. # ----------------------------------------------------------------------------
  2. # export by 'mikel' on Wed Nov 27 09:46:14  1996.
  3. # ----------------------------------------------------------------------------
  4.  
  5. # ----------------------------------------------------------------------------
  6. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/Rogue.cad'.
  7. # ----------------------------------------------------------------------------
  8.  
  9. # Generator: et.tcl    /main/hindenburg/11
  10. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  11. # Interpreter to use: Otsh V5.1.1/B1
  12. #
  13. OTShRegister::importTool
  14.  
  15. set diag [CAD new Rogue RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  16.  
  17. set node1 [$diag addNode cad_class 104.0 384.0 152.0 167.0]
  18. $node1 setLabel "name" "FlexArray_T"
  19. $node1 setScope "name" "cl" "scopePhase"
  20. $node1 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\FlexArray.hxx" "name" "cl"
  21.  
  22. set node3 [$diag addNode cad_class 320.0 384.0 120.0 92.0003]
  23. $node3 setLabel "name" "GenCList"
  24. $node3 setScope "name" "cl" "scopePhase"
  25. $node3 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\CList.hxx" "name" "cl"
  26.  
  27. set node4 [$diag addNode cad_class 180.0 292.0 120.0 28.0]
  28. $node4 setLabel "name" "GenFlexArray"
  29. $node4 setProp "is_folded" "1"
  30. $node4 setScope "name" "cl" "scopePhase"
  31. $node4 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\FlexArray.hxx" "name" "cl"
  32.  
  33. set node5 [$diag addNode cad_class 52.0 18.0 120.0 28.0]
  34. $node5 setLabel "name" "DBObject"
  35. $node5 setProp "is_folded" "1"
  36. $node5 setScope "name" "cl" "scopePhase"
  37. $node5 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\DBObject.hxx" "name" "cl"
  38.  
  39. set node6 [$diag addNode cad_class 820.0 274.0 120.0 28.0]
  40. $node6 setLabel "name" "State"
  41. $node6 setProp "is_folded" "1"
  42. $node6 setScope "name" "cl" "scopePhase"
  43. $node6 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\DBObject.hxx" "name" "cl"
  44.  
  45. set node8 [$diag addNode cad_class 564.0 384.0 242.001 137.0]
  46. $node8 setLabel "name" "IntHash"
  47. $node8 setScope "name" "cl" "scopePhase"
  48. $node8 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\IntHash.hxx" "name" "cl"
  49.  
  50. set node9 [$diag addNode cad_class 564.0 292.0 120.0 28.0]
  51. $node9 setLabel "name" "Hashable"
  52. $node9 setProp "is_folded" "1"
  53. $node9 setScope "name" "cl" "scopePhase"
  54. $node9 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name" "cl"
  55.  
  56. set node10 [$diag addNode cad_class 820.0 146.0 120.0 28.0]
  57. $node10 setLabel "name" "hash_iter_"
  58. $node10 setProp "is_folded" "1"
  59. $node10 setScope "name" "cl" "scopePhase"
  60. $node10 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name" "cl"
  61.  
  62. set node11 [$diag addNode cad_class 820.0 18.0 120.0 28.0]
  63. $node11 setLabel "name" "HashTbl_"
  64. $node11 setProp "is_folded" "1"
  65. $node11 setScope "name" "cl" "scopePhase"
  66. $node11 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name" "cl"
  67.  
  68. set node12 [$diag addNode cad_class 52.0 146.0 120.0 28.0]
  69. $node12 setLabel "name" "Hashable_"
  70. $node12 setProp "is_folded" "1"
  71. $node12 setScope "name" "cl" "scopePhase"
  72. $node12 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name" "cl"
  73.  
  74. set node14 [$diag addNode cad_class 548.5 128.0 151.0 28.0001]
  75. $node14 setLabel "name" "hashTbl_Key_Value"
  76. $node14 setProp "is_folded" "1"
  77. $node14 setScope "name" "cl" "scopePhase"
  78. $node14 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name" "cl"
  79.  
  80. set node15 [$diag addNode cad_class 564.0 36.0 120.0 28.0]
  81. $node15 setLabel "name" "HashTbl"
  82. $node15 setProp "is_folded" "1"
  83. $node15 setScope "name" "cl" "scopePhase"
  84. $node15 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name" "cl"
  85. $node15 setProp "modifier" "Reference to Const" "name" "cl"
  86.  
  87. set node17 [$diag addNode cad_class 291.0 128.0 154.0 28.0001]
  88. $node17 setLabel "name" "hashIter_Key_Value"
  89. $node17 setProp "is_folded" "1"
  90. $node17 setScope "name" "cl" "scopePhase"
  91. $node17 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name" "cl"
  92.  
  93. set node18 [$diag addNode cad_class 308.0 36.0 120.0 28.0]
  94. $node18 setLabel "name" "hash_iter"
  95. $node18 setProp "is_folded" "1"
  96. $node18 setScope "name" "cl" "scopePhase"
  97. $node18 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name" "cl"
  98.  
  99. set node2 [$diag addRake generalization $node4 $node1 240.0 320.0 164.0 384.0 362.667]
  100. $node2 setProp "inher_access" "Private"
  101.  
  102. set conn19 [$diag addConn generalization_conn $node2 $node3 316.0 363.167 380.0 384.0]
  103. set segm20 [$conn19 getFirstSegm]
  104.  
  105. set node7 [$diag addRake generalization $node9 $node8 624.0 320.0 624.0 384.0 362.667]
  106.  
  107. set node13 [$diag addRake generalization $node15 $node14 624.0 64.0 624.0 128.0 106.667]
  108.  
  109. set node16 [$diag addRake generalization $node18 $node17 368.0 64.0 368.0 128.0 106.667]
  110.  
  111. $diag save
  112. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  113.  
  114.  
  115. # ----------------------------------------------------------------------------
  116. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/GenFlexArray.cdm'.
  117. # ----------------------------------------------------------------------------
  118.  
  119. # Generator: et.tcl    /main/hindenburg/11
  120. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  121. # Interpreter to use: Otsh V5.1.1/B1
  122. #
  123. OTShRegister::importTool
  124.  
  125. set diag [CDM new GenFlexArray RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  126.  
  127. set row21 [$diag addRow attribute 0.0]
  128. $row21 setLabel "name_type" "v:void\n"
  129. $row21 setScope "name_type" "cl" "scopePhase"
  130. $row21 setProp "modifier" "Pointer" "name_type" "cl"
  131. $row21 setProp "attrib_access" "Protected-Protected" "name_type" "de"
  132.  
  133. set row22 [$diag addRow attribute 0.0]
  134. $row22 setLabel "name_type" "sz:unsigned"
  135. $row22 setScope "name_type" "cl" "scopePhase"
  136. $row22 setProp "modifier" "Value" "name_type" "cl"
  137. $row22 setProp "attrib_access" "Protected-Protected" "name_type" "de"
  138.  
  139. set row23 [$diag addRow method 0.0]
  140. $row23 setLabel "name_type" "\$create()\n"
  141. $row23 setProp "has_parmlist" "1"
  142. $row23 setProp "is_class_feature" "1"
  143. $row23 setProp "method_access" "Public"
  144. $row23 setProp "modifier" "Value"
  145.  
  146. set cell24 [$row23 addCell parameter 0.0]
  147. $cell24 setLabel "name_type" "size:unsigned"
  148. $cell24 setProp "default_value" " DEFAULT_ARRAY_SIZE"
  149. $cell24 setProp "modifier" "Value"
  150. $cell24 setScope "name_type" "cl" "scopePhase"
  151. $cell24 setProp "modifier" "Value" "name_type" "cl"
  152. $cell24 setScope "name_type" "de" "scopeSystem"
  153.  
  154. set row25 [$diag addRow method 0.0]
  155. $row25 setLabel "name_type" "\$create()\n"
  156. $row25 setProp "has_parmlist" "1"
  157. $row25 setProp "is_class_feature" "1"
  158. $row25 setProp "method_access" "Public"
  159. $row25 setProp "modifier" "Value"
  160.  
  161. set cell26 [$row25 addCell parameter 0.0]
  162. $cell26 setLabel "name_type" "p7:GenFlexArray"
  163. $cell26 setProp "modifier" "Reference to Const"
  164. $cell26 setScope "name_type" "cl" "scopePhase"
  165. $cell26 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\FlexArray.hxx" "name_type" "cl"
  166. $cell26 setScope "name_type" "de" "scopeSystem"
  167.  
  168. set row27 [$diag addRow method 0.0]
  169. $row27 setLabel "name_type" "operatorASSIGN():GenFlexArray\n"
  170. $row27 setProp "has_parmlist" "1"
  171. $row27 setProp "method_access" "Public"
  172. $row27 setProp "modifier" "Reference"
  173. $row27 setScope "name_type" "cl" "scopePhase"
  174. $row27 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\FlexArray.hxx" "name_type" "cl"
  175.  
  176. set cell28 [$row27 addCell parameter 0.0]
  177. $cell28 setLabel "name_type" "p8:GenFlexArray"
  178. $cell28 setProp "modifier" "Reference to Const"
  179. $cell28 setScope "name_type" "cl" "scopePhase"
  180. $cell28 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\FlexArray.hxx" "name_type" "cl"
  181. $cell28 setScope "name_type" "de" "scopeSystem"
  182.  
  183. set row29 [$diag addRow method 0.0]
  184. $row29 setLabel "name_type" "clear()\n"
  185. $row29 setProp "has_parmlist" "1"
  186. $row29 setProp "method_access" "Public"
  187. $row29 setProp "modifier" "Value"
  188.  
  189. set cell30 [$row29 addCell parameter 0.0]
  190. $cell30 setLabel "name_type" "e:genptr"
  191. $cell30 setProp "default_value" " 0"
  192. $cell30 setProp "modifier" "Pointer"
  193. $cell30 setScope "name_type" "cl" "scopePhase"
  194. $cell30 setScope "name_type" "de" "scopeSystem"
  195.  
  196. set row31 [$diag addRow method 0.0]
  197. $row31 setLabel "name_type" "reSize()\n"
  198. $row31 setProp "has_parmlist" "1"
  199. $row31 setProp "method_access" "Public"
  200. $row31 setProp "modifier" "Value"
  201.  
  202. set cell32 [$row31 addCell parameter 0.0]
  203. $cell32 setLabel "name_type" "p9:unsigned"
  204. $cell32 setProp "modifier" "Value"
  205. $cell32 setScope "name_type" "cl" "scopePhase"
  206. $cell32 setProp "modifier" "Value" "name_type" "cl"
  207. $cell32 setScope "name_type" "de" "scopeSystem"
  208.  
  209. set row33 [$diag addRow method 0.0]
  210. $row33 setLabel "name_type" "capacity():unsigned\n"
  211. $row33 setProp "has_parmlist" "1"
  212. $row33 setProp "is_const_func" "1"
  213. $row33 setProp "method_access" "Public"
  214. $row33 setProp "modifier" "Value"
  215. $row33 setScope "name_type" "cl" "scopePhase"
  216. $row33 setProp "modifier" "Value" "name_type" "cl"
  217.  
  218. set row34 [$diag addRow method 0.0]
  219. $row34 setLabel "name_type" "at():void\n"
  220. $row34 setProp "has_parmlist" "1"
  221. $row34 setProp "is_const_func" "1"
  222. $row34 setProp "method_access" "Public"
  223. $row34 setProp "modifier" "Pointer"
  224. $row34 setScope "name_type" "cl" "scopePhase"
  225. $row34 setProp "modifier" "Pointer" "name_type" "cl"
  226.  
  227. set cell35 [$row34 addCell parameter 0.0]
  228. $cell35 setLabel "name_type" "i:integer"
  229. $cell35 setProp "modifier" "Value"
  230. $cell35 setScope "name_type" "cl" "scopePhase"
  231. $cell35 setProp "modifier" "Value" "name_type" "cl"
  232. $cell35 setScope "name_type" "de" "scopeSystem"
  233.  
  234. set row36 [$diag addRow method 0.0]
  235. $row36 setLabel "name_type" "operator\[\]():void"
  236. $row36 setProp "has_parmlist" "1"
  237. $row36 setProp "is_const_func" "1"
  238. $row36 setProp "method_access" "Public"
  239. $row36 setProp "modifier" "Pointer"
  240. $row36 setScope "name_type" "cl" "scopePhase"
  241. $row36 setProp "modifier" "Pointer" "name_type" "cl"
  242.  
  243. set cell37 [$row36 addCell parameter 0.0]
  244. $cell37 setLabel "name_type" "i:integer"
  245. $cell37 setProp "modifier" "Value"
  246. $cell37 setScope "name_type" "cl" "scopePhase"
  247. $cell37 setProp "modifier" "Value" "name_type" "cl"
  248. $cell37 setScope "name_type" "de" "scopeSystem"
  249.  
  250. $diag save
  251. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  252.  
  253.  
  254. # ----------------------------------------------------------------------------
  255. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/Hitachi.cad'.
  256. # ----------------------------------------------------------------------------
  257.  
  258. # Generator: et.tcl    /main/hindenburg/11
  259. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  260. # Interpreter to use: Otsh V5.1.1/B1
  261. #
  262. OTShRegister::importTool
  263.  
  264. set diag [CAD new Hitachi RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  265.  
  266. $diag save
  267. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  268.  
  269.  
  270. # ----------------------------------------------------------------------------
  271. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/FlexArray_T.cdm'.
  272. # ----------------------------------------------------------------------------
  273.  
  274. # Generator: et.tcl    /main/hindenburg/11
  275. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  276. # Interpreter to use: Otsh V5.1.1/B1
  277. #
  278. OTShRegister::importTool
  279.  
  280. set diag [CDM new FlexArray_T RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  281.  
  282. set row38 [$diag addRow method 0.0]
  283. $row38 setLabel "name_type" "\$create()\n"
  284. $row38 setProp "has_parmlist" "1"
  285. $row38 setProp "is_class_feature" "1"
  286. $row38 setProp "method_access" "Public"
  287. $row38 setProp "modifier" "Value"
  288.  
  289. set cell39 [$row38 addCell parameter 0.0]
  290. $cell39 setLabel "name_type" "s:unsigned"
  291. $cell39 setProp "default_value" "DEFAULT_ARRAY_SIZE"
  292. $cell39 setProp "modifier" "Value"
  293. $cell39 setScope "name_type" "cl" "scopePhase"
  294. $cell39 setProp "modifier" "Value" "name_type" "cl"
  295. $cell39 setScope "name_type" "de" "scopeSystem"
  296.  
  297. set row40 [$diag addRow method 0.0]
  298. $row40 setLabel "name_type" "clear()\n"
  299. $row40 setProp "has_parmlist" "1"
  300. $row40 setProp "method_access" "Public"
  301. $row40 setProp "modifier" "Value"
  302.  
  303. set cell41 [$row40 addCell parameter 0.0]
  304. $cell41 setLabel "name_type" "e:T"
  305. $cell41 setProp "default_value" "0"
  306. $cell41 setProp "modifier" "Value"
  307. $cell41 setScope "name_type" "cl" "scopePhase"
  308. $cell41 setScope "name_type" "de" "scopeSystem"
  309.  
  310. set row42 [$diag addRow method 0.0]
  311. $row42 setLabel "name_type" "capacity():unsigned\n"
  312. $row42 setProp "has_parmlist" "1"
  313. $row42 setProp "is_const_func" "1"
  314. $row42 setProp "method_access" "Public"
  315. $row42 setProp "modifier" "Value"
  316. $row42 setScope "name_type" "cl" "scopePhase"
  317. $row42 setProp "modifier" "Value" "name_type" "cl"
  318.  
  319. set row43 [$diag addRow method 0.0]
  320. $row43 setLabel "name_type" "reSize()\n"
  321. $row43 setProp "has_parmlist" "1"
  322. $row43 setProp "method_access" "Public"
  323. $row43 setProp "modifier" "Value"
  324.  
  325. set cell44 [$row43 addCell parameter 0.0]
  326. $cell44 setLabel "name_type" "s:unsigned"
  327. $cell44 setProp "modifier" "Value"
  328. $cell44 setScope "name_type" "cl" "scopePhase"
  329. $cell44 setProp "modifier" "Value" "name_type" "cl"
  330. $cell44 setScope "name_type" "de" "scopeSystem"
  331.  
  332. set row45 [$diag addRow method 0.0]
  333. $row45 setLabel "name_type" "at():T\n"
  334. $row45 setProp "has_parmlist" "1"
  335. $row45 setProp "is_const_func" "1"
  336. $row45 setProp "method_access" "Public"
  337. $row45 setProp "modifier" "Reference"
  338. $row45 setScope "name_type" "cl" "scopePhase"
  339.  
  340. set cell46 [$row45 addCell parameter 0.0]
  341. $cell46 setLabel "name_type" "i:integer"
  342. $cell46 setProp "modifier" "Value"
  343. $cell46 setScope "name_type" "cl" "scopePhase"
  344. $cell46 setProp "modifier" "Value" "name_type" "cl"
  345. $cell46 setScope "name_type" "de" "scopeSystem"
  346.  
  347. set row47 [$diag addRow method 0.0]
  348. $row47 setLabel "name_type" "operator\[\]():T"
  349. $row47 setProp "has_parmlist" "1"
  350. $row47 setProp "is_const_func" "1"
  351. $row47 setProp "method_access" "Public"
  352. $row47 setProp "modifier" "Reference"
  353. $row47 setScope "name_type" "cl" "scopePhase"
  354.  
  355. set cell48 [$row47 addCell parameter 0.0]
  356. $cell48 setLabel "name_type" "i:integer"
  357. $cell48 setProp "modifier" "Value"
  358. $cell48 setScope "name_type" "cl" "scopePhase"
  359. $cell48 setProp "modifier" "Value" "name_type" "cl"
  360. $cell48 setScope "name_type" "de" "scopeSystem"
  361.  
  362. $diag save
  363. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  364.  
  365.  
  366. # ----------------------------------------------------------------------------
  367. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/Hashable.cdm'.
  368. # ----------------------------------------------------------------------------
  369.  
  370. # Generator: et.tcl    /main/hindenburg/11
  371. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  372. # Interpreter to use: Otsh V5.1.1/B1
  373. #
  374. OTShRegister::importTool
  375.  
  376. set diag [CDM new Hashable RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  377.  
  378. set row49 [$diag addRow method 0.0]
  379. $row49 setLabel "name_type" "\$create()\n"
  380. $row49 setProp "has_parmlist" "1"
  381. $row49 setProp "is_class_feature" "1"
  382. $row49 setProp "method_access" "Public"
  383. $row49 setProp "modifier" "Value"
  384.  
  385. set row50 [$diag addRow method 0.0]
  386. $row50 setLabel "name_type" "hash():unsigned {abstract}\n"
  387. $row50 setProp "has_parmlist" "1"
  388. $row50 setProp "is_abstract" "1"
  389. $row50 setProp "is_const_func" "1"
  390. $row50 setProp "method_access" "Public"
  391. $row50 setProp "modifier" "Value"
  392. $row50 setScope "name_type" "cl" "scopePhase"
  393. $row50 setProp "modifier" "Value" "name_type" "cl"
  394.  
  395. set row51 [$diag addRow method 0.0]
  396. $row51 setLabel "name_type" "isEqual():integer {abstract}"
  397. $row51 setProp "has_parmlist" "1"
  398. $row51 setProp "is_abstract" "1"
  399. $row51 setProp "is_const_func" "1"
  400. $row51 setProp "method_access" "Public"
  401. $row51 setProp "modifier" "Value"
  402. $row51 setScope "name_type" "cl" "scopePhase"
  403. $row51 setProp "modifier" "Value" "name_type" "cl"
  404.  
  405. set cell52 [$row51 addCell parameter 0.0]
  406. $cell52 setLabel "name_type" "key:Hashable"
  407. $cell52 setProp "modifier" "Reference to Const"
  408. $cell52 setScope "name_type" "cl" "scopePhase"
  409. $cell52 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  410. $cell52 setScope "name_type" "de" "scopeSystem"
  411.  
  412. $diag save
  413. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  414.  
  415.  
  416. # ----------------------------------------------------------------------------
  417. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/HashTbl.cdm'.
  418. # ----------------------------------------------------------------------------
  419.  
  420. # Generator: et.tcl    /main/hindenburg/11
  421. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  422. # Interpreter to use: Otsh V5.1.1/B1
  423. #
  424. OTShRegister::importTool
  425.  
  426. set diag [CDM new HashTbl RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  427.  
  428. set row53 [$diag addRow attribute 0.0]
  429. $row53 setLabel "name_type" "count:unsigned\n"
  430. $row53 setScope "name_type" "cl" "scopePhase"
  431. $row53 setProp "modifier" "Value" "name_type" "cl"
  432. $row53 setProp "attrib_access" "Private-Private" "name_type" "de"
  433.  
  434. set row54 [$diag addRow attribute 0.0]
  435. $row54 setLabel "name_type" "nbits:unsigned\n"
  436. $row54 setScope "name_type" "cl" "scopePhase"
  437. $row54 setProp "modifier" "Value" "name_type" "cl"
  438. $row54 setProp "attrib_access" "Private-Private" "name_type" "de"
  439.  
  440. set row55 [$diag addRow attribute 0.0]
  441. $row55 setLabel "name_type" "mask:unsigned\n"
  442. $row55 setScope "name_type" "cl" "scopePhase"
  443. $row55 setProp "modifier" "Value" "name_type" "cl"
  444. $row55 setProp "attrib_access" "Private-Private" "name_type" "de"
  445.  
  446. set row56 [$diag addRow attribute 0.0]
  447. $row56 setLabel "name_type" "contents:hashList\n"
  448. $row56 setScope "name_type" "cl" "scopePhase"
  449. $row56 setProp "modifier" "Value" "name_type" "cl"
  450. $row56 setProp "attrib_access" "Private-Private" "name_type" "de"
  451.  
  452. set row57 [$diag addRow attribute 0.0]
  453. $row57 setLabel "name_type" "current:integer\n"
  454. $row57 setScope "name_type" "cl" "scopePhase"
  455. $row57 setProp "modifier" "Value" "name_type" "cl"
  456. $row57 setProp "attrib_access" "Private-Private" "name_type" "de"
  457.  
  458. set row58 [$diag addRow attribute 0.0]
  459. $row58 setLabel "name_type" "\$DEFAULT_SIZE:unsigned\n"
  460. $row58 setProp "is_class_feature" "1"
  461. $row58 setScope "name_type" "cl" "scopePhase"
  462. $row58 setProp "modifier" "Value" "name_type" "cl"
  463. $row58 setProp "attrib_access" "Public-Public" "name_type" "de"
  464.  
  465. set row59 [$diag addRow attribute 0.0]
  466. $row59 setLabel "name_type" "\$EXPANSION_FACTOR:unsigned"
  467. $row59 setProp "is_class_feature" "1"
  468. $row59 setScope "name_type" "cl" "scopePhase"
  469. $row59 setProp "modifier" "Value" "name_type" "cl"
  470. $row59 setProp "attrib_access" "Public-Public" "name_type" "de"
  471.  
  472. set row60 [$diag addRow method 0.0]
  473. $row60 setLabel "name_type" "setCapacity():unsigned\n"
  474. $row60 setProp "has_parmlist" "1"
  475. $row60 setProp "method_access" "Private"
  476. $row60 setProp "modifier" "Value"
  477. $row60 setScope "name_type" "cl" "scopePhase"
  478. $row60 setProp "modifier" "Value" "name_type" "cl"
  479.  
  480. set cell61 [$row60 addCell parameter 0.0]
  481. $cell61 setLabel "name_type" "p10:unsigned"
  482. $cell61 setProp "modifier" "Value"
  483. $cell61 setScope "name_type" "cl" "scopePhase"
  484. $cell61 setProp "modifier" "Value" "name_type" "cl"
  485. $cell61 setScope "name_type" "de" "scopeSystem"
  486.  
  487. set row62 [$diag addRow method 0.0]
  488. $row62 setLabel "name_type" "getIndex():integer\n"
  489. $row62 setProp "has_parmlist" "1"
  490. $row62 setProp "is_const_func" "1"
  491. $row62 setProp "method_access" "Private"
  492. $row62 setProp "modifier" "Value"
  493. $row62 setScope "name_type" "cl" "scopePhase"
  494. $row62 setProp "modifier" "Value" "name_type" "cl"
  495.  
  496. set cell63 [$row62 addCell parameter 0.0]
  497. $cell63 setLabel "name_type" "p11:uns_long"
  498. $cell63 setProp "modifier" "Value"
  499. $cell63 setScope "name_type" "cl" "scopePhase"
  500. $cell63 setScope "name_type" "de" "scopeSystem"
  501.  
  502. set row64 [$diag addRow method 0.0]
  503. $row64 setLabel "name_type" "findIndexOf():integer\n"
  504. $row64 setProp "has_parmlist" "1"
  505. $row64 setProp "is_const_func" "1"
  506. $row64 setProp "method_access" "Private"
  507. $row64 setProp "modifier" "Value"
  508. $row64 setScope "name_type" "cl" "scopePhase"
  509. $row64 setProp "modifier" "Value" "name_type" "cl"
  510.  
  511. set cell65 [$row64 addCell parameter 0.0]
  512. $cell65 setLabel "name_type" "p12:Hashable"
  513. $cell65 setProp "modifier" "Reference to Const"
  514. $cell65 setScope "name_type" "cl" "scopePhase"
  515. $cell65 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  516. $cell65 setScope "name_type" "de" "scopeSystem"
  517.  
  518. set row66 [$diag addRow method 0.0]
  519. $row66 setLabel "name_type" "reSize()\n"
  520. $row66 setProp "has_parmlist" "1"
  521. $row66 setProp "method_access" "Private"
  522. $row66 setProp "modifier" "Value"
  523.  
  524. set cell67 [$row66 addCell parameter 0.0]
  525. $cell67 setLabel "name_type" "new_size:unsigned"
  526. $cell67 setProp "modifier" "Value"
  527. $cell67 setScope "name_type" "cl" "scopePhase"
  528. $cell67 setProp "modifier" "Value" "name_type" "cl"
  529. $cell67 setScope "name_type" "de" "scopeSystem"
  530.  
  531. set row68 [$diag addRow method 0.0]
  532. $row68 setLabel "name_type" "\$create()\n"
  533. $row68 setProp "has_parmlist" "1"
  534. $row68 setProp "is_class_feature" "1"
  535. $row68 setProp "method_access" "Public"
  536. $row68 setProp "modifier" "Value"
  537.  
  538. set cell69 [$row68 addCell parameter 0.0]
  539. $cell69 setLabel "name_type" "size:unsigned"
  540. $cell69 setProp "default_value" " HashTbl::DEFAULT_SIZE"
  541. $cell69 setProp "modifier" "Value"
  542. $cell69 setScope "name_type" "cl" "scopePhase"
  543. $cell69 setProp "modifier" "Value" "name_type" "cl"
  544. $cell69 setScope "name_type" "de" "scopeSystem"
  545.  
  546. set row70 [$diag addRow method 0.0]
  547. $row70 setLabel "name_type" "\$create()\n"
  548. $row70 setProp "has_parmlist" "1"
  549. $row70 setProp "is_class_feature" "1"
  550. $row70 setProp "method_access" "Public"
  551. $row70 setProp "modifier" "Value"
  552.  
  553. set cell71 [$row70 addCell parameter 0.0]
  554. $cell71 setLabel "name_type" "p13:HashTbl"
  555. $cell71 setProp "modifier" "Reference to Const"
  556. $cell71 setScope "name_type" "cl" "scopePhase"
  557. $cell71 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  558. $cell71 setProp "modifier" "Reference to Const" "name_type" "cl"
  559. $cell71 setScope "name_type" "de" "scopeSystem"
  560.  
  561. set row72 [$diag addRow method 0.0]
  562. $row72 setLabel "name_type" "operatorASSIGN():HashTbl\n"
  563. $row72 setProp "has_parmlist" "1"
  564. $row72 setProp "method_access" "Public"
  565. $row72 setProp "modifier" "Reference"
  566. $row72 setScope "name_type" "cl" "scopePhase"
  567. $row72 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  568. $row72 setProp "modifier" "Reference to Const" "name_type" "cl"
  569.  
  570. set cell73 [$row72 addCell parameter 0.0]
  571. $cell73 setLabel "name_type" "p14:HashTbl"
  572. $cell73 setProp "modifier" "Reference to Const"
  573. $cell73 setScope "name_type" "cl" "scopePhase"
  574. $cell73 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  575. $cell73 setProp "modifier" "Reference to Const" "name_type" "cl"
  576. $cell73 setScope "name_type" "de" "scopeSystem"
  577.  
  578. set row74 [$diag addRow method 0.0]
  579. $row74 setLabel "name_type" "add():Hashable\n"
  580. $row74 setProp "has_parmlist" "1"
  581. $row74 setProp "method_access" "Public"
  582. $row74 setProp "modifier" "Pointer"
  583. $row74 setScope "name_type" "cl" "scopePhase"
  584. $row74 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  585.  
  586. set cell75 [$row74 addCell parameter 0.0]
  587. $cell75 setLabel "name_type" "p15:Hashable"
  588. $cell75 setProp "modifier" "Reference"
  589. $cell75 setScope "name_type" "cl" "scopePhase"
  590. $cell75 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  591. $cell75 setScope "name_type" "de" "scopeSystem"
  592.  
  593. set row76 [$diag addRow method 0.0]
  594. $row76 setLabel "name_type" "addAll()\n"
  595. $row76 setProp "has_parmlist" "1"
  596. $row76 setProp "method_access" "Public"
  597. $row76 setProp "modifier" "Value"
  598.  
  599. set cell77 [$row76 addCell parameter 0.0]
  600. $cell77 setLabel "name_type" "p16:HashTbl"
  601. $cell77 setProp "modifier" "Reference to Const"
  602. $cell77 setScope "name_type" "cl" "scopePhase"
  603. $cell77 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  604. $cell77 setProp "modifier" "Reference to Const" "name_type" "cl"
  605. $cell77 setScope "name_type" "de" "scopeSystem"
  606.  
  607. set row78 [$diag addRow method 0.0]
  608. $row78 setLabel "name_type" "remove():Hashable\n"
  609. $row78 setProp "has_parmlist" "1"
  610. $row78 setProp "method_access" "Public"
  611. $row78 setProp "modifier" "Pointer"
  612. $row78 setScope "name_type" "cl" "scopePhase"
  613. $row78 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  614.  
  615. set cell79 [$row78 addCell parameter 0.0]
  616. $cell79 setLabel "name_type" "p17:Hashable"
  617. $cell79 setProp "modifier" "Reference to Const"
  618. $cell79 setScope "name_type" "cl" "scopePhase"
  619. $cell79 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  620. $cell79 setScope "name_type" "de" "scopeSystem"
  621.  
  622. set row80 [$diag addRow method 0.0]
  623. $row80 setLabel "name_type" "removeAll()\n"
  624. $row80 setProp "has_parmlist" "1"
  625. $row80 setProp "method_access" "Public"
  626. $row80 setProp "modifier" "Value"
  627.  
  628. set row81 [$diag addRow method 0.0]
  629. $row81 setLabel "name_type" "removeAll()\n"
  630. $row81 setProp "has_parmlist" "1"
  631. $row81 setProp "method_access" "Public"
  632. $row81 setProp "modifier" "Value"
  633.  
  634. set cell82 [$row81 addCell parameter 0.0]
  635. $cell82 setLabel "name_type" "p18:HashTbl"
  636. $cell82 setProp "modifier" "Reference to Const"
  637. $cell82 setScope "name_type" "cl" "scopePhase"
  638. $cell82 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  639. $cell82 setProp "modifier" "Reference to Const" "name_type" "cl"
  640. $cell82 setScope "name_type" "de" "scopeSystem"
  641.  
  642. set row83 [$diag addRow method 0.0]
  643. $row83 setLabel "name_type" "destructAll()\n"
  644. $row83 setProp "has_parmlist" "1"
  645. $row83 setProp "method_access" "Public"
  646. $row83 setProp "modifier" "Value"
  647.  
  648. set row84 [$diag addRow method 0.0]
  649. $row84 setLabel "name_type" "find():Hashable\n"
  650. $row84 setProp "has_parmlist" "1"
  651. $row84 setProp "is_const_func" "1"
  652. $row84 setProp "method_access" "Public"
  653. $row84 setProp "modifier" "Pointer"
  654. $row84 setScope "name_type" "cl" "scopePhase"
  655. $row84 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  656.  
  657. set cell85 [$row84 addCell parameter 0.0]
  658. $cell85 setLabel "name_type" "key:Hashable"
  659. $cell85 setProp "modifier" "Reference to Const"
  660. $cell85 setScope "name_type" "cl" "scopePhase"
  661. $cell85 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  662. $cell85 setScope "name_type" "de" "scopeSystem"
  663.  
  664. set row86 [$diag addRow method 0.0]
  665. $row86 setLabel "name_type" "operator\[\]():Hashable\n"
  666. $row86 setProp "has_parmlist" "1"
  667. $row86 setProp "is_const_func" "1"
  668. $row86 setProp "method_access" "Public"
  669. $row86 setProp "modifier" "Pointer"
  670. $row86 setScope "name_type" "cl" "scopePhase"
  671. $row86 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  672.  
  673. set cell87 [$row86 addCell parameter 0.0]
  674. $cell87 setLabel "name_type" "key:Hashable"
  675. $cell87 setProp "modifier" "Reference to Const"
  676. $cell87 setScope "name_type" "cl" "scopePhase"
  677. $cell87 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  678. $cell87 setScope "name_type" "de" "scopeSystem"
  679.  
  680. set row88 [$diag addRow method 0.0]
  681. $row88 setLabel "name_type" "operatorEQ():integer\n"
  682. $row88 setProp "has_parmlist" "1"
  683. $row88 setProp "is_const_func" "1"
  684. $row88 setProp "method_access" "Public"
  685. $row88 setProp "modifier" "Value"
  686. $row88 setScope "name_type" "cl" "scopePhase"
  687. $row88 setProp "modifier" "Value" "name_type" "cl"
  688.  
  689. set cell89 [$row88 addCell parameter 0.0]
  690. $cell89 setLabel "name_type" "p19:HashTbl"
  691. $cell89 setProp "modifier" "Reference to Const"
  692. $cell89 setScope "name_type" "cl" "scopePhase"
  693. $cell89 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  694. $cell89 setProp "modifier" "Reference to Const" "name_type" "cl"
  695. $cell89 setScope "name_type" "de" "scopeSystem"
  696.  
  697. set row90 [$diag addRow method 0.0]
  698. $row90 setLabel "name_type" "operatorNEQ():integer\n"
  699. $row90 setProp "has_parmlist" "1"
  700. $row90 setProp "is_const_func" "1"
  701. $row90 setProp "method_access" "Public"
  702. $row90 setProp "modifier" "Value"
  703. $row90 setScope "name_type" "cl" "scopePhase"
  704. $row90 setProp "modifier" "Value" "name_type" "cl"
  705.  
  706. set cell91 [$row90 addCell parameter 0.0]
  707. $cell91 setLabel "name_type" "tbl:HashTbl"
  708. $cell91 setProp "modifier" "Reference to Const"
  709. $cell91 setScope "name_type" "cl" "scopePhase"
  710. $cell91 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  711. $cell91 setProp "modifier" "Reference to Const" "name_type" "cl"
  712. $cell91 setScope "name_type" "de" "scopeSystem"
  713.  
  714. set row92 [$diag addRow method 0.0]
  715. $row92 setLabel "name_type" "at():Hashable\n"
  716. $row92 setProp "has_parmlist" "1"
  717. $row92 setProp "is_const_func" "1"
  718. $row92 setProp "method_access" "Public"
  719. $row92 setProp "modifier" "Pointer"
  720. $row92 setScope "name_type" "cl" "scopePhase"
  721. $row92 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  722.  
  723. set cell93 [$row92 addCell parameter 0.0]
  724. $cell93 setLabel "name_type" "index:integer"
  725. $cell93 setProp "modifier" "Value"
  726. $cell93 setScope "name_type" "cl" "scopePhase"
  727. $cell93 setProp "modifier" "Value" "name_type" "cl"
  728. $cell93 setScope "name_type" "de" "scopeSystem"
  729.  
  730. set row94 [$diag addRow method 0.0]
  731. $row94 setLabel "name_type" "first():Hashable\n"
  732. $row94 setProp "has_parmlist" "1"
  733. $row94 setProp "method_access" "Public"
  734. $row94 setProp "modifier" "Pointer"
  735. $row94 setScope "name_type" "cl" "scopePhase"
  736. $row94 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  737.  
  738. set row95 [$diag addRow method 0.0]
  739. $row95 setLabel "name_type" "next():Hashable\n"
  740. $row95 setProp "has_parmlist" "1"
  741. $row95 setProp "method_access" "Public"
  742. $row95 setProp "modifier" "Pointer"
  743. $row95 setScope "name_type" "cl" "scopePhase"
  744. $row95 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  745.  
  746. set row96 [$diag addRow method 0.0]
  747. $row96 setLabel "name_type" "capacity():unsigned\n"
  748. $row96 setProp "has_parmlist" "1"
  749. $row96 setProp "is_const_func" "1"
  750. $row96 setProp "method_access" "Public"
  751. $row96 setProp "modifier" "Value"
  752. $row96 setScope "name_type" "cl" "scopePhase"
  753. $row96 setProp "modifier" "Value" "name_type" "cl"
  754.  
  755. set row97 [$diag addRow method 0.0]
  756. $row97 setLabel "name_type" "size():unsigned"
  757. $row97 setProp "has_parmlist" "1"
  758. $row97 setProp "is_const_func" "1"
  759. $row97 setProp "method_access" "Public"
  760. $row97 setProp "modifier" "Value"
  761. $row97 setScope "name_type" "cl" "scopePhase"
  762. $row97 setProp "modifier" "Value" "name_type" "cl"
  763.  
  764. $diag save
  765. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  766.  
  767.  
  768. # ----------------------------------------------------------------------------
  769. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/hash_iter.cdm'.
  770. # ----------------------------------------------------------------------------
  771.  
  772. # Generator: et.tcl    /main/hindenburg/11
  773. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  774. # Interpreter to use: Otsh V5.1.1/B1
  775. #
  776. OTShRegister::importTool
  777.  
  778. set diag [CDM new hash_iter RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  779.  
  780. set row98 [$diag addRow attribute 0.0]
  781. $row98 setLabel "name_type" "tbl:HashTbl\n"
  782. $row98 setScope "name_type" "cl" "scopePhase"
  783. $row98 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  784. $row98 setProp "modifier" "Reference to Const" "name_type" "cl"
  785. $row98 setProp "attrib_access" "Private-Private" "name_type" "de"
  786.  
  787. set row99 [$diag addRow attribute 0.0]
  788. $row99 setLabel "name_type" "curr_idx:integer"
  789. $row99 setScope "name_type" "cl" "scopePhase"
  790. $row99 setProp "modifier" "Value" "name_type" "cl"
  791. $row99 setProp "attrib_access" "Private-Private" "name_type" "de"
  792.  
  793. set row100 [$diag addRow method 0.0]
  794. $row100 setLabel "name_type" "\$create()\n"
  795. $row100 setProp "has_parmlist" "1"
  796. $row100 setProp "is_class_feature" "1"
  797. $row100 setProp "method_access" "Public"
  798. $row100 setProp "modifier" "Value"
  799.  
  800. set cell101 [$row100 addCell parameter 0.0]
  801. $cell101 setLabel "name_type" "tbl:HashTbl"
  802. $cell101 setProp "modifier" "Reference to Const"
  803. $cell101 setScope "name_type" "cl" "scopePhase"
  804. $cell101 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  805. $cell101 setProp "modifier" "Reference to Const" "name_type" "cl"
  806. $cell101 setScope "name_type" "de" "scopeSystem"
  807.  
  808. set row102 [$diag addRow method 0.0]
  809. $row102 setLabel "name_type" "rewind()\n"
  810. $row102 setProp "has_parmlist" "1"
  811. $row102 setProp "method_access" "Public"
  812. $row102 setProp "modifier" "Value"
  813.  
  814. set row103 [$diag addRow method 0.0]
  815. $row103 setLabel "name_type" "advance()\n"
  816. $row103 setProp "has_parmlist" "1"
  817. $row103 setProp "method_access" "Public"
  818. $row103 setProp "modifier" "Value"
  819.  
  820. set row104 [$diag addRow method 0.0]
  821. $row104 setLabel "name_type" "get():Hashable\n"
  822. $row104 setProp "has_parmlist" "1"
  823. $row104 setProp "is_const_func" "1"
  824. $row104 setProp "method_access" "Public"
  825. $row104 setProp "modifier" "Pointer"
  826. $row104 setScope "name_type" "cl" "scopePhase"
  827. $row104 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  828.  
  829. set row105 [$diag addRow method 0.0]
  830. $row105 setLabel "name_type" "end_of_iteration():integer\n"
  831. $row105 setProp "has_parmlist" "1"
  832. $row105 setProp "is_const_func" "1"
  833. $row105 setProp "method_access" "Public"
  834. $row105 setProp "modifier" "Value"
  835. $row105 setScope "name_type" "cl" "scopePhase"
  836. $row105 setProp "modifier" "Value" "name_type" "cl"
  837.  
  838. set row106 [$diag addRow method 0.0]
  839. $row106 setLabel "name_type" "type_conv()\n"
  840. $row106 setProp "has_parmlist" "1"
  841. $row106 setProp "is_const_func" "1"
  842. $row106 setProp "method_access" "Public"
  843. $row106 setProp "modifier" "Value"
  844.  
  845. set row107 [$diag addRow method 0.0]
  846. $row107 setLabel "name_type" "operator!():integer\n"
  847. $row107 setProp "has_parmlist" "1"
  848. $row107 setProp "is_const_func" "1"
  849. $row107 setProp "method_access" "Public"
  850. $row107 setProp "modifier" "Value"
  851. $row107 setScope "name_type" "cl" "scopePhase"
  852. $row107 setProp "modifier" "Value" "name_type" "cl"
  853.  
  854. set row108 [$diag addRow method 0.0]
  855. $row108 setLabel "name_type" "operator++()\n"
  856. $row108 setProp "has_parmlist" "1"
  857. $row108 setProp "method_access" "Public"
  858. $row108 setProp "modifier" "Value"
  859.  
  860. set row109 [$diag addRow method 0.0]
  861. $row109 setLabel "name_type" "operatorFUNC():Hashable"
  862. $row109 setProp "has_parmlist" "1"
  863. $row109 setProp "is_const_func" "1"
  864. $row109 setProp "method_access" "Public"
  865. $row109 setProp "modifier" "Pointer"
  866. $row109 setScope "name_type" "cl" "scopePhase"
  867. $row109 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  868.  
  869. $diag save
  870. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  871.  
  872.  
  873. # ----------------------------------------------------------------------------
  874. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/hashIter_Key_Value.cdm'.
  875. # ----------------------------------------------------------------------------
  876.  
  877. # Generator: et.tcl    /main/hindenburg/11
  878. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  879. # Interpreter to use: Otsh V5.1.1/B1
  880. #
  881. OTShRegister::importTool
  882.  
  883. set diag [CDM new hashIter_Key_Value RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  884.  
  885. set row110 [$diag addRow method 0.0]
  886. $row110 setLabel "name_type" "operator!()\n"
  887. $row110 setProp "has_parmlist" "1"
  888. $row110 setProp "method_access" "Public"
  889. $row110 setProp "modifier" "Value"
  890.  
  891. set row111 [$diag addRow method 0.0]
  892. $row111 setLabel "name_type" "operator++()\n"
  893. $row111 setProp "has_parmlist" "1"
  894. $row111 setProp "method_access" "Public"
  895. $row111 setProp "modifier" "Value"
  896.  
  897. set row112 [$diag addRow method 0.0]
  898. $row112 setLabel "name_type" "\$create()\n"
  899. $row112 setProp "has_parmlist" "1"
  900. $row112 setProp "is_class_feature" "1"
  901. $row112 setProp "method_access" "Public"
  902. $row112 setProp "modifier" "Value"
  903.  
  904. set cell113 [$row112 addCell parameter 0.0]
  905. $cell113 setLabel "name_type" "x:hashTbl_Key_Value"
  906. $cell113 setProp "modifier" "Reference to Const"
  907. $cell113 setScope "name_type" "cl" "scopePhase"
  908. $cell113 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  909. $cell113 setScope "name_type" "de" "scopeSystem"
  910.  
  911. set row114 [$diag addRow method 0.0]
  912. $row114 setLabel "name_type" "operatorFUNC():Value\n"
  913. $row114 setProp "has_parmlist" "1"
  914. $row114 setProp "method_access" "Public"
  915. $row114 setProp "modifier" "Pointer"
  916. $row114 setScope "name_type" "cl" "scopePhase"
  917.  
  918. set row115 [$diag addRow method 0.0]
  919. $row115 setLabel "name_type" "get():Value\n"
  920. $row115 setProp "has_parmlist" "1"
  921. $row115 setProp "method_access" "Public"
  922. $row115 setProp "modifier" "Pointer"
  923. $row115 setScope "name_type" "cl" "scopePhase"
  924.  
  925. set row116 [$diag addRow method 0.0]
  926. $row116 setLabel "name_type" "type_conv()"
  927. $row116 setProp "has_parmlist" "1"
  928. $row116 setProp "is_const_func" "1"
  929. $row116 setProp "method_access" "Public"
  930. $row116 setProp "modifier" "Value"
  931.  
  932. $diag save
  933. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  934.  
  935.  
  936. # ----------------------------------------------------------------------------
  937. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/hashTbl_Key_Value.cdm'.
  938. # ----------------------------------------------------------------------------
  939.  
  940. # Generator: et.tcl    /main/hindenburg/11
  941. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  942. # Interpreter to use: Otsh V5.1.1/B1
  943. #
  944. OTShRegister::importTool
  945.  
  946. set diag [CDM new hashTbl_Key_Value RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  947.  
  948. set row117 [$diag addRow method 0.0]
  949. $row117 setLabel "name_type" "operatorASSIGN():hashTbl_Key_Value\n"
  950. $row117 setProp "has_parmlist" "1"
  951. $row117 setProp "method_access" "Public"
  952. $row117 setProp "modifier" "Reference"
  953. $row117 setScope "name_type" "cl" "scopePhase"
  954. $row117 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  955.  
  956. set cell118 [$row117 addCell parameter 0.0]
  957. $cell118 setLabel "name_type" "tbl:hashTbl_Key_Value"
  958. $cell118 setProp "modifier" "Reference to Const"
  959. $cell118 setScope "name_type" "cl" "scopePhase"
  960. $cell118 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  961. $cell118 setScope "name_type" "de" "scopeSystem"
  962.  
  963. set row119 [$diag addRow method 0.0]
  964. $row119 setLabel "name_type" "\$create()\n"
  965. $row119 setProp "has_parmlist" "1"
  966. $row119 setProp "is_class_feature" "1"
  967. $row119 setProp "method_access" "Public"
  968. $row119 setProp "modifier" "Value"
  969.  
  970. set cell120 [$row119 addCell parameter 0.0]
  971. $cell120 setLabel "name_type" "size:unsigned"
  972. $cell120 setProp "default_value" " HashTbl::DEFAULT_SIZE"
  973. $cell120 setProp "modifier" "Value"
  974. $cell120 setScope "name_type" "cl" "scopePhase"
  975. $cell120 setProp "modifier" "Value" "name_type" "cl"
  976. $cell120 setScope "name_type" "de" "scopeSystem"
  977.  
  978. set row121 [$diag addRow method 0.0]
  979. $row121 setLabel "name_type" "\$create()\n"
  980. $row121 setProp "has_parmlist" "1"
  981. $row121 setProp "is_class_feature" "1"
  982. $row121 setProp "method_access" "Public"
  983. $row121 setProp "modifier" "Value"
  984.  
  985. set cell122 [$row121 addCell parameter 0.0]
  986. $cell122 setLabel "name_type" "tbl:hashTbl_Key_Value"
  987. $cell122 setProp "modifier" "Reference to Const"
  988. $cell122 setScope "name_type" "cl" "scopePhase"
  989. $cell122 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  990. $cell122 setScope "name_type" "de" "scopeSystem"
  991.  
  992. set row123 [$diag addRow method 0.0]
  993. $row123 setLabel "name_type" "add():Value\n"
  994. $row123 setProp "has_parmlist" "1"
  995. $row123 setProp "method_access" "Public"
  996. $row123 setProp "modifier" "Pointer"
  997. $row123 setScope "name_type" "cl" "scopePhase"
  998.  
  999. set cell124 [$row123 addCell parameter 0.0]
  1000. $cell124 setLabel "name_type" "x:Key"
  1001. $cell124 setProp "modifier" "Reference"
  1002. $cell124 setScope "name_type" "cl" "scopePhase"
  1003. $cell124 setScope "name_type" "de" "scopeSystem"
  1004.  
  1005. set row125 [$diag addRow method 0.0]
  1006. $row125 setLabel "name_type" "addAll()\n"
  1007. $row125 setProp "has_parmlist" "1"
  1008. $row125 setProp "method_access" "Public"
  1009. $row125 setProp "modifier" "Value"
  1010.  
  1011. set cell126 [$row125 addCell parameter 0.0]
  1012. $cell126 setLabel "name_type" "tbl:hashTbl_Key_Value"
  1013. $cell126 setProp "modifier" "Reference to Const"
  1014. $cell126 setScope "name_type" "cl" "scopePhase"
  1015. $cell126 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1016. $cell126 setScope "name_type" "de" "scopeSystem"
  1017.  
  1018. set row127 [$diag addRow method 0.0]
  1019. $row127 setLabel "name_type" "remove():Value\n"
  1020. $row127 setProp "has_parmlist" "1"
  1021. $row127 setProp "method_access" "Public"
  1022. $row127 setProp "modifier" "Pointer"
  1023. $row127 setScope "name_type" "cl" "scopePhase"
  1024.  
  1025. set cell128 [$row127 addCell parameter 0.0]
  1026. $cell128 setLabel "name_type" "x:Key"
  1027. $cell128 setProp "modifier" "Reference to Const"
  1028. $cell128 setScope "name_type" "cl" "scopePhase"
  1029. $cell128 setScope "name_type" "de" "scopeSystem"
  1030.  
  1031. set row129 [$diag addRow method 0.0]
  1032. $row129 setLabel "name_type" "find():Value\n"
  1033. $row129 setProp "has_parmlist" "1"
  1034. $row129 setProp "is_const_func" "1"
  1035. $row129 setProp "method_access" "Public"
  1036. $row129 setProp "modifier" "Pointer"
  1037. $row129 setScope "name_type" "cl" "scopePhase"
  1038.  
  1039. set cell130 [$row129 addCell parameter 0.0]
  1040. $cell130 setLabel "name_type" "x:Key"
  1041. $cell130 setProp "modifier" "Reference to Const"
  1042. $cell130 setScope "name_type" "cl" "scopePhase"
  1043. $cell130 setScope "name_type" "de" "scopeSystem"
  1044.  
  1045. set row131 [$diag addRow method 0.0]
  1046. $row131 setLabel "name_type" "operator\[\]():Value\n"
  1047. $row131 setProp "has_parmlist" "1"
  1048. $row131 setProp "is_const_func" "1"
  1049. $row131 setProp "method_access" "Public"
  1050. $row131 setProp "modifier" "Pointer"
  1051. $row131 setScope "name_type" "cl" "scopePhase"
  1052.  
  1053. set cell132 [$row131 addCell parameter 0.0]
  1054. $cell132 setLabel "name_type" "x:Key"
  1055. $cell132 setProp "modifier" "Reference to Const"
  1056. $cell132 setScope "name_type" "cl" "scopePhase"
  1057. $cell132 setScope "name_type" "de" "scopeSystem"
  1058.  
  1059. set row133 [$diag addRow method 0.0]
  1060. $row133 setLabel "name_type" "operatorEQ():integer\n"
  1061. $row133 setProp "has_parmlist" "1"
  1062. $row133 setProp "is_const_func" "1"
  1063. $row133 setProp "method_access" "Public"
  1064. $row133 setProp "modifier" "Value"
  1065. $row133 setScope "name_type" "cl" "scopePhase"
  1066. $row133 setProp "modifier" "Value" "name_type" "cl"
  1067.  
  1068. set cell134 [$row133 addCell parameter 0.0]
  1069. $cell134 setLabel "name_type" "tbl:hashTbl_Key_Value"
  1070. $cell134 setProp "modifier" "Reference to Const"
  1071. $cell134 setScope "name_type" "cl" "scopePhase"
  1072. $cell134 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1073. $cell134 setScope "name_type" "de" "scopeSystem"
  1074.  
  1075. set row135 [$diag addRow method 0.0]
  1076. $row135 setLabel "name_type" "operatorNEQ():integer\n"
  1077. $row135 setProp "has_parmlist" "1"
  1078. $row135 setProp "is_const_func" "1"
  1079. $row135 setProp "method_access" "Public"
  1080. $row135 setProp "modifier" "Value"
  1081. $row135 setScope "name_type" "cl" "scopePhase"
  1082. $row135 setProp "modifier" "Value" "name_type" "cl"
  1083.  
  1084. set cell136 [$row135 addCell parameter 0.0]
  1085. $cell136 setLabel "name_type" "tbl:hashTbl_Key_Value"
  1086. $cell136 setProp "modifier" "Reference to Const"
  1087. $cell136 setScope "name_type" "cl" "scopePhase"
  1088. $cell136 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1089. $cell136 setScope "name_type" "de" "scopeSystem"
  1090.  
  1091. set row137 [$diag addRow method 0.0]
  1092. $row137 setLabel "name_type" "at():Value\n"
  1093. $row137 setProp "has_parmlist" "1"
  1094. $row137 setProp "is_const_func" "1"
  1095. $row137 setProp "method_access" "Public"
  1096. $row137 setProp "modifier" "Pointer"
  1097. $row137 setScope "name_type" "cl" "scopePhase"
  1098.  
  1099. set cell138 [$row137 addCell parameter 0.0]
  1100. $cell138 setLabel "name_type" "index:integer"
  1101. $cell138 setProp "modifier" "Value"
  1102. $cell138 setScope "name_type" "cl" "scopePhase"
  1103. $cell138 setProp "modifier" "Value" "name_type" "cl"
  1104. $cell138 setScope "name_type" "de" "scopeSystem"
  1105.  
  1106. set row139 [$diag addRow method 0.0]
  1107. $row139 setLabel "name_type" "first():Value\n"
  1108. $row139 setProp "has_parmlist" "1"
  1109. $row139 setProp "method_access" "Public"
  1110. $row139 setProp "modifier" "Pointer"
  1111. $row139 setScope "name_type" "cl" "scopePhase"
  1112.  
  1113. set row140 [$diag addRow method 0.0]
  1114. $row140 setLabel "name_type" "next():Value\n"
  1115. $row140 setProp "has_parmlist" "1"
  1116. $row140 setProp "method_access" "Public"
  1117. $row140 setProp "modifier" "Pointer"
  1118. $row140 setScope "name_type" "cl" "scopePhase"
  1119.  
  1120. set row141 [$diag addRow method 0.0]
  1121. $row141 setLabel "name_type" "removeAll()\n"
  1122. $row141 setProp "has_parmlist" "1"
  1123. $row141 setProp "method_access" "Public"
  1124. $row141 setProp "modifier" "Value"
  1125.  
  1126. set row142 [$diag addRow method 0.0]
  1127. $row142 setLabel "name_type" "removeAll()\n"
  1128. $row142 setProp "has_parmlist" "1"
  1129. $row142 setProp "method_access" "Public"
  1130. $row142 setProp "modifier" "Value"
  1131.  
  1132. set cell143 [$row142 addCell parameter 0.0]
  1133. $cell143 setLabel "name_type" "tbl:hashTbl_Key_Value"
  1134. $cell143 setProp "modifier" "Reference to Const"
  1135. $cell143 setScope "name_type" "cl" "scopePhase"
  1136. $cell143 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1137. $cell143 setScope "name_type" "de" "scopeSystem"
  1138.  
  1139. set row144 [$diag addRow method 0.0]
  1140. $row144 setLabel "name_type" "destructAll()\n"
  1141. $row144 setProp "has_parmlist" "1"
  1142. $row144 setProp "method_access" "Public"
  1143. $row144 setProp "modifier" "Value"
  1144.  
  1145. set row145 [$diag addRow method 0.0]
  1146. $row145 setLabel "name_type" "capacity():unsigned\n"
  1147. $row145 setProp "has_parmlist" "1"
  1148. $row145 setProp "is_const_func" "1"
  1149. $row145 setProp "method_access" "Public"
  1150. $row145 setProp "modifier" "Value"
  1151. $row145 setScope "name_type" "cl" "scopePhase"
  1152. $row145 setProp "modifier" "Value" "name_type" "cl"
  1153.  
  1154. set row146 [$diag addRow method 0.0]
  1155. $row146 setLabel "name_type" "size():unsigned"
  1156. $row146 setProp "has_parmlist" "1"
  1157. $row146 setProp "is_const_func" "1"
  1158. $row146 setProp "method_access" "Public"
  1159. $row146 setProp "modifier" "Value"
  1160. $row146 setScope "name_type" "cl" "scopePhase"
  1161. $row146 setProp "modifier" "Value" "name_type" "cl"
  1162.  
  1163. $diag save
  1164. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  1165.  
  1166.  
  1167. # ----------------------------------------------------------------------------
  1168. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/Hashable_.cdm'.
  1169. # ----------------------------------------------------------------------------
  1170.  
  1171. # Generator: et.tcl    /main/hindenburg/11
  1172. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  1173. # Interpreter to use: Otsh V5.1.1/B1
  1174. #
  1175. OTShRegister::importTool
  1176.  
  1177. set diag [CDM new Hashable_ RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  1178.  
  1179. set row147 [$diag addRow method 0.0]
  1180. $row147 setLabel "name_type" "\$create()\n"
  1181. $row147 setProp "has_parmlist" "1"
  1182. $row147 setProp "is_class_feature" "1"
  1183. $row147 setProp "method_access" "Public"
  1184. $row147 setProp "modifier" "Value"
  1185.  
  1186. set row148 [$diag addRow method 0.0]
  1187. $row148 setLabel "name_type" "hash():unsigned {abstract}\n"
  1188. $row148 setProp "has_parmlist" "1"
  1189. $row148 setProp "is_abstract" "1"
  1190. $row148 setProp "is_const_func" "1"
  1191. $row148 setProp "method_access" "Public"
  1192. $row148 setProp "modifier" "Value"
  1193. $row148 setScope "name_type" "cl" "scopePhase"
  1194. $row148 setProp "modifier" "Value" "name_type" "cl"
  1195.  
  1196. set row149 [$diag addRow method 0.0]
  1197. $row149 setLabel "name_type" "isEqual():integer {abstract}"
  1198. $row149 setProp "has_parmlist" "1"
  1199. $row149 setProp "is_abstract" "1"
  1200. $row149 setProp "is_const_func" "1"
  1201. $row149 setProp "method_access" "Public"
  1202. $row149 setProp "modifier" "Value"
  1203. $row149 setScope "name_type" "cl" "scopePhase"
  1204. $row149 setProp "modifier" "Value" "name_type" "cl"
  1205.  
  1206. set cell150 [$row149 addCell parameter 0.0]
  1207. $cell150 setLabel "name_type" "key:Hashable"
  1208. $cell150 setProp "modifier" "Reference to Const"
  1209. $cell150 setScope "name_type" "cl" "scopePhase"
  1210. $cell150 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1211. $cell150 setScope "name_type" "de" "scopeSystem"
  1212.  
  1213. $diag save
  1214. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  1215.  
  1216.  
  1217. # ----------------------------------------------------------------------------
  1218. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/HashTbl_.cdm'.
  1219. # ----------------------------------------------------------------------------
  1220.  
  1221. # Generator: et.tcl    /main/hindenburg/11
  1222. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  1223. # Interpreter to use: Otsh V5.1.1/B1
  1224. #
  1225. OTShRegister::importTool
  1226.  
  1227. set diag [CDM new HashTbl_ RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  1228.  
  1229. set row151 [$diag addRow attribute 0.0]
  1230. $row151 setLabel "name_type" "count:unsigned\n"
  1231. $row151 setScope "name_type" "cl" "scopePhase"
  1232. $row151 setProp "modifier" "Value" "name_type" "cl"
  1233. $row151 setProp "attrib_access" "Private-Private" "name_type" "de"
  1234.  
  1235. set row152 [$diag addRow attribute 0.0]
  1236. $row152 setLabel "name_type" "nbits:unsigned\n"
  1237. $row152 setScope "name_type" "cl" "scopePhase"
  1238. $row152 setProp "modifier" "Value" "name_type" "cl"
  1239. $row152 setProp "attrib_access" "Private-Private" "name_type" "de"
  1240.  
  1241. set row153 [$diag addRow attribute 0.0]
  1242. $row153 setLabel "name_type" "mask:unsigned\n"
  1243. $row153 setScope "name_type" "cl" "scopePhase"
  1244. $row153 setProp "modifier" "Value" "name_type" "cl"
  1245. $row153 setProp "attrib_access" "Private-Private" "name_type" "de"
  1246.  
  1247. set row154 [$diag addRow attribute 0.0]
  1248. $row154 setLabel "name_type" "contents:hashList\n"
  1249. $row154 setScope "name_type" "cl" "scopePhase"
  1250. $row154 setProp "modifier" "Value" "name_type" "cl"
  1251. $row154 setProp "attrib_access" "Private-Private" "name_type" "de"
  1252.  
  1253. set row155 [$diag addRow attribute 0.0]
  1254. $row155 setLabel "name_type" "current:integer\n"
  1255. $row155 setScope "name_type" "cl" "scopePhase"
  1256. $row155 setProp "modifier" "Value" "name_type" "cl"
  1257. $row155 setProp "attrib_access" "Private-Private" "name_type" "de"
  1258.  
  1259. set row156 [$diag addRow attribute 0.0]
  1260. $row156 setLabel "name_type" "\$DEFAULT_SIZE:unsigned\n"
  1261. $row156 setProp "is_class_feature" "1"
  1262. $row156 setScope "name_type" "cl" "scopePhase"
  1263. $row156 setProp "modifier" "Value" "name_type" "cl"
  1264. $row156 setProp "attrib_access" "Public-Public" "name_type" "de"
  1265.  
  1266. set row157 [$diag addRow attribute 0.0]
  1267. $row157 setLabel "name_type" "\$EXPANSION_FACTOR:unsigned"
  1268. $row157 setProp "is_class_feature" "1"
  1269. $row157 setScope "name_type" "cl" "scopePhase"
  1270. $row157 setProp "modifier" "Value" "name_type" "cl"
  1271. $row157 setProp "attrib_access" "Public-Public" "name_type" "de"
  1272.  
  1273. set row158 [$diag addRow method 0.0]
  1274. $row158 setLabel "name_type" "setCapacity():unsigned\n"
  1275. $row158 setProp "has_parmlist" "1"
  1276. $row158 setProp "method_access" "Private"
  1277. $row158 setProp "modifier" "Value"
  1278. $row158 setScope "name_type" "cl" "scopePhase"
  1279. $row158 setProp "modifier" "Value" "name_type" "cl"
  1280.  
  1281. set cell159 [$row158 addCell parameter 0.0]
  1282. $cell159 setLabel "name_type" "p20:unsigned"
  1283. $cell159 setProp "modifier" "Value"
  1284. $cell159 setScope "name_type" "cl" "scopePhase"
  1285. $cell159 setProp "modifier" "Value" "name_type" "cl"
  1286. $cell159 setScope "name_type" "de" "scopeSystem"
  1287.  
  1288. set row160 [$diag addRow method 0.0]
  1289. $row160 setLabel "name_type" "getIndex():integer\n"
  1290. $row160 setProp "has_parmlist" "1"
  1291. $row160 setProp "is_const_func" "1"
  1292. $row160 setProp "method_access" "Private"
  1293. $row160 setProp "modifier" "Value"
  1294. $row160 setScope "name_type" "cl" "scopePhase"
  1295. $row160 setProp "modifier" "Value" "name_type" "cl"
  1296.  
  1297. set cell161 [$row160 addCell parameter 0.0]
  1298. $cell161 setLabel "name_type" "p21:uns_long"
  1299. $cell161 setProp "modifier" "Value"
  1300. $cell161 setScope "name_type" "cl" "scopePhase"
  1301. $cell161 setScope "name_type" "de" "scopeSystem"
  1302.  
  1303. set row162 [$diag addRow method 0.0]
  1304. $row162 setLabel "name_type" "findIndexOf():integer\n"
  1305. $row162 setProp "has_parmlist" "1"
  1306. $row162 setProp "is_const_func" "1"
  1307. $row162 setProp "method_access" "Private"
  1308. $row162 setProp "modifier" "Value"
  1309. $row162 setScope "name_type" "cl" "scopePhase"
  1310. $row162 setProp "modifier" "Value" "name_type" "cl"
  1311.  
  1312. set cell163 [$row162 addCell parameter 0.0]
  1313. $cell163 setLabel "name_type" "p22:Hashable"
  1314. $cell163 setProp "modifier" "Reference to Const"
  1315. $cell163 setScope "name_type" "cl" "scopePhase"
  1316. $cell163 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1317. $cell163 setScope "name_type" "de" "scopeSystem"
  1318.  
  1319. set row164 [$diag addRow method 0.0]
  1320. $row164 setLabel "name_type" "reSize()\n"
  1321. $row164 setProp "has_parmlist" "1"
  1322. $row164 setProp "method_access" "Private"
  1323. $row164 setProp "modifier" "Value"
  1324.  
  1325. set cell165 [$row164 addCell parameter 0.0]
  1326. $cell165 setLabel "name_type" "new_size:unsigned"
  1327. $cell165 setProp "modifier" "Value"
  1328. $cell165 setScope "name_type" "cl" "scopePhase"
  1329. $cell165 setProp "modifier" "Value" "name_type" "cl"
  1330. $cell165 setScope "name_type" "de" "scopeSystem"
  1331.  
  1332. set row166 [$diag addRow method 0.0]
  1333. $row166 setLabel "name_type" "\$create()\n"
  1334. $row166 setProp "has_parmlist" "1"
  1335. $row166 setProp "is_class_feature" "1"
  1336. $row166 setProp "method_access" "Public"
  1337. $row166 setProp "modifier" "Value"
  1338.  
  1339. set cell167 [$row166 addCell parameter 0.0]
  1340. $cell167 setLabel "name_type" "size:unsigned"
  1341. $cell167 setProp "default_value" " HashTbl::DEFAULT_SIZE"
  1342. $cell167 setProp "modifier" "Value"
  1343. $cell167 setScope "name_type" "cl" "scopePhase"
  1344. $cell167 setProp "modifier" "Value" "name_type" "cl"
  1345. $cell167 setScope "name_type" "de" "scopeSystem"
  1346.  
  1347. set row168 [$diag addRow method 0.0]
  1348. $row168 setLabel "name_type" "\$create()\n"
  1349. $row168 setProp "has_parmlist" "1"
  1350. $row168 setProp "is_class_feature" "1"
  1351. $row168 setProp "method_access" "Public"
  1352. $row168 setProp "modifier" "Value"
  1353.  
  1354. set cell169 [$row168 addCell parameter 0.0]
  1355. $cell169 setLabel "name_type" "p23:HashTbl"
  1356. $cell169 setProp "modifier" "Reference to Const"
  1357. $cell169 setScope "name_type" "cl" "scopePhase"
  1358. $cell169 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1359. $cell169 setProp "modifier" "Reference to Const" "name_type" "cl"
  1360. $cell169 setScope "name_type" "de" "scopeSystem"
  1361.  
  1362. set row170 [$diag addRow method 0.0]
  1363. $row170 setLabel "name_type" "operatorASSIGN():HashTbl\n"
  1364. $row170 setProp "has_parmlist" "1"
  1365. $row170 setProp "method_access" "Public"
  1366. $row170 setProp "modifier" "Reference"
  1367. $row170 setScope "name_type" "cl" "scopePhase"
  1368. $row170 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1369. $row170 setProp "modifier" "Reference to Const" "name_type" "cl"
  1370.  
  1371. set cell171 [$row170 addCell parameter 0.0]
  1372. $cell171 setLabel "name_type" "p24:HashTbl"
  1373. $cell171 setProp "modifier" "Reference to Const"
  1374. $cell171 setScope "name_type" "cl" "scopePhase"
  1375. $cell171 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1376. $cell171 setProp "modifier" "Reference to Const" "name_type" "cl"
  1377. $cell171 setScope "name_type" "de" "scopeSystem"
  1378.  
  1379. set row172 [$diag addRow method 0.0]
  1380. $row172 setLabel "name_type" "add():Hashable\n"
  1381. $row172 setProp "has_parmlist" "1"
  1382. $row172 setProp "method_access" "Public"
  1383. $row172 setProp "modifier" "Pointer"
  1384. $row172 setScope "name_type" "cl" "scopePhase"
  1385. $row172 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1386.  
  1387. set cell173 [$row172 addCell parameter 0.0]
  1388. $cell173 setLabel "name_type" "p25:Hashable"
  1389. $cell173 setProp "modifier" "Reference"
  1390. $cell173 setScope "name_type" "cl" "scopePhase"
  1391. $cell173 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1392. $cell173 setScope "name_type" "de" "scopeSystem"
  1393.  
  1394. set row174 [$diag addRow method 0.0]
  1395. $row174 setLabel "name_type" "addAll()\n"
  1396. $row174 setProp "has_parmlist" "1"
  1397. $row174 setProp "method_access" "Public"
  1398. $row174 setProp "modifier" "Value"
  1399.  
  1400. set cell175 [$row174 addCell parameter 0.0]
  1401. $cell175 setLabel "name_type" "p26:HashTbl"
  1402. $cell175 setProp "modifier" "Reference to Const"
  1403. $cell175 setScope "name_type" "cl" "scopePhase"
  1404. $cell175 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1405. $cell175 setProp "modifier" "Reference to Const" "name_type" "cl"
  1406. $cell175 setScope "name_type" "de" "scopeSystem"
  1407.  
  1408. set row176 [$diag addRow method 0.0]
  1409. $row176 setLabel "name_type" "remove():Hashable\n"
  1410. $row176 setProp "has_parmlist" "1"
  1411. $row176 setProp "method_access" "Public"
  1412. $row176 setProp "modifier" "Pointer"
  1413. $row176 setScope "name_type" "cl" "scopePhase"
  1414. $row176 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1415.  
  1416. set cell177 [$row176 addCell parameter 0.0]
  1417. $cell177 setLabel "name_type" "p27:Hashable"
  1418. $cell177 setProp "modifier" "Reference to Const"
  1419. $cell177 setScope "name_type" "cl" "scopePhase"
  1420. $cell177 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1421. $cell177 setScope "name_type" "de" "scopeSystem"
  1422.  
  1423. set row178 [$diag addRow method 0.0]
  1424. $row178 setLabel "name_type" "removeAll()\n"
  1425. $row178 setProp "has_parmlist" "1"
  1426. $row178 setProp "method_access" "Public"
  1427. $row178 setProp "modifier" "Value"
  1428.  
  1429. set row179 [$diag addRow method 0.0]
  1430. $row179 setLabel "name_type" "removeAll()\n"
  1431. $row179 setProp "has_parmlist" "1"
  1432. $row179 setProp "method_access" "Public"
  1433. $row179 setProp "modifier" "Value"
  1434.  
  1435. set cell180 [$row179 addCell parameter 0.0]
  1436. $cell180 setLabel "name_type" "p28:HashTbl"
  1437. $cell180 setProp "modifier" "Reference to Const"
  1438. $cell180 setScope "name_type" "cl" "scopePhase"
  1439. $cell180 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1440. $cell180 setProp "modifier" "Reference to Const" "name_type" "cl"
  1441. $cell180 setScope "name_type" "de" "scopeSystem"
  1442.  
  1443. set row181 [$diag addRow method 0.0]
  1444. $row181 setLabel "name_type" "destructAll()\n"
  1445. $row181 setProp "has_parmlist" "1"
  1446. $row181 setProp "method_access" "Public"
  1447. $row181 setProp "modifier" "Value"
  1448.  
  1449. set row182 [$diag addRow method 0.0]
  1450. $row182 setLabel "name_type" "find():Hashable\n"
  1451. $row182 setProp "has_parmlist" "1"
  1452. $row182 setProp "is_const_func" "1"
  1453. $row182 setProp "method_access" "Public"
  1454. $row182 setProp "modifier" "Pointer"
  1455. $row182 setScope "name_type" "cl" "scopePhase"
  1456. $row182 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1457.  
  1458. set cell183 [$row182 addCell parameter 0.0]
  1459. $cell183 setLabel "name_type" "key:Hashable"
  1460. $cell183 setProp "modifier" "Reference to Const"
  1461. $cell183 setScope "name_type" "cl" "scopePhase"
  1462. $cell183 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1463. $cell183 setScope "name_type" "de" "scopeSystem"
  1464.  
  1465. set row184 [$diag addRow method 0.0]
  1466. $row184 setLabel "name_type" "operator\[\]():Hashable\n"
  1467. $row184 setProp "has_parmlist" "1"
  1468. $row184 setProp "is_const_func" "1"
  1469. $row184 setProp "method_access" "Public"
  1470. $row184 setProp "modifier" "Pointer"
  1471. $row184 setScope "name_type" "cl" "scopePhase"
  1472. $row184 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1473.  
  1474. set cell185 [$row184 addCell parameter 0.0]
  1475. $cell185 setLabel "name_type" "key:Hashable"
  1476. $cell185 setProp "modifier" "Reference to Const"
  1477. $cell185 setScope "name_type" "cl" "scopePhase"
  1478. $cell185 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1479. $cell185 setScope "name_type" "de" "scopeSystem"
  1480.  
  1481. set row186 [$diag addRow method 0.0]
  1482. $row186 setLabel "name_type" "operatorEQ():integer\n"
  1483. $row186 setProp "has_parmlist" "1"
  1484. $row186 setProp "is_const_func" "1"
  1485. $row186 setProp "method_access" "Public"
  1486. $row186 setProp "modifier" "Value"
  1487. $row186 setScope "name_type" "cl" "scopePhase"
  1488. $row186 setProp "modifier" "Value" "name_type" "cl"
  1489.  
  1490. set cell187 [$row186 addCell parameter 0.0]
  1491. $cell187 setLabel "name_type" "p29:HashTbl"
  1492. $cell187 setProp "modifier" "Reference to Const"
  1493. $cell187 setScope "name_type" "cl" "scopePhase"
  1494. $cell187 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1495. $cell187 setProp "modifier" "Reference to Const" "name_type" "cl"
  1496. $cell187 setScope "name_type" "de" "scopeSystem"
  1497.  
  1498. set row188 [$diag addRow method 0.0]
  1499. $row188 setLabel "name_type" "operatorNEQ():integer\n"
  1500. $row188 setProp "has_parmlist" "1"
  1501. $row188 setProp "is_const_func" "1"
  1502. $row188 setProp "method_access" "Public"
  1503. $row188 setProp "modifier" "Value"
  1504. $row188 setScope "name_type" "cl" "scopePhase"
  1505. $row188 setProp "modifier" "Value" "name_type" "cl"
  1506.  
  1507. set cell189 [$row188 addCell parameter 0.0]
  1508. $cell189 setLabel "name_type" "tbl:HashTbl"
  1509. $cell189 setProp "modifier" "Reference to Const"
  1510. $cell189 setScope "name_type" "cl" "scopePhase"
  1511. $cell189 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1512. $cell189 setProp "modifier" "Reference to Const" "name_type" "cl"
  1513. $cell189 setScope "name_type" "de" "scopeSystem"
  1514.  
  1515. set row190 [$diag addRow method 0.0]
  1516. $row190 setLabel "name_type" "at():Hashable\n"
  1517. $row190 setProp "has_parmlist" "1"
  1518. $row190 setProp "is_const_func" "1"
  1519. $row190 setProp "method_access" "Public"
  1520. $row190 setProp "modifier" "Pointer"
  1521. $row190 setScope "name_type" "cl" "scopePhase"
  1522. $row190 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1523.  
  1524. set cell191 [$row190 addCell parameter 0.0]
  1525. $cell191 setLabel "name_type" "index:integer"
  1526. $cell191 setProp "modifier" "Value"
  1527. $cell191 setScope "name_type" "cl" "scopePhase"
  1528. $cell191 setProp "modifier" "Value" "name_type" "cl"
  1529. $cell191 setScope "name_type" "de" "scopeSystem"
  1530.  
  1531. set row192 [$diag addRow method 0.0]
  1532. $row192 setLabel "name_type" "first():Hashable\n"
  1533. $row192 setProp "has_parmlist" "1"
  1534. $row192 setProp "method_access" "Public"
  1535. $row192 setProp "modifier" "Pointer"
  1536. $row192 setScope "name_type" "cl" "scopePhase"
  1537. $row192 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1538.  
  1539. set row193 [$diag addRow method 0.0]
  1540. $row193 setLabel "name_type" "next():Hashable\n"
  1541. $row193 setProp "has_parmlist" "1"
  1542. $row193 setProp "method_access" "Public"
  1543. $row193 setProp "modifier" "Pointer"
  1544. $row193 setScope "name_type" "cl" "scopePhase"
  1545. $row193 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1546.  
  1547. set row194 [$diag addRow method 0.0]
  1548. $row194 setLabel "name_type" "capacity():unsigned\n"
  1549. $row194 setProp "has_parmlist" "1"
  1550. $row194 setProp "is_const_func" "1"
  1551. $row194 setProp "method_access" "Public"
  1552. $row194 setProp "modifier" "Value"
  1553. $row194 setScope "name_type" "cl" "scopePhase"
  1554. $row194 setProp "modifier" "Value" "name_type" "cl"
  1555.  
  1556. set row195 [$diag addRow method 0.0]
  1557. $row195 setLabel "name_type" "size():unsigned"
  1558. $row195 setProp "has_parmlist" "1"
  1559. $row195 setProp "is_const_func" "1"
  1560. $row195 setProp "method_access" "Public"
  1561. $row195 setProp "modifier" "Value"
  1562. $row195 setScope "name_type" "cl" "scopePhase"
  1563. $row195 setProp "modifier" "Value" "name_type" "cl"
  1564.  
  1565. $diag save
  1566. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  1567.  
  1568.  
  1569. # ----------------------------------------------------------------------------
  1570. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/hash_iter_.cdm'.
  1571. # ----------------------------------------------------------------------------
  1572.  
  1573. # Generator: et.tcl    /main/hindenburg/11
  1574. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  1575. # Interpreter to use: Otsh V5.1.1/B1
  1576. #
  1577. OTShRegister::importTool
  1578.  
  1579. set diag [CDM new hash_iter_ RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  1580.  
  1581. set row196 [$diag addRow attribute 0.0]
  1582. $row196 setLabel "name_type" "tbl:HashTbl\n"
  1583. $row196 setScope "name_type" "cl" "scopePhase"
  1584. $row196 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1585. $row196 setProp "modifier" "Reference to Const" "name_type" "cl"
  1586. $row196 setProp "attrib_access" "Private-Private" "name_type" "de"
  1587.  
  1588. set row197 [$diag addRow attribute 0.0]
  1589. $row197 setLabel "name_type" "curr_idx:integer"
  1590. $row197 setScope "name_type" "cl" "scopePhase"
  1591. $row197 setProp "modifier" "Value" "name_type" "cl"
  1592. $row197 setProp "attrib_access" "Private-Private" "name_type" "de"
  1593.  
  1594. set row198 [$diag addRow method 0.0]
  1595. $row198 setLabel "name_type" "\$create()\n"
  1596. $row198 setProp "has_parmlist" "1"
  1597. $row198 setProp "is_class_feature" "1"
  1598. $row198 setProp "method_access" "Public"
  1599. $row198 setProp "modifier" "Value"
  1600.  
  1601. set cell199 [$row198 addCell parameter 0.0]
  1602. $cell199 setLabel "name_type" "tbl:HashTbl"
  1603. $cell199 setProp "modifier" "Reference to Const"
  1604. $cell199 setScope "name_type" "cl" "scopePhase"
  1605. $cell199 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1606. $cell199 setProp "modifier" "Reference to Const" "name_type" "cl"
  1607. $cell199 setScope "name_type" "de" "scopeSystem"
  1608.  
  1609. set row200 [$diag addRow method 0.0]
  1610. $row200 setLabel "name_type" "rewind()\n"
  1611. $row200 setProp "has_parmlist" "1"
  1612. $row200 setProp "method_access" "Public"
  1613. $row200 setProp "modifier" "Value"
  1614.  
  1615. set row201 [$diag addRow method 0.0]
  1616. $row201 setLabel "name_type" "advance()\n"
  1617. $row201 setProp "has_parmlist" "1"
  1618. $row201 setProp "method_access" "Public"
  1619. $row201 setProp "modifier" "Value"
  1620.  
  1621. set row202 [$diag addRow method 0.0]
  1622. $row202 setLabel "name_type" "get():Hashable\n"
  1623. $row202 setProp "has_parmlist" "1"
  1624. $row202 setProp "is_const_func" "1"
  1625. $row202 setProp "method_access" "Public"
  1626. $row202 setProp "modifier" "Pointer"
  1627. $row202 setScope "name_type" "cl" "scopePhase"
  1628. $row202 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1629.  
  1630. set row203 [$diag addRow method 0.0]
  1631. $row203 setLabel "name_type" "end_of_iteration():integer\n"
  1632. $row203 setProp "has_parmlist" "1"
  1633. $row203 setProp "is_const_func" "1"
  1634. $row203 setProp "method_access" "Public"
  1635. $row203 setProp "modifier" "Value"
  1636. $row203 setScope "name_type" "cl" "scopePhase"
  1637. $row203 setProp "modifier" "Value" "name_type" "cl"
  1638.  
  1639. set row204 [$diag addRow method 0.0]
  1640. $row204 setLabel "name_type" "type_conv()\n"
  1641. $row204 setProp "has_parmlist" "1"
  1642. $row204 setProp "is_const_func" "1"
  1643. $row204 setProp "method_access" "Public"
  1644. $row204 setProp "modifier" "Value"
  1645.  
  1646. set row205 [$diag addRow method 0.0]
  1647. $row205 setLabel "name_type" "operator!():integer\n"
  1648. $row205 setProp "has_parmlist" "1"
  1649. $row205 setProp "is_const_func" "1"
  1650. $row205 setProp "method_access" "Public"
  1651. $row205 setProp "modifier" "Value"
  1652. $row205 setScope "name_type" "cl" "scopePhase"
  1653. $row205 setProp "modifier" "Value" "name_type" "cl"
  1654.  
  1655. set row206 [$diag addRow method 0.0]
  1656. $row206 setLabel "name_type" "operator++()\n"
  1657. $row206 setProp "has_parmlist" "1"
  1658. $row206 setProp "method_access" "Public"
  1659. $row206 setProp "modifier" "Value"
  1660.  
  1661. set row207 [$diag addRow method 0.0]
  1662. $row207 setLabel "name_type" "operatorFUNC():Hashable"
  1663. $row207 setProp "has_parmlist" "1"
  1664. $row207 setProp "is_const_func" "1"
  1665. $row207 setProp "method_access" "Public"
  1666. $row207 setProp "modifier" "Pointer"
  1667. $row207 setScope "name_type" "cl" "scopePhase"
  1668. $row207 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1669.  
  1670. $diag save
  1671. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  1672.  
  1673.  
  1674. # ----------------------------------------------------------------------------
  1675. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/IntHash.cdm'.
  1676. # ----------------------------------------------------------------------------
  1677.  
  1678. # Generator: et.tcl    /main/hindenburg/11
  1679. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  1680. # Interpreter to use: Otsh V5.1.1/B1
  1681. #
  1682. OTShRegister::importTool
  1683.  
  1684. set diag [CDM new IntHash RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  1685.  
  1686. set row208 [$diag addRow attribute 0.0]
  1687. $row208 setLabel "name_type" "key:integer"
  1688. $row208 setScope "name_type" "cl" "scopePhase"
  1689. $row208 setProp "modifier" "Value" "name_type" "cl"
  1690. $row208 setProp "attrib_access" "Private-Private" "name_type" "de"
  1691.  
  1692. set row209 [$diag addRow method 0.0]
  1693. $row209 setLabel "name_type" "\$create()\n"
  1694. $row209 setProp "has_parmlist" "1"
  1695. $row209 setProp "is_class_feature" "1"
  1696. $row209 setProp "modifier" "Value"
  1697.  
  1698. set cell210 [$row209 addCell parameter 0.0]
  1699. $cell210 setLabel "name_type" "mykey:integer"
  1700. $cell210 setProp "modifier" "Value"
  1701. $cell210 setScope "name_type" "cl" "scopePhase"
  1702. $cell210 setProp "modifier" "Value" "name_type" "cl"
  1703. $cell210 setScope "name_type" "de" "scopeSystem"
  1704.  
  1705. set row211 [$diag addRow method 0.0]
  1706. $row211 setLabel "name_type" "hash():unsigned\n"
  1707. $row211 setProp "has_parmlist" "1"
  1708. $row211 setProp "is_const_func" "1"
  1709. $row211 setProp "method_access" "Public"
  1710. $row211 setProp "modifier" "Value"
  1711. $row211 setScope "name_type" "cl" "scopePhase"
  1712. $row211 setProp "modifier" "Value" "name_type" "cl"
  1713.  
  1714. set row212 [$diag addRow method 0.0]
  1715. $row212 setLabel "name_type" "isEqual():integer\n"
  1716. $row212 setProp "has_parmlist" "1"
  1717. $row212 setProp "is_const_func" "1"
  1718. $row212 setProp "method_access" "Public"
  1719. $row212 setProp "modifier" "Value"
  1720. $row212 setScope "name_type" "cl" "scopePhase"
  1721. $row212 setProp "modifier" "Value" "name_type" "cl"
  1722.  
  1723. set cell213 [$row212 addCell parameter 0.0]
  1724. $cell213 setLabel "name_type" "otherkey:Hashable"
  1725. $cell213 setProp "modifier" "Reference to Const"
  1726. $cell213 setScope "name_type" "cl" "scopePhase"
  1727. $cell213 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\HashTbl.hxx" "name_type" "cl"
  1728. $cell213 setScope "name_type" "de" "scopeSystem"
  1729.  
  1730. set row214 [$diag addRow method 0.0]
  1731. $row214 setLabel "name_type" "get_key():integer"
  1732. $row214 setProp "has_parmlist" "1"
  1733. $row214 setProp "is_const_func" "1"
  1734. $row214 setProp "method_access" "Public"
  1735. $row214 setProp "modifier" "Value"
  1736. $row214 setScope "name_type" "cl" "scopePhase"
  1737. $row214 setProp "modifier" "Value" "name_type" "cl"
  1738.  
  1739. $diag save
  1740. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  1741.  
  1742.  
  1743. # ----------------------------------------------------------------------------
  1744. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/NmFuncMap_T.cdm'.
  1745. # ----------------------------------------------------------------------------
  1746.  
  1747. # Generator: et.tcl    /main/hindenburg/11
  1748. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  1749. # Interpreter to use: Otsh V5.1.1/B1
  1750. #
  1751. OTShRegister::importTool
  1752.  
  1753. set diag [CDM new NmFuncMap_T RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  1754.  
  1755. set row215 [$diag addRow method 0.0]
  1756. $row215 setLabel "name_type" "set()\n"
  1757. $row215 setProp "has_parmlist" "1"
  1758. $row215 setProp "method_access" "Public"
  1759. $row215 setProp "modifier" "Value"
  1760.  
  1761. set cell216 [$row215 addCell parameter 0.0]
  1762. $cell216 setLabel "name_type" "key:StringHash,"
  1763. $cell216 setProp "modifier" "Reference to Const"
  1764. $cell216 setScope "name_type" "cl" "scopePhase"
  1765. $cell216 setScope "name_type" "de" "scopeSystem"
  1766.  
  1767. set cell217 [$row215 addCell parameter 0.0]
  1768. $cell217 setLabel "name_type" "func:T"
  1769. $cell217 setProp "modifier" "Value"
  1770. $cell217 setScope "name_type" "cl" "scopePhase"
  1771. $cell217 setScope "name_type" "de" "scopeSystem"
  1772.  
  1773. set row218 [$diag addRow method 0.0]
  1774. $row218 setLabel "name_type" "get():T\n"
  1775. $row218 setProp "has_parmlist" "1"
  1776. $row218 setProp "method_access" "Public"
  1777. $row218 setProp "modifier" "Value"
  1778. $row218 setScope "name_type" "cl" "scopePhase"
  1779.  
  1780. set cell219 [$row218 addCell parameter 0.0]
  1781. $cell219 setLabel "name_type" "key:StringHash"
  1782. $cell219 setProp "modifier" "Reference to Const"
  1783. $cell219 setScope "name_type" "cl" "scopePhase"
  1784. $cell219 setScope "name_type" "de" "scopeSystem"
  1785.  
  1786. set row220 [$diag addRow method 0.0]
  1787. $row220 setLabel "name_type" "remove()\n"
  1788. $row220 setProp "has_parmlist" "1"
  1789. $row220 setProp "method_access" "Public"
  1790. $row220 setProp "modifier" "Value"
  1791.  
  1792. set cell221 [$row220 addCell parameter 0.0]
  1793. $cell221 setLabel "name_type" "key:StringHash"
  1794. $cell221 setProp "modifier" "Reference to Const"
  1795. $cell221 setScope "name_type" "cl" "scopePhase"
  1796. $cell221 setScope "name_type" "de" "scopeSystem"
  1797.  
  1798. set row222 [$diag addRow method 0.0]
  1799. $row222 setLabel "name_type" "isPresent():integer\n"
  1800. $row222 setProp "has_parmlist" "1"
  1801. $row222 setProp "method_access" "Public"
  1802. $row222 setProp "modifier" "Value"
  1803. $row222 setScope "name_type" "cl" "scopePhase"
  1804. $row222 setProp "modifier" "Value" "name_type" "cl"
  1805.  
  1806. set cell223 [$row222 addCell parameter 0.0]
  1807. $cell223 setLabel "name_type" "key:StringHash"
  1808. $cell223 setProp "modifier" "Reference to Const"
  1809. $cell223 setScope "name_type" "cl" "scopePhase"
  1810. $cell223 setScope "name_type" "de" "scopeSystem"
  1811.  
  1812. set row224 [$diag addRow method 0.0]
  1813. $row224 setLabel "name_type" "firstKey():StringHash\n"
  1814. $row224 setProp "has_parmlist" "1"
  1815. $row224 setProp "method_access" "Public"
  1816. $row224 setProp "modifier" "Pointer to Const"
  1817. $row224 setScope "name_type" "cl" "scopePhase"
  1818.  
  1819. set row225 [$diag addRow method 0.0]
  1820. $row225 setLabel "name_type" "nextKey():StringHash\n"
  1821. $row225 setProp "has_parmlist" "1"
  1822. $row225 setProp "method_access" "Public"
  1823. $row225 setProp "modifier" "Pointer to Const"
  1824. $row225 setScope "name_type" "cl" "scopePhase"
  1825.  
  1826. set row226 [$diag addRow method 0.0]
  1827. $row226 setLabel "name_type" "firstValue():T\n"
  1828. $row226 setProp "has_parmlist" "1"
  1829. $row226 setProp "method_access" "Public"
  1830. $row226 setProp "modifier" "Value"
  1831. $row226 setScope "name_type" "cl" "scopePhase"
  1832.  
  1833. set row227 [$diag addRow method 0.0]
  1834. $row227 setLabel "name_type" "nextValue():T"
  1835. $row227 setProp "has_parmlist" "1"
  1836. $row227 setProp "method_access" "Public"
  1837. $row227 setProp "modifier" "Value"
  1838. $row227 setScope "name_type" "cl" "scopePhase"
  1839.  
  1840. $diag save
  1841. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  1842.  
  1843.  
  1844. # ----------------------------------------------------------------------------
  1845. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/RogueWave.system/State.cdm'.
  1846. # ----------------------------------------------------------------------------
  1847.  
  1848. # Generator: et.tcl    /main/hindenburg/11
  1849. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  1850. # Interpreter to use: Otsh V5.1.1/B1
  1851. #
  1852. OTShRegister::importTool
  1853.  
  1854. set diag [CDM new State RogueWave ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  1855.  
  1856. set row228 [$diag addRow attribute 0.0]
  1857. $row228 setLabel "name_type" " \$CREATED: enum \n"
  1858. $row228 setProp "is_class_feature" "1"
  1859. $row228 setScope "name_type" "cl" "scopePhase"
  1860.  
  1861. set row229 [$diag addRow attribute 0.0]
  1862. $row229 setLabel "name_type" " \$TYPE_ERROR: enum \n"
  1863. $row229 setProp "is_class_feature" "1"
  1864. $row229 setScope "name_type" "cl" "scopePhase"
  1865.  
  1866. set row230 [$diag addRow attribute 0.0]
  1867. $row230 setLabel "name_type" " \$NORMAL: enum \n"
  1868. $row230 setProp "is_class_feature" "1"
  1869. $row230 setScope "name_type" "cl" "scopePhase"
  1870.  
  1871. set row231 [$diag addRow attribute 0.0]
  1872. $row231 setLabel "name_type" " \$SQL_ERROR: enum "
  1873. $row231 setProp "is_class_feature" "1"
  1874. $row231 setScope "name_type" "cl" "scopePhase"
  1875.  
  1876. $diag save
  1877. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  1878.  
  1879.  
  1880. # ----------------------------------------------------------------------------
  1881. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Example.system/Loan1.cdm'.
  1882. # ----------------------------------------------------------------------------
  1883.  
  1884. # Generator: et.tcl    /main/hindenburg/11
  1885. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  1886. # Interpreter to use: Otsh V5.1.1/B1
  1887. #
  1888. OTShRegister::importTool
  1889.  
  1890. set diag [CDM new Loan1 Example ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  1891.  
  1892. set row232 [$diag addRow attribute 0.0]
  1893. $row232 setLabel "name_type" "*LoanID:integer  "
  1894. $row232 setProp "key" "1"
  1895. $row232 setScope "name_type" "cl" "scopePhase"
  1896. $row232 setProp "modifier" "Value" "name_type" "cl"
  1897. $row232 setProp "attrib_access" "Public-Public" "name_type" "de"
  1898.  
  1899. $diag save
  1900. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  1901.  
  1902.  
  1903. # ----------------------------------------------------------------------------
  1904. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Example.system/2Class.cad'.
  1905. # ----------------------------------------------------------------------------
  1906.  
  1907. # Generator: et.tcl    /main/hindenburg/11
  1908. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  1909. # Interpreter to use: Otsh V5.1.1/B1
  1910. #
  1911. OTShRegister::importTool
  1912.  
  1913. set diag [CAD new 2Class Example ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  1914.  
  1915. set node233 [$diag addNode cad_class 656.0 416.0 121.333 92.0]
  1916. $node233 setLabel "name" "Loan1"
  1917. $node233 setScope "name" "cl" "scopePhase"
  1918.  
  1919. set node235 [$diag addNode cad_class 736.0 608.0 153.333 92.0]
  1920. $node235 setLabel "name" "Mortgage"
  1921. $node235 setScope "name" "cl" "scopePhase"
  1922.  
  1923. set node236 [$diag addNode cad_class 560.0 608.0 153.333 92.0]
  1924. $node236 setLabel "name" "Personal"
  1925. $node236 setScope "name" "cl" "scopePhase"
  1926.  
  1927. set node234 [$diag addRake generalization $node233 $node235 720.0 496.0 800.0 640.0 559.5]
  1928.  
  1929. set conn237 [$diag addConn generalization_conn $node234 $node236 800.0 560.0 624.0 624.0]
  1930. set segm238 [$conn237 getFirstSegm]
  1931.  
  1932. $diag save
  1933. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  1934.  
  1935.  
  1936. # ----------------------------------------------------------------------------
  1937. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Example.system/Extention1.cdm'.
  1938. # ----------------------------------------------------------------------------
  1939.  
  1940. # Generator: et.tcl    /main/hindenburg/11
  1941. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  1942. # Interpreter to use: Otsh V5.1.1/B1
  1943. #
  1944. OTShRegister::importTool
  1945.  
  1946. set diag [CDM new Extention1 Example ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  1947.  
  1948. set row239 [$diag addRow attribute 0.0]
  1949. $row239 setLabel "name_type" "*ExtensionID:integer\n"
  1950. $row239 setProp "key" "1"
  1951. $row239 setScope "name_type" "cl" "scopePhase"
  1952. $row239 setProp "modifier" "Value" "name_type" "cl"
  1953. $row239 setProp "attrib_access" "Public-Public" "name_type" "de"
  1954.  
  1955. set row240 [$diag addRow attribute 0.0]
  1956. $row240 setLabel "name_type" "duration: integer"
  1957. $row240 setScope "name_type" "cl" "scopePhase"
  1958. $row240 setProp "modifier" "Value" "name_type" "cl"
  1959.  
  1960. $diag save
  1961. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  1962.  
  1963.  
  1964. # ----------------------------------------------------------------------------
  1965. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Example.system/Mortgage.cdm'.
  1966. # ----------------------------------------------------------------------------
  1967.  
  1968. # Generator: et.tcl    /main/hindenburg/11
  1969. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  1970. # Interpreter to use: Otsh V5.1.1/B1
  1971. #
  1972. OTShRegister::importTool
  1973.  
  1974. set diag [CDM new Mortgage Example ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  1975.  
  1976. set row241 [$diag addRow attribute 0.0]
  1977. $row241 setLabel "name_type" "rate: integer"
  1978. $row241 setScope "name_type" "cl" "scopePhase"
  1979. $row241 setProp "modifier" "Value" "name_type" "cl"
  1980.  
  1981. set row242 [$diag addRow method 0.0]
  1982. $row242 setLabel "name_type" "amort_table(): integer"
  1983. $row242 setProp "has_parmlist" "1"
  1984. $row242 setScope "name_type" "cl" "scopePhase"
  1985. $row242 setProp "modifier" "Value" "name_type" "cl"
  1986.  
  1987. $diag save
  1988. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  1989.  
  1990.  
  1991. # ----------------------------------------------------------------------------
  1992. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Example.system/Personal.cdm'.
  1993. # ----------------------------------------------------------------------------
  1994.  
  1995. # Generator: et.tcl    /main/hindenburg/11
  1996. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  1997. # Interpreter to use: Otsh V5.1.1/B1
  1998. #
  1999. OTShRegister::importTool
  2000.  
  2001. set diag [CDM new Personal Example ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2002.  
  2003. set row243 [$diag addRow attribute 0.0]
  2004. $row243 setLabel "name_type" "rate: integer"
  2005. $row243 setScope "name_type" "cl" "scopePhase"
  2006. $row243 setProp "modifier" "Value" "name_type" "cl"
  2007.  
  2008. set row244 [$diag addRow method 0.0]
  2009. $row244 setLabel "name_type" "amort_table(): integer"
  2010. $row244 setProp "has_parmlist" "1"
  2011. $row244 setScope "name_type" "cl" "scopePhase"
  2012. $row244 setProp "modifier" "Value" "name_type" "cl"
  2013.  
  2014. $diag save
  2015. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2016.  
  2017.  
  2018. # ----------------------------------------------------------------------------
  2019. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/StaticText.cdm'.
  2020. # ----------------------------------------------------------------------------
  2021.  
  2022. # Generator: et.tcl    /main/hindenburg/11
  2023. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2024. # Interpreter to use: Otsh V5.1.1/B1
  2025. #
  2026. OTShRegister::importTool
  2027.  
  2028. set diag [CDM new StaticText Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2029.  
  2030. set row245 [$diag addRow attribute 0.0]
  2031. $row245 setLabel "name_type" "Height: Integer = 100\n"
  2032. $row245 setProp "initial_value" "100"
  2033. $row245 setScope "name_type" "cl" "scopePhase"
  2034.  
  2035. set row246 [$diag addRow attribute 0.0]
  2036. $row246 setLabel "name_type" "Width: Integer = 550\n"
  2037. $row246 setProp "initial_value" "550"
  2038. $row246 setScope "name_type" "cl" "scopePhase"
  2039.  
  2040. set row247 [$diag addRow attribute 0.0]
  2041. $row247 setLabel "name_type" "Enabled: Boolean = TRUE\n"
  2042. $row247 setProp "initial_value" "TRUE"
  2043. $row247 setScope "name_type" "cl" "scopePhase"
  2044.  
  2045. set row248 [$diag addRow attribute 0.0]
  2046. $row248 setLabel "name_type" "Visible: Boolean = TRUE"
  2047. $row248 setProp "initial_value" "TRUE"
  2048. $row248 setScope "name_type" "cl" "scopePhase"
  2049.  
  2050. $diag save
  2051. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2052.  
  2053.  
  2054. # ----------------------------------------------------------------------------
  2055. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/RadioButtons.cad'.
  2056. # ----------------------------------------------------------------------------
  2057.  
  2058. # Generator: et.tcl    /main/hindenburg/11
  2059. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2060. # Interpreter to use: Otsh V5.1.1/B1
  2061. #
  2062. OTShRegister::importTool
  2063.  
  2064. set diag [CAD new RadioButtons Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2065.  
  2066. set node250 [$diag addNode cad_class 544.0 784.0 152.0 121.333]
  2067. $node250 setLabel "name" "rb_1"
  2068. $node250 setScope "name" "cl" "scopePhase"
  2069.  
  2070. set node251 [$diag addNode cad_class 656.0 608.0 120.0 33.3333]
  2071. $node251 setLabel "name" "RadioButton"
  2072. $node251 setProp "is_folded" "1"
  2073. $node251 setScope "name" "cl" "scopePhase"
  2074.  
  2075. set node252 [$diag addNode cad_class 720.0 784.0 182.667 136.0]
  2076. $node252 setLabel "name" "rb_2"
  2077. $node252 setScope "name" "cl" "scopePhase"
  2078.  
  2079. set node249 [$diag addRake generalization $node251 $node250 720.0 640.0 624.0 848.0 752.0]
  2080.  
  2081. set conn253 [$diag addConn generalization_conn $node249 $node252 816.0 752.5 816.0 816.0]
  2082. set segm254 [$conn253 getFirstSegm]
  2083.  
  2084. $diag save
  2085. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2086.  
  2087.  
  2088. # ----------------------------------------------------------------------------
  2089. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/MaterialList.cdm'.
  2090. # ----------------------------------------------------------------------------
  2091.  
  2092. # Generator: et.tcl    /main/hindenburg/11
  2093. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2094. # Interpreter to use: Otsh V5.1.1/B1
  2095. #
  2096. OTShRegister::importTool
  2097.  
  2098. set diag [CDM new MaterialList Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2099.  
  2100. set row255 [$diag addRow attribute 0.0]
  2101. $row255 setLabel "name_type" "Items: String = \"One Two Three\"\n"
  2102. $row255 setProp "initial_value" "\"One Two Three\""
  2103. $row255 setScope "name_type" "cl" "scopePhase"
  2104. $row255 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\String.hxx" "name_type" "cl"
  2105. $row255 setProp "modifier" "Reference" "name_type" "cl"
  2106.  
  2107. set row256 [$diag addRow attribute 0.0]
  2108. $row256 setLabel "name_type" "Sorted: Boolean = FALSE\n"
  2109. $row256 setProp "initial_value" "FALSE"
  2110. $row256 setScope "name_type" "cl" "scopePhase"
  2111.  
  2112. set row257 [$diag addRow attribute 0.0]
  2113. $row257 setLabel "name_type" "X: Integer = 700\n"
  2114. $row257 setProp "initial_value" "700"
  2115. $row257 setScope "name_type" "cl" "scopePhase"
  2116.  
  2117. set row258 [$diag addRow attribute 0.0]
  2118. $row258 setLabel "name_type" "Y: Integer = 275\n"
  2119. $row258 setProp "initial_value" "275"
  2120. $row258 setScope "name_type" "cl" "scopePhase"
  2121.  
  2122. set row259 [$diag addRow attribute 0.0]
  2123. $row259 setLabel "name_type" "Width: Integer = 691\n"
  2124. $row259 setProp "initial_value" "691"
  2125. $row259 setScope "name_type" "cl" "scopePhase"
  2126.  
  2127. set row260 [$diag addRow attribute 0.0]
  2128. $row260 setLabel "name_type" "Height: Integer = 350\n"
  2129. $row260 setProp "initial_value" "350"
  2130. $row260 setScope "name_type" "cl" "scopePhase"
  2131.  
  2132. $diag save
  2133. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2134.  
  2135.  
  2136. # ----------------------------------------------------------------------------
  2137. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/dw_MaterialsWin.cdm'.
  2138. # ----------------------------------------------------------------------------
  2139.  
  2140. # Generator: et.tcl    /main/hindenburg/11
  2141. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2142. # Interpreter to use: Otsh V5.1.1/B1
  2143. #
  2144. OTShRegister::importTool
  2145.  
  2146. set diag [CDM new dw_MaterialsWin Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2147.  
  2148. set row261 [$diag addRow attribute 0.0]
  2149. $row261 setLabel "name_type" "mat_ID: Integer\n"
  2150. $row261 setScope "name_type" "cl" "scopePhase"
  2151. $row261 setProp "db_column_name" "emp_ID" "name_type" "de"
  2152. $row261 setProp "is_dw_column" "1" "name_type" "de"
  2153. $row261 setProp "is_key" "1" "name_type" "de"
  2154.  
  2155. set row262 [$diag addRow attribute 0.0]
  2156. $row262 setLabel "name_type" "mat_name: char\[30\]\n"
  2157. $row262 setScope "name_type" "cl" "scopePhase"
  2158. $row262 setProp "modifier" "Value" "name_type" "cl"
  2159. $row262 setProp "db_column_name" "emp_surname" "name_type" "de"
  2160. $row262 setProp "is_dw_column" "1" "name_type" "de"
  2161.  
  2162. set row263 [$diag addRow attribute 0.0]
  2163. $row263 setLabel "name_type" "mat_emp_first: char\[2\] "
  2164. $row263 setScope "name_type" "cl" "scopePhase"
  2165. $row263 setProp "modifier" "Value" "name_type" "cl"
  2166. $row263 setProp "db_column_name" "emp_given_name" "name_type" "de"
  2167. $row263 setProp "is_dw_column" "1" "name_type" "de"
  2168.  
  2169. $diag save
  2170. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2171.  
  2172.  
  2173. # ----------------------------------------------------------------------------
  2174. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/rb_1.cdm'.
  2175. # ----------------------------------------------------------------------------
  2176.  
  2177. # Generator: et.tcl    /main/hindenburg/11
  2178. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2179. # Interpreter to use: Otsh V5.1.1/B1
  2180. #
  2181. OTShRegister::importTool
  2182.  
  2183. set diag [CDM new rb_1 Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2184.  
  2185. set row264 [$diag addRow attribute 0.0]
  2186. $row264 setLabel "name_type" "Text: String = \"Name\"\n"
  2187. $row264 setProp "initial_value" "\"Name\""
  2188. $row264 setScope "name_type" "cl" "scopePhase"
  2189. $row264 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\String.hxx" "name_type" "cl"
  2190. $row264 setProp "modifier" "Reference" "name_type" "cl"
  2191.  
  2192. set row265 [$diag addRow attribute 0.0]
  2193. $row265 setLabel "name_type" "X: Integer = 727\n"
  2194. $row265 setProp "initial_value" "727"
  2195. $row265 setScope "name_type" "cl" "scopePhase"
  2196.  
  2197. set row266 [$diag addRow attribute 0.0]
  2198. $row266 setLabel "name_type" "Y: Integer = 100 "
  2199. $row266 setProp "initial_value" "100 "
  2200. $row266 setScope "name_type" "cl" "scopePhase"
  2201.  
  2202. $diag save
  2203. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2204.  
  2205.  
  2206. # ----------------------------------------------------------------------------
  2207. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/a_CommandButton.cdm'.
  2208. # ----------------------------------------------------------------------------
  2209.  
  2210. # Generator: et.tcl    /main/hindenburg/11
  2211. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2212. # Interpreter to use: Otsh V5.1.1/B1
  2213. #
  2214. OTShRegister::importTool
  2215.  
  2216. set diag [CDM new a_CommandButton Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2217.  
  2218. set row267 [$diag addRow attribute 0.0]
  2219. $row267 setLabel "name_type" "Height: Integer = 100\n"
  2220. $row267 setProp "initial_value" "100"
  2221. $row267 setScope "name_type" "cl" "scopePhase"
  2222.  
  2223. set row268 [$diag addRow attribute 0.0]
  2224. $row268 setLabel "name_type" "Width: Integer = 300\n"
  2225. $row268 setProp "initial_value" "300"
  2226. $row268 setScope "name_type" "cl" "scopePhase"
  2227.  
  2228. set row269 [$diag addRow attribute 0.0]
  2229. $row269 setLabel "name_type" "Textsize: Integer = 10\n"
  2230. $row269 setProp "initial_value" "10"
  2231. $row269 setScope "name_type" "cl" "scopePhase"
  2232.  
  2233. set row270 [$diag addRow attribute 0.0]
  2234. $row270 setLabel "name_type" "X:Integer = 1\n"
  2235. $row270 setProp "initial_value" "1"
  2236. $row270 setScope "name_type" "cl" "scopePhase"
  2237.  
  2238. set row271 [$diag addRow attribute 0.0]
  2239. $row271 setLabel "name_type" "Y:Integer = 1"
  2240. $row271 setProp "initial_value" "1"
  2241. $row271 setScope "name_type" "cl" "scopePhase"
  2242.  
  2243. $diag save
  2244. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2245.  
  2246.  
  2247. # ----------------------------------------------------------------------------
  2248. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/CommandButtons.cad'.
  2249. # ----------------------------------------------------------------------------
  2250.  
  2251. # Generator: et.tcl    /main/hindenburg/11
  2252. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2253. # Interpreter to use: Otsh V5.1.1/B1
  2254. #
  2255. OTShRegister::importTool
  2256.  
  2257. set diag [CAD new CommandButtons Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2258.  
  2259. set node272 [$diag addNode cad_class 1168.0 800.0 158.667 121.333]
  2260. $node272 setLabel "name" "Return_Button"
  2261. $node272 setScope "name" "cl" "scopePhase"
  2262.  
  2263. set node273 [$diag addNode cad_class 784.0 800.0 170.667 121.333]
  2264. $node273 setLabel "name" "Reserve_Button"
  2265. $node273 setScope "name" "cl" "scopePhase"
  2266.  
  2267. set node275 [$diag addNode cad_class 976.0 800.0 182.667 121.333]
  2268. $node275 setLabel "name" "Remove_Button"
  2269. $node275 setScope "name" "cl" "scopePhase"
  2270.  
  2271. set node277 [$diag addNode cad_class 912.0 400.0 140.0 29.3333]
  2272. $node277 setLabel "name" "CommandButton"
  2273. $node277 setProp "is_folded" "1"
  2274. $node277 setScope "name" "cl" "scopePhase"
  2275.  
  2276. set node278 [$diag addNode cad_class 1072.0 528.0 156.0 150.667]
  2277. $node278 setLabel "name" "a_CommandButton"
  2278. $node278 setScope "name" "cl" "scopePhase"
  2279.  
  2280. set node279 [$diag addNode cad_class 1344.0 800.0 180.0 136.0]
  2281. $node279 setLabel "name" "Exit_Button"
  2282. $node279 setScope "name" "cl" "scopePhase"
  2283.  
  2284. set node274 [$diag addRake generalization $node278 $node279 1168.0 656.0 1424.0 832.0 784.0]
  2285.  
  2286. set conn280 [$diag addConn generalization_conn $node274 $node273 880.0 784.5 880.0 816.0]
  2287. set segm281 [$conn280 getFirstSegm]
  2288.  
  2289. set conn282 [$diag addConn generalization_conn $node274 $node272 1248.0 784.5 1248.0 816.0]
  2290. set segm283 [$conn282 getFirstSegm]
  2291.  
  2292. set conn284 [$diag addConn generalization_conn $node274 $node275 1072.0 784.5 1072.0 832.0]
  2293. set segm285 [$conn284 getFirstSegm]
  2294.  
  2295. set node276 [$diag addRake generalization $node277 $node278 992.0 416.0 1168.0 560.0 479.5]
  2296.  
  2297. $diag save
  2298. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2299.  
  2300.  
  2301. # ----------------------------------------------------------------------------
  2302. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/rb_2.cdm'.
  2303. # ----------------------------------------------------------------------------
  2304.  
  2305. # Generator: et.tcl    /main/hindenburg/11
  2306. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2307. # Interpreter to use: Otsh V5.1.1/B1
  2308. #
  2309. OTShRegister::importTool
  2310.  
  2311. set diag [CDM new rb_2 Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2312.  
  2313. set row286 [$diag addRow attribute 0.0]
  2314. $row286 setLabel "name_type" "Text: String = \"ID\"\n"
  2315. $row286 setProp "initial_value" "\"ID\""
  2316. $row286 setScope "name_type" "cl" "scopePhase"
  2317. $row286 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\String.hxx" "name_type" "cl"
  2318. $row286 setProp "modifier" "Reference" "name_type" "cl"
  2319.  
  2320. set row287 [$diag addRow attribute 0.0]
  2321. $row287 setLabel "name_type" "X: Integer =1075\n"
  2322. $row287 setProp "initial_value" "1075"
  2323. $row287 setScope "name_type" "cl" "scopePhase"
  2324.  
  2325. set row288 [$diag addRow attribute 0.0]
  2326. $row288 setLabel "name_type" "Y: Integer = 100\n"
  2327. $row288 setProp "initial_value" "100"
  2328. $row288 setScope "name_type" "cl" "scopePhase"
  2329.  
  2330. set row289 [$diag addRow attribute 0.0]
  2331. $row289 setLabel "name_type" "Checked: Boolean = TRUE"
  2332. $row289 setProp "initial_value" "TRUE"
  2333. $row289 setScope "name_type" "cl" "scopePhase"
  2334.  
  2335. $diag save
  2336. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2337.  
  2338.  
  2339. # ----------------------------------------------------------------------------
  2340. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/w_app_frame.cdm'.
  2341. # ----------------------------------------------------------------------------
  2342.  
  2343. # Generator: et.tcl    /main/hindenburg/11
  2344. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2345. # Interpreter to use: Otsh V5.1.1/B1
  2346. #
  2347. OTShRegister::importTool
  2348.  
  2349. set diag [CDM new w_app_frame Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2350.  
  2351. set row290 [$diag addRow attribute 0.0]
  2352. $row290 setLabel "name_type" "Title:  String = \"Materials Administration Application\"\n"
  2353. $row290 setProp "initial_value" "\"Materials Administration Application\""
  2354. $row290 setScope "name_type" "cl" "scopePhase"
  2355. $row290 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\String.hxx" "name_type" "cl"
  2356. $row290 setProp "modifier" "Reference" "name_type" "cl"
  2357.  
  2358. set row291 [$diag addRow attribute 0.0]
  2359. $row291 setLabel "name_type" "p_2:P_1"
  2360. $row291 setScope "name_type" "cl" "scopePhase"
  2361.  
  2362. set row292 [$diag addRow method 0.0]
  2363. $row292 setLabel "name_type" "\$open()"
  2364. $row292 setProp "func_script_file" "open"
  2365. $row292 setProp "has_parmlist" "1"
  2366. $row292 setProp "is_class_feature" "1"
  2367.  
  2368. $diag save
  2369. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2370.  
  2371.  
  2372. # ----------------------------------------------------------------------------
  2373. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/TextEntryFields.cad'.
  2374. # ----------------------------------------------------------------------------
  2375.  
  2376. # Generator: et.tcl    /main/hindenburg/11
  2377. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2378. # Interpreter to use: Otsh V5.1.1/B1
  2379. #
  2380. OTShRegister::importTool
  2381.  
  2382. set diag [CAD new TextEntryFields Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2383.  
  2384. set node293 [$diag addNode cad_class 736.0 1232.0 129.333 106.667]
  2385. $node293 setLabel "name" "MaterialString"
  2386. $node293 setScope "name" "cl" "scopePhase"
  2387.  
  2388. set node295 [$diag addNode cad_class 928.0 848.0 330.667 136.0]
  2389. $node295 setLabel "name" "SearchDescription"
  2390. $node295 setScope "name" "cl" "scopePhase"
  2391.  
  2392. set node296 [$diag addNode cad_class 1024.0 640.0 188.0 136.0]
  2393. $node296 setLabel "name" "StaticText"
  2394. $node296 setScope "name" "cl" "scopePhase"
  2395.  
  2396. set node297 [$diag addNode cad_class 592.0 848.0 292.0 136.0]
  2397. $node297 setLabel "name" "MaterialDescription"
  2398. $node297 setScope "name" "cl" "scopePhase"
  2399.  
  2400. set node299 [$diag addNode cad_class 944.0 1231.5 129.333 106.667]
  2401. $node299 setLabel "name" "SearchString"
  2402. $node299 setScope "name" "cl" "scopePhase"
  2403.  
  2404. set node300 [$diag addNode cad_class 976.0 1008.0 188.0 136.0]
  2405. $node300 setLabel "name" "SingleLineEdit"
  2406. $node300 setScope "name" "cl" "scopePhase"
  2407.  
  2408. set node294 [$diag addRake generalization $node300 $node293 1072.0 1088.0 800.0 1248.0 1183.5]
  2409.  
  2410. set conn301 [$diag addConn generalization_conn $node294 $node299 992.0 1183.5 992.0 1311.5]
  2411. set segm302 [$conn301 getFirstSegm]
  2412.  
  2413. set node298 [$diag addRake generalization $node296 $node295 1120.0 752.0 1024.0 896.0 824.0]
  2414.  
  2415. set conn303 [$diag addConn generalization_conn $node298 $node297 720.0 824.0 720.0 864.0]
  2416. set segm304 [$conn303 getFirstSegm]
  2417.  
  2418. $diag save
  2419. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2420.  
  2421.  
  2422. # ----------------------------------------------------------------------------
  2423. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/SearchString.cdm'.
  2424. # ----------------------------------------------------------------------------
  2425.  
  2426. # Generator: et.tcl    /main/hindenburg/11
  2427. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2428. # Interpreter to use: Otsh V5.1.1/B1
  2429. #
  2430. OTShRegister::importTool
  2431.  
  2432. set diag [CDM new SearchString Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2433.  
  2434. set row305 [$diag addRow attribute 0.0]
  2435. $row305 setLabel "name_type" "X: Integer = 100\n"
  2436. $row305 setProp "initial_value" "100"
  2437. $row305 setScope "name_type" "cl" "scopePhase"
  2438.  
  2439. set row306 [$diag addRow attribute 0.0]
  2440. $row306 setLabel "name_type" "Y: Integer = 100"
  2441. $row306 setProp "initial_value" "100"
  2442. $row306 setScope "name_type" "cl" "scopePhase"
  2443.  
  2444. $diag save
  2445. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2446.  
  2447.  
  2448. # ----------------------------------------------------------------------------
  2449. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/Return_Button.cdm'.
  2450. # ----------------------------------------------------------------------------
  2451.  
  2452. # Generator: et.tcl    /main/hindenburg/11
  2453. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2454. # Interpreter to use: Otsh V5.1.1/B1
  2455. #
  2456. OTShRegister::importTool
  2457.  
  2458. set diag [CDM new Return_Button Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2459.  
  2460. set row307 [$diag addRow attribute 0.0]
  2461. $row307 setLabel "name_type" "X: Integer = 675\n"
  2462. $row307 setProp "initial_value" "675"
  2463. $row307 setScope "name_type" "cl" "scopePhase"
  2464.  
  2465. set row308 [$diag addRow attribute 0.0]
  2466. $row308 setLabel "name_type" "Y: Integer = 450\n"
  2467. $row308 setProp "initial_value" "450"
  2468. $row308 setScope "name_type" "cl" "scopePhase"
  2469.  
  2470. set row309 [$diag addRow attribute 0.0]
  2471. $row309 setLabel "name_type" "Text: String = \"Return\""
  2472. $row309 setProp "initial_value" "\"Return\""
  2473. $row309 setScope "name_type" "cl" "scopePhase"
  2474. $row309 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\String.hxx" "name_type" "cl"
  2475. $row309 setProp "modifier" "Reference" "name_type" "cl"
  2476.  
  2477. set row310 [$diag addRow method 0.0]
  2478. $row310 setLabel "name_type" "\$Clicked()"
  2479. $row310 setProp "has_parmlist" "1"
  2480. $row310 setProp "is_class_feature" "1"
  2481.  
  2482. $diag save
  2483. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2484.  
  2485.  
  2486. # ----------------------------------------------------------------------------
  2487. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/d_material.cdm'.
  2488. # ----------------------------------------------------------------------------
  2489.  
  2490. # Generator: et.tcl    /main/hindenburg/11
  2491. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2492. # Interpreter to use: Otsh V5.1.1/B1
  2493. #
  2494. OTShRegister::importTool
  2495.  
  2496. set diag [CDM new d_material Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2497.  
  2498. set row311 [$diag addRow attribute 0.0]
  2499. $row311 setLabel "name_type" "Height: Integer = 400\n"
  2500. $row311 setProp "initial_value" "400"
  2501. $row311 setScope "name_type" "cl" "scopePhase"
  2502.  
  2503. set row312 [$diag addRow attribute 0.0]
  2504. $row312 setLabel "name_type" "Width: Integer = 800\n"
  2505. $row312 setProp "initial_value" "800"
  2506. $row312 setScope "name_type" "cl" "scopePhase"
  2507.  
  2508. set row313 [$diag addRow attribute 0.0]
  2509. $row313 setLabel "name_type" "X: Integer = 20\n"
  2510. $row313 setProp "initial_value" "20"
  2511. $row313 setScope "name_type" "cl" "scopePhase"
  2512.  
  2513. set row314 [$diag addRow attribute 0.0]
  2514. $row314 setLabel "name_type" "Y: Integer = 0\n"
  2515. $row314 setProp "initial_value" "0"
  2516. $row314 setScope "name_type" "cl" "scopePhase"
  2517.  
  2518. set row315 [$diag addRow attribute 0.0]
  2519. $row315 setLabel "name_type" "Visible: Boolean = TRUE\n"
  2520. $row315 setProp "initial_value" "TRUE"
  2521. $row315 setScope "name_type" "cl" "scopePhase"
  2522.  
  2523. set row316 [$diag addRow attribute 0.0]
  2524. $row316 setLabel "name_type" "Resizable: Boolean = TRUE\n"
  2525. $row316 setProp "initial_value" "TRUE"
  2526. $row316 setScope "name_type" "cl" "scopePhase"
  2527.  
  2528. $diag save
  2529. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2530.  
  2531.  
  2532. # ----------------------------------------------------------------------------
  2533. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/Reserve_Button.cdm'.
  2534. # ----------------------------------------------------------------------------
  2535.  
  2536. # Generator: et.tcl    /main/hindenburg/11
  2537. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2538. # Interpreter to use: Otsh V5.1.1/B1
  2539. #
  2540. OTShRegister::importTool
  2541.  
  2542. set diag [CDM new Reserve_Button Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2543.  
  2544. set row317 [$diag addRow attribute 0.0]
  2545. $row317 setLabel "name_type" "X: Integer = 25\n"
  2546. $row317 setProp "initial_value" "25"
  2547. $row317 setScope "name_type" "cl" "scopePhase"
  2548.  
  2549. set row318 [$diag addRow attribute 0.0]
  2550. $row318 setLabel "name_type" "Y: Integer = 450\n"
  2551. $row318 setProp "initial_value" "450"
  2552. $row318 setScope "name_type" "cl" "scopePhase"
  2553.  
  2554. set row319 [$diag addRow attribute 0.0]
  2555. $row319 setLabel "name_type" "Text: String = \"Reserve\""
  2556. $row319 setProp "initial_value" "\"Reserve\""
  2557. $row319 setScope "name_type" "cl" "scopePhase"
  2558. $row319 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\String.hxx" "name_type" "cl"
  2559. $row319 setProp "modifier" "Reference" "name_type" "cl"
  2560.  
  2561. set row320 [$diag addRow method 0.0]
  2562. $row320 setLabel "name_type" "\$Clicked()"
  2563. $row320 setProp "func_script_file" "openReserve"
  2564. $row320 setProp "has_parmlist" "1"
  2565. $row320 setProp "is_class_feature" "1"
  2566.  
  2567. $diag save
  2568. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2569.  
  2570.  
  2571. # ----------------------------------------------------------------------------
  2572. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/Remove_Button.cdm'.
  2573. # ----------------------------------------------------------------------------
  2574.  
  2575. # Generator: et.tcl    /main/hindenburg/11
  2576. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2577. # Interpreter to use: Otsh V5.1.1/B1
  2578. #
  2579. OTShRegister::importTool
  2580.  
  2581. set diag [CDM new Remove_Button Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2582.  
  2583. set row321 [$diag addRow attribute 0.0]
  2584. $row321 setLabel "name_type" "X: Integer = 350\n"
  2585. $row321 setProp "initial_value" "350"
  2586. $row321 setScope "name_type" "cl" "scopePhase"
  2587.  
  2588. set row322 [$diag addRow attribute 0.0]
  2589. $row322 setLabel "name_type" "Y: Integer = 450\n"
  2590. $row322 setProp "initial_value" "450"
  2591. $row322 setScope "name_type" "cl" "scopePhase"
  2592.  
  2593. set row323 [$diag addRow attribute 0.0]
  2594. $row323 setLabel "name_type" "Text: String = \"Check Out\""
  2595. $row323 setProp "initial_value" "\"Check Out\""
  2596. $row323 setScope "name_type" "cl" "scopePhase"
  2597. $row323 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\String.hxx" "name_type" "cl"
  2598. $row323 setProp "modifier" "Reference" "name_type" "cl"
  2599.  
  2600. $diag save
  2601. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2602.  
  2603.  
  2604. # ----------------------------------------------------------------------------
  2605. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/MaterialString.cdm'.
  2606. # ----------------------------------------------------------------------------
  2607.  
  2608. # Generator: et.tcl    /main/hindenburg/11
  2609. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2610. # Interpreter to use: Otsh V5.1.1/B1
  2611. #
  2612. OTShRegister::importTool
  2613.  
  2614. set diag [CDM new MaterialString Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2615.  
  2616. set row324 [$diag addRow attribute 0.0]
  2617. $row324 setLabel "name_type" "X: Integer = 100\n"
  2618. $row324 setProp "initial_value" "100"
  2619. $row324 setScope "name_type" "cl" "scopePhase"
  2620.  
  2621. set row325 [$diag addRow attribute 0.0]
  2622. $row325 setLabel "name_type" "Y: Integer = 275"
  2623. $row325 setProp "initial_value" "275"
  2624. $row325 setScope "name_type" "cl" "scopePhase"
  2625.  
  2626. $diag save
  2627. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2628.  
  2629.  
  2630. # ----------------------------------------------------------------------------
  2631. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/SingleLineEdit.cdm'.
  2632. # ----------------------------------------------------------------------------
  2633.  
  2634. # Generator: et.tcl    /main/hindenburg/11
  2635. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2636. # Interpreter to use: Otsh V5.1.1/B1
  2637. #
  2638. OTShRegister::importTool
  2639.  
  2640. set diag [CDM new SingleLineEdit Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2641.  
  2642. set row326 [$diag addRow attribute 0.0]
  2643. $row326 setLabel "name_type" "Height: Integer = 100\n"
  2644. $row326 setProp "initial_value" "100"
  2645. $row326 setScope "name_type" "cl" "scopePhase"
  2646.  
  2647. set row327 [$diag addRow attribute 0.0]
  2648. $row327 setLabel "name_type" "Width: Integer = 550\n"
  2649. $row327 setProp "initial_value" "550"
  2650. $row327 setScope "name_type" "cl" "scopePhase"
  2651.  
  2652. set row328 [$diag addRow attribute 0.0]
  2653. $row328 setLabel "name_type" "Enabled: Boolean = TRUE\n"
  2654. $row328 setProp "initial_value" "TRUE"
  2655. $row328 setScope "name_type" "cl" "scopePhase"
  2656.  
  2657. set row329 [$diag addRow attribute 0.0]
  2658. $row329 setLabel "name_type" "Visible: Boolean = TRUE"
  2659. $row329 setProp "initial_value" "TRUE"
  2660. $row329 setScope "name_type" "cl" "scopePhase"
  2661.  
  2662. $diag save
  2663. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2664.  
  2665.  
  2666. # ----------------------------------------------------------------------------
  2667. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/m_main_menu.cdm'.
  2668. # ----------------------------------------------------------------------------
  2669.  
  2670. # Generator: et.tcl    /main/hindenburg/11
  2671. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2672. # Interpreter to use: Otsh V5.1.1/B1
  2673. #
  2674. OTShRegister::importTool
  2675.  
  2676. set diag [CDM new m_main_menu Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2677.  
  2678. set row330 [$diag addRow attribute 0.0]
  2679. $row330 setLabel "name_type" "m_File: MenubarItem\n"
  2680. $row330 setScope "name_type" "cl" "scopePhase"
  2681. $row330 setProp "menu_item_text" "&File" "name_type" "de"
  2682.  
  2683. set row331 [$diag addRow attribute 0.0]
  2684. $row331 setLabel "name_type" "m_fGenReport: MenuItem\n"
  2685. $row331 setScope "name_type" "cl" "scopePhase"
  2686. $row331 setProp "menu_item_text" "&Generate Report" "name_type" "de"
  2687. $row331 setProp "parent_name" "m_File" "name_type" "de"
  2688.  
  2689. set row332 [$diag addRow attribute 0.0]
  2690. $row332 setLabel "name_type" "sep1: Separator\n"
  2691. $row332 setScope "name_type" "cl" "scopePhase"
  2692. $row332 setProp "parent_name" "m_File" "name_type" "de"
  2693.  
  2694. set row333 [$diag addRow attribute 0.0]
  2695. $row333 setLabel "name_type" "m_fPrintDetail: MenuItem\n"
  2696. $row333 setScope "name_type" "cl" "scopePhase"
  2697. $row333 setProp "menu_item_text" "&Print Detail" "name_type" "de"
  2698. $row333 setProp "parent_name" "m_File" "name_type" "de"
  2699.  
  2700. set row334 [$diag addRow attribute 0.0]
  2701. $row334 setLabel "name_type" "m_fExit: MenuItem\n"
  2702. $row334 setScope "name_type" "cl" "scopePhase"
  2703. $row334 setProp "clicked_ps_fn" "Exit_Button_Clicked" "name_type" "de"
  2704. $row334 setProp "menu_item_text" "E&xit" "name_type" "de"
  2705. $row334 setProp "parent_name" "m_File" "name_type" "de"
  2706.  
  2707. set row335 [$diag addRow attribute 0.0]
  2708. $row335 setLabel "name_type" "m_Edit: MenubarItem\n"
  2709. $row335 setScope "name_type" "cl" "scopePhase"
  2710. $row335 setProp "menu_item_text" "&Edit" "name_type" "de"
  2711.  
  2712. set row336 [$diag addRow attribute 0.0]
  2713. $row336 setLabel "name_type" "m_eCopy: MenuItem\n"
  2714. $row336 setScope "name_type" "cl" "scopePhase"
  2715. $row336 setProp "menu_item_text" "&Copy" "name_type" "de"
  2716. $row336 setProp "parent_name" "m_Edit" "name_type" "de"
  2717.  
  2718. set row337 [$diag addRow attribute 0.0]
  2719. $row337 setLabel "name_type" "m_eCut: MenuItem\n"
  2720. $row337 setScope "name_type" "cl" "scopePhase"
  2721. $row337 setProp "menu_item_text" "Cu&t" "name_type" "de"
  2722. $row337 setProp "parent_name" "m_Edit" "name_type" "de"
  2723.  
  2724. set row338 [$diag addRow attribute 0.0]
  2725. $row338 setLabel "name_type" "m_ePaste: MenuItem\n"
  2726. $row338 setScope "name_type" "cl" "scopePhase"
  2727. $row338 setProp "menu_item_text" "&Paste" "name_type" "de"
  2728. $row338 setProp "parent_name" "m_Edit" "name_type" "de"
  2729.  
  2730. set row339 [$diag addRow attribute 0.0]
  2731. $row339 setLabel "name_type" "m_Materials: MenubarItem\n"
  2732. $row339 setScope "name_type" "cl" "scopePhase"
  2733. $row339 setProp "menu_item_text" "&Materials" "name_type" "de"
  2734.  
  2735. set row340 [$diag addRow attribute 0.0]
  2736. $row340 setLabel "name_type" "m_mUpdate: MenuItem\n"
  2737. $row340 setScope "name_type" "cl" "scopePhase"
  2738. $row340 setProp "clicked_ps_fn" "m_mUpdate" "name_type" "de"
  2739. $row340 setProp "menu_item_text" "&Update Material" "name_type" "de"
  2740. $row340 setProp "parent_name" "m_Materials" "name_type" "de"
  2741.  
  2742. set row341 [$diag addRow attribute 0.0]
  2743. $row341 setLabel "name_type" "m_mNew: MenuItem\n"
  2744. $row341 setScope "name_type" "cl" "scopePhase"
  2745. $row341 setProp "menu_item_text" "&Add Material" "name_type" "de"
  2746. $row341 setProp "parent_name" "m_Materials" "name_type" "de"
  2747.  
  2748. set row342 [$diag addRow attribute 0.0]
  2749. $row342 setLabel "name_type" "m_Loans: MenubarItem\n"
  2750. $row342 setScope "name_type" "cl" "scopePhase"
  2751. $row342 setProp "menu_item_text" "&Loans" "name_type" "de"
  2752.  
  2753. set row343 [$diag addRow attribute 0.0]
  2754. $row343 setLabel "name_type" "m_lUpdate:MenuItem\n"
  2755. $row343 setScope "name_type" "cl" "scopePhase"
  2756. $row343 setProp "menu_item_text" "&Update Loan" "name_type" "de"
  2757. $row343 setProp "parent_name" "m_Loans" "name_type" "de"
  2758.  
  2759. set row344 [$diag addRow attribute 0.0]
  2760. $row344 setLabel "name_type" "m_lNew: MenuItem\n"
  2761. $row344 setScope "name_type" "cl" "scopePhase"
  2762. $row344 setProp "menu_item_text" "&New Loan" "name_type" "de"
  2763. $row344 setProp "parent_name" "m_Loans" "name_type" "de"
  2764.  
  2765. set row345 [$diag addRow attribute 0.0]
  2766. $row345 setLabel "name_type" "m_Returns: MenubarItem\n"
  2767. $row345 setScope "name_type" "cl" "scopePhase"
  2768. $row345 setProp "menu_item_text" "&Returns" "name_type" "de"
  2769.  
  2770. set row346 [$diag addRow attribute 0.0]
  2771. $row346 setLabel "name_type" "m_rNew:MenuItem\n"
  2772. $row346 setScope "name_type" "cl" "scopePhase"
  2773. $row346 setProp "menu_item_text" "&New Return" "name_type" "de"
  2774. $row346 setProp "parent_name" "m_Returns" "name_type" "de"
  2775.  
  2776. set row347 [$diag addRow attribute 0.0]
  2777. $row347 setLabel "name_type" "m_WaitList: MenubarItem\n"
  2778. $row347 setScope "name_type" "cl" "scopePhase"
  2779. $row347 setProp "menu_item_text" "&Waiting List" "name_type" "de"
  2780.  
  2781. set row348 [$diag addRow attribute 0.0]
  2782. $row348 setLabel "name_type" "m_wNew:MenuItem\n"
  2783. $row348 setScope "name_type" "cl" "scopePhase"
  2784. $row348 setProp "menu_item_text" "&New Wait List Entry" "name_type" "de"
  2785. $row348 setProp "parent_name" "m_WaitList" "name_type" "de"
  2786.  
  2787. set row349 [$diag addRow attribute 0.0]
  2788. $row349 setLabel "name_type" "m_Help: MenubarItem\n"
  2789. $row349 setScope "name_type" "cl" "scopePhase"
  2790. $row349 setProp "menu_item_text" "&Help" "name_type" "de"
  2791.  
  2792. set row350 [$diag addRow attribute 0.0]
  2793. $row350 setLabel "name_type" "m_hAbout: MenuItem\n"
  2794. $row350 setScope "name_type" "cl" "scopePhase"
  2795. $row350 setProp "menu_item_text" "&About" "name_type" "de"
  2796. $row350 setProp "parent_name" "m_Help" "name_type" "de"
  2797.  
  2798. $diag save
  2799. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2800.  
  2801.  
  2802. # ----------------------------------------------------------------------------
  2803. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/MaterialDescription.cdm'.
  2804. # ----------------------------------------------------------------------------
  2805.  
  2806. # Generator: et.tcl    /main/hindenburg/11
  2807. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2808. # Interpreter to use: Otsh V5.1.1/B1
  2809. #
  2810. OTShRegister::importTool
  2811.  
  2812. set diag [CDM new MaterialDescription Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2813.  
  2814. set row351 [$diag addRow attribute 0.0]
  2815. $row351 setLabel "name_type" "Text: String = \"Enter the Training Material\"\n"
  2816. $row351 setProp "initial_value" "\"Enter the Training Material\""
  2817. $row351 setScope "name_type" "cl" "scopePhase"
  2818. $row351 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\String.hxx" "name_type" "cl"
  2819. $row351 setProp "modifier" "Reference" "name_type" "cl"
  2820.  
  2821. set row352 [$diag addRow attribute 0.0]
  2822. $row352 setLabel "name_type" "X: Integer = 100\n"
  2823. $row352 setProp "initial_value" "100"
  2824. $row352 setScope "name_type" "cl" "scopePhase"
  2825.  
  2826. set row353 [$diag addRow attribute 0.0]
  2827. $row353 setLabel "name_type" "Y: Integer = 200\n"
  2828. $row353 setProp "initial_value" "200"
  2829. $row353 setScope "name_type" "cl" "scopePhase"
  2830.  
  2831. set row354 [$diag addRow attribute 0.0]
  2832. $row354 setLabel "name_type" "Width: Integer = 950"
  2833. $row354 setProp "initial_value" "950"
  2834. $row354 setScope "name_type" "cl" "scopePhase"
  2835.  
  2836. $diag save
  2837. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2838.  
  2839.  
  2840. # ----------------------------------------------------------------------------
  2841. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/SearchDescription.cdm'.
  2842. # ----------------------------------------------------------------------------
  2843.  
  2844. # Generator: et.tcl    /main/hindenburg/11
  2845. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2846. # Interpreter to use: Otsh V5.1.1/B1
  2847. #
  2848. OTShRegister::importTool
  2849.  
  2850. set diag [CDM new SearchDescription Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2851.  
  2852. set row355 [$diag addRow attribute 0.0]
  2853. $row355 setLabel "name_type" "Text: String = \"Enter your name or employee ID\"\n"
  2854. $row355 setProp "initial_value" "\"Enter your name or employee ID\""
  2855. $row355 setScope "name_type" "cl" "scopePhase"
  2856. $row355 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\String.hxx" "name_type" "cl"
  2857. $row355 setProp "modifier" "Reference" "name_type" "cl"
  2858.  
  2859. set row356 [$diag addRow attribute 0.0]
  2860. $row356 setLabel "name_type" "X: Integer = 100\n"
  2861. $row356 setProp "initial_value" "100"
  2862. $row356 setScope "name_type" "cl" "scopePhase"
  2863.  
  2864. set row357 [$diag addRow attribute 0.0]
  2865. $row357 setLabel "name_type" "Y: Integer = 25\n"
  2866. $row357 setProp "initial_value" "25"
  2867. $row357 setScope "name_type" "cl" "scopePhase"
  2868.  
  2869. set row358 [$diag addRow attribute 0.0]
  2870. $row358 setLabel "name_type" "Width: Integer = 1150"
  2871. $row358 setProp "initial_value" "1150"
  2872. $row358 setScope "name_type" "cl" "scopePhase"
  2873.  
  2874. $diag save
  2875. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2876.  
  2877.  
  2878. # ----------------------------------------------------------------------------
  2879. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/Exit_Button.cdm'.
  2880. # ----------------------------------------------------------------------------
  2881.  
  2882. # Generator: et.tcl    /main/hindenburg/11
  2883. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2884. # Interpreter to use: Otsh V5.1.1/B1
  2885. #
  2886. OTShRegister::importTool
  2887.  
  2888. set diag [CDM new Exit_Button Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2889.  
  2890. set row359 [$diag addRow attribute 0.0]
  2891. $row359 setLabel "name_type" "X: Integer =  1125\n"
  2892. $row359 setProp "initial_value" "1125"
  2893. $row359 setScope "name_type" "cl" "scopePhase"
  2894.  
  2895. set row360 [$diag addRow attribute 0.0]
  2896. $row360 setLabel "name_type" "Y: Integer = 450\n"
  2897. $row360 setProp "initial_value" "450"
  2898. $row360 setScope "name_type" "cl" "scopePhase"
  2899.  
  2900. set row361 [$diag addRow attribute 0.0]
  2901. $row361 setLabel "name_type" "Text: String = \"Exit\"\n"
  2902. $row361 setProp "initial_value" "\"Exit\""
  2903. $row361 setScope "name_type" "cl" "scopePhase"
  2904. $row361 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\String.hxx" "name_type" "cl"
  2905. $row361 setProp "modifier" "Reference" "name_type" "cl"
  2906.  
  2907. set row362 [$diag addRow attribute 0.0]
  2908. $row362 setLabel "name_type" "Default: Boolean = TRUE  "
  2909. $row362 setProp "initial_value" "TRUE  "
  2910. $row362 setScope "name_type" "cl" "scopePhase"
  2911.  
  2912. set row363 [$diag addRow method 0.0]
  2913. $row363 setLabel "name_type" "\$Clicked()"
  2914. $row363 setProp "func_script_file" "Exit_Button__Clicked"
  2915. $row363 setProp "has_parmlist" "1"
  2916. $row363 setProp "is_class_feature" "1"
  2917. $row363 setProp "pbComment" "This script is to exit,  should close DB first"
  2918.  
  2919. $diag save
  2920. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2921.  
  2922.  
  2923. # ----------------------------------------------------------------------------
  2924. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/w_editMaterials.cdm'.
  2925. # ----------------------------------------------------------------------------
  2926.  
  2927. # Generator: et.tcl    /main/hindenburg/11
  2928. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2929. # Interpreter to use: Otsh V5.1.1/B1
  2930. #
  2931. OTShRegister::importTool
  2932.  
  2933. set diag [CDM new w_editMaterials Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2934.  
  2935. set row364 [$diag addRow attribute 0.0]
  2936. $row364 setLabel "name_type" "Title: String = \"Update Material\"\n"
  2937. $row364 setProp "initial_value" "\"Update Material\""
  2938. $row364 setScope "name_type" "cl" "scopePhase"
  2939. $row364 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\String.hxx" "name_type" "cl"
  2940. $row364 setProp "modifier" "Reference" "name_type" "cl"
  2941.  
  2942. set row365 [$diag addRow attribute 0.0]
  2943. $row365 setLabel "name_type" "dw_tm: dw_Materials\n"
  2944. $row365 setScope "name_type" "cl" "scopePhase"
  2945. $row365 setProp "master_db_table_name" "materials" "name_type" "cl"
  2946. $row365 setProp "object_type" "DataWindow" "name_type" "cl"
  2947.  
  2948. $diag save
  2949. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  2950.  
  2951.  
  2952. # ----------------------------------------------------------------------------
  2953. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/dw_Materials.cdm'.
  2954. # ----------------------------------------------------------------------------
  2955.  
  2956. # Generator: et.tcl    /main/hindenburg/11
  2957. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  2958. # Interpreter to use: Otsh V5.1.1/B1
  2959. #
  2960. OTShRegister::importTool
  2961.  
  2962. set diag [CDM new dw_Materials Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  2963.  
  2964. set row366 [$diag addRow attribute 0.0]
  2965. $row366 setLabel "name_type" "name: char\[80\]\n"
  2966. $row366 setScope "name_type" "cl" "scopePhase"
  2967. $row366 setProp "modifier" "Value" "name_type" "cl"
  2968. $row366 setProp "db_column_name" "name" "name_type" "de"
  2969. $row366 setProp "db_table_name" "materials" "name_type" "de"
  2970. $row366 setProp "is_dw_column" "1" "name_type" "de"
  2971. $row366 setProp "is_key" "1" "name_type" "de"
  2972.  
  2973. set row367 [$diag addRow attribute 0.0]
  2974. $row367 setLabel "name_type" "desc: char\[200\]\n"
  2975. $row367 setScope "name_type" "cl" "scopePhase"
  2976. $row367 setProp "modifier" "Value" "name_type" "cl"
  2977. $row367 setProp "db_column_name" "Descr" "name_type" "de"
  2978. $row367 setProp "db_table_name" "materials" "name_type" "de"
  2979. $row367 setProp "is_dw_column" "1" "name_type" "de"
  2980.  
  2981. set row368 [$diag addRow attribute 0.0]
  2982. $row368 setLabel "name_type" "Height: Integer = 200\n"
  2983. $row368 setProp "initial_value" "200"
  2984. $row368 setScope "name_type" "cl" "scopePhase"
  2985.  
  2986. set row369 [$diag addRow attribute 0.0]
  2987. $row369 setLabel "name_type" "Width: Integer = 500\n"
  2988. $row369 setProp "initial_value" "500"
  2989. $row369 setScope "name_type" "cl" "scopePhase"
  2990.  
  2991. set row370 [$diag addRow attribute 0.0]
  2992. $row370 setLabel "name_type" "X: Integer = 1\n"
  2993. $row370 setProp "initial_value" "1"
  2994. $row370 setScope "name_type" "cl" "scopePhase"
  2995.  
  2996. set row371 [$diag addRow attribute 0.0]
  2997. $row371 setLabel "name_type" "Y: Integer = 1"
  2998. $row371 setProp "initial_value" "1"
  2999. $row371 setScope "name_type" "cl" "scopePhase"
  3000.  
  3001. $diag save
  3002. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3003.  
  3004.  
  3005. # ----------------------------------------------------------------------------
  3006. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/w_sys.cdm'.
  3007. # ----------------------------------------------------------------------------
  3008.  
  3009. # Generator: et.tcl    /main/hindenburg/11
  3010. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3011. # Interpreter to use: Otsh V5.1.1/B1
  3012. #
  3013. OTShRegister::importTool
  3014.  
  3015. set diag [CDM new w_sys Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3016.  
  3017. set row372 [$diag addRow attribute 0.0]
  3018. $row372 setLabel "name_type" "X: Integer = 200\n"
  3019. $row372 setProp "initial_value" "200"
  3020. $row372 setScope "name_type" "cl" "scopePhase"
  3021.  
  3022. set row373 [$diag addRow attribute 0.0]
  3023. $row373 setLabel "name_type" "Y: Integer = 200\n"
  3024. $row373 setProp "initial_value" "200"
  3025. $row373 setScope "name_type" "cl" "scopePhase"
  3026.  
  3027. set row374 [$diag addRow attribute 0.0]
  3028. $row374 setLabel "name_type" "Visible: Boolean = TRUE\n"
  3029. $row374 setProp "initial_value" "TRUE"
  3030. $row374 setScope "name_type" "cl" "scopePhase"
  3031.  
  3032. set row375 [$diag addRow attribute 0.0]
  3033. $row375 setLabel "name_type" "Border: Boolean = TRUE\n"
  3034. $row375 setProp "initial_value" "TRUE"
  3035. $row375 setScope "name_type" "cl" "scopePhase"
  3036.  
  3037. set row376 [$diag addRow attribute 0.0]
  3038. $row376 setLabel "name_type" "ControlMenu: Boolean = TRUE\n"
  3039. $row376 setProp "initial_value" "TRUE"
  3040. $row376 setScope "name_type" "cl" "scopePhase"
  3041.  
  3042. set row377 [$diag addRow attribute 0.0]
  3043. $row377 setLabel "name_type" "MaxBox: Boolean = TRUE\n"
  3044. $row377 setProp "initial_value" "TRUE"
  3045. $row377 setScope "name_type" "cl" "scopePhase"
  3046.  
  3047. set row378 [$diag addRow attribute 0.0]
  3048. $row378 setLabel "name_type" "MinBox: Boolean = TRUE\n"
  3049. $row378 setProp "initial_value" "TRUE"
  3050. $row378 setScope "name_type" "cl" "scopePhase"
  3051.  
  3052. set row379 [$diag addRow attribute 0.0]
  3053. $row379 setLabel "name_type" "Resizable: Boolean = TRUE\n"
  3054. $row379 setProp "initial_value" "TRUE"
  3055. $row379 setScope "name_type" "cl" "scopePhase"
  3056.  
  3057. set row380 [$diag addRow attribute 0.0]
  3058. $row380 setLabel "name_type" "TitleBar: Boolean = TRUE"
  3059. $row380 setProp "initial_value" "TRUE"
  3060. $row380 setScope "name_type" "cl" "scopePhase"
  3061.  
  3062. $diag save
  3063. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3064.  
  3065.  
  3066. # ----------------------------------------------------------------------------
  3067. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/w_sys_frame.cdm'.
  3068. # ----------------------------------------------------------------------------
  3069.  
  3070. # Generator: et.tcl    /main/hindenburg/11
  3071. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3072. # Interpreter to use: Otsh V5.1.1/B1
  3073. #
  3074. OTShRegister::importTool
  3075.  
  3076. set diag [CDM new w_sys_frame Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3077.  
  3078. set row381 [$diag addRow attribute 0.0]
  3079. $row381 setLabel "name_type" "Height: Integer = 800\n"
  3080. $row381 setProp "initial_value" "800"
  3081. $row381 setScope "name_type" "cl" "scopePhase"
  3082.  
  3083. set row382 [$diag addRow attribute 0.0]
  3084. $row382 setLabel "name_type" "Width: Integer = 3000\n"
  3085. $row382 setProp "initial_value" "3000"
  3086. $row382 setScope "name_type" "cl" "scopePhase"
  3087.  
  3088. $diag save
  3089. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3090.  
  3091.  
  3092. # ----------------------------------------------------------------------------
  3093. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/MainWindow.cad'.
  3094. # ----------------------------------------------------------------------------
  3095.  
  3096. # Generator: et.tcl    /main/hindenburg/11
  3097. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3098. # Interpreter to use: Otsh V5.1.1/B1
  3099. #
  3100. OTShRegister::importTool
  3101.  
  3102. set diag [CAD new MainWindow Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3103.  
  3104. set node383 [$diag addNode cad_container 1024.0 672.0 132.0 44.0]
  3105. $node383 setLabel "name" "w_sys_frame"
  3106. $node383 setProp "is_folded" "1"
  3107. $node383 setScope "name" "cl" "scopePhase"
  3108.  
  3109. set node385 [$diag addNode cad_container 1360.0 800.0 224.0 133.333]
  3110. $node385 setLabel "name" "w_editMaterials"
  3111. $node385 setScope "name" "cl" "scopePhase"
  3112.  
  3113. set node386 [$diag addNode cad_class 704.0 1024.0 181.333 400.0]
  3114. $node386 setLabel "name" "m_main_menu"
  3115. $node386 setScope "name" "cl" "scopePhase"
  3116. $node386 setProp "object_type" "Menu" "name" "cl"
  3117. $node386 setProp "pbComment" "This is the main menu for the application." "name" "cl"
  3118.  
  3119. set node387 [$diag addNode cad_class 912.0 1024.0 316.0 165.333]
  3120. $node387 setLabel "name" "p_1"
  3121. $node387 setScope "name" "cl" "scopePhase"
  3122.  
  3123. set node388 [$diag addNode cad_class 1360.0 1008.0 148.0 165.333]
  3124. $node388 setLabel "name" "dw_Materials"
  3125. $node388 setScope "name" "cl" "scopePhase"
  3126. $node388 setProp "master_db_table_name" "materials" "name" "cl"
  3127. $node388 setProp "object_type" "DataWindow" "name" "cl"
  3128.  
  3129. set node389 [$diag addNode cad_container 800.0 800.0 356.0 118.667]
  3130. $node389 setLabel "name" "w_app_frame"
  3131. $node389 setScope "name" "cl" "scopePhase"
  3132. $node389 setProp "initial_window" "1" "name" "cl"
  3133.  
  3134. set node391 [$diag addNode cad_class 1152.0 944.0 120.0 29.3333]
  3135. $node391 setLabel "name" "Picture"
  3136. $node391 setProp "is_folded" "1"
  3137. $node391 setScope "name" "cl" "scopePhase"
  3138.  
  3139. set conn392 [$diag addConn association $node385 $node388 1424.0 904.0 1424.0 1024.0]
  3140. $conn392 setProp "mult_kind_end" "one"
  3141. $conn392 setProp "mult_kind_start" "one"
  3142. set segm393 [$conn392 getFirstSegm]
  3143.  
  3144. set conn394 [$diag addConn association $node389 $node386 928.0 905.333 784.0 1056.0]
  3145. $conn394 setLabel "role_end" "i_menu"
  3146. $conn394 setProp "mult_kind_end" "one"
  3147. $conn394 setProp "mult_kind_start" "one"
  3148. set segm395 [$conn394 getFirstSegm]
  3149.  
  3150. set node384 [$diag addRake generalization $node383 $node389 1088.0 704.0 944.0 832.0 768.0]
  3151.  
  3152. set conn396 [$diag addConn generalization_conn $node384 $node385 1254.0 768.5 1424.0 816.0]
  3153. set segm397 [$conn396 getFirstSegm]
  3154.  
  3155. set node390 [$diag addRake generalization $node391 $node387 1200.0 973.333 1072.0 1056.0 1014.67]
  3156.  
  3157. $diag save
  3158. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3159.  
  3160.  
  3161. # ----------------------------------------------------------------------------
  3162. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/p_1.cdm'.
  3163. # ----------------------------------------------------------------------------
  3164.  
  3165. # Generator: et.tcl    /main/hindenburg/11
  3166. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3167. # Interpreter to use: Otsh V5.1.1/B1
  3168. #
  3169. OTShRegister::importTool
  3170.  
  3171. set diag [CDM new p_1 Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3172.  
  3173. set row398 [$diag addRow attribute 0.0]
  3174. $row398 setLabel "name_type" "PictureName: String = \"c"
  3175. $row398 setProp "initial_value" "\"c"
  3176. $row398 setScope "name_type" "cl" "scopePhase"
  3177. $row398 setProp "include_list" "C:\\users\\default\\TrainingMaterials\\Prototype_1\\include\\String.hxx" "name_type" "cl"
  3178. $row398 setProp "modifier" "Reference" "name_type" "cl"
  3179.  
  3180. set row399 [$diag addRow attribute 0.0]
  3181. $row399 setLabel "name_type" ":\\windows\\setup.bmp\"\n"
  3182. $row399 setScope "name_type" "cl" "scopePhase"
  3183.  
  3184. set row400 [$diag addRow attribute 0.0]
  3185. $row400 setLabel "name_type" "Height: integer = 2926\n"
  3186. $row400 setProp "initial_value" "2926"
  3187. $row400 setScope "name_type" "cl" "scopePhase"
  3188. $row400 setProp "modifier" "Value" "name_type" "cl"
  3189.  
  3190. set row401 [$diag addRow attribute 0.0]
  3191. $row401 setLabel "name_type" "Width: integer = 1921\n"
  3192. $row401 setProp "initial_value" "1921"
  3193. $row401 setScope "name_type" "cl" "scopePhase"
  3194. $row401 setProp "modifier" "Value" "name_type" "cl"
  3195.  
  3196. set row402 [$diag addRow attribute 0.0]
  3197. $row402 setLabel "name_type" "Border: boolean = TRUE\n"
  3198. $row402 setProp "initial_value" "TRUE"
  3199. $row402 setScope "name_type" "cl" "scopePhase"
  3200.  
  3201. set row403 [$diag addRow attribute 0.0]
  3202. $row403 setLabel "name_type" "FocusRectangle:boolean = TRUE\n"
  3203. $row403 setProp "initial_value" "TRUE"
  3204. $row403 setScope "name_type" "cl" "scopePhase"
  3205.  
  3206. set row404 [$diag addRow attribute 0.0]
  3207. $row404 setLabel "name_type" "Invert:boolean=trueH"
  3208. $row404 setProp "initial_value" "trueH"
  3209. $row404 setScope "name_type" "cl" "scopePhase"
  3210.  
  3211. $diag save
  3212. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3213.  
  3214.  
  3215. # ----------------------------------------------------------------------------
  3216. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/WindowStandards.cad'.
  3217. # ----------------------------------------------------------------------------
  3218.  
  3219. # Generator: et.tcl    /main/hindenburg/11
  3220. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3221. # Interpreter to use: Otsh V5.1.1/B1
  3222. #
  3223. OTShRegister::importTool
  3224.  
  3225. set diag [CAD new WindowStandards Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3226.  
  3227. set node405 [$diag addNode cad_container 608.0 784.0 167.2 133.467]
  3228. $node405 setLabel "name" "w_sys_frame"
  3229. $node405 setScope "name" "cl" "scopePhase"
  3230.  
  3231. set node406 [$diag addNode cad_container 480.0 480.0 227.333 230.267]
  3232. $node406 setLabel "name" "w_sys"
  3233. $node406 setScope "name" "cl" "scopePhase"
  3234.  
  3235. set node407 [$diag addRake generalization $node406 $node405 544.0 509.333 672.0 800.0 734.667]
  3236.  
  3237. $diag save
  3238. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3239.  
  3240.  
  3241. # ----------------------------------------------------------------------------
  3242. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation_PB.system/DataWindow.cdm'.
  3243. # ----------------------------------------------------------------------------
  3244.  
  3245. # Generator: et.tcl    /main/hindenburg/11
  3246. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3247. # Interpreter to use: Otsh V5.1.1/B1
  3248. #
  3249. OTShRegister::importTool
  3250.  
  3251. set diag [CDM new DataWindow Presentation_PB ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3252.  
  3253. set row408 [$diag addRow attribute 0.0]
  3254. $row408 setLabel "name_type" "X: Integer = 700\n"
  3255. $row408 setProp "initial_value" "700"
  3256. $row408 setScope "name_type" "cl" "scopePhase"
  3257.  
  3258. set row409 [$diag addRow attribute 0.0]
  3259. $row409 setLabel "name_type" "Y: Integer = 275\n"
  3260. $row409 setProp "initial_value" "275"
  3261. $row409 setScope "name_type" "cl" "scopePhase"
  3262.  
  3263. set row410 [$diag addRow attribute 0.0]
  3264. $row410 setLabel "name_type" "Width: Integer = 691\n"
  3265. $row410 setProp "initial_value" "691"
  3266. $row410 setScope "name_type" "cl" "scopePhase"
  3267.  
  3268. set row411 [$diag addRow attribute 0.0]
  3269. $row411 setLabel "name_type" "Height: Integer = 350"
  3270. $row411 setProp "initial_value" "350"
  3271. $row411 setScope "name_type" "cl" "scopePhase"
  3272.  
  3273. set row412 [$diag addRow method 0.0]
  3274. $row412 setLabel "name_type" "message()"
  3275. $row412 setProp "has_parmlist" "1"
  3276.  
  3277. set cell413 [$row412 addCell parameter 0.0]
  3278. $cell413 setLabel "name_type" "para1:integer"
  3279. $cell413 setScope "name_type" "cl" "scopePhase"
  3280. $cell413 setProp "modifier" "Value" "name_type" "cl"
  3281. $cell413 setScope "name_type" "de" "scopeSystem"
  3282.  
  3283. $diag save
  3284. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3285.  
  3286.  
  3287. # ----------------------------------------------------------------------------
  3288. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation.system/CRUD_User.cdm'.
  3289. # ----------------------------------------------------------------------------
  3290.  
  3291. # Generator: et.tcl    /main/hindenburg/11
  3292. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3293. # Interpreter to use: Otsh V5.1.1/B1
  3294. #
  3295. OTShRegister::importTool
  3296.  
  3297. set diag [CDM new CRUD_User Presentation ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3298.  
  3299. set row414 [$diag addRow method 0.0]
  3300. $row414 setLabel "name_type" "insert()\n"
  3301. $row414 setProp "has_parmlist" "1"
  3302.  
  3303. set row415 [$diag addRow method 0.0]
  3304. $row415 setLabel "name_type" "find()\n"
  3305. $row415 setProp "has_parmlist" "1"
  3306.  
  3307. set row416 [$diag addRow method 0.0]
  3308. $row416 setLabel "name_type" "update()\n"
  3309. $row416 setProp "has_parmlist" "1"
  3310.  
  3311. set row417 [$diag addRow method 0.0]
  3312. $row417 setLabel "name_type" "delete()\n"
  3313. $row417 setProp "has_parmlist" "1"
  3314.  
  3315. set row418 [$diag addRow method 0.0]
  3316. $row418 setLabel "name_type" "next()\n"
  3317. $row418 setProp "has_parmlist" "1"
  3318.  
  3319. set row419 [$diag addRow method 0.0]
  3320. $row419 setLabel "name_type" "previous()"
  3321. $row419 setProp "has_parmlist" "1"
  3322.  
  3323. $diag save
  3324. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3325.  
  3326.  
  3327. # ----------------------------------------------------------------------------
  3328. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation.system/PresentationUI.cad'.
  3329. # ----------------------------------------------------------------------------
  3330.  
  3331. # Generator: et.tcl    /main/hindenburg/11
  3332. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3333. # Interpreter to use: Otsh V5.1.1/B1
  3334. #
  3335. OTShRegister::importTool
  3336.  
  3337. set diag [CAD new PresentationUI Presentation ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3338.  
  3339. set node420 [$diag addNode cad_class 576.0 864.0 120.0 180.0]
  3340. $node420 setLabel "name" "Check_out"
  3341. $node420 setScope "name" "cl" "scopePhase"
  3342.  
  3343. set node421 [$diag addNode cad_class 864.0 864.0 120.0 180.0]
  3344. $node421 setLabel "name" "CRUD_User"
  3345. $node421 setScope "name" "cl" "scopePhase"
  3346.  
  3347. set node422 [$diag addNode cad_class 1152.0 864.0 120.0 100.0]
  3348. $node422 setLabel "name" "Late_return"
  3349. $node422 setScope "name" "cl" "scopePhase"
  3350.  
  3351. set node424 [$diag addNode cad_class 720.0 864.0 120.0 180.0]
  3352. $node424 setLabel "name" "Check_in"
  3353. $node424 setScope "name" "cl" "scopePhase"
  3354.  
  3355. set node425 [$diag addNode cad_class 784.0 672.0 120.0 32.0]
  3356. $node425 setLabel "name" "Forms"
  3357. $node425 setProp "is_folded" "1"
  3358. $node425 setScope "name" "cl" "scopePhase"
  3359.  
  3360. set node426 [$diag addNode cad_class 1008.0 864.0 120.0 100.0]
  3361. $node426 setLabel "name" "Extension"
  3362. $node426 setScope "name" "cl" "scopeSystem"
  3363.  
  3364. set node423 [$diag addRake generalization $node425 $node424 848.0 704.0 768.0 912.0 808.0]
  3365.  
  3366. set conn427 [$diag addConn generalization_conn $node423 $node421 928.0 808.0 928.0 896.0]
  3367. set segm428 [$conn427 getFirstSegm]
  3368.  
  3369. set conn429 [$diag addConn generalization_conn $node423 $node420 656.0 808.0 656.0 896.0]
  3370. set segm430 [$conn429 getFirstSegm]
  3371.  
  3372. set conn431 [$diag addConn generalization_conn $node423 $node426 1056.0 808.0 1056.0 896.0]
  3373. set segm432 [$conn431 getFirstSegm]
  3374.  
  3375. set conn433 [$diag addConn generalization_conn $node423 $node422 1200.0 808.0 1200.0 880.0]
  3376. set segm434 [$conn433 getFirstSegm]
  3377.  
  3378. $diag save
  3379. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3380.  
  3381.  
  3382. # ----------------------------------------------------------------------------
  3383. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation.system/Check_in.cdm'.
  3384. # ----------------------------------------------------------------------------
  3385.  
  3386. # Generator: et.tcl    /main/hindenburg/11
  3387. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3388. # Interpreter to use: Otsh V5.1.1/B1
  3389. #
  3390. OTShRegister::importTool
  3391.  
  3392. set diag [CDM new Check_in Presentation ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3393.  
  3394. set row435 [$diag addRow method 0.0]
  3395. $row435 setLabel "name_type" "insert()\n"
  3396. $row435 setProp "has_parmlist" "1"
  3397.  
  3398. set row436 [$diag addRow method 0.0]
  3399. $row436 setLabel "name_type" "find()\n"
  3400. $row436 setProp "has_parmlist" "1"
  3401.  
  3402. set row437 [$diag addRow method 0.0]
  3403. $row437 setLabel "name_type" "update()\n"
  3404. $row437 setProp "has_parmlist" "1"
  3405.  
  3406. set row438 [$diag addRow method 0.0]
  3407. $row438 setLabel "name_type" "delete()\n"
  3408. $row438 setProp "has_parmlist" "1"
  3409.  
  3410. set row439 [$diag addRow method 0.0]
  3411. $row439 setLabel "name_type" "next()\n"
  3412. $row439 setProp "has_parmlist" "1"
  3413.  
  3414. set row440 [$diag addRow method 0.0]
  3415. $row440 setLabel "name_type" "previous()"
  3416. $row440 setProp "has_parmlist" "1"
  3417.  
  3418. $diag save
  3419. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3420.  
  3421.  
  3422. # ----------------------------------------------------------------------------
  3423. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation.system/Check_out.cdm'.
  3424. # ----------------------------------------------------------------------------
  3425.  
  3426. # Generator: et.tcl    /main/hindenburg/11
  3427. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3428. # Interpreter to use: Otsh V5.1.1/B1
  3429. #
  3430. OTShRegister::importTool
  3431.  
  3432. set diag [CDM new Check_out Presentation ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3433.  
  3434. set row441 [$diag addRow method 0.0]
  3435. $row441 setLabel "name_type" "insert()\n"
  3436. $row441 setProp "has_parmlist" "1"
  3437.  
  3438. set row442 [$diag addRow method 0.0]
  3439. $row442 setLabel "name_type" "find()\n"
  3440. $row442 setProp "has_parmlist" "1"
  3441.  
  3442. set row443 [$diag addRow method 0.0]
  3443. $row443 setLabel "name_type" "update()\n"
  3444. $row443 setProp "has_parmlist" "1"
  3445.  
  3446. set row444 [$diag addRow method 0.0]
  3447. $row444 setLabel "name_type" "delete_object()\n"
  3448. $row444 setProp "has_parmlist" "1"
  3449.  
  3450. set row445 [$diag addRow method 0.0]
  3451. $row445 setLabel "name_type" "next()\n"
  3452. $row445 setProp "has_parmlist" "1"
  3453.  
  3454. set row446 [$diag addRow method 0.0]
  3455. $row446 setLabel "name_type" "previous()"
  3456. $row446 setProp "has_parmlist" "1"
  3457.  
  3458. $diag save
  3459. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3460.  
  3461.  
  3462. # ----------------------------------------------------------------------------
  3463. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation.system/Late_return.cdm'.
  3464. # ----------------------------------------------------------------------------
  3465.  
  3466. # Generator: et.tcl    /main/hindenburg/11
  3467. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3468. # Interpreter to use: Otsh V5.1.1/B1
  3469. #
  3470. OTShRegister::importTool
  3471.  
  3472. set diag [CDM new Late_return Presentation ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3473.  
  3474. set row447 [$diag addRow method 0.0]
  3475. $row447 setLabel "name_type" "ok()"
  3476. $row447 setProp "has_parmlist" "1"
  3477.  
  3478. $diag save
  3479. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3480.  
  3481.  
  3482. # ----------------------------------------------------------------------------
  3483. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/Presentation.system/Extension.cdm'.
  3484. # ----------------------------------------------------------------------------
  3485.  
  3486. # Generator: et.tcl    /main/hindenburg/11
  3487. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3488. # Interpreter to use: Otsh V5.1.1/B1
  3489. #
  3490. OTShRegister::importTool
  3491.  
  3492. set diag [CDM new Extension Presentation ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 0]
  3493.  
  3494. set row448 [$diag addRow method 0.0]
  3495. $row448 setLabel "name_type" "ok()"
  3496. $row448 setProp "has_parmlist" "1"
  3497.  
  3498. $diag save
  3499. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3500.  
  3501.  
  3502. # ----------------------------------------------------------------------------
  3503. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/EmployeeInd_.cdm'.
  3504. # ----------------------------------------------------------------------------
  3505.  
  3506. # Generator: et.tcl    /main/hindenburg/11
  3507. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3508. # Interpreter to use: Otsh V5.1.1/B1
  3509. #
  3510. OTShRegister::importTool
  3511.  
  3512. set diag [CDM new EmployeeInd_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3513.  
  3514. $diag save
  3515. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3516.  
  3517.  
  3518. # ----------------------------------------------------------------------------
  3519. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/LoanInd_.cdm'.
  3520. # ----------------------------------------------------------------------------
  3521.  
  3522. # Generator: et.tcl    /main/hindenburg/11
  3523. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3524. # Interpreter to use: Otsh V5.1.1/B1
  3525. #
  3526. OTShRegister::importTool
  3527.  
  3528. set diag [CDM new LoanInd_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3529.  
  3530. $diag save
  3531. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3532.  
  3533.  
  3534. # ----------------------------------------------------------------------------
  3535. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/LoanRow_.cdm'.
  3536. # ----------------------------------------------------------------------------
  3537.  
  3538. # Generator: et.tcl    /main/hindenburg/11
  3539. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3540. # Interpreter to use: Otsh V5.1.1/B1
  3541. #
  3542. OTShRegister::importTool
  3543.  
  3544. set diag [CDM new LoanRow_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3545.  
  3546. $diag save
  3547. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3548.  
  3549.  
  3550. # ----------------------------------------------------------------------------
  3551. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/LateFeeInd_.cdm'.
  3552. # ----------------------------------------------------------------------------
  3553.  
  3554. # Generator: et.tcl    /main/hindenburg/11
  3555. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3556. # Interpreter to use: Otsh V5.1.1/B1
  3557. #
  3558. OTShRegister::importTool
  3559.  
  3560. set diag [CDM new LateFeeInd_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3561.  
  3562. $diag save
  3563. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3564.  
  3565.  
  3566. # ----------------------------------------------------------------------------
  3567. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/LateFeeRow_.cdm'.
  3568. # ----------------------------------------------------------------------------
  3569.  
  3570. # Generator: et.tcl    /main/hindenburg/11
  3571. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3572. # Interpreter to use: Otsh V5.1.1/B1
  3573. #
  3574. OTShRegister::importTool
  3575.  
  3576. set diag [CDM new LateFeeRow_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3577.  
  3578. $diag save
  3579. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3580.  
  3581.  
  3582. # ----------------------------------------------------------------------------
  3583. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/ExtensionInd_.cdm'.
  3584. # ----------------------------------------------------------------------------
  3585.  
  3586. # Generator: et.tcl    /main/hindenburg/11
  3587. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3588. # Interpreter to use: Otsh V5.1.1/B1
  3589. #
  3590. OTShRegister::importTool
  3591.  
  3592. set diag [CDM new ExtensionInd_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3593.  
  3594. $diag save
  3595. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3596.  
  3597.  
  3598. # ----------------------------------------------------------------------------
  3599. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/ExtensionRow_.cdm'.
  3600. # ----------------------------------------------------------------------------
  3601.  
  3602. # Generator: et.tcl    /main/hindenburg/11
  3603. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3604. # Interpreter to use: Otsh V5.1.1/B1
  3605. #
  3606. OTShRegister::importTool
  3607.  
  3608. set diag [CDM new ExtensionRow_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3609.  
  3610. $diag save
  3611. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3612.  
  3613.  
  3614. # ----------------------------------------------------------------------------
  3615. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/EmployeeRow_.cdm'.
  3616. # ----------------------------------------------------------------------------
  3617.  
  3618. # Generator: et.tcl    /main/hindenburg/11
  3619. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3620. # Interpreter to use: Otsh V5.1.1/B1
  3621. #
  3622. OTShRegister::importTool
  3623.  
  3624. set diag [CDM new EmployeeRow_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3625.  
  3626. $diag save
  3627. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3628.  
  3629.  
  3630. # ----------------------------------------------------------------------------
  3631. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/DamageReportInd_.cdm'.
  3632. # ----------------------------------------------------------------------------
  3633.  
  3634. # Generator: et.tcl    /main/hindenburg/11
  3635. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3636. # Interpreter to use: Otsh V5.1.1/B1
  3637. #
  3638. OTShRegister::importTool
  3639.  
  3640. set diag [CDM new DamageReportInd_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3641.  
  3642. $diag save
  3643. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3644.  
  3645.  
  3646. # ----------------------------------------------------------------------------
  3647. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/DamageReportRow_.cdm'.
  3648. # ----------------------------------------------------------------------------
  3649.  
  3650. # Generator: et.tcl    /main/hindenburg/11
  3651. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3652. # Interpreter to use: Otsh V5.1.1/B1
  3653. #
  3654. OTShRegister::importTool
  3655.  
  3656. set diag [CDM new DamageReportRow_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3657.  
  3658. $diag save
  3659. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3660.  
  3661.  
  3662. # ----------------------------------------------------------------------------
  3663. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Borrower.cdm'.
  3664. # ----------------------------------------------------------------------------
  3665.  
  3666. # Generator: et.tcl    /main/hindenburg/11
  3667. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3668. # Interpreter to use: Otsh V5.1.1/B1
  3669. #
  3670. OTShRegister::importTool
  3671.  
  3672. set diag [CDM new Borrower BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3673.  
  3674. set row449 [$diag addRow attribute 0.0]
  3675. $row449 setLabel "name_type" "charge_number:char\[10\]"
  3676. $row449 setScope "name_type" "cl" "scopePhase"
  3677.  
  3678. set row450 [$diag addRow method 0.0]
  3679. $row450 setLabel "name_type" "\$create"
  3680. $row450 setProp "is_class_feature" "1"
  3681.  
  3682. $diag save
  3683. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3684.  
  3685.  
  3686. # ----------------------------------------------------------------------------
  3687. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/AV_Equipment.cdm'.
  3688. # ----------------------------------------------------------------------------
  3689.  
  3690. # Generator: et.tcl    /main/hindenburg/11
  3691. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3692. # Interpreter to use: Otsh V5.1.1/B1
  3693. #
  3694. OTShRegister::importTool
  3695.  
  3696. set diag [CDM new AV_Equipment BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3697.  
  3698. set row451 [$diag addRow attribute 0.0]
  3699. $row451 setLabel "name_type" "serial_number:integer\n"
  3700. $row451 setProp "attrib_access" "Public-Public" "name_type" "de"
  3701. $row451 setScope "name_type" "cl" "scopePhase"
  3702. $row451 setProp "modifier" "Value" "name_type" "cl"
  3703.  
  3704. set row452 [$diag addRow attribute 0.0]
  3705. $row452 setLabel "name_type" "repair_state:char\[2\]"
  3706. $row452 setProp "attrib_access" "Public-Public" "name_type" "de"
  3707. $row452 setScope "name_type" "cl" "scopePhase"
  3708. $row452 setProp "modifier" "Value" "name_type" "cl"
  3709.  
  3710. $diag save
  3711. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3712.  
  3713.  
  3714. # ----------------------------------------------------------------------------
  3715. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Data_Types.cad'.
  3716. # ----------------------------------------------------------------------------
  3717.  
  3718. # Generator: et.tcl    /main/hindenburg/11
  3719. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3720. # Interpreter to use: Otsh V5.1.1/B1
  3721. #
  3722. OTShRegister::importTool
  3723.  
  3724. set diag [CAD new Data_Types BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3725.  
  3726. set node453 [$diag addNode cad_class 592.0 672.0 120.0 100.0]
  3727. $node453 setLabel "name" "string"
  3728. $node453 setScope "name" "cl" "scopePhase"
  3729.  
  3730. set node454 [$diag addNode cad_class 592.0 816.0 120.0 100.0]
  3731. $node454 setLabel "name" "boolean"
  3732. $node454 setScope "name" "cl" "scopePhase"
  3733.  
  3734. set node455 [$diag addNode cad_class 784.0 672.0 120.0 100.0]
  3735. $node455 setLabel "name" "status"
  3736. $node455 setScope "name" "cl" "scopePhase"
  3737.  
  3738. set node456 [$diag addNode cad_class 784.0 816.0 120.0 100.0]
  3739. $node456 setLabel "name" "equip"
  3740. $node456 setScope "name" "cl" "scopePhase"
  3741.  
  3742. $diag save
  3743. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3744.  
  3745.  
  3746. # ----------------------------------------------------------------------------
  3747. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/SystemArchitecture.ccd'.
  3748. # ----------------------------------------------------------------------------
  3749.  
  3750. # Generator: et.tcl    /main/hindenburg/11
  3751. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3752. # Interpreter to use: Otsh V5.1.1/B1
  3753. #
  3754. OTShRegister::importTool
  3755.  
  3756. set diag [CCD new SystemArchitecture BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3757.  
  3758. set node457 [$diag addNode subject 804.0 956.0 152.0 40.0]
  3759. $node457 setLabel "name" "Persistence"
  3760. $node457 setScope "name" "cl" "scopePhase"
  3761.  
  3762. set node458 [$diag addNode subject 1290.0 956.0 172.0 40.0]
  3763. $node458 setLabel "name" "Presentation"
  3764. $node458 setScope "name" "cl" "scopePhase"
  3765.  
  3766. set node459 [$diag addNode ccd_actor 1300.0 796.0 120.0 40.0]
  3767. $node459 setLabel "name" "user"
  3768. $node459 setScope "name" "cl" "scopePhase"
  3769.  
  3770. set node460 [$diag addNode subject 1063.0 1100.0 146.0 40.0]
  3771. $node460 setLabel "name" "BuisnessObjects"
  3772. $node460 setScope "name" "cl" "scopePhase"
  3773.  
  3774. set conn461 [$diag addConn com_message $node460 $node457 1072.0 1120.0 880.0 992.0]
  3775. set segm462 [$conn461 getFirstSegm]
  3776. set segm463 [$conn461 addSegm 880.0 1120.0]
  3777. $segm463 setLabel "name" "sets"
  3778. $segm463 setScope "name" "pe" "scopeSystem"
  3779.  
  3780. set conn464 [$diag addConn com_message $node457 $node460 944.0 976.0 1120.0 1120.0]
  3781. set segm465 [$conn464 getFirstSegm]
  3782. set segm466 [$conn464 addSegm 1120.0 976.0]
  3783. $segm466 setLabel "name" "gets"
  3784. $segm466 setScope "name" "pe" "scopeSystem"
  3785.  
  3786. set conn467 [$diag addConn com_message $node458 $node460 1376.0 992.0 1184.0 1120.0]
  3787. set segm468 [$conn467 getFirstSegm]
  3788. $segm468 setLabel "name" "business\nrequests"
  3789. $segm468 setScope "name" "pe" "scopeSystem"
  3790. set segm469 [$conn467 addSegm 1376.0 1120.0]
  3791.  
  3792. set conn470 [$diag addConn com_message $node458 $node459 1312.0 960.0 1312.0 832.0]
  3793. set segm471 [$conn470 getFirstSegm]
  3794. $segm471 setLabel "name" "user\nmessages"
  3795. $segm471 setScope "name" "pe" "scopeSystem"
  3796.  
  3797. set conn472 [$diag addConn com_message $node460 $node458 1168.0 1104.0 1312.0 976.0]
  3798. set segm473 [$conn472 getFirstSegm]
  3799. set segm474 [$conn472 addSegm 1168.0 976.0]
  3800. $segm474 setLabel "name" "display\nmessages"
  3801. $segm474 setScope "name" "pe" "scopeSystem"
  3802.  
  3803. set conn475 [$diag addConn com_message $node459 $node458 1392.0 832.0 1392.0 960.0]
  3804. set segm476 [$conn475 getFirstSegm]
  3805. $segm476 setLabel "name" "user\nrequests"
  3806. $segm476 setScope "name" "pe" "scopeSystem"
  3807.  
  3808. $diag save
  3809. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3810.  
  3811.  
  3812. # ----------------------------------------------------------------------------
  3813. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/EmployeeInitializer.cdm'.
  3814. # ----------------------------------------------------------------------------
  3815.  
  3816. # Generator: et.tcl    /main/hindenburg/11
  3817. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3818. # Interpreter to use: Otsh V5.1.1/B1
  3819. #
  3820. OTShRegister::importTool
  3821.  
  3822. set diag [CDM new EmployeeInitializer BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3823.  
  3824. $diag save
  3825. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3826.  
  3827.  
  3828. # ----------------------------------------------------------------------------
  3829. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/string.cdm'.
  3830. # ----------------------------------------------------------------------------
  3831.  
  3832. # Generator: et.tcl    /main/hindenburg/11
  3833. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3834. # Interpreter to use: Otsh V5.1.1/B1
  3835. #
  3836. OTShRegister::importTool
  3837.  
  3838. set diag [CDM new string BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3839.  
  3840. set row477 [$diag addRow attribute 0.0]
  3841. $row477 setLabel "name_type" "_:char\[132\]"
  3842. $row477 setScope "name_type" "cl" "scopePhase"
  3843.  
  3844. $diag save
  3845. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3846.  
  3847.  
  3848. # ----------------------------------------------------------------------------
  3849. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/DamageReportInitializer.cdm'.
  3850. # ----------------------------------------------------------------------------
  3851.  
  3852. # Generator: et.tcl    /main/hindenburg/11
  3853. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3854. # Interpreter to use: Otsh V5.1.1/B1
  3855. #
  3856. OTShRegister::importTool
  3857.  
  3858. set diag [CDM new DamageReportInitializer BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3859.  
  3860. $diag save
  3861. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3862.  
  3863.  
  3864. # ----------------------------------------------------------------------------
  3865. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/DamageReport.cdm'.
  3866. # ----------------------------------------------------------------------------
  3867.  
  3868. # Generator: et.tcl    /main/hindenburg/11
  3869. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3870. # Interpreter to use: Otsh V5.1.1/B1
  3871. #
  3872. OTShRegister::importTool
  3873.  
  3874. set diag [CDM new DamageReport BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3875.  
  3876. set row478 [$diag addRow attribute 0.0]
  3877. $row478 setLabel "name_type" "*DamageReportID:integer\n"
  3878. $row478 setProp "key" "1"
  3879. $row478 setScope "name_type" "cl" "scopePhase"
  3880. $row478 setProp "modifier" "Value" "name_type" "cl"
  3881.  
  3882. set row479 [$diag addRow attribute 0.0]
  3883. $row479 setLabel "name_type" "description: varchar\[200\]\n"
  3884. $row479 setScope "name_type" "cl" "scopePhase"
  3885.  
  3886. set row480 [$diag addRow attribute 0.0]
  3887. $row480 setLabel "name_type" "is_lost:smallint"
  3888. $row480 setScope "name_type" "cl" "scopePhase"
  3889.  
  3890. set row481 [$diag addRow method 0.0]
  3891. $row481 setLabel "name_type" "\$create()"
  3892. $row481 setProp "has_parmlist" "1"
  3893. $row481 setProp "is_class_feature" "1"
  3894.  
  3895. $diag save
  3896. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3897.  
  3898.  
  3899. # ----------------------------------------------------------------------------
  3900. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/WaitingListInd_.cdm'.
  3901. # ----------------------------------------------------------------------------
  3902.  
  3903. # Generator: et.tcl    /main/hindenburg/11
  3904. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3905. # Interpreter to use: Otsh V5.1.1/B1
  3906. #
  3907. OTShRegister::importTool
  3908.  
  3909. set diag [CDM new WaitingListInd_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3910.  
  3911. $diag save
  3912. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3913.  
  3914.  
  3915. # ----------------------------------------------------------------------------
  3916. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/boolean.cdm'.
  3917. # ----------------------------------------------------------------------------
  3918.  
  3919. # Generator: et.tcl    /main/hindenburg/11
  3920. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3921. # Interpreter to use: Otsh V5.1.1/B1
  3922. #
  3923. OTShRegister::importTool
  3924.  
  3925. set diag [CDM new boolean BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3926.  
  3927. set row482 [$diag addRow attribute 0.0]
  3928. $row482 setLabel "name_type" "_:char\[2\]"
  3929. $row482 setScope "name_type" "cl" "scopePhase"
  3930. $row482 setProp "modifier" "Value" "name_type" "cl"
  3931.  
  3932. $diag save
  3933. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  3934.  
  3935.  
  3936. # ----------------------------------------------------------------------------
  3937. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/TrainingMaterial.cad'.
  3938. # ----------------------------------------------------------------------------
  3939.  
  3940. # Generator: et.tcl    /main/hindenburg/11
  3941. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  3942. # Interpreter to use: Otsh V5.1.1/B1
  3943. #
  3944. OTShRegister::importTool
  3945.  
  3946. set diag [CAD new TrainingMaterial BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  3947.  
  3948. set node483 [$diag addNode cad_class 400.0 832.0 152.0 136.0]
  3949. $node483 setLabel "name" "Book"
  3950. $node483 setScope "name" "cl" "scopePhase"
  3951. $node483 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/Book.hxx" "name" "cl"
  3952.  
  3953. set node484 [$diag addNode cad_class 400.0 1056.0 166.667 92.0]
  3954. $node484 setLabel "name" "Workbook"
  3955. $node484 setScope "name" "cl" "scopePhase"
  3956. $node484 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/Workbook.hxx" "name" "cl"
  3957.  
  3958. set node486 [$diag addNode cad_class 704.0 608.0 148.0 106.667]
  3959. $node486 setLabel "name" "TrainingMaterial"
  3960. $node486 setScope "name" "cl" "scopePhase"
  3961. $node486 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/TrainingMaterial.hxx" "name" "cl"
  3962.  
  3963. set node487 [$diag addNode cad_class 1232.0 1056.0 142.667 92.0]
  3964. $node487 setLabel "name" "LCD_Panel"
  3965. $node487 setScope "name" "cl" "scopePhase"
  3966. $node487 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/LCD_Panel.hxx" "name" "cl"
  3967.  
  3968. set node489 [$diag addNode cad_class 592.0 832.0 142.667 121.333]
  3969. $node489 setLabel "name" "Software"
  3970. $node489 setScope "name" "cl" "scopePhase"
  3971. $node489 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/Software.hxx" "name" "cl"
  3972.  
  3973. set node490 [$diag addNode cad_class 784.0 832.0 120.0 106.667]
  3974. $node490 setLabel "name" "VCR_Tape"
  3975. $node490 setScope "name" "cl" "scopePhase"
  3976. $node490 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/VCR_Tape.hxx" "name" "cl"
  3977.  
  3978. set node491 [$diag addNode cad_class 976.0 832.0 142.667 92.0]
  3979. $node491 setLabel "name" "CDROM"
  3980. $node491 setScope "name" "cl" "scopePhase"
  3981. $node491 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/CDROM.hxx" "name" "cl"
  3982.  
  3983. set node492 [$diag addNode cad_class 1184.0 832.0 154.667 106.667]
  3984. $node492 setLabel "name" "AV_Equipment"
  3985. $node492 setScope "name" "cl" "scopePhase"
  3986. $node492 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/AV_Equipment.hxx" "name" "cl"
  3987.  
  3988. set node493 [$diag addNode cad_class 1072.0 1056.0 126.667 106.667]
  3989. $node493 setLabel "name" "OverheadProj"
  3990. $node493 setScope "name" "cl" "scopePhase"
  3991. $node493 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/OverheadProj.hxx" "name" "cl"
  3992.  
  3993. set conn495 [$diag addConn association $node484 $node486 416.0 1104.0 736.0 656.0]
  3994. $conn495 setLabel "role_end" "companion"
  3995. $conn495 setProp "mult_kind_end" "one"
  3996. $conn495 setProp "mult_kind_start" "optional"
  3997. set segm496 [$conn495 getFirstSegm]
  3998. set segm497 [$conn495 addSegm 336.0 1104.0]
  3999. set segm498 [$conn495 addSegm 336.0 656.0]
  4000. $segm498 setLabel "name" "accompanies"
  4001. $segm498 setScope "name" "cl" "scopeFile"
  4002.  
  4003. set node485 [$diag addRake generalization $node486 $node483 752.0 688.0 464.0 864.0 776.0]
  4004. $node485 setLabel "name" "training_material_type"
  4005. $node485 setScope "name" "de" "scopeSystem"
  4006.  
  4007. set conn499 [$diag addConn generalization_conn $node485 $node491 1040.0 776.5 1040.0 864.0]
  4008. set segm500 [$conn499 getFirstSegm]
  4009.  
  4010. set conn501 [$diag addConn generalization_conn $node485 $node489 656.0 776.5 656.0 864.0]
  4011. set segm502 [$conn501 getFirstSegm]
  4012.  
  4013. set conn503 [$diag addConn generalization_conn $node485 $node490 848.0 776.5 848.0 864.0]
  4014. set segm504 [$conn503 getFirstSegm]
  4015.  
  4016. set conn505 [$diag addConn generalization_conn $node485 $node492 1248.0 776.5 1248.0 864.0]
  4017. set segm506 [$conn505 getFirstSegm]
  4018.  
  4019. set node488 [$diag addRake generalization $node483 $node484 464.0 928.0 464.0 1088.0 1023.5]
  4020.  
  4021. set node494 [$diag addRake generalization $node492 $node487 1232.0 912.0 1296.0 1072.0 1000.0]
  4022. $node494 setLabel "name" "equipment_type"
  4023. $node494 setScope "name" "de" "scopeSystem"
  4024.  
  4025. set conn507 [$diag addConn generalization_conn $node494 $node493 1136.0 1000.5 1136.0 1104.0]
  4026. set segm508 [$conn507 getFirstSegm]
  4027.  
  4028. $diag save
  4029. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4030.  
  4031.  
  4032. # ----------------------------------------------------------------------------
  4033. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/status.cdm'.
  4034. # ----------------------------------------------------------------------------
  4035.  
  4036. # Generator: et.tcl    /main/hindenburg/11
  4037. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4038. # Interpreter to use: Otsh V5.1.1/B1
  4039. #
  4040. OTShRegister::importTool
  4041.  
  4042. set diag [CDM new status BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4043.  
  4044. set row509 [$diag addRow attribute 0.0]
  4045. $row509 setLabel "name_type" "_:smallint"
  4046. $row509 setScope "name_type" "cl" "scopePhase"
  4047.  
  4048. $diag save
  4049. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4050.  
  4051.  
  4052. # ----------------------------------------------------------------------------
  4053. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/equip.cdm'.
  4054. # ----------------------------------------------------------------------------
  4055.  
  4056. # Generator: et.tcl    /main/hindenburg/11
  4057. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4058. # Interpreter to use: Otsh V5.1.1/B1
  4059. #
  4060. OTShRegister::importTool
  4061.  
  4062. set diag [CDM new equip BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4063.  
  4064. set row510 [$diag addRow attribute 0.0]
  4065. $row510 setLabel "name_type" "_:char\[4\]"
  4066. $row510 setScope "name_type" "cl" "scopePhase"
  4067. $row510 setProp "modifier" "Value" "name_type" "cl"
  4068.  
  4069. $diag save
  4070. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4071.  
  4072.  
  4073. # ----------------------------------------------------------------------------
  4074. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/CoreClasses.cad'.
  4075. # ----------------------------------------------------------------------------
  4076.  
  4077. # Generator: et.tcl    /main/hindenburg/11
  4078. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4079. # Interpreter to use: Otsh V5.1.1/B1
  4080. #
  4081. OTShRegister::importTool
  4082.  
  4083. set diag [CAD new CoreClasses BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4084.  
  4085. set node512 [$diag addNode cad_class 800.0 832.0 312.001 124.0]
  4086. $node512 setLabel "name" "Employee"
  4087. $node512 setScope "name" "cl" "scopePhase"
  4088. $node512 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/Employee.hxx" "name" "cl"
  4089. $node512 setProp "persistent" "1" "name" "cl"
  4090.  
  4091. set node513 [$diag addNode cad_class 1280.0 1584.0 172.5 137.5]
  4092. $node513 setLabel "name" "Loan_Return"
  4093. $node513 setScope "name" "cl" "scopePhase"
  4094. $node513 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/Return.hxx" "name" "cl"
  4095. $node513 setProp "persistent" "1" "name" "cl"
  4096.  
  4097. set node514 [$diag addNode cad_class 1792.0 1280.0 259.501 107.5]
  4098. $node514 setLabel "name" "Inventory"
  4099. $node514 setScope "name" "cl" "scopePhase"
  4100. $node514 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/Inventory.hxx" "name" "cl"
  4101.  
  4102. set node515 [$diag addNode cad_class 1792.0 1072.0 129.0 96.0]
  4103. $node515 setLabel "name" "\n\nTrainingMaterial"
  4104. $node515 setProp "is_folded" "1"
  4105. $node515 setScope "name" "cl" "scopePhase"
  4106. $node515 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/TrainingMaterial.hxx" "name" "cl"
  4107.  
  4108. set node516 [$diag addNode cad_class 1296.0 880.0 173.25 152.5]
  4109. $node516 setLabel "name" "WaitingList"
  4110. $node516 setScope "name" "cl" "scopePhase"
  4111. $node516 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/WaitingList.hxx" "name" "cl"
  4112. $node516 setProp "persistent" "1" "name" "cl"
  4113.  
  4114. set node517 [$diag addNode cad_class 1680.0 1456.0 149.25 92.5002]
  4115. $node517 setLabel "name" "Extension"
  4116. $node517 setScope "name" "cl" "scopePhase"
  4117. $node517 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/Extension.hxx" "name" "cl"
  4118. $node517 setProp "persistent" "1" "name" "cl"
  4119.  
  4120. set node518 [$diag addNode cad_class 1680.0 1584.0 159.0 107.5]
  4121. $node518 setLabel "name" "LateFee"
  4122. $node518 setScope "name" "cl" "scopePhase"
  4123. $node518 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/LateFee.hxx" "name" "cl"
  4124. $node518 setProp "persistent" "1" "name" "cl"
  4125.  
  4126. set node519 [$diag addNode cad_class 1280.0 1840.0 186.75 122.5]
  4127. $node519 setLabel "name" "DamageReport"
  4128. $node519 setScope "name" "cl" "scopePhase"
  4129. $node519 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/DamageReport.hxx" "name" "cl"
  4130. $node519 setProp "persistent" "1" "name" "cl"
  4131.  
  4132. set node520 [$diag addNode cad_class 944.0 1072.0 176.25 96.0]
  4133. $node520 setLabel "name" "Borrower"
  4134. $node520 setScope "name" "cl" "scopePhase"
  4135. $node520 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/Borrower.hxx" "name" "cl"
  4136. $node520 setProp "persistent" "1" "name" "cl"
  4137.  
  4138. set node521 [$diag addNode cad_class 1264.0 1232.0 223.501 212.501]
  4139. $node521 setLabel "name" "Loan"
  4140. $node521 setScope "name" "cl" "scopePhase"
  4141. $node521 setProp "freeText" "This class creates a loan for Training Material and keeps track of its overdue status." "name" "cl"
  4142. $node521 setProp "include_list" "/home/demo/TrainingMaterials/Prototype_1/Implementation/BusinessObjects/Loan.hxx" "name" "cl"
  4143. $node521 setProp "persistent" "1" "name" "cl"
  4144.  
  4145. set conn522 [$diag addConn association $node515 $node514 1856.0 1120.0 1856.0 1328.0]
  4146. $conn522 setLabel "role_end" "amount"
  4147. $conn522 setProp "mult_kind_end" "one"
  4148. $conn522 setProp "mult_kind_start" "optional"
  4149. set segm523 [$conn522 getFirstSegm]
  4150. $segm523 setLabel "name" "has"
  4151. $segm523 setScope "name" "cl" "scopeFile"
  4152.  
  4153. set conn524 [$diag addConn association $node521 $node513 1360.0 1418.67 1360.0 1616.0]
  4154. $conn524 setLabel "role_start" "Loaned"
  4155. $conn524 setProp "mult_kind_end" "optional"
  4156. $conn524 setProp "mult_kind_start" "one"
  4157. set segm525 [$conn524 getFirstSegm]
  4158. $segm525 setLabel "name" "is_returned"
  4159. $segm525 setScope "name" "cl" "scopeFile"
  4160.  
  4161. set conn528 [$diag addConn association $node513 $node519 1328.0 1696.0 1328.0 1888.0]
  4162. $conn528 setLabel "role_start" "Damaged"
  4163. $conn528 setProp "mult_kind_end" "optional"
  4164. $conn528 setProp "mult_kind_start" "one"
  4165. set segm529 [$conn528 getFirstSegm]
  4166. $segm529 setLabel "name" "is_damaged"
  4167. $segm529 setScope "name" "cl" "scopeFile"
  4168.  
  4169. set conn532 [$diag addConn association $node521 $node517 1360.0 1280.0 1744.0 1504.0]
  4170. $conn532 setLabel "role_start" "Extended"
  4171. $conn532 setProp "mult_kind_end" "optional"
  4172. $conn532 setProp "mult_kind_start" "one"
  4173. set segm533 [$conn532 getFirstSegm]
  4174. $segm533 setLabel "name" "is_extended"
  4175. $segm533 setScope "name" "cl" "scopeFile"
  4176.  
  4177. set conn534 [$diag addConn association $node520 $node515 1040.0 1088.0 1808.0 1088.0]
  4178. $conn534 setLabel "role_start" "borrower"
  4179. $conn534 setLabel "role_end" "training_material"
  4180. $conn534 setProp "mult_kind_end" "many"
  4181. $conn534 setProp "mult_kind_start" "many"
  4182. set segm535 [$conn534 getFirstSegm]
  4183. set segm536 [$conn534 addSegm 1232.0 1088.0]
  4184. $segm536 setLabel "name" "waits_for"
  4185. $segm536 setScope "name" "cl" "scopeFile"
  4186.  
  4187. set conn537 [$diag addConn association $node520 $node515 1024.0 1168.0 1808.0 1168.0]
  4188. $conn537 setLabel "role_end" "inventory"
  4189. $conn537 setProp "mult_kind_end" "optional"
  4190. $conn537 setProp "mult_kind_start" "optional"
  4191. set segm538 [$conn537 getFirstSegm]
  4192. $segm538 setLabel "name" "borrows"
  4193. $segm538 setScope "name" "cl" "scopeFile"
  4194.  
  4195. set conn539 [$diag addConn association $node512 $node513 832.0 956.0 1328.0 1664.0]
  4196. $conn539 setLabel "role_start" "employee"
  4197. $conn539 setProp "mult_kind_end" "optional"
  4198. $conn539 setProp "mult_kind_start" "one"
  4199. set segm540 [$conn539 getFirstSegm]
  4200. set segm541 [$conn539 addSegm 832.0 1664.0]
  4201. $segm541 setLabel "name" "checks_in"
  4202. $segm541 setScope "name" "cl" "scopeFile"
  4203.  
  4204. set conn542 [$diag addConn association $node513 $node518 1360.0 1648.0 1712.0 1648.0]
  4205. $conn542 setLabel "role_start" "Late"
  4206. $conn542 setProp "mult_kind_end" "optional"
  4207. $conn542 setProp "mult_kind_start" "one"
  4208. set segm543 [$conn542 getFirstSegm]
  4209. $segm543 setLabel "name" "is_late"
  4210. $segm543 setScope "name" "cl" "scopeFile"
  4211.  
  4212. set node511 [$diag addRake generalization $node512 $node520 1008.0 944.0 1008.0 1088.0 1039.5]
  4213.  
  4214. set conn526 [$diag addConn loop $segm536 $node516 1352.0 1088.0 1360.0 1004.0]
  4215. set segm527 [$conn526 getFirstSegm]
  4216.  
  4217. set conn530 [$diag addConn loop $segm538 $node521 1361.02 1168.0 1360.0 1248.0]
  4218. set segm531 [$conn530 getFirstSegm]
  4219.  
  4220. $diag save
  4221. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4222.  
  4223.  
  4224. # ----------------------------------------------------------------------------
  4225. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/VCR_Tape.cdm'.
  4226. # ----------------------------------------------------------------------------
  4227.  
  4228. # Generator: et.tcl    /main/hindenburg/11
  4229. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4230. # Interpreter to use: Otsh V5.1.1/B1
  4231. #
  4232. OTShRegister::importTool
  4233.  
  4234. set diag [CDM new VCR_Tape BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4235.  
  4236. set row544 [$diag addRow attribute 0.0]
  4237. $row544 setLabel "name_type" "duration:integer\n"
  4238. $row544 setScope "name_type" "cl" "scopePhase"
  4239. $row544 setProp "modifier" "Value" "name_type" "cl"
  4240. $row544 setProp "attrib_access" "Public-Public" "name_type" "de"
  4241.  
  4242. set row545 [$diag addRow attribute 0.0]
  4243. $row545 setLabel "name_type" "rating:char\[4\]"
  4244. $row545 setScope "name_type" "cl" "scopePhase"
  4245. $row545 setProp "modifier" "Value" "name_type" "cl"
  4246. $row545 setProp "attrib_access" "Public-Public" "name_type" "de"
  4247.  
  4248. $diag save
  4249. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4250.  
  4251.  
  4252. # ----------------------------------------------------------------------------
  4253. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Software.cdm'.
  4254. # ----------------------------------------------------------------------------
  4255.  
  4256. # Generator: et.tcl    /main/hindenburg/11
  4257. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4258. # Interpreter to use: Otsh V5.1.1/B1
  4259. #
  4260. OTShRegister::importTool
  4261.  
  4262. set diag [CDM new Software BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4263.  
  4264. set row546 [$diag addRow attribute 0.0]
  4265. $row546 setLabel "name_type" "version:char\[5\]\n"
  4266. $row546 setScope "name_type" "cl" "scopePhase"
  4267. $row546 setProp "modifier" "Value" "name_type" "cl"
  4268. $row546 setProp "attrib_access" "Public-Public" "name_type" "de"
  4269.  
  4270. set row547 [$diag addRow attribute 0.0]
  4271. $row547 setLabel "name_type" "compatibility:char\[5\]\n"
  4272. $row547 setScope "name_type" "cl" "scopePhase"
  4273. $row547 setProp "modifier" "Value" "name_type" "cl"
  4274. $row547 setProp "attrib_access" "Public-Public" "name_type" "de"
  4275.  
  4276. set row548 [$diag addRow attribute 0.0]
  4277. $row548 setLabel "name_type" "format:integer"
  4278. $row548 setScope "name_type" "cl" "scopePhase"
  4279. $row548 setProp "modifier" "Value" "name_type" "cl"
  4280. $row548 setProp "attrib_access" "Public-Public" "name_type" "de"
  4281.  
  4282. $diag save
  4283. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4284.  
  4285.  
  4286. # ----------------------------------------------------------------------------
  4287. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/OverheadProj.cdm'.
  4288. # ----------------------------------------------------------------------------
  4289.  
  4290. # Generator: et.tcl    /main/hindenburg/11
  4291. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4292. # Interpreter to use: Otsh V5.1.1/B1
  4293. #
  4294. OTShRegister::importTool
  4295.  
  4296. set diag [CDM new OverheadProj BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4297.  
  4298. set row549 [$diag addRow attribute 0.0]
  4299. $row549 setLabel "name_type" "intensity:char\[5\]\n"
  4300. $row549 setProp "attrib_access" "Public-Public" "name_type" "de"
  4301. $row549 setScope "name_type" "cl" "scopePhase"
  4302. $row549 setProp "modifier" "Value" "name_type" "cl"
  4303.  
  4304. set row550 [$diag addRow attribute 0.0]
  4305. $row550 setLabel "name_type" "portability:char\[2\]"
  4306. $row550 setProp "attrib_access" "Public-Public" "name_type" "de"
  4307. $row550 setScope "name_type" "cl" "scopePhase"
  4308. $row550 setProp "modifier" "Value" "name_type" "cl"
  4309.  
  4310. $diag save
  4311. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4312.  
  4313.  
  4314. # ----------------------------------------------------------------------------
  4315. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Loan.cdm'.
  4316. # ----------------------------------------------------------------------------
  4317.  
  4318. # Generator: et.tcl    /main/hindenburg/11
  4319. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4320. # Interpreter to use: Otsh V5.1.1/B1
  4321. #
  4322. OTShRegister::importTool
  4323.  
  4324. set diag [CDM new Loan BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4325.  
  4326. set row551 [$diag addRow attribute 0.0]
  4327. $row551 setLabel "name_type" "*LoanID:integer\n"
  4328. $row551 setProp "key" "1"
  4329. $row551 setScope "name_type" "cl" "scopePhase"
  4330. $row551 setProp "modifier" "Value" "name_type" "cl"
  4331.  
  4332. set row552 [$diag addRow attribute 0.0]
  4333. $row552 setLabel "name_type" "check_out_date:datetime\n"
  4334. $row552 setScope "name_type" "cl" "scopePhase"
  4335.  
  4336. set row553 [$diag addRow attribute 0.0]
  4337. $row553 setLabel "name_type" "/expire_date:datetime\n"
  4338. $row553 setProp "is_derived" "1"
  4339. $row553 setScope "name_type" "cl" "scopePhase"
  4340.  
  4341. set row554 [$diag addRow attribute 0.0]
  4342. $row554 setLabel "name_type" "term:integer\n"
  4343. $row554 setScope "name_type" "cl" "scopePhase"
  4344. $row554 setProp "modifier" "Value" "name_type" "cl"
  4345.  
  4346. set row555 [$diag addRow attribute 0.0]
  4347. $row555 setLabel "name_type" "/due_date:datetime\n"
  4348. $row555 setProp "is_derived" "1"
  4349. $row555 setScope "name_type" "cl" "scopePhase"
  4350.  
  4351. set row556 [$diag addRow attribute 0.0]
  4352. $row556 setLabel "name_type" "late_fee:real = 20.00\n"
  4353. $row556 setProp "initial_value" "20.00"
  4354. $row556 setScope "name_type" "cl" "scopePhase"
  4355. $row556 setProp "attrib_access" "Private-Private" "name_type" "de"
  4356.  
  4357. set row557 [$diag addRow attribute 0.0]
  4358. $row557 setLabel "name_type" "status: char\[2\]\n"
  4359. $row557 setScope "name_type" "cl" "scopePhase"
  4360. $row557 setProp "modifier" "Value" "name_type" "cl"
  4361.  
  4362. set row558 [$diag addRow attribute 0.0]
  4363. $row558 setLabel "name_type" "attr: integer"
  4364. $row558 setScope "name_type" "cl" "scopePhase"
  4365. $row558 setProp "modifier" "Value" "name_type" "cl"
  4366.  
  4367. set row559 [$diag addRow method 0.0]
  4368. $row559 setLabel "name_type" "calculate_due_date(): integer\n"
  4369. $row559 setProp "has_parmlist" "1"
  4370. $row559 setProp "freeText" "This function will calculate the due date for the Training Material being checked out." "name_type" "pe"
  4371. $row559 setScope "name_type" "cl" "scopePhase"
  4372. $row559 setProp "modifier" "Value" "name_type" "cl"
  4373.  
  4374. set row560 [$diag addRow method 0.0]
  4375. $row560 setLabel "name_type" "calculate_expire_date(): integer"
  4376. $row560 setProp "has_parmlist" "1"
  4377. $row560 setProp "freeText" "This function will inform about the past due of some Training Material." "name_type" "pe"
  4378. $row560 setScope "name_type" "cl" "scopePhase"
  4379. $row560 setProp "modifier" "Value" "name_type" "cl"
  4380.  
  4381. $diag save
  4382. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4383.  
  4384.  
  4385. # ----------------------------------------------------------------------------
  4386. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Loan_ReturnInitializer.cdm'.
  4387. # ----------------------------------------------------------------------------
  4388.  
  4389. # Generator: et.tcl    /main/hindenburg/11
  4390. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4391. # Interpreter to use: Otsh V5.1.1/B1
  4392. #
  4393. OTShRegister::importTool
  4394.  
  4395. set diag [CDM new Loan_ReturnInitializer BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4396.  
  4397. $diag save
  4398. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4399.  
  4400.  
  4401. # ----------------------------------------------------------------------------
  4402. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/LoanInitializer.cdm'.
  4403. # ----------------------------------------------------------------------------
  4404.  
  4405. # Generator: et.tcl    /main/hindenburg/11
  4406. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4407. # Interpreter to use: Otsh V5.1.1/B1
  4408. #
  4409. OTShRegister::importTool
  4410.  
  4411. set diag [CDM new LoanInitializer BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4412.  
  4413. $diag save
  4414. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4415.  
  4416.  
  4417. # ----------------------------------------------------------------------------
  4418. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/LateFee.cdm'.
  4419. # ----------------------------------------------------------------------------
  4420.  
  4421. # Generator: et.tcl    /main/hindenburg/11
  4422. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4423. # Interpreter to use: Otsh V5.1.1/B1
  4424. #
  4425. OTShRegister::importTool
  4426.  
  4427. set diag [CDM new LateFee BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4428.  
  4429. set row561 [$diag addRow attribute 0.0]
  4430. $row561 setLabel "name_type" "*LateFeeID:integer"
  4431. $row561 setProp "key" "1"
  4432. $row561 setScope "name_type" "cl" "scopePhase"
  4433. $row561 setProp "modifier" "Value" "name_type" "cl"
  4434.  
  4435. set row562 [$diag addRow method 0.0]
  4436. $row562 setLabel "name_type" "\$create\n"
  4437. $row562 setProp "is_class_feature" "1"
  4438.  
  4439. set row563 [$diag addRow method 0.0]
  4440. $row563 setLabel "name_type" "\$calculate_Fee():float"
  4441. $row563 setProp "has_parmlist" "1"
  4442. $row563 setProp "is_class_feature" "1"
  4443. $row563 setProp "method_access" "Public"
  4444. $row563 setProp "modifier" "Value"
  4445. $row563 setScope "name_type" "cl" "scopePhase"
  4446.  
  4447. $diag save
  4448. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4449.  
  4450.  
  4451. # ----------------------------------------------------------------------------
  4452. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/LateFeeInitializer.cdm'.
  4453. # ----------------------------------------------------------------------------
  4454.  
  4455. # Generator: et.tcl    /main/hindenburg/11
  4456. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4457. # Interpreter to use: Otsh V5.1.1/B1
  4458. #
  4459. OTShRegister::importTool
  4460.  
  4461. set diag [CDM new LateFeeInitializer BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4462.  
  4463. $diag save
  4464. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4465.  
  4466.  
  4467. # ----------------------------------------------------------------------------
  4468. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/LCD_Panel.cdm'.
  4469. # ----------------------------------------------------------------------------
  4470.  
  4471. # Generator: et.tcl    /main/hindenburg/11
  4472. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4473. # Interpreter to use: Otsh V5.1.1/B1
  4474. #
  4475. OTShRegister::importTool
  4476.  
  4477. set diag [CDM new LCD_Panel BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4478.  
  4479. set row564 [$diag addRow attribute 0.0]
  4480. $row564 setLabel "name_type" "compatibility:char\[5\]"
  4481. $row564 setProp "attrib_access" "Public-Public" "name_type" "de"
  4482. $row564 setScope "name_type" "cl" "scopePhase"
  4483. $row564 setProp "modifier" "Value" "name_type" "cl"
  4484.  
  4485. $diag save
  4486. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4487.  
  4488.  
  4489. # ----------------------------------------------------------------------------
  4490. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Inventory.cdm'.
  4491. # ----------------------------------------------------------------------------
  4492.  
  4493. # Generator: et.tcl    /main/hindenburg/11
  4494. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4495. # Interpreter to use: Otsh V5.1.1/B1
  4496. #
  4497. OTShRegister::importTool
  4498.  
  4499. set diag [CDM new Inventory BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4500.  
  4501. set row565 [$diag addRow attribute 0.0]
  4502. $row565 setLabel "name_type" "*name:char\[30\]\n"
  4503. $row565 setProp "key" "1"
  4504. $row565 setScope "name_type" "cl" "scopePhase"
  4505. $row565 setProp "modifier" "Value" "name_type" "cl"
  4506. $row565 setProp "attrib_access" "Public-Public" "name_type" "de"
  4507.  
  4508. set row566 [$diag addRow attribute 0.0]
  4509. $row566 setLabel "name_type" "qty_available:integer"
  4510. $row566 setScope "name_type" "cl" "scopePhase"
  4511. $row566 setProp "modifier" "Value" "name_type" "cl"
  4512. $row566 setProp "attrib_access" "Public-Public" "name_type" "de"
  4513.  
  4514. set row567 [$diag addRow method 0.0]
  4515. $row567 setLabel "name_type" "reorder():integer"
  4516. $row567 setProp "has_parmlist" "1"
  4517. $row567 setProp "method_access" "Public"
  4518. $row567 setProp "modifier" "Value"
  4519. $row567 setScope "name_type" "cl" "scopePhase"
  4520. $row567 setProp "modifier" "Value" "name_type" "cl"
  4521.  
  4522. set cell568 [$row567 addCell parameter 0.0]
  4523. $cell568 setLabel "name_type" "qty_available:integer"
  4524. $cell568 setProp "modifier" "Value"
  4525. $cell568 setScope "name_type" "cl" "scopePhase"
  4526. $cell568 setProp "modifier" "Value" "name_type" "cl"
  4527. $cell568 setScope "name_type" "de" "scopeSystem"
  4528.  
  4529. $diag save
  4530. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4531.  
  4532.  
  4533. # ----------------------------------------------------------------------------
  4534. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Extension.cdm'.
  4535. # ----------------------------------------------------------------------------
  4536.  
  4537. # Generator: et.tcl    /main/hindenburg/11
  4538. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4539. # Interpreter to use: Otsh V5.1.1/B1
  4540. #
  4541. OTShRegister::importTool
  4542.  
  4543. set diag [CDM new Extension BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4544.  
  4545. set row569 [$diag addRow attribute 0.0]
  4546. $row569 setLabel "name_type" "*ExtensionID:integer"
  4547. $row569 setProp "key" "1"
  4548. $row569 setScope "name_type" "cl" "scopePhase"
  4549. $row569 setProp "modifier" "Value" "name_type" "cl"
  4550.  
  4551. set row570 [$diag addRow method 0.0]
  4552. $row570 setLabel "name_type" "\$create()"
  4553. $row570 setProp "has_parmlist" "1"
  4554. $row570 setProp "is_class_feature" "1"
  4555.  
  4556. $diag save
  4557. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4558.  
  4559.  
  4560. # ----------------------------------------------------------------------------
  4561. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/ExtensionInitializer.cdm'.
  4562. # ----------------------------------------------------------------------------
  4563.  
  4564. # Generator: et.tcl    /main/hindenburg/11
  4565. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4566. # Interpreter to use: Otsh V5.1.1/B1
  4567. #
  4568. OTShRegister::importTool
  4569.  
  4570. set diag [CDM new ExtensionInitializer BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4571.  
  4572. $diag save
  4573. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4574.  
  4575.  
  4576. # ----------------------------------------------------------------------------
  4577. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Employee.cdm'.
  4578. # ----------------------------------------------------------------------------
  4579.  
  4580. # Generator: et.tcl    /main/hindenburg/11
  4581. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4582. # Interpreter to use: Otsh V5.1.1/B1
  4583. #
  4584. OTShRegister::importTool
  4585.  
  4586. set diag [CDM new Employee BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4587.  
  4588. set row571 [$diag addRow attribute 0.0]
  4589. $row571 setLabel "name_type" "*name: char\[80\]\n"
  4590. $row571 setProp "key" "1"
  4591. $row571 setScope "name_type" "cl" "scopePhase"
  4592. $row571 setProp "modifier" "Value" "name_type" "cl"
  4593.  
  4594. set row572 [$diag addRow attribute 0.0]
  4595. $row572 setLabel "name_type" "department: varchar\[132\]\n"
  4596. $row572 setScope "name_type" "cl" "scopePhase"
  4597.  
  4598. set row573 [$diag addRow attribute 0.0]
  4599. $row573 setLabel "name_type" "phone_number: integer"
  4600. $row573 setScope "name_type" "cl" "scopePhase"
  4601. $row573 setProp "modifier" "Value" "name_type" "cl"
  4602.  
  4603. set row574 [$diag addRow method 0.0]
  4604. $row574 setLabel "name_type" "\$getEmployeeName(): integer"
  4605. $row574 setProp "has_parmlist" "1"
  4606. $row574 setProp "is_class_feature" "1"
  4607. $row574 setScope "name_type" "cl" "scopePhase"
  4608. $row574 setProp "modifier" "Value" "name_type" "cl"
  4609.  
  4610. set cell575 [$row574 addCell parameter 0.0]
  4611. $cell575 setLabel "name_type" "name: char\[80\]"
  4612. $cell575 setProp "modifier" "Pointer to Const"
  4613. $cell575 setScope "name_type" "de" "scopeSystem"
  4614. $cell575 setScope "name_type" "cl" "scopePhase"
  4615. $cell575 setProp "modifier" "Value" "name_type" "cl"
  4616.  
  4617. $diag save
  4618. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4619.  
  4620.  
  4621. # ----------------------------------------------------------------------------
  4622. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/TrainingMaterial.cdm'.
  4623. # ----------------------------------------------------------------------------
  4624.  
  4625. # Generator: et.tcl    /main/hindenburg/11
  4626. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4627. # Interpreter to use: Otsh V5.1.1/B1
  4628. #
  4629. OTShRegister::importTool
  4630.  
  4631. set diag [CDM new TrainingMaterial BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4632.  
  4633. $diag save
  4634. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4635.  
  4636.  
  4637. # ----------------------------------------------------------------------------
  4638. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Book.cdm'.
  4639. # ----------------------------------------------------------------------------
  4640.  
  4641. # Generator: et.tcl    /main/hindenburg/11
  4642. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4643. # Interpreter to use: Otsh V5.1.1/B1
  4644. #
  4645. OTShRegister::importTool
  4646.  
  4647. set diag [CDM new Book BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4648.  
  4649. set row576 [$diag addRow attribute 0.0]
  4650. $row576 setLabel "name_type" "author:char\[80\]\n"
  4651. $row576 setScope "name_type" "cl" "scopePhase"
  4652. $row576 setProp "modifier" "Value" "name_type" "cl"
  4653. $row576 setProp "attrib_access" "Public-Public" "name_type" "de"
  4654.  
  4655. set row577 [$diag addRow attribute 0.0]
  4656. $row577 setLabel "name_type" "publisher:char\[80\]\n"
  4657. $row577 setScope "name_type" "cl" "scopePhase"
  4658. $row577 setProp "modifier" "Value" "name_type" "cl"
  4659. $row577 setProp "attrib_access" "Public-Public" "name_type" "de"
  4660.  
  4661. set row578 [$diag addRow attribute 0.0]
  4662. $row578 setLabel "name_type" "ISBN:char\[15\]\n"
  4663. $row578 setScope "name_type" "cl" "scopePhase"
  4664. $row578 setProp "modifier" "Value" "name_type" "cl"
  4665. $row578 setProp "attrib_access" "Public-Public" "name_type" "de"
  4666.  
  4667. set row579 [$diag addRow attribute 0.0]
  4668. $row579 setLabel "name_type" "is_reference: char\[2\]"
  4669. $row579 setProp "attrib_access" "Public-Public" "name_type" "de"
  4670. $row579 setScope "name_type" "cl" "scopePhase"
  4671. $row579 setProp "modifier" "Value" "name_type" "cl"
  4672.  
  4673. $diag save
  4674. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4675.  
  4676.  
  4677. # ----------------------------------------------------------------------------
  4678. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/WaitingListRow_.cdm'.
  4679. # ----------------------------------------------------------------------------
  4680.  
  4681. # Generator: et.tcl    /main/hindenburg/11
  4682. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4683. # Interpreter to use: Otsh V5.1.1/B1
  4684. #
  4685. OTShRegister::importTool
  4686.  
  4687. set diag [CDM new WaitingListRow_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4688.  
  4689. $diag save
  4690. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4691.  
  4692.  
  4693. # ----------------------------------------------------------------------------
  4694. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/BorrowerInd_.cdm'.
  4695. # ----------------------------------------------------------------------------
  4696.  
  4697. # Generator: et.tcl    /main/hindenburg/11
  4698. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4699. # Interpreter to use: Otsh V5.1.1/B1
  4700. #
  4701. OTShRegister::importTool
  4702.  
  4703. set diag [CDM new BorrowerInd_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4704.  
  4705. $diag save
  4706. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4707.  
  4708.  
  4709. # ----------------------------------------------------------------------------
  4710. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/BorrowerRow_.cdm'.
  4711. # ----------------------------------------------------------------------------
  4712.  
  4713. # Generator: et.tcl    /main/hindenburg/11
  4714. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4715. # Interpreter to use: Otsh V5.1.1/B1
  4716. #
  4717. OTShRegister::importTool
  4718.  
  4719. set diag [CDM new BorrowerRow_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4720.  
  4721. $diag save
  4722. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4723.  
  4724.  
  4725. # ----------------------------------------------------------------------------
  4726. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Loan_ReturnInd_.cdm'.
  4727. # ----------------------------------------------------------------------------
  4728.  
  4729. # Generator: et.tcl    /main/hindenburg/11
  4730. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4731. # Interpreter to use: Otsh V5.1.1/B1
  4732. #
  4733. OTShRegister::importTool
  4734.  
  4735. set diag [CDM new Loan_ReturnInd_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4736.  
  4737. $diag save
  4738. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4739.  
  4740.  
  4741. # ----------------------------------------------------------------------------
  4742. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Loan_ReturnRow_.cdm'.
  4743. # ----------------------------------------------------------------------------
  4744.  
  4745. # Generator: et.tcl    /main/hindenburg/11
  4746. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4747. # Interpreter to use: Otsh V5.1.1/B1
  4748. #
  4749. OTShRegister::importTool
  4750.  
  4751. set diag [CDM new Loan_ReturnRow_ BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4752.  
  4753. $diag save
  4754. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4755.  
  4756.  
  4757. # ----------------------------------------------------------------------------
  4758. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/CDROM.cdm'.
  4759. # ----------------------------------------------------------------------------
  4760.  
  4761. # Generator: et.tcl    /main/hindenburg/11
  4762. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4763. # Interpreter to use: Otsh V5.1.1/B1
  4764. #
  4765. OTShRegister::importTool
  4766.  
  4767. set diag [CDM new CDROM BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4768.  
  4769. set row580 [$diag addRow attribute 0.0]
  4770. $row580 setLabel "name_type" "compatibility:char\[5\]"
  4771. $row580 setScope "name_type" "cl" "scopePhase"
  4772. $row580 setProp "modifier" "Value" "name_type" "cl"
  4773.  
  4774. $diag save
  4775. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4776.  
  4777.  
  4778. # ----------------------------------------------------------------------------
  4779. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Loan_Return.cdm'.
  4780. # ----------------------------------------------------------------------------
  4781.  
  4782. # Generator: et.tcl    /main/hindenburg/11
  4783. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4784. # Interpreter to use: Otsh V5.1.1/B1
  4785. #
  4786. OTShRegister::importTool
  4787.  
  4788. set diag [CDM new Loan_Return BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4789.  
  4790. set row581 [$diag addRow attribute 0.0]
  4791. $row581 setLabel "name_type" "*Loan_ReturnID:integer\n"
  4792. $row581 setProp "key" "1"
  4793. $row581 setScope "name_type" "cl" "scopePhase"
  4794. $row581 setProp "modifier" "Value" "name_type" "cl"
  4795.  
  4796. set row582 [$diag addRow attribute 0.0]
  4797. $row582 setLabel "name_type" "check_in_date:datetime\n"
  4798. $row582 setScope "name_type" "cl" "scopePhase"
  4799.  
  4800. set row583 [$diag addRow attribute 0.0]
  4801. $row583 setLabel "name_type" "name:char\[80\]"
  4802. $row583 setScope "name_type" "cl" "scopePhase"
  4803. $row583 setProp "modifier" "Value" "name_type" "cl"
  4804.  
  4805. set row584 [$diag addRow method 0.0]
  4806. $row584 setLabel "name_type" "getEquipInfo():equip\n"
  4807. $row584 setProp "has_parmlist" "1"
  4808. $row584 setScope "name_type" "cl" "scopePhase"
  4809.  
  4810. set row585 [$diag addRow method 0.0]
  4811. $row585 setLabel "name_type" "updateEquipInfo():equip"
  4812. $row585 setProp "has_parmlist" "1"
  4813. $row585 setScope "name_type" "cl" "scopePhase"
  4814.  
  4815. $diag save
  4816. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4817.  
  4818.  
  4819. # ----------------------------------------------------------------------------
  4820. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/DBObject.cdm'.
  4821. # ----------------------------------------------------------------------------
  4822.  
  4823. # Generator: et.tcl    /main/hindenburg/11
  4824. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4825. # Interpreter to use: Otsh V5.1.1/B1
  4826. #
  4827. #OTShRegister::importTool
  4828.  
  4829. #set diag [CDM new DBObject BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4830.  
  4831. #$diag save
  4832. #if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4833.  
  4834.  
  4835. # ----------------------------------------------------------------------------
  4836. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/Workbook.cdm'.
  4837. # ----------------------------------------------------------------------------
  4838.  
  4839. # Generator: et.tcl    /main/hindenburg/11
  4840. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4841. # Interpreter to use: Otsh V5.1.1/B1
  4842. #
  4843. OTShRegister::importTool
  4844.  
  4845. set diag [CDM new Workbook BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4846.  
  4847. set row586 [$diag addRow attribute 0.0]
  4848. $row586 setLabel "name_type" "*course_name:char\[20\]"
  4849. $row586 setProp "key" "1"
  4850. $row586 setProp "attrib_access" "Public-Public" "name_type" "de"
  4851. $row586 setScope "name_type" "cl" "scopePhase"
  4852. $row586 setProp "modifier" "Value" "name_type" "cl"
  4853.  
  4854. $diag save
  4855. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4856.  
  4857.  
  4858. # ----------------------------------------------------------------------------
  4859. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/WaitingList.cdm'.
  4860. # ----------------------------------------------------------------------------
  4861.  
  4862. # Generator: et.tcl    /main/hindenburg/11
  4863. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4864. # Interpreter to use: Otsh V5.1.1/B1
  4865. #
  4866. OTShRegister::importTool
  4867.  
  4868. set diag [CDM new WaitingList BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4869.  
  4870. set row587 [$diag addRow attribute 0.0]
  4871. $row587 setLabel "name_type" "*WaitingListID: integer\n"
  4872. $row587 setProp "key" "1"
  4873. $row587 setScope "name_type" "cl" "scopePhase"
  4874. $row587 setProp "modifier" "Value" "name_type" "cl"
  4875.  
  4876. set row588 [$diag addRow attribute 0.0]
  4877. $row588 setLabel "name_type" "request_date: datetime\n"
  4878. $row588 setScope "name_type" "cl" "scopePhase"
  4879.  
  4880. set row589 [$diag addRow attribute 0.0]
  4881. $row589 setLabel "name_type" "date_required: datetime\n"
  4882. $row589 setScope "name_type" "cl" "scopePhase"
  4883.  
  4884. set row590 [$diag addRow attribute 0.0]
  4885. $row590 setLabel "name_type" "status: char\[2\]"
  4886. $row590 setScope "name_type" "cl" "scopePhase"
  4887. $row590 setProp "modifier" "Value" "name_type" "cl"
  4888.  
  4889. set row591 [$diag addRow method 0.0]
  4890. $row591 setLabel "name_type" "\$create()\n"
  4891. $row591 setProp "has_parmlist" "1"
  4892. $row591 setProp "is_class_feature" "1"
  4893.  
  4894. set row592 [$diag addRow method 0.0]
  4895. $row592 setLabel "name_type" "reserve():integer"
  4896. $row592 setProp "has_parmlist" "1"
  4897. $row592 setProp "method_access" "Public"
  4898. $row592 setProp "modifier" "Value"
  4899. $row592 setScope "name_type" "cl" "scopePhase"
  4900. $row592 setProp "modifier" "Value" "name_type" "cl"
  4901.  
  4902. $diag save
  4903. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4904.  
  4905.  
  4906. # ----------------------------------------------------------------------------
  4907. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/BusinessObjects.system/WaitingListInitializer.cdm'.
  4908. # ----------------------------------------------------------------------------
  4909.  
  4910. # Generator: et.tcl    /main/hindenburg/11
  4911. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4912. # Interpreter to use: Otsh V5.1.1/B1
  4913. #
  4914. OTShRegister::importTool
  4915.  
  4916. set diag [CDM new WaitingListInitializer BusinessObjects ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4917.  
  4918. $diag save
  4919. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4920.  
  4921.  
  4922. # ----------------------------------------------------------------------------
  4923. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/PB_Primitives.system/RadioButton.cdm'.
  4924. # ----------------------------------------------------------------------------
  4925.  
  4926. # Generator: et.tcl    /main/hindenburg/11
  4927. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4928. # Interpreter to use: Otsh V5.1.1/B1
  4929. #
  4930. OTShRegister::importTool
  4931.  
  4932. set diag [CDM new RadioButton PB_Primitives ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4933.  
  4934. set row593 [$diag addRow attribute 0.0]
  4935. $row593 setLabel "name_type" "Enabled: Boolean = TRUE\n"
  4936. $row593 setProp "initial_value" "TRUE"
  4937. $row593 setScope "name_type" "cl" "scopePhase"
  4938.  
  4939. set row594 [$diag addRow attribute 0.0]
  4940. $row594 setLabel "name_type" "Visible: Boolean = TRUE"
  4941. $row594 setProp "initial_value" "TRUE"
  4942. $row594 setScope "name_type" "cl" "scopePhase"
  4943.  
  4944. $diag save
  4945. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4946.  
  4947.  
  4948. # ----------------------------------------------------------------------------
  4949. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/PB_Primitives.system/CommandButton.cdm'.
  4950. # ----------------------------------------------------------------------------
  4951.  
  4952. # Generator: et.tcl    /main/hindenburg/11
  4953. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4954. # Interpreter to use: Otsh V5.1.1/B1
  4955. #
  4956. OTShRegister::importTool
  4957.  
  4958. set diag [CDM new CommandButton PB_Primitives ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4959.  
  4960. set row595 [$diag addRow attribute 0.0]
  4961. $row595 setLabel "name_type" "Enabled: Boolean = TRUE\n"
  4962. $row595 setProp "initial_value" "TRUE"
  4963. $row595 setScope "name_type" "cl" "scopePhase"
  4964.  
  4965. set row596 [$diag addRow attribute 0.0]
  4966. $row596 setLabel "name_type" "Visible: Boolean = TRUE"
  4967. $row596 setProp "initial_value" "TRUE"
  4968. $row596 setScope "name_type" "cl" "scopePhase"
  4969.  
  4970. $diag save
  4971. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4972.  
  4973.  
  4974. # ----------------------------------------------------------------------------
  4975. # diagram = '/corporate/TrainingMaterials/Prototype:1/ObjectDesign.ObjectDesign/PB_Primitives.system/Controls.cad'.
  4976. # ----------------------------------------------------------------------------
  4977.  
  4978. # Generator: et.tcl    /main/hindenburg/11
  4979. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  4980. # Interpreter to use: Otsh V5.1.1/B1
  4981. #
  4982. OTShRegister::importTool
  4983.  
  4984. set diag [CAD new Controls PB_Primitives ObjectDesign ObjectDesign Prototype 1 TrainingMaterials 1]
  4985.  
  4986. set node597 [$diag addNode cad_class 816.0 592.0 177.333 106.667]
  4987. $node597 setLabel "name" "RadioButton"
  4988. $node597 setScope "name" "cl" "scopePhase"
  4989.  
  4990. set node598 [$diag addNode cad_class 576.0 592.0 177.333 106.667]
  4991. $node598 setLabel "name" "CommandButton"
  4992. $node598 setScope "name" "cl" "scopePhase"
  4993.  
  4994. $diag save
  4995. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  4996.  
  4997.  
  4998. # ----------------------------------------------------------------------------
  4999. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Extension.cdm'.
  5000. # ----------------------------------------------------------------------------
  5001.  
  5002. # Generator: et.tcl    /main/hindenburg/11
  5003. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5004. # Interpreter to use: Otsh V5.1.1/B1
  5005. #
  5006. OTShRegister::importTool
  5007.  
  5008. set diag [CDM new Extension BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5009.  
  5010. set row599 [$diag addRow attribute 0.0]
  5011. $row599 setLabel "name_type" "term\n"
  5012.  
  5013. set row600 [$diag addRow attribute 0.0]
  5014. $row600 setLabel "name_type" "is_extended"
  5015.  
  5016. set row601 [$diag addRow method 0.0]
  5017. $row601 setLabel "name_type" "extend()"
  5018. $row601 setProp "has_parmlist" "1"
  5019.  
  5020. $diag save
  5021. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5022.  
  5023.  
  5024. # ----------------------------------------------------------------------------
  5025. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Borrower.cdm'.
  5026. # ----------------------------------------------------------------------------
  5027.  
  5028. # Generator: et.tcl    /main/hindenburg/11
  5029. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5030. # Interpreter to use: Otsh V5.1.1/B1
  5031. #
  5032. OTShRegister::importTool
  5033.  
  5034. set diag [CDM new Borrower BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5035.  
  5036. set row602 [$diag addRow attribute 0.0]
  5037. $row602 setLabel "name_type" "charge_number"
  5038.  
  5039. $diag save
  5040. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5041.  
  5042.  
  5043. # ----------------------------------------------------------------------------
  5044. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Employee.cdm'.
  5045. # ----------------------------------------------------------------------------
  5046.  
  5047. # Generator: et.tcl    /main/hindenburg/11
  5048. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5049. # Interpreter to use: Otsh V5.1.1/B1
  5050. #
  5051. OTShRegister::importTool
  5052.  
  5053. set diag [CDM new Employee BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5054.  
  5055. set row603 [$diag addRow attribute 0.0]
  5056. $row603 setLabel "name_type" "name\n"
  5057.  
  5058. set row604 [$diag addRow attribute 0.0]
  5059. $row604 setLabel "name_type" "department\n"
  5060.  
  5061. set row605 [$diag addRow attribute 0.0]
  5062. $row605 setLabel "name_type" "phone_number"
  5063.  
  5064. $diag save
  5065. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5066.  
  5067.  
  5068. # ----------------------------------------------------------------------------
  5069. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/LateFee.cdm'.
  5070. # ----------------------------------------------------------------------------
  5071.  
  5072. # Generator: et.tcl    /main/hindenburg/11
  5073. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5074. # Interpreter to use: Otsh V5.1.1/B1
  5075. #
  5076. OTShRegister::importTool
  5077.  
  5078. set diag [CDM new LateFee BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5079.  
  5080. set row606 [$diag addRow attribute 0.0]
  5081. $row606 setLabel "name_type" "is_paid"
  5082.  
  5083. $diag save
  5084. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5085.  
  5086.  
  5087. # ----------------------------------------------------------------------------
  5088. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Employee_requests_extension.etd'.
  5089. # ----------------------------------------------------------------------------
  5090.  
  5091. # Generator: et.tcl    /main/hindenburg/11
  5092. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5093. # Interpreter to use: Otsh V5.1.1/B1
  5094. #
  5095. OTShRegister::importTool
  5096.  
  5097. set diag [ETD new common:Employee_requests_extension BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 0]
  5098.  
  5099. set node607 [$diag addNode etd_object 1246.5 1024.0 3.0 56.0]
  5100. $node607 setLabel "name_type" "Extension"
  5101. $node607 setScope "name_type" "cl" "scopePhase"
  5102.  
  5103. set node608 [$diag addNode etd_object 1374.5 928.0 3.0 73.3333]
  5104. $node608 setLabel "name_type" "WaitingList"
  5105. $node608 setScope "name_type" "cl" "scopePhase"
  5106.  
  5107. set node609 [$diag addNode etd_object 1070.5 816.0 3.0 328.0]
  5108. $node609 setLabel "name_type" "LoanCoordinator"
  5109. $node609 setScope "name_type" "cl" "scopePhase"
  5110.  
  5111. set node610 [$diag addNode etd_object 1454.5 816.0 3.0 324.0]
  5112. $node610 setLabel "name_type" "Loan"
  5113. $node610 setScope "name_type" "cl" "scopePhase"
  5114.  
  5115. set node611 [$diag addNode etd_initiator 830.5 816.0 3.0 316.0]
  5116. $node611 setLabel "name_type" "Mike:Borrower"
  5117. $node611 setScope "name_type" "de" "scopeSystem"
  5118. $node611 setScope "name_type" "cl" "scopePhase"
  5119.  
  5120. set conn612 [$diag addConn etd_event $node609 $node611 1072.0 1104.0 832.0 1104.0]
  5121. set segm613 [$conn612 getFirstSegm]
  5122. $segm613 setLabel "event" "notifies new due date"
  5123. $segm613 setScope "event" "pe" "scopeSystem"
  5124.  
  5125. set conn614 [$diag addConn etd_event $node609 $node607 1072.0 1040.0 1248.0 1040.0]
  5126. set segm615 [$conn614 getFirstSegm]
  5127. $segm615 setLabel "event" "creates"
  5128. $segm615 setScope "event" "pe" "scopeSystem"
  5129.  
  5130. set conn616 [$diag addConn etd_event $node609 $node608 1072.0 944.0 1376.0 944.0]
  5131. set segm617 [$conn616 getFirstSegm]
  5132. $segm617 setLabel "event" "checks WaitingList for item and date"
  5133. $segm617 setScope "event" "pe" "scopeSystem"
  5134.  
  5135. set conn618 [$diag addConn etd_event $node610 $node609 1456.0 1104.0 1072.0 1104.0]
  5136. set segm619 [$conn618 getFirstSegm]
  5137. $segm619 setLabel "event" "new due date"
  5138. $segm619 setScope "event" "pe" "scopeSystem"
  5139.  
  5140. set conn620 [$diag addConn etd_event $node611 $node609 832.0 848.0 1072.0 848.0]
  5141. set segm621 [$conn620 getFirstSegm]
  5142. $segm621 setLabel "event" "requests extension of Loan\n(LCD panel, until Friday)"
  5143. $segm621 setScope "event" "pe" "scopeSystem"
  5144. $segm621 setScope "event" "de" "scopeSystem"
  5145.  
  5146. set conn622 [$diag addConn etd_event $node610 $node609 1456.0 880.0 1072.0 880.0]
  5147. set segm623 [$conn622 getFirstSegm]
  5148. $segm623 setLabel "event" "status is on_loan"
  5149. $segm623 setScope "event" "pe" "scopeSystem"
  5150.  
  5151. set conn624 [$diag addConn etd_event $node608 $node609 1376.0 976.0 1072.0 976.0]
  5152. set segm625 [$conn624 getFirstSegm]
  5153. $segm625 setLabel "event" "item is not reserved"
  5154. $segm625 setScope "event" "pe" "scopeSystem"
  5155.  
  5156. set conn626 [$diag addConn etd_event $node609 $node610 1072.0 848.0 1456.0 848.0]
  5157. set segm627 [$conn626 getFirstSegm]
  5158. $segm627 setLabel "event" "checks status of Loan"
  5159. $segm627 setScope "event" "pe" "scopeSystem"
  5160.  
  5161. set conn628 [$diag addConn etd_event $node607 $node610 1248.0 1056.0 1456.0 1056.0]
  5162. set segm629 [$conn628 getFirstSegm]
  5163. $segm629 setLabel "event" "update due date"
  5164. $segm629 setScope "event" "pe" "scopeSystem"
  5165.  
  5166. $diag save
  5167. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5168.  
  5169.  
  5170. # ----------------------------------------------------------------------------
  5171. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Inventory.cdm'.
  5172. # ----------------------------------------------------------------------------
  5173.  
  5174. # Generator: et.tcl    /main/hindenburg/11
  5175. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5176. # Interpreter to use: Otsh V5.1.1/B1
  5177. #
  5178. OTShRegister::importTool
  5179.  
  5180. set diag [CDM new Inventory BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5181.  
  5182. set row630 [$diag addRow attribute 0.0]
  5183. $row630 setLabel "name_type" "qty_available"
  5184.  
  5185. $diag save
  5186. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5187.  
  5188.  
  5189. # ----------------------------------------------------------------------------
  5190. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Loan/top.std'.
  5191. # ----------------------------------------------------------------------------
  5192.  
  5193. # Generator: et.tcl    /main/hindenburg/11
  5194. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5195. # Interpreter to use: Otsh V5.1.1/B1
  5196. #
  5197. OTShRegister::importTool
  5198.  
  5199. set diag [STD new Loan:top BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5200.  
  5201. set node631 [$diag addNode state 1344.0 1088.0 161.333 96.0]
  5202. $node631 setLabel "name" "On Loan"
  5203.  
  5204. set node632 [$diag addNode state 1344.0 1344.0 260.0 73.3333]
  5205. $node632 setLabel "name" "Returned"
  5206.  
  5207. set node633 [$diag addNode state 1344.0 880.0 265.333 88.0]
  5208. $node633 setLabel "name" "Reserved"
  5209.  
  5210. set node634 [$diag addNode final_state 866.0 1474.0 28.0 28.0]
  5211. $node634 setLabel "name" "Damaged"
  5212.  
  5213. set node635 [$diag addNode std_class 868.0 924.0 120.0 40.0]
  5214. $node635 setLabel "name" "Loan\nCoordinator"
  5215. $node635 setScope "name" "cl" "scopePhase"
  5216.  
  5217. set node636 [$diag addNode final_state 1106.0 1474.0 28.0 28.0]
  5218. $node636 setLabel "name" "Lost"
  5219.  
  5220. set node637 [$diag addNode state 816.0 1344.0 160.0 64.0]
  5221. $node637 setLabel "name" "Damaged"
  5222.  
  5223. set node638 [$diag addNode state 1008.0 1120.0 154.667 64.0]
  5224. $node638 setLabel "name" "Overdue"
  5225.  
  5226. set node639 [$diag addNode final_state 1058.0 1218.0 28.0 28.0]
  5227.  
  5228. set node640 [$diag addNode state 1072.0 1344.0 124.0 64.0]
  5229. $node640 setLabel "name" "Lost"
  5230.  
  5231. set node641 [$diag addNode final_state 1394.0 1474.0 28.0 28.0]
  5232. $node641 setLabel "name" "Done"
  5233.  
  5234. set node642 [$diag addNode start_state 1401.0 809.0 14.0 14.0]
  5235.  
  5236. set node643 [$diag addNode super_state 925.0 1049.0 710.0 206.0]
  5237. $node643 setLabel "name" "Checked out"
  5238.  
  5239. set conn644 [$diag addConn transition $node643 $node637 949.0 1152.0 864.0 1360.0]
  5240. $conn644 setLabel "event" "check_in\n(is_damaged=true)"
  5241. $conn644 setScope "event" "de" "scopeSystem"
  5242. set segm645 [$conn644 getFirstSegm]
  5243. set segm646 [$conn644 addSegm 864.0 1152.0]
  5244. set segm647 [$conn644 addSegm 864.0 1216.0]
  5245. $segm647 setLabel "editor_only" " "
  5246.  
  5247. set conn648 [$diag addConn transition $node642 $node633 1408.0 816.0 1408.0 896.0]
  5248. set segm649 [$conn648 getFirstSegm]
  5249. $segm649 setLabel "editor_only" " "
  5250.  
  5251. set conn650 [$diag addConn transition $node643 $node632 1408.0 1248.0 1408.0 1360.0]
  5252. $conn650 setLabel "event" "check_in"
  5253. set segm651 [$conn650 getFirstSegm]
  5254. $segm651 setLabel "editor_only" " "
  5255.  
  5256. set conn652 [$diag addConn transition $node632 $node641 1408.0 1408.0 1408.0 1488.0]
  5257. set segm653 [$conn652 getFirstSegm]
  5258. $segm653 setLabel "editor_only" " "
  5259.  
  5260. set conn654 [$diag addConn transition $node633 $node631 1408.0 928.0 1408.0 1136.0]
  5261. $conn654 setLabel "event" "check_out"
  5262. set segm655 [$conn654 getFirstSegm]
  5263. $segm655 setLabel "editor_only" " "
  5264.  
  5265. set conn656 [$diag addConn transition $node633 $node632 1456.0 912.0 1424.0 1376.0]
  5266. $conn656 setLabel "event" "reservation expired"
  5267. set segm657 [$conn656 getFirstSegm]
  5268. $segm657 setLabel "editor_only" " "
  5269. set segm658 [$conn656 addSegm 1776.0 912.0]
  5270. set segm659 [$conn656 addSegm 1776.0 1376.0]
  5271.  
  5272. set conn660 [$diag addConn transition $node637 $node634 880.0 1408.0 880.0 1488.0]
  5273. set segm661 [$conn660 getFirstSegm]
  5274. $segm661 setLabel "editor_only" " "
  5275.  
  5276. set conn665 [$diag addConn transition $node640 $node636 1120.0 1408.0 1120.0 1488.0]
  5277. set segm666 [$conn665 getFirstSegm]
  5278. $segm666 setLabel "editor_only" " "
  5279.  
  5280. set conn667 [$diag addConn transition $node631 $node638 1360.0 1152.0 1072.0 1152.0]
  5281. $conn667 setLabel "event" "due_date_exceeded"
  5282. set segm668 [$conn667 getFirstSegm]
  5283. $segm668 setLabel "editor_only" " "
  5284.  
  5285. set conn669 [$diag addConn transition $node631 $node639 1408.0 1184.0 1072.0 1232.0]
  5286. set segm670 [$conn669 getFirstSegm]
  5287. set segm671 [$conn669 addSegm 1408.0 1232.0]
  5288. $segm671 setLabel "editor_only" " "
  5289.  
  5290. set conn672 [$diag addConn transition $node638 $node639 1072.0 1184.0 1072.0 1232.0]
  5291. set segm673 [$conn672 getFirstSegm]
  5292. $segm673 setLabel "editor_only" " "
  5293.  
  5294. set conn674 [$diag addConn transition $node643 $node640 1136.0 1248.0 1136.0 1360.0]
  5295. $conn674 setLabel "event" "check_in()"
  5296. $conn674 setLabel "condition" "\[is_lost=true\]"
  5297. set segm675 [$conn674 getFirstSegm]
  5298. $segm675 setLabel "editor_only" " "
  5299.  
  5300. set conn676 [$diag addConn transition $node631 $node631 1488.0 1152.0 1456.0 1184.0]
  5301. $conn676 setLabel "event" "loan extended"
  5302. set segm677 [$conn676 getFirstSegm]
  5303. set segm678 [$conn676 addSegm 1584.0 1152.0]
  5304. $segm678 setLabel "editor_only" " "
  5305. set segm679 [$conn676 addSegm 1584.0 1232.0]
  5306. set segm680 [$conn676 addSegm 1456.0 1232.0]
  5307.  
  5308. set conn662 [$diag addConn event_msg $segm668 $node635 1200.0 1152.0 976.0 944.0]
  5309. set segm663 [$conn662 getFirstSegm]
  5310. set segm664 [$conn662 addSegm 1200.0 944.0]
  5311. $segm664 setLabel "event" "loan is overdue"
  5312.  
  5313. set cono681 [$node632 addStateAction]
  5314. $cono681 setLabel "event" "entry"
  5315. $cono681 setLabel "action" "/increment item quantity available\n"
  5316. $cono681 setScope "event" "rs" "scopeSystem"
  5317.  
  5318. set cono682 [$node638 addStateAction]
  5319. $cono682 setLabel "event" "entry"
  5320. $cono682 setLabel "action" "/status=overdue"
  5321. $cono682 setScope "event" "rs" "scopeSystem"
  5322.  
  5323. set cono683 [$node631 addStateAction]
  5324. $cono683 setLabel "event" "entry"
  5325. $cono683 setLabel "action" "/status=on loan\n"
  5326. $cono683 setScope "event" "rs" "scopeSystem"
  5327.  
  5328. set cono684 [$node640 addStateAction]
  5329. $cono684 setLabel "event" "entry"
  5330. $cono684 setLabel "action" "/status=lost"
  5331. $cono684 setScope "event" "rs" "scopeSystem"
  5332.  
  5333. set cono685 [$node633 addStateAction]
  5334. $cono685 setLabel "event" "entry"
  5335. $cono685 setLabel "action" "/decrement item quantity available\n"
  5336. $cono685 setScope "event" "rs" "scopeSystem"
  5337.  
  5338. set cono686 [$node637 addStateAction]
  5339. $cono686 setLabel "event" "entry"
  5340. $cono686 setLabel "action" "/status=damaged"
  5341. $cono686 setScope "event" "rs" "scopeSystem"
  5342.  
  5343. set cono689 [$node631 addActivity]
  5344. $cono689 setLabel "name" "do: calculate due_date\n"
  5345.  
  5346. set cono690 [$node632 addStateAction]
  5347. $cono690 setLabel "event" "entry"
  5348. $cono690 setLabel "action" "/status=returned"
  5349. $cono690 setScope "event" "rs" "scopeSystem"
  5350.  
  5351. set cono691 [$node633 addStateAction]
  5352. $cono691 setLabel "event" "entry"
  5353. $cono691 setLabel "action" "/status=reserved\n"
  5354. $cono691 setScope "event" "rs" "scopeSystem"
  5355.  
  5356. set cono687 [$node633 addActivity]
  5357. $cono687 setLabel "name" "do:check expire date"
  5358.  
  5359. set cono688 [$node631 addActivity]
  5360. $cono688 setLabel "name" "do: check due_date"
  5361.  
  5362. $diag save
  5363. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5364.  
  5365.  
  5366. # ----------------------------------------------------------------------------
  5367. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/WaitingList.cdm'.
  5368. # ----------------------------------------------------------------------------
  5369.  
  5370. # Generator: et.tcl    /main/hindenburg/11
  5371. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5372. # Interpreter to use: Otsh V5.1.1/B1
  5373. #
  5374. OTShRegister::importTool
  5375.  
  5376. set diag [CDM new WaitingList BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5377.  
  5378. set row692 [$diag addRow attribute 0.0]
  5379. $row692 setLabel "name_type" "request_date\n"
  5380.  
  5381. set row693 [$diag addRow attribute 0.0]
  5382. $row693 setLabel "name_type" "date_required\n"
  5383.  
  5384. set row694 [$diag addRow attribute 0.0]
  5385. $row694 setLabel "name_type" "status"
  5386.  
  5387. set row695 [$diag addRow method 0.0]
  5388. $row695 setLabel "name_type" "reserve"
  5389.  
  5390. $diag save
  5391. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5392.  
  5393.  
  5394. # ----------------------------------------------------------------------------
  5395. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Return.cdm'.
  5396. # ----------------------------------------------------------------------------
  5397.  
  5398. # Generator: et.tcl    /main/hindenburg/11
  5399. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5400. # Interpreter to use: Otsh V5.1.1/B1
  5401. #
  5402. OTShRegister::importTool
  5403.  
  5404. set diag [CDM new Return BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5405.  
  5406. set row696 [$diag addRow attribute 0.0]
  5407. $row696 setLabel "name_type" "check_in_date"
  5408.  
  5409. $diag save
  5410. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5411.  
  5412.  
  5413. # ----------------------------------------------------------------------------
  5414. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Workbook.cdm'.
  5415. # ----------------------------------------------------------------------------
  5416.  
  5417. # Generator: et.tcl    /main/hindenburg/11
  5418. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5419. # Interpreter to use: Otsh V5.1.1/B1
  5420. #
  5421. OTShRegister::importTool
  5422.  
  5423. set diag [CDM new Workbook BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5424.  
  5425. set row697 [$diag addRow attribute 0.0]
  5426. $row697 setLabel "name_type" "price\n"
  5427.  
  5428. set row698 [$diag addRow attribute 0.0]
  5429. $row698 setLabel "name_type" "minimum_quantity"
  5430.  
  5431. set row699 [$diag addRow method 0.0]
  5432. $row699 setLabel "name_type" "reorder"
  5433.  
  5434. $diag save
  5435. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5436.  
  5437.  
  5438. # ----------------------------------------------------------------------------
  5439. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/CDROM.cdm'.
  5440. # ----------------------------------------------------------------------------
  5441.  
  5442. # Generator: et.tcl    /main/hindenburg/11
  5443. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5444. # Interpreter to use: Otsh V5.1.1/B1
  5445. #
  5446. OTShRegister::importTool
  5447.  
  5448. set diag [CDM new CDROM BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5449.  
  5450. set row700 [$diag addRow attribute 0.0]
  5451. $row700 setLabel "name_type" "compatibility"
  5452.  
  5453. $diag save
  5454. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5455.  
  5456.  
  5457. # ----------------------------------------------------------------------------
  5458. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/TrainingMaterial.cad'.
  5459. # ----------------------------------------------------------------------------
  5460.  
  5461. # Generator: et.tcl    /main/hindenburg/11
  5462. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5463. # Interpreter to use: Otsh V5.1.1/B1
  5464. #
  5465. OTShRegister::importTool
  5466.  
  5467. set diag [CAD new TrainingMaterial BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5468.  
  5469. set node701 [$diag addNode cad_class 1712.0 1168.0 120.0 104.0]
  5470. $node701 setLabel "name" "VCR_Tape"
  5471. $node701 setScope "name" "cl" "scopePhase"
  5472.  
  5473. set node702 [$diag addNode cad_class 1616.0 1024.0 120.0 104.0]
  5474. $node702 setLabel "name" "Sample Product"
  5475. $node702 setScope "name" "cl" "scopePhase"
  5476.  
  5477. set node703 [$diag addNode cad_class 864.0 1024.0 120.0 133.334]
  5478. $node703 setLabel "name" "Book"
  5479. $node703 setScope "name" "cl" "scopePhase"
  5480.  
  5481. set node704 [$diag addNode cad_class 864.0 1232.0 128.0 104.0]
  5482. $node704 setLabel "name" "Workbook"
  5483. $node704 setScope "name" "cl" "scopePhase"
  5484.  
  5485. set node706 [$diag addNode cad_class 1360.0 1232.0 120.0 104.0]
  5486. $node706 setLabel "name" "OverheadProj"
  5487. $node706 setScope "name" "cl" "scopePhase"
  5488.  
  5489. set node708 [$diag addNode cad_class 1168.0 800.0 120.0 104.0]
  5490. $node708 setLabel "name" "TrainingMaterial"
  5491. $node708 setScope "name" "cl" "scopePhase"
  5492.  
  5493. set node709 [$diag addNode cad_class 1008.0 1024.0 120.0 118.667]
  5494. $node709 setLabel "name" "Software"
  5495. $node709 setScope "name" "cl" "scopePhase"
  5496.  
  5497. set node710 [$diag addNode cad_class 1152.0 1024.0 120.0 104.0]
  5498. $node710 setLabel "name" "VCR_Tape"
  5499. $node710 setScope "name" "cl" "scopePhase"
  5500.  
  5501. set node711 [$diag addNode cad_class 1296.0 1024.0 120.0 89.3336]
  5502. $node711 setLabel "name" "CDROM"
  5503. $node711 setScope "name" "cl" "scopePhase"
  5504.  
  5505. set node712 [$diag addNode cad_class 1504.0 1232.0 120.0 89.3336]
  5506. $node712 setLabel "name" "LCD_Panel"
  5507. $node712 setScope "name" "cl" "scopePhase"
  5508.  
  5509. set node714 [$diag addNode cad_class 1440.0 1024.0 120.0 104.0]
  5510. $node714 setLabel "name" "AV_Equipment"
  5511. $node714 setScope "name" "cl" "scopePhase"
  5512.  
  5513. set conn715 [$diag addConn association $node704 $node708 880.0 1280.0 1200.0 848.0]
  5514. $conn715 setProp "mult_kind_end" "one"
  5515. $conn715 setProp "mult_kind_start" "optional"
  5516. set segm716 [$conn715 getFirstSegm]
  5517. set segm717 [$conn715 addSegm 800.0 1280.0]
  5518. set segm718 [$conn715 addSegm 800.0 848.0]
  5519. $segm718 setLabel "name" "companion"
  5520. $segm718 setScope "name" "cl" "scopeFile"
  5521.  
  5522. set node705 [$diag addRake generalization $node708 $node702 1216.0 880.0 1680.0 1040.0 968.0]
  5523. $node705 setLabel "name" "training material type"
  5524. $node705 setScope "name" "de" "scopeSystem"
  5525.  
  5526. set conn719 [$diag addConn generalization_conn $node705 $node703 928.0 968.5 928.0 1056.0]
  5527. set segm720 [$conn719 getFirstSegm]
  5528.  
  5529. set conn721 [$diag addConn generalization_conn $node705 $node709 1120.0 968.5 1072.0 1056.0]
  5530. set segm722 [$conn721 getFirstSegm]
  5531.  
  5532. set conn723 [$diag addConn generalization_conn $node705 $node710 1312.0 968.5 1216.0 1056.0]
  5533. set segm724 [$conn723 getFirstSegm]
  5534.  
  5535. set conn725 [$diag addConn generalization_conn $node705 $node711 1504.0 968.5 1360.0 1056.0]
  5536. set segm726 [$conn725 getFirstSegm]
  5537.  
  5538. set conn727 [$diag addConn generalization_conn $node705 $node714 1504.0 968.5 1504.0 1056.0]
  5539. set segm728 [$conn727 getFirstSegm]
  5540.  
  5541. set node707 [$diag addRake generalization $node714 $node706 1488.0 1104.0 1424.0 1280.0 1176.0]
  5542.  
  5543. set conn729 [$diag addConn generalization_conn $node707 $node712 1558.0 1176.5 1568.0 1248.0]
  5544. set segm730 [$conn729 getFirstSegm]
  5545.  
  5546. set node713 [$diag addRake generalization $node703 $node704 928.0 1120.0 928.0 1264.0 1200.0]
  5547.  
  5548. $diag save
  5549. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5550.  
  5551.  
  5552. # ----------------------------------------------------------------------------
  5553. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/LoanTracking-UseCase.ccd'.
  5554. # ----------------------------------------------------------------------------
  5555.  
  5556. # Generator: et.tcl    /main/hindenburg/11
  5557. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5558. # Interpreter to use: Otsh V5.1.1/B1
  5559. #
  5560. OTShRegister::importTool
  5561.  
  5562. set diag [CCD new LoanTracking-UseCase BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5563.  
  5564. set node731 [$diag addNode subject 1220.0 1084.0 120.0 40.0]
  5565. $node731 setLabel "name" "Database"
  5566. $node731 setScope "name" "cl" "scopePhase"
  5567.  
  5568. set node732 [$diag addNode ccd_actor 740.0 652.0 120.0 40.0]
  5569. $node732 setLabel "name" "Borrower"
  5570. $node732 setScope "name" "cl" "scopePhase"
  5571.  
  5572. set node733 [$diag addNode subject 804.0 1084.0 120.0 40.0]
  5573. $node733 setLabel "name" "User_Interface"
  5574. $node733 setScope "name" "cl" "scopePhase"
  5575.  
  5576. set node734 [$diag addNode subject 1108.0 924.0 120.0 40.0]
  5577. $node734 setLabel "name" "CoreClasses"
  5578. $node734 setScope "name" "cl" "scopePhase"
  5579.  
  5580. set node735 [$diag addNode ccd_class 724.0 892.0 120.0 40.0]
  5581. $node735 setLabel "name" "LoanCoordinator"
  5582. $node735 setScope "name" "cl" "scopePhase"
  5583.  
  5584. set conn736 [$diag addConn com_message $node732 $node735 768.0 688.0 768.0 912.0]
  5585. set segm737 [$conn736 getFirstSegm]
  5586. $segm737 setLabel "name" "Borrower_Requests"
  5587. $segm737 setScope "name" "pe" "scopeSystem"
  5588. set segm738 [$conn736 addSegm 672.0 816.0]
  5589.  
  5590. set conn739 [$diag addConn com_message $node733 $node734 912.0 1104.0 1152.0 944.0]
  5591. set segm740 [$conn739 getFirstSegm]
  5592. $segm740 setLabel "name" "UI_server_\nresponses"
  5593. $segm740 setScope "name" "pe" "scopeSystem"
  5594. set segm741 [$conn739 addSegm 1056.0 1104.0]
  5595.  
  5596. set conn742 [$diag addConn com_message $node731 $node734 1296.0 1088.0 1216.0 944.0]
  5597. set segm743 [$conn742 getFirstSegm]
  5598. set segm744 [$conn742 addSegm 1360.0 944.0]
  5599. $segm744 setLabel "name" "DBserver_\nresponses"
  5600. $segm744 setScope "name" "pe" "scopeSystem"
  5601.  
  5602. set conn745 [$diag addConn com_message $node735 $node732 816.0 896.0 816.0 688.0]
  5603. set segm746 [$conn745 getFirstSegm]
  5604. set segm747 [$conn745 addSegm 912.0 816.0]
  5605. $segm747 setLabel "name" "Notifications"
  5606. $segm747 setScope "name" "pe" "scopeSystem"
  5607.  
  5608. set conn748 [$diag addConn com_message $node735 $node733 784.0 928.0 848.0 1104.0]
  5609. set segm749 [$conn748 getFirstSegm]
  5610. $segm749 setLabel "name" "UI_cmds"
  5611. $segm749 setScope "name" "pe" "scopeSystem"
  5612.  
  5613. set conn750 [$diag addConn com_message $node734 $node733 1136.0 944.0 880.0 1088.0]
  5614. set segm751 [$conn750 getFirstSegm]
  5615. $segm751 setLabel "name" "UI_client_\nrequests"
  5616. $segm751 setScope "name" "pe" "scopeSystem"
  5617. set segm752 [$conn750 addSegm 960.0 944.0]
  5618.  
  5619. set conn753 [$diag addConn com_message $node734 $node731 1184.0 944.0 1264.0 1088.0]
  5620. set segm754 [$conn753 getFirstSegm]
  5621. $segm754 setLabel "name" "DBclient_\nrequests"
  5622. $segm754 setScope "name" "pe" "scopeSystem"
  5623.  
  5624. $diag save
  5625. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5626.  
  5627.  
  5628. # ----------------------------------------------------------------------------
  5629. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/UI_client_requests.mgd'.
  5630. # ----------------------------------------------------------------------------
  5631.  
  5632. # Generator: et.tcl    /main/hindenburg/11
  5633. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5634. # Interpreter to use: Otsh V5.1.1/B1
  5635. #
  5636. OTShRegister::importTool
  5637.  
  5638. set diag [MGD new UI_client_requests BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 0]
  5639.  
  5640. $diag save
  5641. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5642.  
  5643.  
  5644. # ----------------------------------------------------------------------------
  5645. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/WaitingList/top.std'.
  5646. # ----------------------------------------------------------------------------
  5647.  
  5648. # Generator: et.tcl    /main/hindenburg/11
  5649. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5650. # Interpreter to use: Otsh V5.1.1/B1
  5651. #
  5652. OTShRegister::importTool
  5653.  
  5654. set diag [STD new WaitingList:top BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5655.  
  5656. set node755 [$diag addNode std_class 836.0 1068.0 120.0 40.0]
  5657. $node755 setLabel "name" "Loan\nCoordinator"
  5658. $node755 setScope "name" "cl" "scopePhase"
  5659.  
  5660. set node756 [$diag addNode state 1104.0 928.0 173.333 73.3333]
  5661. $node756 setLabel "name" "Waiting"
  5662.  
  5663. set node757 [$diag addNode state 1104.0 1344.0 133.333 58.6667]
  5664. $node757 setLabel "name" "Not Waiting"
  5665.  
  5666. set node758 [$diag addNode state 1104.0 1136.0 160.0 73.3333]
  5667. $node758 setLabel "name" "Reserved"
  5668.  
  5669. set node759 [$diag addNode final_state 1554.0 1362.0 28.0 28.0]
  5670. $node759 setLabel "name" "Done"
  5671.  
  5672. set node760 [$diag addNode start_state 1177.0 809.0 14.0 14.0]
  5673.  
  5674. set node761 [$diag addNode state 1504.0 1136.0 154.667 73.3333]
  5675. $node761 setLabel "name" "Expired"
  5676.  
  5677. set conn764 [$diag addConn transition $node756 $node758 1184.0 976.0 1184.0 1168.0]
  5678. $conn764 setLabel "event" "item is available\n"
  5679. set segm765 [$conn764 getFirstSegm]
  5680. $segm765 setLabel "editor_only" " "
  5681.  
  5682. set conn766 [$diag addConn transition $node758 $node757 1184.0 1200.0 1184.0 1360.0]
  5683. $conn766 setLabel "event" "item is checked_out"
  5684. set segm767 [$conn766 getFirstSegm]
  5685. $segm767 setLabel "editor_only" " "
  5686.  
  5687. set conn768 [$diag addConn transition $node760 $node756 1184.0 816.0 1184.0 944.0]
  5688. set segm769 [$conn768 getFirstSegm]
  5689. $segm769 setLabel "editor_only" " "
  5690.  
  5691. set conn770 [$diag addConn transition $node758 $node761 1264.0 1168.0 1504.0 1168.0]
  5692. $conn770 setLabel "event" "reservation date has expired"
  5693. set segm771 [$conn770 getFirstSegm]
  5694. $segm771 setLabel "editor_only" " "
  5695.  
  5696. set conn772 [$diag addConn transition $node756 $node761 1248.0 960.0 1568.0 1168.0]
  5697. $conn772 setLabel "event" "date required has expired"
  5698. set segm773 [$conn772 getFirstSegm]
  5699. set segm774 [$conn772 addSegm 1568.0 960.0]
  5700. $segm774 setLabel "editor_only" " "
  5701.  
  5702. set conn775 [$diag addConn transition $node761 $node759 1568.0 1200.0 1568.0 1376.0]
  5703. set segm776 [$conn775 getFirstSegm]
  5704. $segm776 setLabel "editor_only" " "
  5705.  
  5706. set conn777 [$diag addConn transition $node757 $node759 1216.0 1376.0 1568.0 1376.0]
  5707. set segm778 [$conn777 getFirstSegm]
  5708. $segm778 setLabel "editor_only" " "
  5709.  
  5710. set conn762 [$diag addConn event_msg $segm765 $node755 1184.0 1088.0 944.0 1088.0]
  5711. set segm763 [$conn762 getFirstSegm]
  5712. $segm763 setLabel "event" "item is available"
  5713.  
  5714. set cono779 [$node761 addStateAction]
  5715. $cono779 setLabel "event" "entry"
  5716. $cono779 setLabel "action" "/status='expired'\n"
  5717. $cono779 setScope "event" "rs" "scopeSystem"
  5718.  
  5719. set cono780 [$node757 addStateAction]
  5720. $cono780 setLabel "event" "entry"
  5721. $cono780 setLabel "action" "/status=done"
  5722. $cono780 setScope "event" "rs" "scopeSystem"
  5723.  
  5724. set cono781 [$node758 addStateAction]
  5725. $cono781 setLabel "event" "entry"
  5726. $cono781 setLabel "action" "/status=reserved\n"
  5727. $cono781 setScope "event" "rs" "scopeSystem"
  5728.  
  5729. set cono782 [$node756 addStateAction]
  5730. $cono782 setLabel "event" "entry"
  5731. $cono782 setLabel "action" "/status=waiting\n"
  5732. $cono782 setScope "event" "rs" "scopeSystem"
  5733.  
  5734. set cono783 [$node761 addActivity]
  5735. $cono783 setLabel "name" "do:expired loan"
  5736.  
  5737. set cono784 [$node758 addActivity]
  5738. $cono784 setLabel "name" "do:reserve item"
  5739.  
  5740. set cono785 [$node756 addActivity]
  5741. $cono785 setLabel "name" "do:check item availability"
  5742.  
  5743. $diag save
  5744. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5745.  
  5746.  
  5747. # ----------------------------------------------------------------------------
  5748. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/UI_cmds.mgd'.
  5749. # ----------------------------------------------------------------------------
  5750.  
  5751. # Generator: et.tcl    /main/hindenburg/11
  5752. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5753. # Interpreter to use: Otsh V5.1.1/B1
  5754. #
  5755. OTShRegister::importTool
  5756.  
  5757. set diag [MGD new UI_cmds BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 0]
  5758.  
  5759. set node787 [$diag addNode message_def 612.0 796.0 120.0 40.0]
  5760. $node787 setLabel "name" "arrange_loan"
  5761. $node787 setScope "name" "pe" "scopeSystem"
  5762.  
  5763. set node788 [$diag addNode message_def 740.0 796.0 120.0 40.0]
  5764. $node788 setLabel "name" "manage_\nwaiting_list"
  5765. $node788 setScope "name" "pe" "scopeSystem"
  5766.  
  5767. set node789 [$diag addNode message_def 868.0 796.0 120.0 40.0]
  5768. $node789 setLabel "name" "arrange_sale"
  5769. $node789 setScope "name" "pe" "scopeSystem"
  5770.  
  5771. set node790 [$diag addNode message_def 996.0 796.0 120.0 40.0]
  5772. $node790 setLabel "name" "handle_return"
  5773. $node790 setScope "name" "pe" "scopeSystem"
  5774.  
  5775. set node791 [$diag addNode message_def 1124.0 796.0 120.0 40.0]
  5776. $node791 setLabel "name" "generate_report"
  5777. $node791 setScope "name" "pe" "scopeSystem"
  5778.  
  5779. set node792 [$diag addNode message_def 1252.0 796.0 120.0 40.0]
  5780. $node792 setLabel "name" "add_new_\ntraining_materials"
  5781. $node792 setScope "name" "pe" "scopeSystem"
  5782.  
  5783. set node793 [$diag addNode message_def 948.0 652.0 120.0 40.0]
  5784. $node793 setLabel "name" "UI_cmds"
  5785. $node793 setScope "name" "pe" "scopeSystem"
  5786.  
  5787. set node794 [$diag addNode message_def 1384.0 796.0 144.0 40.0]
  5788. $node794 setLabel "name" "manage_workbook_\ninventory"
  5789. $node794 setScope "name" "pe" "scopeSystem"
  5790.  
  5791. set node786 [$diag addRake message_gen $node793 $node787 1008.0 688.0 672.0 800.0 752.0]
  5792.  
  5793. set conn795 [$diag addConn message_gen_conn $node786 $node788 800.0 752.0 800.0 800.0]
  5794. set segm796 [$conn795 getFirstSegm]
  5795.  
  5796. set conn797 [$diag addConn message_gen_conn $node786 $node789 928.0 752.0 928.0 816.0]
  5797. set segm798 [$conn797 getFirstSegm]
  5798.  
  5799. set conn799 [$diag addConn message_gen_conn $node786 $node790 1056.0 752.0 1056.0 800.0]
  5800. set segm800 [$conn799 getFirstSegm]
  5801.  
  5802. set conn801 [$diag addConn message_gen_conn $node786 $node791 1184.0 752.0 1184.0 800.0]
  5803. set segm802 [$conn801 getFirstSegm]
  5804.  
  5805. set conn803 [$diag addConn message_gen_conn $node786 $node792 1312.0 752.0 1312.0 816.0]
  5806. set segm804 [$conn803 getFirstSegm]
  5807.  
  5808. set conn805 [$diag addConn message_gen_conn $node786 $node794 1456.0 752.0 1456.0 816.0]
  5809. set segm806 [$conn805 getFirstSegm]
  5810.  
  5811. $diag save
  5812. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5813.  
  5814.  
  5815. # ----------------------------------------------------------------------------
  5816. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Notifications.mgd'.
  5817. # ----------------------------------------------------------------------------
  5818.  
  5819. # Generator: et.tcl    /main/hindenburg/11
  5820. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5821. # Interpreter to use: Otsh V5.1.1/B1
  5822. #
  5823. OTShRegister::importTool
  5824.  
  5825. set diag [MGD new Notifications BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 0]
  5826.  
  5827. set node808 [$diag addNode message_def 692.0 732.0 120.0 40.0]
  5828. $node808 setLabel "name" "Notifications"
  5829. $node808 setScope "name" "pe" "scopeSystem"
  5830.  
  5831. set node809 [$diag addNode message_def 468.0 956.0 120.0 40.0]
  5832. $node809 setLabel "name" "item is available"
  5833. $node809 setScope "name" "pe" "scopeSystem"
  5834.  
  5835. set node812 [$diag addNode message_def 532.0 860.0 120.0 40.0]
  5836. $node812 setLabel "name" "item availability"
  5837. $node812 setScope "name" "pe" "scopeSystem"
  5838. $node812 setProp "freeText" "Indicates the availability of the item \nrequested by the Borrower. The item \nis either available or not available." "name" "pe"
  5839.  
  5840. set node813 [$diag addNode message_def 852.0 860.0 120.0 40.0]
  5841. $node813 setLabel "name" "due date"
  5842. $node813 setScope "name" "pe" "scopeSystem"
  5843.  
  5844. set node814 [$diag addNode message_def 916.0 956.0 120.0 40.0]
  5845. $node814 setLabel "name" "loan is overdue"
  5846. $node814 setScope "name" "pe" "scopeSystem"
  5847.  
  5848. set node815 [$diag addNode message_def 762.667 956.0 138.667 40.0]
  5849. $node815 setLabel "name" "item return date is"
  5850. $node815 setScope "name" "pe" "scopeSystem"
  5851.  
  5852. set node816 [$diag addNode message_def 597.333 956.0 149.333 40.0]
  5853. $node816 setLabel "name" "item is not available"
  5854. $node816 setScope "name" "pe" "scopeSystem"
  5855.  
  5856. set node807 [$diag addRake message_gen $node812 $node809 592.0 880.0 528.0 976.0 928.0]
  5857.  
  5858. set conn817 [$diag addConn message_gen_conn $node807 $node816 592.0 928.5 672.0 976.0]
  5859. set segm818 [$conn817 getFirstSegm]
  5860.  
  5861. set node810 [$diag addRake message_gen $node808 $node813 752.0 768.0 912.0 880.0 808.0]
  5862.  
  5863. set conn819 [$diag addConn message_gen_conn $node810 $node812 592.0 808.5 592.0 864.0]
  5864. set segm820 [$conn819 getFirstSegm]
  5865.  
  5866. set node811 [$diag addRake message_gen $node813 $node815 912.0 896.0 832.0 976.0 927.5]
  5867.  
  5868. set conn821 [$diag addConn message_gen_conn $node811 $node814 976.0 928.0 976.0 976.0]
  5869. set segm822 [$conn821 getFirstSegm]
  5870.  
  5871. $diag save
  5872. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  5873.  
  5874.  
  5875. # ----------------------------------------------------------------------------
  5876. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/CoreClasses.ccd'.
  5877. # ----------------------------------------------------------------------------
  5878.  
  5879. # Generator: et.tcl    /main/hindenburg/11
  5880. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  5881. # Interpreter to use: Otsh V5.1.1/B1
  5882. #
  5883. OTShRegister::importTool
  5884.  
  5885. set diag [CCD new CoreClasses BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  5886.  
  5887. set node823 [$diag addNode ccd_class 1348.0 1356.0 120.0 40.0]
  5888. $node823 setLabel "name" "TrainingMaterial"
  5889. $node823 setScope "name" "cl" "scopePhase"
  5890.  
  5891. set node824 [$diag addNode ccd_class 1348.0 812.0 120.0 40.0]
  5892. $node824 setLabel "name" "Inventory"
  5893. $node824 setScope "name" "cl" "scopePhase"
  5894.  
  5895. set node825 [$diag addNode subject 804.0 1036.0 120.0 40.0]
  5896. $node825 setLabel "name" "User_Interface"
  5897. $node825 setScope "name" "cl" "scopePhase"
  5898.  
  5899. set node826 [$diag addNode ccd_class 804.0 1244.0 120.0 40.0]
  5900. $node826 setLabel "name" "TrainingMaterial"
  5901. $node826 setScope "name" "cl" "scopePhase"
  5902.  
  5903. set node827 [$diag addNode ccd_class 804.0 796.0 120.0 40.0]
  5904. $node827 setLabel "name" "Borrower"
  5905. $node827 setScope "name" "cl" "scopePhase"
  5906.  
  5907. set node828 [$diag addNode ccd_class 1060.0 1356.0 120.0 40.0]
  5908. $node828 setLabel "name" "Borrower"
  5909. $node828 setScope "name" "cl" "scopePhase"
  5910.  
  5911. set node829 [$diag addNode ccd_class 980.0 1084.0 120.0 40.0]
  5912. $node829 setLabel "name" "Extension"
  5913. $node829 setScope "name" "cl" "scopePhase"
  5914.  
  5915. set node830 [$diag addNode ccd_class 1204.0 1244.0 120.0 40.0]
  5916. $node830 setLabel "name" "WaitingList"
  5917. $node830 setScope "name" "cl" "scopePhase"
  5918.  
  5919. set node831 [$diag addNode ccd_class 1204.0 956.0 120.0 40.0]
  5920. $node831 setLabel "name" "Loan"
  5921. $node831 setScope "name" "cl" "scopePhase"
  5922.  
  5923. set conn832 [$diag addConn com_message $node825 $node827 832.0 1056.0 832.0 816.0]
  5924. set segm833 [$conn832 getFirstSegm]
  5925. $segm833 setLabel "name" "CRUD"
  5926. $segm833 setScope "name" "pe" "scopeSystem"
  5927.  
  5928. set conn834 [$diag addConn com_message $node825 $node831 880.0 1056.0 1216.0 976.0]
  5929. set segm835 [$conn834 getFirstSegm]
  5930. set segm836 [$conn834 addSegm 880.0 896.0]
  5931. $segm836 setLabel "name" "CRUD\n"
  5932. $segm836 setScope "name" "pe" "scopeSystem"
  5933. set segm837 [$conn834 addSegm 1216.0 896.0]
  5934.  
  5935. set conn838 [$diag addConn com_message $node831 $node824 1312.0 960.0 1408.0 832.0]
  5936. set segm839 [$conn838 getFirstSegm]
  5937. $segm839 setLabel "name" "adjust_quantity"
  5938. $segm839 setScope "name" "pe" "scopeSystem"
  5939. set segm840 [$conn838 addSegm 1312.0 832.0]
  5940.  
  5941. set conn841 [$diag addConn com_message $node825 $node829 896.0 1072.0 1040.0 1104.0]
  5942. set segm842 [$conn841 getFirstSegm]
  5943. set segm843 [$conn841 addSegm 896.0 1104.0]
  5944. $segm843 setLabel "name" "create\n"
  5945. $segm843 setScope "name" "pe" "scopeSystem"
  5946.  
  5947. set conn844 [$diag addConn com_message $node825 $node831 924.0 1040.0 1232.0 976.0]
  5948. set segm845 [$conn844 getFirstSegm]
  5949. $segm845 setLabel "name" "check_out\n"
  5950. $segm845 setScope "name" "pe" "scopeSystem"
  5951. set segm846 [$conn844 addSegm 1232.0 1040.0]
  5952.  
  5953. set conn847 [$diag addConn com_message $node825 $node830 832.0 1056.0 1232.0 1264.0]
  5954. set segm848 [$conn847 getFirstSegm]
  5955. set segm849 [$conn847 addSegm 832.0 1200.0]
  5956. $segm849 setLabel "name" "check_out\n"
  5957. $segm849 setScope "name" "pe" "scopeSystem"
  5958. set segm850 [$conn847 addSegm 1232.0 1200.0]
  5959.  
  5960. set conn851 [$diag addConn com_message $node830 $node831 1296.0 1248.0 1296.0 976.0]
  5961. set segm852 [$conn851 getFirstSegm]
  5962. $segm852 setLabel "name" "reserve"
  5963. $segm852 setScope "name" "pe" "scopeSystem"
  5964.  
  5965. set conn853 [$diag addConn com_message $node831 $node827 1248.0 976.0 912.0 816.0]
  5966. set segm854 [$conn853 getFirstSegm]
  5967. set segm855 [$conn853 addSegm 1248.0 816.0]
  5968. $segm855 setLabel "name" "overdue_notice\n"
  5969. $segm855 setScope "name" "pe" "scopeSystem"
  5970.  
  5971. set conn856 [$diag addConn com_message $node830 $node826 1216.0 1264.0 912.0 1264.0]
  5972. set segm857 [$conn856 getFirstSegm]
  5973. $segm857 setLabel "name" "check item availability\n"
  5974. $segm857 setScope "name" "pe" "scopeSystem"
  5975.  
  5976. set conn858 [$diag addConn com_message $node831 $node830 1312.0 976.0 1312.0 1264.0]
  5977. set segm859 [$conn858 getFirstSegm]
  5978. set segm860 [$conn858 addSegm 1376.0 976.0]
  5979. $segm860 setLabel "name" "expire"
  5980. $segm860 setScope "name" "pe" "scopeSystem"
  5981. set segm861 [$conn858 addSegm 1376.0 1264.0]
  5982.  
  5983. set conn862 [$diag addConn com_message $node830 $node828 1216.0 1280.0 1136.0 1376.0]
  5984. set segm863 [$conn862 getFirstSegm]
  5985. $segm863 setLabel "name" "available\nnotice"
  5986. $segm863 setScope "name" "pe" "scopeSystem"
  5987. set segm864 [$conn862 addSegm 1216.0 1376.0]
  5988.  
  5989. set conn865 [$diag addConn com_message $node825 $node831 912.0 1040.0 1264.0 976.0]
  5990. set segm866 [$conn865 getFirstSegm]
  5991. set segm867 [$conn865 addSegm 912.0 976.0]
  5992. $segm867 setLabel "name" "check_in\n"
  5993. $segm867 setScope "name" "pe" "scopeSystem"
  5994.  
  5995. set conn868 [$diag addConn com_message $node829 $node831 1088.0 1104.0 1264.0 976.0]
  5996. set segm869 [$conn868 getFirstSegm]
  5997. $segm869 setLabel "name" "calculate_due_date\n"
  5998. $segm869 setScope "name" "pe" "scopeSystem"
  5999. set segm870 [$conn868 addSegm 1264.0 1104.0]
  6000.  
  6001. set conn871 [$diag addConn com_message $node825 $node830 864.0 1072.0 1264.0 1264.0]
  6002. set segm872 [$conn871 getFirstSegm]
  6003. set segm873 [$conn871 addSegm 864.0 1152.0]
  6004. $segm873 setLabel "name" "CRUD\n"
  6005. $segm873 setScope "name" "pe" "scopeSystem"
  6006. set segm874 [$conn871 addSegm 1264.0 1152.0]
  6007.  
  6008. set conn875 [$diag addConn com_message $node830 $node823 1312.0 1280.0 1392.0 1376.0]
  6009. set segm876 [$conn875 getFirstSegm]
  6010. $segm876 setLabel "name" "check item\navailability"
  6011. $segm876 setScope "name" "pe" "scopeSystem"
  6012. set segm877 [$conn875 addSegm 1312.0 1376.0]
  6013.  
  6014. $diag save
  6015. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6016.  
  6017.  
  6018. # ----------------------------------------------------------------------------
  6019. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Overview.cad'.
  6020. # ----------------------------------------------------------------------------
  6021.  
  6022. # Generator: et.tcl    /main/hindenburg/11
  6023. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6024. # Interpreter to use: Otsh V5.1.1/B1
  6025. #
  6026. OTShRegister::importTool
  6027.  
  6028. set diag [CAD new Overview BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6029.  
  6030. set node878 [$diag addNode cad_class 816.0 992.0 120.0 32.0]
  6031. $node878 setLabel "name" "Employee"
  6032. $node878 setProp "is_folded" "1"
  6033. $node878 setScope "name" "cl" "scopePhase"
  6034.  
  6035. set node879 [$diag addNode cad_class 928.0 1152.0 120.0 28.0]
  6036. $node879 setLabel "name" "Return"
  6037. $node879 setProp "is_folded" "1"
  6038. $node879 setScope "name" "cl" "scopePhase"
  6039.  
  6040. set node880 [$diag addNode cad_class 1008.0 848.0 133.0 28.0]
  6041. $node880 setLabel "name" "LoanCoordinator"
  6042. $node880 setProp "is_folded" "1"
  6043. $node880 setScope "name" "cl" "scopePhase"
  6044.  
  6045. set node881 [$diag addNode cad_class 1008.0 944.0 120.0 28.0]
  6046. $node881 setLabel "name" "Loan"
  6047. $node881 setProp "is_folded" "1"
  6048. $node881 setScope "name" "cl" "scopePhase"
  6049.  
  6050. set node882 [$diag addNode cad_class 976.0 1056.0 120.0 28.0]
  6051. $node882 setLabel "name" "Sale"
  6052. $node882 setProp "is_folded" "1"
  6053. $node882 setScope "name" "cl" "scopePhase"
  6054.  
  6055. set node883 [$diag addNode cad_class 1280.0 848.0 120.0 28.0]
  6056. $node883 setLabel "name" "WaitingList"
  6057. $node883 setProp "is_folded" "1"
  6058. $node883 setScope "name" "cl" "scopePhase"
  6059.  
  6060. set node884 [$diag addNode cad_class 1328.0 1104.0 120.0 28.0]
  6061. $node884 setLabel "name" "Workbook"
  6062. $node884 setProp "is_folded" "1"
  6063. $node884 setScope "name" "cl" "scopePhase"
  6064.  
  6065. set node885 [$diag addNode cad_class 1360.0 992.0 145.0 32.0]
  6066. $node885 setLabel "name" "TrainingMaterial"
  6067. $node885 setProp "is_folded" "1"
  6068. $node885 setScope "name" "cl" "scopePhase"
  6069.  
  6070. set conn892 [$diag addConn association $node878 $node880 896.0 992.0 1072.0 864.0]
  6071. $conn892 setProp "mult_kind_end" "one"
  6072. $conn892 setProp "mult_kind_start" "many"
  6073. set segm893 [$conn892 getFirstSegm]
  6074. $segm893 setLabel "name" "calls"
  6075. $segm893 setScope "name" "cl" "scopeFile"
  6076. set segm894 [$conn892 addSegm 896.0 864.0]
  6077.  
  6078. set conn895 [$diag addConn association $node880 $node883 1120.0 864.0 1296.0 864.0]
  6079. $conn895 setProp "mult_kind_end" "many"
  6080. $conn895 setProp "mult_kind_start" "one"
  6081. set segm896 [$conn895 getFirstSegm]
  6082. $segm896 setLabel "name" "manages"
  6083. $segm896 setScope "name" "cl" "scopeFile"
  6084.  
  6085. set conn899 [$diag addConn association $node878 $node885 832.0 1024.0 1472.0 1024.0]
  6086. $conn899 setLabel "role_start" "anyone"
  6087. $conn899 setProp "mult_kind_end" "many"
  6088. $conn899 setProp "mult_kind_start" "many"
  6089. set segm900 [$conn899 getFirstSegm]
  6090. set segm901 [$conn899 addSegm 832.0 1216.0]
  6091. $segm901 setLabel "name" "checks_in"
  6092. $segm901 setScope "name" "cl" "scopeFile"
  6093. set segm902 [$conn899 addSegm 1472.0 1216.0]
  6094.  
  6095. set conn903 [$diag addConn association $node878 $node885 832.0 992.0 1424.0 1008.0]
  6096. $conn903 setProp "mult_kind_end" "one"
  6097. $conn903 setProp "mult_kind_start" "many"
  6098. set segm904 [$conn903 getFirstSegm]
  6099. set segm905 [$conn903 addSegm 832.0 800.0]
  6100. $segm905 setLabel "name" "waits_for"
  6101. $segm905 setScope "name" "cl" "scopeFile"
  6102. set segm906 [$conn903 addSegm 1424.0 800.0]
  6103.  
  6104. set conn909 [$diag addConn association $node880 $node881 1056.0 864.0 1056.0 960.0]
  6105. $conn909 setProp "mult_kind_end" "many"
  6106. $conn909 setProp "mult_kind_start" "one"
  6107. set segm910 [$conn909 getFirstSegm]
  6108. $segm910 setLabel "name" "arranges"
  6109. $segm910 setScope "name" "cl" "scopeFile"
  6110.  
  6111. set conn911 [$diag addConn association $node878 $node884 896.0 1008.0 1392.0 1120.0]
  6112. $conn911 setLabel "role_start" "buyer"
  6113. $conn911 setProp "mult_kind_end" "many"
  6114. $conn911 setProp "mult_kind_start" "many"
  6115. set segm912 [$conn911 getFirstSegm]
  6116. set segm913 [$conn911 addSegm 896.0 1120.0]
  6117. $segm913 setLabel "name" "purchases"
  6118. $segm913 setScope "name" "cl" "scopeFile"
  6119.  
  6120. set conn914 [$diag addConn association $node878 $node885 928.0 1008.0 1408.0 1008.0]
  6121. $conn914 setLabel "role_start" "borrower"
  6122. $conn914 setProp "mult_kind_end" "many"
  6123. $conn914 setProp "mult_kind_start" "many"
  6124. set segm915 [$conn914 getFirstSegm]
  6125. $segm915 setLabel "name" "checks_out"
  6126. $segm915 setScope "name" "cl" "scopeFile"
  6127.  
  6128. set node886 [$diag addRake generalization $node885 $node884 1424.0 1024.0 1424.0 1104.0 1055.5]
  6129.  
  6130. set conn887 [$diag addConn loop $segm901 $node879 992.0 1216.0 992.0 1168.0]
  6131. set segm888 [$conn887 getFirstSegm]
  6132. set segm889 [$conn887 addSegm 992.0 1232.0]
  6133.  
  6134. set conn890 [$diag addConn loop $segm913 $node882 1040.0 1120.0 1040.0 1072.0]
  6135. set segm891 [$conn890 getFirstSegm]
  6136.  
  6137. set conn897 [$diag addConn loop $segm905 $node883 1328.0 800.0 1328.0 864.0]
  6138. set segm898 [$conn897 getFirstSegm]
  6139.  
  6140. set conn907 [$diag addConn loop $segm915 $node881 1056.0 1008.0 1056.0 960.0]
  6141. set segm908 [$conn907 getFirstSegm]
  6142.  
  6143. $diag save
  6144. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6145.  
  6146.  
  6147. # ----------------------------------------------------------------------------
  6148. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Borrower_Requests.mgd'.
  6149. # ----------------------------------------------------------------------------
  6150.  
  6151. # Generator: et.tcl    /main/hindenburg/11
  6152. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6153. # Interpreter to use: Otsh V5.1.1/B1
  6154. #
  6155. OTShRegister::importTool
  6156.  
  6157. set diag [MGD new Borrower_Requests BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 0]
  6158.  
  6159. set node918 [$diag addNode message_def 722.0 700.0 156.0 40.0]
  6160. $node918 setLabel "name" "Borrower_Requests"
  6161. $node918 setScope "name" "pe" "scopeSystem"
  6162.  
  6163. set node919 [$diag addNode message_def 756.0 876.0 120.0 40.0]
  6164. $node919 setLabel "name" "place on \nwaiting list"
  6165. $node919 setScope "name" "pe" "scopeSystem"
  6166.  
  6167. set node920 [$diag addNode message_def 916.0 876.0 120.0 40.0]
  6168. $node920 setLabel "name" "extend loan"
  6169. $node920 setScope "name" "pe" "scopeSystem"
  6170.  
  6171. set node921 [$diag addNode message_def 565.0 876.0 150.0 40.0]
  6172. $node921 setLabel "name" "borrow item"
  6173. $node921 setScope "name" "pe" "scopeSystem"
  6174.  
  6175. set node922 [$diag addNode message_def 630.0 986.0 144.0 40.0]
  6176. $node922 setLabel "name" "requests \noverhead projector"
  6177. $node922 setScope "name" "pe" "scopeSystem"
  6178.  
  6179. set node923 [$diag addNode message_def 482.667 988.0 122.667 40.0]
  6180. $node923 setLabel "name" "requests \nLCD_Panel"
  6181. $node923 setScope "name" "pe" "scopeSystem"
  6182.  
  6183. set node916 [$diag addRake message_gen $node921 $node923 624.0 912.0 544.0 1008.0 960.0]
  6184.  
  6185. set conn924 [$diag addConn message_gen_conn $node916 $node922 628.0 960.5 706.0 1006.0]
  6186. set segm925 [$conn924 getFirstSegm]
  6187.  
  6188. set node917 [$diag addRake message_gen $node918 $node921 800.0 736.0 640.0 896.0 816.0]
  6189.  
  6190. set conn926 [$diag addConn message_gen_conn $node917 $node919 928.0 816.5 816.0 896.0]
  6191. set segm927 [$conn926 getFirstSegm]
  6192.  
  6193. set conn928 [$diag addConn message_gen_conn $node917 $node920 976.0 816.5 976.0 880.0]
  6194. set segm929 [$conn928 getFirstSegm]
  6195.  
  6196. $diag save
  6197. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6198.  
  6199.  
  6200. # ----------------------------------------------------------------------------
  6201. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Employee_requests_LCD_Panel.etd'.
  6202. # ----------------------------------------------------------------------------
  6203.  
  6204. # Generator: et.tcl    /main/hindenburg/11
  6205. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6206. # Interpreter to use: Otsh V5.1.1/B1
  6207. #
  6208. OTShRegister::importTool
  6209.  
  6210. set diag [ETD new common:Employee_requests_LCD_Panel BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 0]
  6211.  
  6212. set node930 [$diag addNode etd_object 1310.5 1344.0 3.0 45.0]
  6213. $node930 setLabel "name_type" "Loan"
  6214. $node930 setScope "name_type" "cl" "scopePhase"
  6215.  
  6216. set node931 [$diag addNode etd_object 1310.5 1424.0 3.0 39.0]
  6217. $node931 setLabel "name_type" "WaitingList"
  6218. $node931 setScope "name_type" "cl" "scopePhase"
  6219.  
  6220. set node932 [$diag addNode etd_object 1502.5 884.0 3.0 49.0]
  6221. $node932 setLabel "name_type" "Inventory"
  6222. $node932 setScope "name_type" "cl" "scopePhase"
  6223.  
  6224. set node933 [$diag addNode etd_object 1320.5 1104.0 3.0 198.667]
  6225. $node933 setLabel "name_type" "WaitingList"
  6226. $node933 setScope "name_type" "cl" "scopePhase"
  6227.  
  6228. set node934 [$diag addNode etd_object 1134.5 760.0 3.0 695.0]
  6229. $node934 setLabel "name_type" "LoanCoordinator"
  6230. $node934 setScope "name_type" "cl" "scopePhase"
  6231.  
  6232. set node935 [$diag addNode etd_object 1518.5 1344.0 3.0 46.0]
  6233. $node935 setLabel "name_type" "Inventory"
  6234. $node935 setScope "name_type" "cl" "scopePhase"
  6235.  
  6236. set node936 [$diag addNode etd_object 1328.5 884.0 3.0 52.0]
  6237. $node936 setLabel "name_type" "Loan"
  6238. $node936 setScope "name_type" "cl" "scopePhase"
  6239.  
  6240. set node937 [$diag addNode etd_initiator 830.5 758.0 3.0 688.0]
  6241. $node937 setLabel "name_type" "Mike:Borrower"
  6242. $node937 setScope "name_type" "de" "scopeSystem"
  6243. $node937 setScope "name_type" "cl" "scopePhase"
  6244.  
  6245. set node938 [$diag addNode etd_object 1598.5 762.0 3.0 176.0]
  6246. $node938 setLabel "name_type" "TrainingMaterial"
  6247. $node938 setScope "name_type" "cl" "scopePhase"
  6248.  
  6249. set node939 [$diag addNode etd_object 1598.5 986.0 3.0 339.0]
  6250. $node939 setLabel "name_type" "TrainingMaterial"
  6251. $node939 setScope "name_type" "cl" "scopePhase"
  6252.  
  6253. set conn940 [$diag addConn etd_event $node934 $node937 1136.0 834.0 832.0 836.0]
  6254. set segm941 [$conn940 getFirstSegm]
  6255. $segm941 setLabel "event" "item is available"
  6256. $segm941 setScope "event" "pe" "scopeSystem"
  6257.  
  6258. set conn942 [$diag addConn etd_event $node934 $node937 1136.0 1042.0 832.0 1044.0]
  6259. set segm943 [$conn942 getFirstSegm]
  6260. $segm943 setLabel "event" "item is not available"
  6261. $segm943 setScope "event" "pe" "scopeSystem"
  6262.  
  6263. set conn944 [$diag addConn etd_event $node934 $node937 1136.0 1234.0 832.0 1236.0]
  6264. set segm945 [$conn944 getFirstSegm]
  6265. $segm945 setLabel "event" "item is available"
  6266. $segm945 setScope "event" "pe" "scopeSystem"
  6267.  
  6268. set conn946 [$diag addConn etd_event $node934 $node938 1136.0 798.0 1600.0 800.0]
  6269. set segm947 [$conn946 getFirstSegm]
  6270. $segm947 setLabel "event" "checks availability(LCD_Panel)"
  6271. $segm947 setScope "event" "pe" "scopeSystem"
  6272. $segm947 setScope "event" "de" "scopeSystem"
  6273.  
  6274. set conn948 [$diag addConn etd_event $node934 $node939 1136.0 1002.0 1600.0 1004.0]
  6275. set segm949 [$conn948 getFirstSegm]
  6276. $segm949 setLabel "event" "checks availability(OverheadProj)"
  6277. $segm949 setScope "event" "pe" "scopeSystem"
  6278. $segm949 setScope "event" "de" "scopeSystem"
  6279.  
  6280. set conn950 [$diag addConn etd_event $node933 $node939 1322.0 1208.0 1600.0 1208.0]
  6281. set segm951 [$conn950 getFirstSegm]
  6282. $segm951 setLabel "event" "checks availablity"
  6283. $segm951 setScope "event" "pe" "scopeSystem"
  6284.  
  6285. set conn952 [$diag addConn etd_event $node934 $node930 1136.0 1360.0 1312.0 1360.0]
  6286. set segm953 [$conn952 getFirstSegm]
  6287. $segm953 setLabel "event" "creates"
  6288. $segm953 setScope "event" "pe" "scopeSystem"
  6289.  
  6290. set conn954 [$diag addConn etd_event $node934 $node931 1136.0 1440.0 1312.0 1440.0]
  6291. set segm955 [$conn954 getFirstSegm]
  6292. $segm955 setLabel "event" "deletes"
  6293. $segm955 setScope "event" "pe" "scopeSystem"
  6294.  
  6295. set conn956 [$diag addConn etd_event $node936 $node932 1330.0 900.0 1504.0 900.0]
  6296. set segm957 [$conn956 getFirstSegm]
  6297. $segm957 setLabel "event" "decrement qty"
  6298. $segm957 setScope "event" "pe" "scopeSystem"
  6299.  
  6300. set conn958 [$diag addConn etd_event $node939 $node933 1600.0 1234.0 1322.0 1234.0]
  6301. set segm959 [$conn958 getFirstSegm]
  6302. $segm959 setLabel "event" "item is available"
  6303. $segm959 setScope "event" "pe" "scopeSystem"
  6304.  
  6305. set conn960 [$diag addConn etd_event $node934 $node933 1136.0 1134.0 1322.0 1136.0]
  6306. set segm961 [$conn960 getFirstSegm]
  6307. $segm961 setLabel "event" "creates"
  6308. $segm961 setScope "event" "pe" "scopeSystem"
  6309.  
  6310. set conn962 [$diag addConn etd_event $node937 $node934 832.0 798.0 1136.0 800.0]
  6311. set segm963 [$conn962 getFirstSegm]
  6312. $segm963 setLabel "event" "requests LCD_Panel"
  6313. $segm963 setScope "event" "pe" "scopeSystem"
  6314.  
  6315. set conn964 [$diag addConn etd_event $node938 $node934 1600.0 834.0 1136.0 834.0]
  6316. set segm965 [$conn964 getFirstSegm]
  6317. $segm965 setLabel "event" "item is available"
  6318. $segm965 setScope "event" "pe" "scopeSystem"
  6319.  
  6320. set conn966 [$diag addConn etd_event $node937 $node934 832.0 1098.0 1136.0 1098.0]
  6321. set segm967 [$conn966 getFirstSegm]
  6322. $segm967 setLabel "event" "place on waiting list"
  6323. $segm967 setScope "event" "pe" "scopeSystem"
  6324.  
  6325. set conn968 [$diag addConn etd_event $node939 $node934 1600.0 1042.0 1136.0 1044.0]
  6326. set segm969 [$conn968 getFirstSegm]
  6327. $segm969 setLabel "event" "item is not available"
  6328. $segm969 setScope "event" "pe" "scopeSystem"
  6329.  
  6330. set conn970 [$diag addConn etd_event $node933 $node934 1322.0 1234.0 1136.0 1236.0]
  6331. set segm971 [$conn970 getFirstSegm]
  6332. $segm971 setLabel "event" "item is available"
  6333. $segm971 setScope "event" "pe" "scopeSystem"
  6334.  
  6335. set conn972 [$diag addConn etd_event $node937 $node934 832.0 1006.0 1136.0 1004.0]
  6336. set segm973 [$conn972 getFirstSegm]
  6337. $segm973 setLabel "event" "requests overhead projector"
  6338. $segm973 setScope "event" "pe" "scopeSystem"
  6339.  
  6340. set conn974 [$diag addConn etd_event $node930 $node935 1312.0 1360.0 1520.0 1360.0]
  6341. set segm975 [$conn974 getFirstSegm]
  6342. $segm975 setLabel "event" "decrement qty"
  6343. $segm975 setScope "event" "pe" "scopeSystem"
  6344.  
  6345. set conn976 [$diag addConn etd_event $node934 $node936 1136.0 900.0 1330.0 900.0]
  6346. set segm977 [$conn976 getFirstSegm]
  6347. $segm977 setLabel "event" "creates"
  6348. $segm977 setScope "event" "pe" "scopeSystem"
  6349.  
  6350. $diag save
  6351. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6352.  
  6353.  
  6354. # ----------------------------------------------------------------------------
  6355. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/DamageReport.cdm'.
  6356. # ----------------------------------------------------------------------------
  6357.  
  6358. # Generator: et.tcl    /main/hindenburg/11
  6359. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6360. # Interpreter to use: Otsh V5.1.1/B1
  6361. #
  6362. OTShRegister::importTool
  6363.  
  6364. set diag [CDM new DamageReport BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6365.  
  6366. set row978 [$diag addRow attribute 0.0]
  6367. $row978 setLabel "name_type" "description\n"
  6368.  
  6369. set row979 [$diag addRow attribute 0.0]
  6370. $row979 setLabel "name_type" "is_lost"
  6371.  
  6372. $diag save
  6373. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6374.  
  6375.  
  6376. # ----------------------------------------------------------------------------
  6377. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/OverheadProj.cdm'.
  6378. # ----------------------------------------------------------------------------
  6379.  
  6380. # Generator: et.tcl    /main/hindenburg/11
  6381. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6382. # Interpreter to use: Otsh V5.1.1/B1
  6383. #
  6384. OTShRegister::importTool
  6385.  
  6386. set diag [CDM new OverheadProj BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6387.  
  6388. set row980 [$diag addRow attribute 0.0]
  6389. $row980 setLabel "name_type" "intensity\n"
  6390.  
  6391. set row981 [$diag addRow attribute 0.0]
  6392. $row981 setLabel "name_type" "portability"
  6393.  
  6394. $diag save
  6395. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6396.  
  6397.  
  6398. # ----------------------------------------------------------------------------
  6399. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/LCD_Panel.cdm'.
  6400. # ----------------------------------------------------------------------------
  6401.  
  6402. # Generator: et.tcl    /main/hindenburg/11
  6403. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6404. # Interpreter to use: Otsh V5.1.1/B1
  6405. #
  6406. OTShRegister::importTool
  6407.  
  6408. set diag [CDM new LCD_Panel BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6409.  
  6410. set row982 [$diag addRow attribute 0.0]
  6411. $row982 setLabel "name_type" "compatibility"
  6412.  
  6413. $diag save
  6414. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6415.  
  6416.  
  6417. # ----------------------------------------------------------------------------
  6418. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/TrainingMaterial.cdm'.
  6419. # ----------------------------------------------------------------------------
  6420.  
  6421. # Generator: et.tcl    /main/hindenburg/11
  6422. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6423. # Interpreter to use: Otsh V5.1.1/B1
  6424. #
  6425. OTShRegister::importTool
  6426.  
  6427. set diag [CDM new TrainingMaterial BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6428.  
  6429. set row983 [$diag addRow attribute 0.0]
  6430. $row983 setLabel "name_type" "item\n"
  6431.  
  6432. set row984 [$diag addRow attribute 0.0]
  6433. $row984 setLabel "name_type" "description"
  6434.  
  6435. set row985 [$diag addRow method 0.0]
  6436. $row985 setLabel "name_type" "count"
  6437.  
  6438. $diag save
  6439. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6440.  
  6441.  
  6442. # ----------------------------------------------------------------------------
  6443. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Book.cdm'.
  6444. # ----------------------------------------------------------------------------
  6445.  
  6446. # Generator: et.tcl    /main/hindenburg/11
  6447. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6448. # Interpreter to use: Otsh V5.1.1/B1
  6449. #
  6450. OTShRegister::importTool
  6451.  
  6452. set diag [CDM new Book BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6453.  
  6454. set row986 [$diag addRow attribute 0.0]
  6455. $row986 setLabel "name_type" "author\n"
  6456.  
  6457. set row987 [$diag addRow attribute 0.0]
  6458. $row987 setLabel "name_type" "publisher\n"
  6459.  
  6460. set row988 [$diag addRow attribute 0.0]
  6461. $row988 setLabel "name_type" "ISBN\n"
  6462.  
  6463. set row989 [$diag addRow attribute 0.0]
  6464. $row989 setLabel "name_type" "is_reference"
  6465.  
  6466. $diag save
  6467. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6468.  
  6469.  
  6470. # ----------------------------------------------------------------------------
  6471. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/VCR_Tape.cdm'.
  6472. # ----------------------------------------------------------------------------
  6473.  
  6474. # Generator: et.tcl    /main/hindenburg/11
  6475. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6476. # Interpreter to use: Otsh V5.1.1/B1
  6477. #
  6478. OTShRegister::importTool
  6479.  
  6480. set diag [CDM new VCR_Tape BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6481.  
  6482. set row990 [$diag addRow attribute 0.0]
  6483. $row990 setLabel "name_type" "duration\n"
  6484.  
  6485. set row991 [$diag addRow attribute 0.0]
  6486. $row991 setLabel "name_type" "rating "
  6487.  
  6488. $diag save
  6489. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6490.  
  6491.  
  6492. # ----------------------------------------------------------------------------
  6493. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Software.cdm'.
  6494. # ----------------------------------------------------------------------------
  6495.  
  6496. # Generator: et.tcl    /main/hindenburg/11
  6497. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6498. # Interpreter to use: Otsh V5.1.1/B1
  6499. #
  6500. OTShRegister::importTool
  6501.  
  6502. set diag [CDM new Software BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6503.  
  6504. set row992 [$diag addRow attribute 0.0]
  6505. $row992 setLabel "name_type" "version\n"
  6506.  
  6507. set row993 [$diag addRow attribute 0.0]
  6508. $row993 setLabel "name_type" "compatibility\n"
  6509.  
  6510. set row994 [$diag addRow attribute 0.0]
  6511. $row994 setLabel "name_type" "format"
  6512.  
  6513. $diag save
  6514. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6515.  
  6516.  
  6517. # ----------------------------------------------------------------------------
  6518. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/AV_Equipment.cdm'.
  6519. # ----------------------------------------------------------------------------
  6520.  
  6521. # Generator: et.tcl    /main/hindenburg/11
  6522. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6523. # Interpreter to use: Otsh V5.1.1/B1
  6524. #
  6525. OTShRegister::importTool
  6526.  
  6527. set diag [CDM new AV_Equipment BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6528.  
  6529. set row995 [$diag addRow attribute 0.0]
  6530. $row995 setLabel "name_type" "serial_number\n"
  6531.  
  6532. set row996 [$diag addRow attribute 0.0]
  6533. $row996 setLabel "name_type" "repair_state"
  6534.  
  6535. $diag save
  6536. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6537.  
  6538.  
  6539. # ----------------------------------------------------------------------------
  6540. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/ExtendLoan/BorrowerRequestsExtension.etd'.
  6541. # ----------------------------------------------------------------------------
  6542.  
  6543. # Generator: et.tcl    /main/hindenburg/11
  6544. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6545. # Interpreter to use: Otsh V5.1.1/B1
  6546. #
  6547. OTShRegister::importTool
  6548.  
  6549. set diag [ETD new common:BorrowerRequestsExtension BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6550.  
  6551. set node997 [$diag addNode etd_object 1262.5 1024.0 3.0 56.0]
  6552. $node997 setLabel "name_type" "Extension"
  6553. $node997 setScope "name_type" "cl" "scopePhase"
  6554.  
  6555. set node998 [$diag addNode etd_object 1390.5 928.0 3.0 73.3333]
  6556. $node998 setLabel "name_type" "WaitingList"
  6557. $node998 setScope "name_type" "cl" "scopePhase"
  6558.  
  6559. set node999 [$diag addNode etd_object 1086.5 816.0 3.0 328.0]
  6560. $node999 setLabel "name_type" "LoanCoordinator"
  6561. $node999 setScope "name_type" "cl" "scopePhase"
  6562.  
  6563. set node1000 [$diag addNode etd_object 1454.5 816.0 3.0 324.0]
  6564. $node1000 setLabel "name_type" "Loan"
  6565. $node1000 setScope "name_type" "cl" "scopePhase"
  6566.  
  6567. set node1001 [$diag addNode etd_initiator 862.5 816.0 3.0 316.0]
  6568. $node1001 setLabel "name_type" "Mike:Borrower"
  6569. $node1001 setScope "name_type" "cl" "scopePhase"
  6570. $node1001 setScope "name_type" "de" "scopeSystem"
  6571.  
  6572. set conn1002 [$diag addConn etd_event $node998 $node999 1392.0 976.0 1088.0 976.0]
  6573. set segm1003 [$conn1002 getFirstSegm]
  6574. $segm1003 setLabel "event" "item is not reserved"
  6575. $segm1003 setScope "event" "pe" "scopeSystem"
  6576.  
  6577. set conn1004 [$diag addConn etd_event $node999 $node1000 1088.0 848.0 1456.0 848.0]
  6578. set segm1005 [$conn1004 getFirstSegm]
  6579. $segm1005 setLabel "event" "checks status of Loan"
  6580. $segm1005 setScope "event" "pe" "scopeSystem"
  6581.  
  6582. set conn1006 [$diag addConn etd_event $node997 $node1000 1264.0 1056.0 1456.0 1056.0]
  6583. set segm1007 [$conn1006 getFirstSegm]
  6584. $segm1007 setLabel "event" "updates due date"
  6585. $segm1007 setScope "event" "pe" "scopeSystem"
  6586.  
  6587. set conn1008 [$diag addConn etd_event $node999 $node1001 1088.0 1104.0 864.0 1104.0]
  6588. set segm1009 [$conn1008 getFirstSegm]
  6589. $segm1009 setLabel "event" "notifies new due date"
  6590. $segm1009 setScope "event" "pe" "scopeSystem"
  6591.  
  6592. set conn1010 [$diag addConn etd_event $node999 $node997 1088.0 1040.0 1264.0 1040.0]
  6593. set segm1011 [$conn1010 getFirstSegm]
  6594. $segm1011 setLabel "event" "creates"
  6595. $segm1011 setScope "event" "pe" "scopeSystem"
  6596.  
  6597. set conn1012 [$diag addConn etd_event $node999 $node998 1088.0 944.0 1392.0 944.0]
  6598. set segm1013 [$conn1012 getFirstSegm]
  6599. $segm1013 setLabel "event" "checks WaitingList for item and date"
  6600. $segm1013 setScope "event" "pe" "scopeSystem"
  6601.  
  6602. set conn1014 [$diag addConn etd_event $node1000 $node999 1456.0 1104.0 1088.0 1104.0]
  6603. set segm1015 [$conn1014 getFirstSegm]
  6604. $segm1015 setLabel "event" "new due date"
  6605. $segm1015 setScope "event" "pe" "scopeSystem"
  6606.  
  6607. set conn1016 [$diag addConn etd_event $node1001 $node999 864.0 848.0 1088.0 848.0]
  6608. set segm1017 [$conn1016 getFirstSegm]
  6609. $segm1017 setLabel "event" "requests extension of Loan\n(LCD panel, until Friday)"
  6610. $segm1017 setScope "event" "pe" "scopeSystem"
  6611. $segm1017 setScope "event" "de" "scopeSystem"
  6612.  
  6613. set conn1018 [$diag addConn etd_event $node1000 $node999 1456.0 880.0 1088.0 880.0]
  6614. set segm1019 [$conn1018 getFirstSegm]
  6615. $segm1019 setLabel "event" "status is on_loan"
  6616. $segm1019 setScope "event" "pe" "scopeSystem"
  6617.  
  6618. $diag save
  6619. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6620.  
  6621.  
  6622. # ----------------------------------------------------------------------------
  6623. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Lending-DetailedUseCase.ucd'.
  6624. # ----------------------------------------------------------------------------
  6625.  
  6626. # Generator: et.tcl    /main/hindenburg/11
  6627. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6628. # Interpreter to use: Otsh V5.1.1/B1
  6629. #
  6630. OTShRegister::importTool
  6631.  
  6632. set diag [UCD new Lending-DetailedUseCase BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6633.  
  6634. set node1020 [$diag addNode use_case 1124.0 1228.0 120.0 40.0]
  6635. $node1020 setLabel "name" "Item is Lost"
  6636. $node1020 setScope "name" "cl" "scopePhase"
  6637.  
  6638. set node1021 [$diag addNode use_case 981.333 1228.0 117.333 40.0]
  6639. $node1021 setLabel "name" "Item is \nDamaged"
  6640. $node1021 setScope "name" "cl" "scopePhase"
  6641.  
  6642. set node1022 [$diag addNode use_case 1044.0 1052.0 120.0 40.0]
  6643. $node1022 setLabel "name" "Extend Loan"
  6644. $node1022 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"
  6645. $node1022 setProp "uc_precondition" "The Loan can be extended only if the item is not on the WaitingList."
  6646. $node1022 setScope "name" "cl" "scopePhase"
  6647. $node1022 setProp "classification" "secondary" "name" "cl"
  6648.  
  6649. set node1023 [$diag addNode ucd_actor 836.0 1068.0 120.0 40.0]
  6650. $node1023 setLabel "name" "Inventory"
  6651. $node1023 setScope "name" "cl" "scopePhase"
  6652.  
  6653. set node1024 [$diag addNode ucd_actor 1236.0 1036.0 120.0 40.0]
  6654. $node1024 setLabel "name" "Borrower"
  6655. $node1024 setScope "name" "cl" "scopePhase"
  6656.  
  6657. set node1025 [$diag addNode use_case 1046.67 889.333 114.667 45.3334]
  6658. $node1025 setLabel "name" "Reserve"
  6659. $node1025 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."
  6660. $node1025 setScope "name" "cl" "scopePhase"
  6661.  
  6662. set node1026 [$diag addNode use_case 1046.67 793.333 114.667 45.3334]
  6663. $node1026 setLabel "name" "Wait Listing"
  6664. $node1026 setScope "name" "cl" "scopePhase"
  6665.  
  6666. set node1027 [$diag addNode use_case 1050.67 970.667 106.667 42.6666]
  6667. $node1027 setLabel "name" "Check Out"
  6668. $node1027 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"
  6669. $node1027 setScope "name" "cl" "scopePhase"
  6670.  
  6671. set node1028 [$diag addNode use_case 1049.33 1130.67 109.333 42.6666]
  6672. $node1028 setLabel "name" "Check In"
  6673. $node1028 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."
  6674. $node1028 setScope "name" "cl" "scopePhase"
  6675.  
  6676. set node1029 [$diag addNode ucd_actor 808.0 876.0 144.0 40.0]
  6677. $node1029 setLabel "name" "LoanCoordinator"
  6678. $node1029 setScope "name" "cl" "scopePhase"
  6679.  
  6680. set conn1030 [$diag addConn dir_com_assoc $node1025 $node1024 1104.0 912.0 1312.0 1072.0]
  6681. set segm1031 [$conn1030 getFirstSegm]
  6682. $segm1031 setLabel "name" "confirm"
  6683. $segm1031 setScope "name" "pe" "scopeSystem"
  6684.  
  6685. set conn1032 [$diag addConn dir_com_assoc $node1024 $node1028 1248.0 1056.0 1104.0 1152.0]
  6686. set segm1033 [$conn1032 getFirstSegm]
  6687. $segm1033 setLabel "name" "item"
  6688. $segm1033 setScope "name" "pe" "scopeSystem"
  6689.  
  6690. set conn1034 [$diag addConn dir_com_assoc $node1025 $node1029 1104.0 912.0 928.0 896.0]
  6691. set segm1035 [$conn1034 getFirstSegm]
  6692. $segm1035 setLabel "name" "confirm"
  6693. $segm1035 setScope "name" "pe" "scopeSystem"
  6694.  
  6695. set conn1036 [$diag addConn dir_com_assoc $node1029 $node1026 944.0 896.0 1104.0 816.0]
  6696. set segm1037 [$conn1036 getFirstSegm]
  6697. $segm1037 setLabel "name" "create"
  6698. $segm1037 setScope "name" "pe" "scopeSystem"
  6699.  
  6700. set conn1038 [$diag addConn use_case_gen $node1026 $node1025 1104.0 816.0 1104.0 912.0]
  6701. set segm1039 [$conn1038 getFirstSegm]
  6702.  
  6703. set conn1040 [$diag addConn und_com_assoc $node1024 $node1027 1248.0 1056.0 1104.0 992.0]
  6704. set segm1041 [$conn1040 getFirstSegm]
  6705. $segm1041 setLabel "name" "check out"
  6706. $segm1041 setScope "name" "pe" "scopeSystem"
  6707.  
  6708. set conn1042 [$diag addConn dir_com_assoc $node1028 $node1023 1104.0 1152.0 944.0 1088.0]
  6709. set segm1043 [$conn1042 getFirstSegm]
  6710. $segm1043 setLabel "name" "item"
  6711. $segm1043 setScope "name" "pe" "scopeSystem"
  6712.  
  6713. set conn1044 [$diag addConn dir_com_assoc $node1023 $node1027 896.0 1072.0 1104.0 992.0]
  6714. set segm1045 [$conn1044 getFirstSegm]
  6715. $segm1045 setLabel "name" "item"
  6716. $segm1045 setScope "name" "pe" "scopeSystem"
  6717.  
  6718. set conn1046 [$diag addConn dir_com_assoc $node1029 $node1027 912.0 912.0 1104.0 992.0]
  6719. set segm1047 [$conn1046 getFirstSegm]
  6720.  
  6721. set conn1048 [$diag addConn use_case_gen $node1028 $node1021 1104.0 1152.0 1040.0 1248.0]
  6722. set segm1049 [$conn1048 getFirstSegm]
  6723.  
  6724. set conn1050 [$diag addConn use_case_gen $node1028 $node1020 1104.0 1152.0 1184.0 1248.0]
  6725. set segm1051 [$conn1050 getFirstSegm]
  6726.  
  6727. set conn1052 [$diag addConn use_case_gen $node1027 $node1022 1104.0 992.0 1104.0 1072.0]
  6728. set segm1053 [$conn1052 getFirstSegm]
  6729.  
  6730. $diag save
  6731. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6732.  
  6733.  
  6734. # ----------------------------------------------------------------------------
  6735. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Loan.cdm'.
  6736. # ----------------------------------------------------------------------------
  6737.  
  6738. # Generator: et.tcl    /main/hindenburg/11
  6739. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6740. # Interpreter to use: Otsh V5.1.1/B1
  6741. #
  6742. OTShRegister::importTool
  6743.  
  6744. set diag [CDM new Loan BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6745.  
  6746. set row1054 [$diag addRow attribute 0.0]
  6747. $row1054 setLabel "name_type" "*LoanID:integer\n"
  6748. $row1054 setProp "key" "1"
  6749. $row1054 setScope "name_type" "cl" "scopePhase"
  6750.  
  6751. set row1055 [$diag addRow attribute 0.0]
  6752. $row1055 setLabel "name_type" "check_out_date:datetime\n"
  6753. $row1055 setScope "name_type" "cl" "scopePhase"
  6754.  
  6755. set row1056 [$diag addRow attribute 0.0]
  6756. $row1056 setLabel "name_type" "/expire_date:datetime\n"
  6757. $row1056 setProp "is_derived" "1"
  6758. $row1056 setScope "name_type" "cl" "scopePhase"
  6759.  
  6760. set row1057 [$diag addRow attribute 0.0]
  6761. $row1057 setLabel "name_type" "term:integer\n"
  6762. $row1057 setScope "name_type" "cl" "scopePhase"
  6763.  
  6764. set row1058 [$diag addRow attribute 0.0]
  6765. $row1058 setLabel "name_type" "/due_date:datetime\n"
  6766. $row1058 setProp "is_derived" "1"
  6767. $row1058 setScope "name_type" "cl" "scopePhase"
  6768.  
  6769. set row1059 [$diag addRow attribute 0.0]
  6770. $row1059 setLabel "name_type" "late_fee:real = 20.00\n"
  6771. $row1059 setProp "initial_value" "20.00"
  6772. $row1059 setScope "name_type" "cl" "scopePhase"
  6773.  
  6774. set row1060 [$diag addRow attribute 0.0]
  6775. $row1060 setLabel "name_type" "status: char\[2\]\n"
  6776. $row1060 setScope "name_type" "cl" "scopePhase"
  6777.  
  6778. set row1061 [$diag addRow attribute 0.0]
  6779. $row1061 setLabel "name_type" "attr: integer"
  6780. $row1061 setScope "name_type" "cl" "scopePhase"
  6781.  
  6782. set row1062 [$diag addRow method 0.0]
  6783. $row1062 setLabel "name_type" "calculate_due_date(): integer\n"
  6784. $row1062 setProp "has_parmlist" "1"
  6785. $row1062 setScope "name_type" "cl" "scopePhase"
  6786.  
  6787. set row1063 [$diag addRow method 0.0]
  6788. $row1063 setLabel "name_type" "calculate_expire_date(): integer"
  6789. $row1063 setProp "has_parmlist" "1"
  6790. $row1063 setScope "name_type" "cl" "scopePhase"
  6791.  
  6792. $diag save
  6793. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6794.  
  6795.  
  6796. # ----------------------------------------------------------------------------
  6797. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/WaitListing/WaitListdetail.etd'.
  6798. # ----------------------------------------------------------------------------
  6799.  
  6800. # Generator: et.tcl    /main/hindenburg/11
  6801. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6802. # Interpreter to use: Otsh V5.1.1/B1
  6803. #
  6804. OTShRegister::importTool
  6805.  
  6806. set diag [ETD new common:WaitListdetail BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6807.  
  6808. set node1064 [$diag addNode etd_object 862.5 672.0 3.0 120.0]
  6809. $node1064 setLabel "name_type" "Loan"
  6810. $node1064 setScope "name_type" "cl" "scopePhase"
  6811.  
  6812. set node1065 [$diag addNode etd_initiator 654.5 672.0 3.0 120.0]
  6813. $node1065 setLabel "name_type" "WaitList"
  6814. $node1065 setScope "name_type" "cl" "scopePhase"
  6815.  
  6816. set conn1066 [$diag addConn etd_event $node1065 $node1064 656.0 720.0 864.0 720.0]
  6817. set segm1067 [$conn1066 getFirstSegm]
  6818. $segm1067 setLabel "event" "check availability"
  6819. $segm1067 setScope "event" "pe" "scopeSystem"
  6820.  
  6821. $diag save
  6822. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6823.  
  6824.  
  6825. # ----------------------------------------------------------------------------
  6826. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/Overview-UseCase.ucd'.
  6827. # ----------------------------------------------------------------------------
  6828.  
  6829. # Generator: et.tcl    /main/hindenburg/11
  6830. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6831. # Interpreter to use: Otsh V5.1.1/B1
  6832. #
  6833. OTShRegister::importTool
  6834.  
  6835. set diag [UCD new Overview-UseCase BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6836.  
  6837. set node1068 [$diag addNode ucd_actor 454.667 796.0 146.667 40.0]
  6838. $node1068 setLabel "name" "Loan Coordinator"
  6839. $node1068 setProp "initiator" "1"
  6840. $node1068 setScope "name" "cl" "scopePhase"
  6841.  
  6842. set node1069 [$diag addNode ucd_actor 916.0 668.0 120.0 40.0]
  6843. $node1069 setLabel "name" "Employee"
  6844. $node1069 setProp "initiator" "1"
  6845. $node1069 setScope "name" "cl" "scopePhase"
  6846.  
  6847. set node1070 [$diag addNode ucd_actor 470.667 636.0 146.667 40.0]
  6848. $node1070 setLabel "name" "Loan Coordinator"
  6849. $node1070 setScope "name" "cl" "scopePhase"
  6850.  
  6851. set node1071 [$diag addNode ucd_actor 894.997 860.0 162.007 40.0]
  6852. $node1071 setLabel "name" "Training Department"
  6853. $node1071 setProp "initiator" "1"
  6854. $node1071 setScope "name" "cl" "scopePhase"
  6855.  
  6856. set node1072 [$diag addNode use_case 692.0 898.667 152.0 58.6666]
  6857. $node1072 setLabel "name" "Managing \nMaterials"
  6858. $node1072 setScope "name" "cl" "scopePhase"
  6859.  
  6860. set node1073 [$diag addNode use_case 688.0 770.667 160.0 58.6666]
  6861. $node1073 setLabel "name" "Tracking Loans\n& Reporting"
  6862. $node1073 setScope "name" "cl" "scopePhase"
  6863.  
  6864. set node1074 [$diag addNode use_case 697.333 656.0 141.333 64.0]
  6865. $node1074 setLabel "name" "Selling \ncompanion\nworkbooks"
  6866. $node1074 setScope "name" "cl" "scopePhase"
  6867.  
  6868. set node1075 [$diag addNode use_case 678.667 532.0 178.667 56.0]
  6869. $node1075 setLabel "name" "Lending-\nDetailed Use Case"
  6870. $node1075 setScope "name" "cl" "scopePhase"
  6871.  
  6872. set conn1076 [$diag addConn dir_com_assoc $node1073 $node1069 768.0 800.0 944.0 688.0]
  6873. set segm1077 [$conn1076 getFirstSegm]
  6874.  
  6875. set conn1078 [$diag addConn dir_com_assoc $node1068 $node1072 512.0 816.0 768.0 928.0]
  6876. set segm1079 [$conn1078 getFirstSegm]
  6877.  
  6878. set conn1080 [$diag addConn dir_com_assoc $node1070 $node1074 608.0 656.0 768.0 688.0]
  6879. set segm1081 [$conn1080 getFirstSegm]
  6880.  
  6881. set conn1082 [$diag addConn dir_com_assoc $node1069 $node1075 976.0 672.0 768.0 560.0]
  6882. set segm1083 [$conn1082 getFirstSegm]
  6883.  
  6884. set conn1084 [$diag addConn dir_com_assoc $node1070 $node1075 592.0 656.0 768.0 560.0]
  6885. set segm1085 [$conn1084 getFirstSegm]
  6886.  
  6887. set conn1086 [$diag addConn use_case_gen $node1072 $node1073 768.0 928.0 768.0 800.0]
  6888. set segm1087 [$conn1086 getFirstSegm]
  6889.  
  6890. set conn1088 [$diag addConn dir_com_assoc $node1073 $node1070 768.0 800.0 544.0 656.0]
  6891. set segm1089 [$conn1088 getFirstSegm]
  6892.  
  6893. set conn1090 [$diag addConn dir_com_assoc $node1074 $node1069 768.0 688.0 944.0 688.0]
  6894. set segm1091 [$conn1090 getFirstSegm]
  6895.  
  6896. set conn1092 [$diag addConn use_case_gen $node1075 $node1074 768.0 560.0 768.0 688.0]
  6897. set segm1093 [$conn1092 getFirstSegm]
  6898.  
  6899. set conn1094 [$diag addConn und_com_assoc $node1073 $node1071 768.0 800.0 976.0 880.0]
  6900. set segm1095 [$conn1094 getFirstSegm]
  6901. $segm1095 setLabel "name" "Reports"
  6902. $segm1095 setScope "name" "pe" "scopeSystem"
  6903.  
  6904. $diag save
  6905. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  6906.  
  6907.  
  6908. # ----------------------------------------------------------------------------
  6909. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/CoreClasses.cad'.
  6910. # ----------------------------------------------------------------------------
  6911.  
  6912. # Generator: et.tcl    /main/hindenburg/11
  6913. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  6914. # Interpreter to use: Otsh V5.1.1/B1
  6915. #
  6916. OTShRegister::importTool
  6917.  
  6918. set diag [CAD new CoreClasses BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  6919.  
  6920. set node1096 [$diag addNode cad_class 304.0 576.0 120.0 144.0]
  6921. $node1096 setLabel "name" "Employee"
  6922. $node1096 setScope "name" "cl" "scopePhase"
  6923.  
  6924. set node1098 [$diag addNode cad_class 416.0 800.0 120.0 92.0]
  6925. $node1098 setLabel "name" "Borrower"
  6926. $node1098 setScope "name" "cl" "scopePhase"
  6927.  
  6928. set node1099 [$diag addNode cad_class 688.0 896.0 120.0 180.0]
  6929. $node1099 setLabel "name" "Loan"
  6930. $node1099 setScope "name" "cl" "scopePhase"
  6931.  
  6932. set node1100 [$diag addNode cad_class 496.0 1200.0 120.0 92.0]
  6933. $node1100 setLabel "name" "Return"
  6934. $node1100 setScope "name" "cl" "scopePhase"
  6935.  
  6936. set node1101 [$diag addNode cad_class 960.0 976.0 120.0 92.0]
  6937. $node1101 setLabel "name" "Extension"
  6938. $node1101 setScope "name" "cl" "scopePhase"
  6939.  
  6940. set node1102 [$diag addNode cad_class 960.0 1200.0 120.0 92.0]
  6941. $node1102 setLabel "name" "LateFee"
  6942. $node1102 setScope "name" "cl" "scopePhase"
  6943.  
  6944. set node1103 [$diag addNode cad_class 1104.0 704.0 134.67 48.0]
  6945. $node1103 setLabel "name" "TrainingMaterial"
  6946. $node1103 setProp "is_folded" "1"
  6947. $node1103 setScope "name" "cl" "scopePhase"
  6948.  
  6949. set node1104 [$diag addNode cad_class 832.0 544.0 120.0 121.33]
  6950. $node1104 setLabel "name" "WaitingList"
  6951. $node1104 setScope "name" "cl" "scopePhase"
  6952.  
  6953. set node1105 [$diag addNode cad_class 1104.0 896.0 120.0 92.0]
  6954. $node1105 setLabel "name" "Inventory"
  6955. $node1105 setScope "name" "cl" "scopePhase"
  6956.  
  6957. set node1106 [$diag addNode cad_class 800.0 1248.0 124.0 106.67]
  6958. $node1106 setLabel "name" "DamageReport"
  6959. $node1106 setScope "name" "cl" "scopePhase"
  6960.  
  6961. set node1107 [$diag addNode cad_class 560.0 1424.0 120.0 180.0]
  6962. $node1107 setLabel "name" "Loan"
  6963. $node1107 setScope "name" "cl" "scopePhase"
  6964.  
  6965. set conn1108 [$diag addConn association $node1098 $node1103 512.0 848.0 1136.0 736.0]
  6966. $conn1108 setProp "mult_kind_end" "many"
  6967. $conn1108 setProp "mult_kind_start" "one"
  6968. set segm1109 [$conn1108 getFirstSegm]
  6969. $segm1109 setLabel "name" "borrows"
  6970. $segm1109 setScope "name" "cl" "scopeFile"
  6971. set segm1110 [$conn1108 addSegm 1136.0 848.0]
  6972.  
  6973. set conn1111 [$diag addConn association $node1103 $node1105 1168.0 752.0 1168.0 944.0]
  6974. $conn1111 setProp "mult_kind_end" "many"
  6975. $conn1111 setProp "mult_kind_start" "optional"
  6976. set segm1112 [$conn1111 getFirstSegm]
  6977. $segm1112 setLabel "name" "has"
  6978. $segm1112 setScope "name" "cl" "scopeFile"
  6979.  
  6980. set conn1113 [$diag addConn association $node1099 $node1100 704.0 1008.0 560.0 1232.0]
  6981. $conn1113 setProp "mult_kind_end" "optional"
  6982. $conn1113 setProp "mult_kind_start" "one"
  6983. set segm1114 [$conn1113 getFirstSegm]
  6984. set segm1115 [$conn1113 addSegm 560.0 1008.0]
  6985. $segm1115 setLabel "name" "is_returned"
  6986. $segm1115 setScope "name" "cl" "scopeFile"
  6987.  
  6988. set conn1116 [$diag addConn association $node1099 $node1101 784.0 1024.0 1024.0 1024.0]
  6989. $conn1116 setProp "mult_kind_end" "optional"
  6990. $conn1116 setProp "mult_kind_start" "one"
  6991. set segm1117 [$conn1116 getFirstSegm]
  6992. $segm1117 setLabel "name" "is_extended"
  6993. $segm1117 setScope "name" "cl" "scopeFile"
  6994.  
  6995. set conn1118 [$diag addConn association $node1100 $node1102 608.0 1216.0 960.0 1216.0]
  6996. $conn1118 setProp "mult_kind_end" "optional"
  6997. $conn1118 setProp "mult_kind_start" "one"
  6998. set segm1119 [$conn1118 getFirstSegm]
  6999. $segm1119 setLabel "name" "is_late"
  7000. $segm1119 setScope "name" "cl" "scopeFile"
  7001.  
  7002. set conn1120 [$diag addConn association $node1100 $node1106 608.0 1280.0 816.0 1280.0]
  7003. $conn1120 setProp "mult_kind_end" "optional"
  7004. $conn1120 setProp "mult_kind_start" "one"
  7005. set segm1121 [$conn1120 getFirstSegm]
  7006. $segm1121 setLabel "name" "is_damaged"
  7007. $segm1121 setScope "name" "cl" "scopeFile"
  7008.  
  7009. set conn1122 [$diag addConn association $node1100 $node1107 560.0 1280.0 640.0 1472.0]
  7010. $conn1122 setProp "mult_kind_end" "many"
  7011. $conn1122 setProp "mult_kind_start" "optional"
  7012. set segm1123 [$conn1122 getFirstSegm]
  7013.  
  7014. set conn1128 [$diag addConn association $node1096 $node1100 336.0 720.0 544.0 1280.0]
  7015. $conn1128 setProp "mult_kind_end" "optional"
  7016. $conn1128 setProp "mult_kind_start" "one"
  7017. set segm1129 [$conn1128 getFirstSegm]
  7018. $segm1129 setLabel "name" "checks_in"
  7019. $segm1129 setScope "name" "cl" "scopeFile"
  7020. set segm1130 [$conn1128 addSegm 336.0 1280.0]
  7021.  
  7022. set conn1131 [$diag addConn association $node1098 $node1103 496.0 816.0 1136.0 736.0]
  7023. $conn1131 setProp "mult_kind_end" "many"
  7024. $conn1131 setProp "mult_kind_start" "many"
  7025. set segm1132 [$conn1131 getFirstSegm]
  7026. set segm1133 [$conn1131 addSegm 496.0 736.0]
  7027. $segm1133 setLabel "name" "waits_for"
  7028. $segm1133 setScope "name" "cl" "scopeFile"
  7029.  
  7030. set node1097 [$diag addRake generalization $node1096 $node1098 384.0 704.0 448.0 800.0 783.5]
  7031.  
  7032. set conn1124 [$diag addConn loop $segm1109 $node1099 720.0 848.0 720.0 896.0]
  7033. set segm1125 [$conn1124 getFirstSegm]
  7034.  
  7035. set conn1126 [$diag addConn loop $segm1133 $node1104 880.0 736.0 880.0 656.0]
  7036. set segm1127 [$conn1126 getFirstSegm]
  7037.  
  7038. $diag save
  7039. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  7040.  
  7041.  
  7042. # ----------------------------------------------------------------------------
  7043. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/SampleProduct.cdm'.
  7044. # ----------------------------------------------------------------------------
  7045.  
  7046. # Generator: et.tcl    /main/hindenburg/11
  7047. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7048. # Interpreter to use: Otsh V5.1.1/B1
  7049. #
  7050. OTShRegister::importTool
  7051.  
  7052. set diag [CDM new SampleProduct BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 1]
  7053.  
  7054. set row1134 [$diag addRow attribute 0.0]
  7055. $row1134 setLabel "name_type" "product_name\n"
  7056.  
  7057. set row1135 [$diag addRow attribute 0.0]
  7058. $row1135 setLabel "name_type" "product_type"
  7059.  
  7060. set row1136 [$diag addRow method 0.0]
  7061. $row1136 setLabel "name_type" "ship()"
  7062. $row1136 setProp "has_parmlist" "1"
  7063.  
  7064. $diag save
  7065. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  7066.  
  7067.  
  7068. # ----------------------------------------------------------------------------
  7069. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/requestsoverheadprojector.mgd'.
  7070. # ----------------------------------------------------------------------------
  7071.  
  7072. # Generator: et.tcl    /main/hindenburg/11
  7073. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7074. # Interpreter to use: Otsh V5.1.1/B1
  7075. #
  7076. OTShRegister::importTool
  7077.  
  7078. set diag [MGD new requestsoverheadprojector BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 0]
  7079.  
  7080. $diag save
  7081. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  7082.  
  7083.  
  7084. # ----------------------------------------------------------------------------
  7085. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/requestsLCD_Panel.mgd'.
  7086. # ----------------------------------------------------------------------------
  7087.  
  7088. # Generator: et.tcl    /main/hindenburg/11
  7089. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7090. # Interpreter to use: Otsh V5.1.1/B1
  7091. #
  7092. OTShRegister::importTool
  7093.  
  7094. set diag [MGD new requestsLCD_Panel BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 0]
  7095.  
  7096. $diag save
  7097. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  7098.  
  7099.  
  7100. # ----------------------------------------------------------------------------
  7101. # diagram = '/corporate/TrainingMaterials/Prototype:1/Analysis.Analysis/BusinessObjects.system/UI_server_responses.mgd'.
  7102. # ----------------------------------------------------------------------------
  7103.  
  7104. # Generator: et.tcl    /main/hindenburg/11
  7105. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7106. # Interpreter to use: Otsh V5.1.1/B1
  7107. #
  7108. OTShRegister::importTool
  7109.  
  7110. set diag [MGD new UI_server_responses BusinessObjects Analysis Analysis Prototype 1 TrainingMaterials 0]
  7111.  
  7112. $diag save
  7113. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  7114.  
  7115.  
  7116. # ----------------------------------------------------------------------------
  7117. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation.system/Extension.c++'.
  7118. # ----------------------------------------------------------------------------
  7119.  
  7120. # Generator: et.tcl    /main/hindenburg/11
  7121. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7122. # Interpreter to use: Otsh V5.1.1/B1
  7123. #
  7124. OTShRegister::importTool
  7125.  
  7126.  
  7127.  
  7128. # ----------------------------------------------------------------------------
  7129. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation.system/makefile.makefile'.
  7130. # ----------------------------------------------------------------------------
  7131.  
  7132. # Generator: et.tcl    /main/hindenburg/11
  7133. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7134. # Interpreter to use: Otsh V5.1.1/B1
  7135. #
  7136. OTShRegister::importTool
  7137.  
  7138.  
  7139.  
  7140. # ----------------------------------------------------------------------------
  7141. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation.system/Late_return.c++'.
  7142. # ----------------------------------------------------------------------------
  7143.  
  7144. # Generator: et.tcl    /main/hindenburg/11
  7145. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7146. # Interpreter to use: Otsh V5.1.1/B1
  7147. #
  7148. OTShRegister::importTool
  7149.  
  7150.  
  7151.  
  7152. # ----------------------------------------------------------------------------
  7153. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation.system/Extension.h++'.
  7154. # ----------------------------------------------------------------------------
  7155.  
  7156. # Generator: et.tcl    /main/hindenburg/11
  7157. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7158. # Interpreter to use: Otsh V5.1.1/B1
  7159. #
  7160. OTShRegister::importTool
  7161.  
  7162.  
  7163.  
  7164. # ----------------------------------------------------------------------------
  7165. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation.system/Late_return.h++'.
  7166. # ----------------------------------------------------------------------------
  7167.  
  7168. # Generator: et.tcl    /main/hindenburg/11
  7169. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7170. # Interpreter to use: Otsh V5.1.1/B1
  7171. #
  7172. OTShRegister::importTool
  7173.  
  7174.  
  7175.  
  7176. # ----------------------------------------------------------------------------
  7177. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation.system/Check_in.h++'.
  7178. # ----------------------------------------------------------------------------
  7179.  
  7180. # Generator: et.tcl    /main/hindenburg/11
  7181. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7182. # Interpreter to use: Otsh V5.1.1/B1
  7183. #
  7184. OTShRegister::importTool
  7185.  
  7186.  
  7187.  
  7188. # ----------------------------------------------------------------------------
  7189. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation.system/CRUD_User.h++'.
  7190. # ----------------------------------------------------------------------------
  7191.  
  7192. # Generator: et.tcl    /main/hindenburg/11
  7193. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7194. # Interpreter to use: Otsh V5.1.1/B1
  7195. #
  7196. OTShRegister::importTool
  7197.  
  7198.  
  7199.  
  7200. # ----------------------------------------------------------------------------
  7201. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation.system/Check_out.c++'.
  7202. # ----------------------------------------------------------------------------
  7203.  
  7204. # Generator: et.tcl    /main/hindenburg/11
  7205. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7206. # Interpreter to use: Otsh V5.1.1/B1
  7207. #
  7208. OTShRegister::importTool
  7209.  
  7210.  
  7211.  
  7212. # ----------------------------------------------------------------------------
  7213. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation.system/Check_in.c++'.
  7214. # ----------------------------------------------------------------------------
  7215.  
  7216. # Generator: et.tcl    /main/hindenburg/11
  7217. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7218. # Interpreter to use: Otsh V5.1.1/B1
  7219. #
  7220. OTShRegister::importTool
  7221.  
  7222.  
  7223.  
  7224. # ----------------------------------------------------------------------------
  7225. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation.system/Check_out.h++'.
  7226. # ----------------------------------------------------------------------------
  7227.  
  7228. # Generator: et.tcl    /main/hindenburg/11
  7229. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7230. # Interpreter to use: Otsh V5.1.1/B1
  7231. #
  7232. OTShRegister::importTool
  7233.  
  7234.  
  7235.  
  7236. # ----------------------------------------------------------------------------
  7237. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation.system/CRUD_User.c++'.
  7238. # ----------------------------------------------------------------------------
  7239.  
  7240. # Generator: et.tcl    /main/hindenburg/11
  7241. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7242. # Interpreter to use: Otsh V5.1.1/B1
  7243. #
  7244. OTShRegister::importTool
  7245.  
  7246.  
  7247.  
  7248. # ----------------------------------------------------------------------------
  7249. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/AV_Equipment.h++'.
  7250. # ----------------------------------------------------------------------------
  7251.  
  7252. # Generator: et.tcl    /main/hindenburg/11
  7253. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7254. # Interpreter to use: Otsh V5.1.1/B1
  7255. #
  7256. OTShRegister::importTool
  7257.  
  7258.  
  7259.  
  7260. # ----------------------------------------------------------------------------
  7261. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Loan_Return.h++'.
  7262. # ----------------------------------------------------------------------------
  7263.  
  7264. # Generator: et.tcl    /main/hindenburg/11
  7265. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7266. # Interpreter to use: Otsh V5.1.1/B1
  7267. #
  7268. OTShRegister::importTool
  7269.  
  7270.  
  7271.  
  7272. # ----------------------------------------------------------------------------
  7273. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Loan.esqlc++'.
  7274. # ----------------------------------------------------------------------------
  7275.  
  7276. # Generator: et.tcl    /main/hindenburg/11
  7277. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7278. # Interpreter to use: Otsh V5.1.1/B1
  7279. #
  7280. OTShRegister::importTool
  7281.  
  7282.  
  7283.  
  7284. # ----------------------------------------------------------------------------
  7285. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Borrower.h++'.
  7286. # ----------------------------------------------------------------------------
  7287.  
  7288. # Generator: et.tcl    /main/hindenburg/11
  7289. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7290. # Interpreter to use: Otsh V5.1.1/B1
  7291. #
  7292. OTShRegister::importTool
  7293.  
  7294.  
  7295.  
  7296. # ----------------------------------------------------------------------------
  7297. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Book.c++'.
  7298. # ----------------------------------------------------------------------------
  7299.  
  7300. # Generator: et.tcl    /main/hindenburg/11
  7301. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7302. # Interpreter to use: Otsh V5.1.1/B1
  7303. #
  7304. OTShRegister::importTool
  7305.  
  7306.  
  7307.  
  7308. # ----------------------------------------------------------------------------
  7309. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Book.h++'.
  7310. # ----------------------------------------------------------------------------
  7311.  
  7312. # Generator: et.tcl    /main/hindenburg/11
  7313. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7314. # Interpreter to use: Otsh V5.1.1/B1
  7315. #
  7316. OTShRegister::importTool
  7317.  
  7318.  
  7319.  
  7320. # ----------------------------------------------------------------------------
  7321. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/AV_Equipment.c++'.
  7322. # ----------------------------------------------------------------------------
  7323.  
  7324. # Generator: et.tcl    /main/hindenburg/11
  7325. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7326. # Interpreter to use: Otsh V5.1.1/B1
  7327. #
  7328. OTShRegister::importTool
  7329.  
  7330.  
  7331.  
  7332. # ----------------------------------------------------------------------------
  7333. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/BusinessObjectsStruct.h++'.
  7334. # ----------------------------------------------------------------------------
  7335.  
  7336. # Generator: et.tcl    /main/hindenburg/11
  7337. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7338. # Interpreter to use: Otsh V5.1.1/B1
  7339. #
  7340. OTShRegister::importTool
  7341.  
  7342.  
  7343.  
  7344. # ----------------------------------------------------------------------------
  7345. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/drop.sql_script'.
  7346. # ----------------------------------------------------------------------------
  7347.  
  7348. # Generator: et.tcl    /main/hindenburg/11
  7349. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7350. # Interpreter to use: Otsh V5.1.1/B1
  7351. #
  7352. OTShRegister::importTool
  7353.  
  7354.  
  7355.  
  7356. # ----------------------------------------------------------------------------
  7357. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/create_tables.sql_script'.
  7358. # ----------------------------------------------------------------------------
  7359.  
  7360. # Generator: et.tcl    /main/hindenburg/11
  7361. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7362. # Interpreter to use: Otsh V5.1.1/B1
  7363. #
  7364. OTShRegister::importTool
  7365.  
  7366.  
  7367.  
  7368. # ----------------------------------------------------------------------------
  7369. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/create_procs.sql_script'.
  7370. # ----------------------------------------------------------------------------
  7371.  
  7372. # Generator: et.tcl    /main/hindenburg/11
  7373. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7374. # Interpreter to use: Otsh V5.1.1/B1
  7375. #
  7376. OTShRegister::importTool
  7377.  
  7378.  
  7379.  
  7380. # ----------------------------------------------------------------------------
  7381. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/create.sql_script'.
  7382. # ----------------------------------------------------------------------------
  7383.  
  7384. # Generator: et.tcl    /main/hindenburg/11
  7385. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7386. # Interpreter to use: Otsh V5.1.1/B1
  7387. #
  7388. OTShRegister::importTool
  7389.  
  7390.  
  7391.  
  7392. # ----------------------------------------------------------------------------
  7393. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/makefile.makefile'.
  7394. # ----------------------------------------------------------------------------
  7395.  
  7396. # Generator: et.tcl    /main/hindenburg/11
  7397. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7398. # Interpreter to use: Otsh V5.1.1/B1
  7399. #
  7400. OTShRegister::importTool
  7401.  
  7402.  
  7403.  
  7404. # ----------------------------------------------------------------------------
  7405. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/string.h++'.
  7406. # ----------------------------------------------------------------------------
  7407.  
  7408. # Generator: et.tcl    /main/hindenburg/11
  7409. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7410. # Interpreter to use: Otsh V5.1.1/B1
  7411. #
  7412. OTShRegister::importTool
  7413.  
  7414.  
  7415.  
  7416. # ----------------------------------------------------------------------------
  7417. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/status.h++'.
  7418. # ----------------------------------------------------------------------------
  7419.  
  7420. # Generator: et.tcl    /main/hindenburg/11
  7421. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7422. # Interpreter to use: Otsh V5.1.1/B1
  7423. #
  7424. OTShRegister::importTool
  7425.  
  7426.  
  7427.  
  7428. # ----------------------------------------------------------------------------
  7429. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/equip.h++'.
  7430. # ----------------------------------------------------------------------------
  7431.  
  7432. # Generator: et.tcl    /main/hindenburg/11
  7433. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7434. # Interpreter to use: Otsh V5.1.1/B1
  7435. #
  7436. OTShRegister::importTool
  7437.  
  7438.  
  7439.  
  7440. # ----------------------------------------------------------------------------
  7441. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/boolean.h++'.
  7442. # ----------------------------------------------------------------------------
  7443.  
  7444. # Generator: et.tcl    /main/hindenburg/11
  7445. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7446. # Interpreter to use: Otsh V5.1.1/B1
  7447. #
  7448. OTShRegister::importTool
  7449.  
  7450.  
  7451.  
  7452. # ----------------------------------------------------------------------------
  7453. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/TrainingMaterial.c++'.
  7454. # ----------------------------------------------------------------------------
  7455.  
  7456. # Generator: et.tcl    /main/hindenburg/11
  7457. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7458. # Interpreter to use: Otsh V5.1.1/B1
  7459. #
  7460. OTShRegister::importTool
  7461.  
  7462.  
  7463.  
  7464. # ----------------------------------------------------------------------------
  7465. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/TrainingMaterial.h++'.
  7466. # ----------------------------------------------------------------------------
  7467.  
  7468. # Generator: et.tcl    /main/hindenburg/11
  7469. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7470. # Interpreter to use: Otsh V5.1.1/B1
  7471. #
  7472. OTShRegister::importTool
  7473.  
  7474.  
  7475.  
  7476. # ----------------------------------------------------------------------------
  7477. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Software.c++'.
  7478. # ----------------------------------------------------------------------------
  7479.  
  7480. # Generator: et.tcl    /main/hindenburg/11
  7481. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7482. # Interpreter to use: Otsh V5.1.1/B1
  7483. #
  7484. OTShRegister::importTool
  7485.  
  7486.  
  7487.  
  7488. # ----------------------------------------------------------------------------
  7489. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Software.h++'.
  7490. # ----------------------------------------------------------------------------
  7491.  
  7492. # Generator: et.tcl    /main/hindenburg/11
  7493. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7494. # Interpreter to use: Otsh V5.1.1/B1
  7495. #
  7496. OTShRegister::importTool
  7497.  
  7498.  
  7499.  
  7500. # ----------------------------------------------------------------------------
  7501. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/OverheadProj.c++'.
  7502. # ----------------------------------------------------------------------------
  7503.  
  7504. # Generator: et.tcl    /main/hindenburg/11
  7505. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7506. # Interpreter to use: Otsh V5.1.1/B1
  7507. #
  7508. OTShRegister::importTool
  7509.  
  7510.  
  7511.  
  7512. # ----------------------------------------------------------------------------
  7513. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Loan.h++'.
  7514. # ----------------------------------------------------------------------------
  7515.  
  7516. # Generator: et.tcl    /main/hindenburg/11
  7517. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7518. # Interpreter to use: Otsh V5.1.1/B1
  7519. #
  7520. OTShRegister::importTool
  7521.  
  7522.  
  7523.  
  7524. # ----------------------------------------------------------------------------
  7525. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/LateFee.esqlc++'.
  7526. # ----------------------------------------------------------------------------
  7527.  
  7528. # Generator: et.tcl    /main/hindenburg/11
  7529. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7530. # Interpreter to use: Otsh V5.1.1/B1
  7531. #
  7532. OTShRegister::importTool
  7533.  
  7534.  
  7535.  
  7536. # ----------------------------------------------------------------------------
  7537. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/LateFee.h++'.
  7538. # ----------------------------------------------------------------------------
  7539.  
  7540. # Generator: et.tcl    /main/hindenburg/11
  7541. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7542. # Interpreter to use: Otsh V5.1.1/B1
  7543. #
  7544. OTShRegister::importTool
  7545.  
  7546.  
  7547.  
  7548. # ----------------------------------------------------------------------------
  7549. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/LCD_Panel.c++'.
  7550. # ----------------------------------------------------------------------------
  7551.  
  7552. # Generator: et.tcl    /main/hindenburg/11
  7553. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7554. # Interpreter to use: Otsh V5.1.1/B1
  7555. #
  7556. OTShRegister::importTool
  7557.  
  7558.  
  7559.  
  7560. # ----------------------------------------------------------------------------
  7561. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/LCD_Panel.h++'.
  7562. # ----------------------------------------------------------------------------
  7563.  
  7564. # Generator: et.tcl    /main/hindenburg/11
  7565. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7566. # Interpreter to use: Otsh V5.1.1/B1
  7567. #
  7568. OTShRegister::importTool
  7569.  
  7570.  
  7571.  
  7572. # ----------------------------------------------------------------------------
  7573. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Inventory.c++'.
  7574. # ----------------------------------------------------------------------------
  7575.  
  7576. # Generator: et.tcl    /main/hindenburg/11
  7577. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7578. # Interpreter to use: Otsh V5.1.1/B1
  7579. #
  7580. OTShRegister::importTool
  7581.  
  7582.  
  7583.  
  7584. # ----------------------------------------------------------------------------
  7585. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Inventory.h++'.
  7586. # ----------------------------------------------------------------------------
  7587.  
  7588. # Generator: et.tcl    /main/hindenburg/11
  7589. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7590. # Interpreter to use: Otsh V5.1.1/B1
  7591. #
  7592. OTShRegister::importTool
  7593.  
  7594.  
  7595.  
  7596. # ----------------------------------------------------------------------------
  7597. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Extension.esqlc++'.
  7598. # ----------------------------------------------------------------------------
  7599.  
  7600. # Generator: et.tcl    /main/hindenburg/11
  7601. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7602. # Interpreter to use: Otsh V5.1.1/B1
  7603. #
  7604. OTShRegister::importTool
  7605.  
  7606.  
  7607.  
  7608. # ----------------------------------------------------------------------------
  7609. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Extension.h++'.
  7610. # ----------------------------------------------------------------------------
  7611.  
  7612. # Generator: et.tcl    /main/hindenburg/11
  7613. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7614. # Interpreter to use: Otsh V5.1.1/B1
  7615. #
  7616. OTShRegister::importTool
  7617.  
  7618.  
  7619.  
  7620. # ----------------------------------------------------------------------------
  7621. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Employee.esqlc++'.
  7622. # ----------------------------------------------------------------------------
  7623.  
  7624. # Generator: et.tcl    /main/hindenburg/11
  7625. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7626. # Interpreter to use: Otsh V5.1.1/B1
  7627. #
  7628. OTShRegister::importTool
  7629.  
  7630.  
  7631.  
  7632. # ----------------------------------------------------------------------------
  7633. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Employee.h++'.
  7634. # ----------------------------------------------------------------------------
  7635.  
  7636. # Generator: et.tcl    /main/hindenburg/11
  7637. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7638. # Interpreter to use: Otsh V5.1.1/B1
  7639. #
  7640. OTShRegister::importTool
  7641.  
  7642.  
  7643.  
  7644. # ----------------------------------------------------------------------------
  7645. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/DamageReport.esqlc++'.
  7646. # ----------------------------------------------------------------------------
  7647.  
  7648. # Generator: et.tcl    /main/hindenburg/11
  7649. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7650. # Interpreter to use: Otsh V5.1.1/B1
  7651. #
  7652. OTShRegister::importTool
  7653.  
  7654.  
  7655.  
  7656. # ----------------------------------------------------------------------------
  7657. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/DamageReport.h++'.
  7658. # ----------------------------------------------------------------------------
  7659.  
  7660. # Generator: et.tcl    /main/hindenburg/11
  7661. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7662. # Interpreter to use: Otsh V5.1.1/B1
  7663. #
  7664. OTShRegister::importTool
  7665.  
  7666.  
  7667.  
  7668. # ----------------------------------------------------------------------------
  7669. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/CDROM.c++'.
  7670. # ----------------------------------------------------------------------------
  7671.  
  7672. # Generator: et.tcl    /main/hindenburg/11
  7673. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7674. # Interpreter to use: Otsh V5.1.1/B1
  7675. #
  7676. OTShRegister::importTool
  7677.  
  7678.  
  7679.  
  7680. # ----------------------------------------------------------------------------
  7681. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/CDROM.h++'.
  7682. # ----------------------------------------------------------------------------
  7683.  
  7684. # Generator: et.tcl    /main/hindenburg/11
  7685. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7686. # Interpreter to use: Otsh V5.1.1/B1
  7687. #
  7688. OTShRegister::importTool
  7689.  
  7690.  
  7691.  
  7692. # ----------------------------------------------------------------------------
  7693. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Borrower.esqlc++'.
  7694. # ----------------------------------------------------------------------------
  7695.  
  7696. # Generator: et.tcl    /main/hindenburg/11
  7697. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7698. # Interpreter to use: Otsh V5.1.1/B1
  7699. #
  7700. OTShRegister::importTool
  7701.  
  7702.  
  7703.  
  7704. # ----------------------------------------------------------------------------
  7705. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/drop_tables.sql_script'.
  7706. # ----------------------------------------------------------------------------
  7707.  
  7708. # Generator: et.tcl    /main/hindenburg/11
  7709. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7710. # Interpreter to use: Otsh V5.1.1/B1
  7711. #
  7712. OTShRegister::importTool
  7713.  
  7714.  
  7715.  
  7716. # ----------------------------------------------------------------------------
  7717. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/drop_procs.sql_script'.
  7718. # ----------------------------------------------------------------------------
  7719.  
  7720. # Generator: et.tcl    /main/hindenburg/11
  7721. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7722. # Interpreter to use: Otsh V5.1.1/B1
  7723. #
  7724. OTShRegister::importTool
  7725.  
  7726.  
  7727.  
  7728. # ----------------------------------------------------------------------------
  7729. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Workbook.c++'.
  7730. # ----------------------------------------------------------------------------
  7731.  
  7732. # Generator: et.tcl    /main/hindenburg/11
  7733. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7734. # Interpreter to use: Otsh V5.1.1/B1
  7735. #
  7736. OTShRegister::importTool
  7737.  
  7738.  
  7739.  
  7740. # ----------------------------------------------------------------------------
  7741. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Workbook.h++'.
  7742. # ----------------------------------------------------------------------------
  7743.  
  7744. # Generator: et.tcl    /main/hindenburg/11
  7745. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7746. # Interpreter to use: Otsh V5.1.1/B1
  7747. #
  7748. OTShRegister::importTool
  7749.  
  7750.  
  7751.  
  7752. # ----------------------------------------------------------------------------
  7753. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/WaitingList.esqlc++'.
  7754. # ----------------------------------------------------------------------------
  7755.  
  7756. # Generator: et.tcl    /main/hindenburg/11
  7757. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7758. # Interpreter to use: Otsh V5.1.1/B1
  7759. #
  7760. OTShRegister::importTool
  7761.  
  7762.  
  7763.  
  7764. # ----------------------------------------------------------------------------
  7765. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/WaitingList.h++'.
  7766. # ----------------------------------------------------------------------------
  7767.  
  7768. # Generator: et.tcl    /main/hindenburg/11
  7769. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7770. # Interpreter to use: Otsh V5.1.1/B1
  7771. #
  7772. OTShRegister::importTool
  7773.  
  7774.  
  7775.  
  7776. # ----------------------------------------------------------------------------
  7777. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/VCR_Tape.c++'.
  7778. # ----------------------------------------------------------------------------
  7779.  
  7780. # Generator: et.tcl    /main/hindenburg/11
  7781. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7782. # Interpreter to use: Otsh V5.1.1/B1
  7783. #
  7784. OTShRegister::importTool
  7785.  
  7786.  
  7787.  
  7788. # ----------------------------------------------------------------------------
  7789. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/VCR_Tape.h++'.
  7790. # ----------------------------------------------------------------------------
  7791.  
  7792. # Generator: et.tcl    /main/hindenburg/11
  7793. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7794. # Interpreter to use: Otsh V5.1.1/B1
  7795. #
  7796. OTShRegister::importTool
  7797.  
  7798.  
  7799.  
  7800. # ----------------------------------------------------------------------------
  7801. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/OverheadProj.h++'.
  7802. # ----------------------------------------------------------------------------
  7803.  
  7804. # Generator: et.tcl    /main/hindenburg/11
  7805. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7806. # Interpreter to use: Otsh V5.1.1/B1
  7807. #
  7808. OTShRegister::importTool
  7809.  
  7810.  
  7811.  
  7812. # ----------------------------------------------------------------------------
  7813. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/BusinessObjects.system/Loan_Return.esqlc++'.
  7814. # ----------------------------------------------------------------------------
  7815.  
  7816. # Generator: et.tcl    /main/hindenburg/11
  7817. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7818. # Interpreter to use: Otsh V5.1.1/B1
  7819. #
  7820. OTShRegister::importTool
  7821.  
  7822.  
  7823.  
  7824. # ----------------------------------------------------------------------------
  7825. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/Presentation_PB.PBAppLibrary'.
  7826. # ----------------------------------------------------------------------------
  7827.  
  7828. # Generator: et.tcl    /main/hindenburg/11
  7829. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7830. # Interpreter to use: Otsh V5.1.1/B1
  7831. #
  7832. OTShRegister::importTool
  7833.  
  7834.  
  7835.  
  7836. # ----------------------------------------------------------------------------
  7837. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/app_close.PowerScript'.
  7838. # ----------------------------------------------------------------------------
  7839.  
  7840. # Generator: et.tcl    /main/hindenburg/11
  7841. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7842. # Interpreter to use: Otsh V5.1.1/B1
  7843. #
  7844. OTShRegister::importTool
  7845.  
  7846.  
  7847.  
  7848. # ----------------------------------------------------------------------------
  7849. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/Exit_Button_Clicked.PowerScript'.
  7850. # ----------------------------------------------------------------------------
  7851.  
  7852. # Generator: et.tcl    /main/hindenburg/11
  7853. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7854. # Interpreter to use: Otsh V5.1.1/B1
  7855. #
  7856. OTShRegister::importTool
  7857.  
  7858.  
  7859.  
  7860. # ----------------------------------------------------------------------------
  7861. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/Exit_Button__Clicked.PowerScript'.
  7862. # ----------------------------------------------------------------------------
  7863.  
  7864. # Generator: et.tcl    /main/hindenburg/11
  7865. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7866. # Interpreter to use: Otsh V5.1.1/B1
  7867. #
  7868. OTShRegister::importTool
  7869.  
  7870.  
  7871.  
  7872. # ----------------------------------------------------------------------------
  7873. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/dw_Materials.DataWindow'.
  7874. # ----------------------------------------------------------------------------
  7875.  
  7876. # Generator: et.tcl    /main/hindenburg/11
  7877. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7878. # Interpreter to use: Otsh V5.1.1/B1
  7879. #
  7880. OTShRegister::importTool
  7881.  
  7882.  
  7883.  
  7884. # ----------------------------------------------------------------------------
  7885. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/open.PowerScript'.
  7886. # ----------------------------------------------------------------------------
  7887.  
  7888. # Generator: et.tcl    /main/hindenburg/11
  7889. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7890. # Interpreter to use: Otsh V5.1.1/B1
  7891. #
  7892. OTShRegister::importTool
  7893.  
  7894.  
  7895.  
  7896. # ----------------------------------------------------------------------------
  7897. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/openReserve.PowerScript'.
  7898. # ----------------------------------------------------------------------------
  7899.  
  7900. # Generator: et.tcl    /main/hindenburg/11
  7901. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7902. # Interpreter to use: Otsh V5.1.1/B1
  7903. #
  7904. OTShRegister::importTool
  7905.  
  7906.  
  7907.  
  7908. # ----------------------------------------------------------------------------
  7909. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/Presentation_PB_Files.ObjectFileList'.
  7910. # ----------------------------------------------------------------------------
  7911.  
  7912. # Generator: et.tcl    /main/hindenburg/11
  7913. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7914. # Interpreter to use: Otsh V5.1.1/B1
  7915. #
  7916. OTShRegister::importTool
  7917.  
  7918.  
  7919.  
  7920. # ----------------------------------------------------------------------------
  7921. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/app_open.PowerScript'.
  7922. # ----------------------------------------------------------------------------
  7923.  
  7924. # Generator: et.tcl    /main/hindenburg/11
  7925. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7926. # Interpreter to use: Otsh V5.1.1/B1
  7927. #
  7928. OTShRegister::importTool
  7929.  
  7930.  
  7931.  
  7932. # ----------------------------------------------------------------------------
  7933. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/w_search.Window'.
  7934. # ----------------------------------------------------------------------------
  7935.  
  7936. # Generator: et.tcl    /main/hindenburg/11
  7937. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7938. # Interpreter to use: Otsh V5.1.1/B1
  7939. #
  7940. OTShRegister::importTool
  7941.  
  7942.  
  7943.  
  7944. # ----------------------------------------------------------------------------
  7945. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/w_sys.Window'.
  7946. # ----------------------------------------------------------------------------
  7947.  
  7948. # Generator: et.tcl    /main/hindenburg/11
  7949. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7950. # Interpreter to use: Otsh V5.1.1/B1
  7951. #
  7952. OTShRegister::importTool
  7953.  
  7954.  
  7955.  
  7956. # ----------------------------------------------------------------------------
  7957. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/w_sys_frame.Window'.
  7958. # ----------------------------------------------------------------------------
  7959.  
  7960. # Generator: et.tcl    /main/hindenburg/11
  7961. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7962. # Interpreter to use: Otsh V5.1.1/B1
  7963. #
  7964. OTShRegister::importTool
  7965.  
  7966.  
  7967.  
  7968. # ----------------------------------------------------------------------------
  7969. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/m_main_menu.Menu'.
  7970. # ----------------------------------------------------------------------------
  7971.  
  7972. # Generator: et.tcl    /main/hindenburg/11
  7973. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7974. # Interpreter to use: Otsh V5.1.1/B1
  7975. #
  7976. OTShRegister::importTool
  7977.  
  7978.  
  7979.  
  7980. # ----------------------------------------------------------------------------
  7981. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/Return_Button__Clicked.PowerScript'.
  7982. # ----------------------------------------------------------------------------
  7983.  
  7984. # Generator: et.tcl    /main/hindenburg/11
  7985. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7986. # Interpreter to use: Otsh V5.1.1/B1
  7987. #
  7988. OTShRegister::importTool
  7989.  
  7990.  
  7991.  
  7992. # ----------------------------------------------------------------------------
  7993. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/m_mUpdate.PowerScript'.
  7994. # ----------------------------------------------------------------------------
  7995.  
  7996. # Generator: et.tcl    /main/hindenburg/11
  7997. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  7998. # Interpreter to use: Otsh V5.1.1/B1
  7999. #
  8000. OTShRegister::importTool
  8001.  
  8002.  
  8003.  
  8004. # ----------------------------------------------------------------------------
  8005. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/Presentation_PB.PBCommentFile'.
  8006. # ----------------------------------------------------------------------------
  8007.  
  8008. # Generator: et.tcl    /main/hindenburg/11
  8009. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8010. # Interpreter to use: Otsh V5.1.1/B1
  8011. #
  8012. OTShRegister::importTool
  8013.  
  8014.  
  8015.  
  8016. # ----------------------------------------------------------------------------
  8017. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/m_main_menu.PBCommentFile'.
  8018. # ----------------------------------------------------------------------------
  8019.  
  8020. # Generator: et.tcl    /main/hindenburg/11
  8021. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8022. # Interpreter to use: Otsh V5.1.1/B1
  8023. #
  8024. OTShRegister::importTool
  8025.  
  8026.  
  8027.  
  8028. # ----------------------------------------------------------------------------
  8029. # diagram = '/corporate/TrainingMaterials/Prototype:1/Implementation.Implementation/Presentation_PB.system/w_editMaterials.Window'.
  8030. # ----------------------------------------------------------------------------
  8031.  
  8032. # Generator: et.tcl    /main/hindenburg/11
  8033. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8034. # Interpreter to use: Otsh V5.1.1/B1
  8035. #
  8036. OTShRegister::importTool
  8037.  
  8038.  
  8039.  
  8040. # ----------------------------------------------------------------------------
  8041. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Presentation.system/Check_in.cdm'.
  8042. # ----------------------------------------------------------------------------
  8043.  
  8044. # Generator: et.tcl    /main/hindenburg/11
  8045. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8046. # Interpreter to use: Otsh V5.1.1/B1
  8047. #
  8048. OTShRegister::importTool
  8049.  
  8050. set diag [CDM new Check_in Presentation SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8051.  
  8052. set row1137 [$diag addRow method 0.0]
  8053. $row1137 setLabel "name_type" "insert()\n"
  8054. $row1137 setProp "has_parmlist" "1"
  8055.  
  8056. set row1138 [$diag addRow method 0.0]
  8057. $row1138 setLabel "name_type" "find()\n"
  8058. $row1138 setProp "has_parmlist" "1"
  8059.  
  8060. set row1139 [$diag addRow method 0.0]
  8061. $row1139 setLabel "name_type" "update()\n"
  8062. $row1139 setProp "has_parmlist" "1"
  8063.  
  8064. set row1140 [$diag addRow method 0.0]
  8065. $row1140 setLabel "name_type" "delete()\n"
  8066. $row1140 setProp "has_parmlist" "1"
  8067.  
  8068. set row1141 [$diag addRow method 0.0]
  8069. $row1141 setLabel "name_type" "next()\n"
  8070. $row1141 setProp "has_parmlist" "1"
  8071.  
  8072. set row1142 [$diag addRow method 0.0]
  8073. $row1142 setLabel "name_type" "previous()"
  8074. $row1142 setProp "has_parmlist" "1"
  8075.  
  8076. $diag save
  8077. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8078.  
  8079.  
  8080. # ----------------------------------------------------------------------------
  8081. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Presentation.system/Check_out.cdm'.
  8082. # ----------------------------------------------------------------------------
  8083.  
  8084. # Generator: et.tcl    /main/hindenburg/11
  8085. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8086. # Interpreter to use: Otsh V5.1.1/B1
  8087. #
  8088. OTShRegister::importTool
  8089.  
  8090. set diag [CDM new Check_out Presentation SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8091.  
  8092. set row1143 [$diag addRow method 0.0]
  8093. $row1143 setLabel "name_type" "insert()\n"
  8094. $row1143 setProp "has_parmlist" "1"
  8095.  
  8096. set row1144 [$diag addRow method 0.0]
  8097. $row1144 setLabel "name_type" "find()\n"
  8098. $row1144 setProp "has_parmlist" "1"
  8099.  
  8100. set row1145 [$diag addRow method 0.0]
  8101. $row1145 setLabel "name_type" "update()\n"
  8102. $row1145 setProp "has_parmlist" "1"
  8103.  
  8104. set row1146 [$diag addRow method 0.0]
  8105. $row1146 setLabel "name_type" "delete_object()\n"
  8106. $row1146 setProp "has_parmlist" "1"
  8107.  
  8108. set row1147 [$diag addRow method 0.0]
  8109. $row1147 setLabel "name_type" "next()\n"
  8110. $row1147 setProp "has_parmlist" "1"
  8111.  
  8112. set row1148 [$diag addRow method 0.0]
  8113. $row1148 setLabel "name_type" "previous()"
  8114. $row1148 setProp "has_parmlist" "1"
  8115.  
  8116. $diag save
  8117. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8118.  
  8119.  
  8120. # ----------------------------------------------------------------------------
  8121. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Presentation.system/PresentationUI.cad'.
  8122. # ----------------------------------------------------------------------------
  8123.  
  8124. # Generator: et.tcl    /main/hindenburg/11
  8125. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8126. # Interpreter to use: Otsh V5.1.1/B1
  8127. #
  8128. OTShRegister::importTool
  8129.  
  8130. set diag [CAD new PresentationUI Presentation SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8131.  
  8132. set node1149 [$diag addNode cad_class 576.0 864.0 120.0 180.0]
  8133. $node1149 setLabel "name" "Check_out"
  8134. $node1149 setScope "name" "cl" "scopePhase"
  8135.  
  8136. set node1150 [$diag addNode cad_class 864.0 864.0 120.0 180.0]
  8137. $node1150 setLabel "name" "CRUD_User"
  8138. $node1150 setScope "name" "cl" "scopePhase"
  8139.  
  8140. set node1151 [$diag addNode cad_class 1152.0 864.0 120.0 100.0]
  8141. $node1151 setLabel "name" "Late_return"
  8142. $node1151 setScope "name" "cl" "scopePhase"
  8143.  
  8144. set node1153 [$diag addNode cad_class 720.0 864.0 120.0 180.0]
  8145. $node1153 setLabel "name" "Check_in"
  8146. $node1153 setScope "name" "cl" "scopePhase"
  8147.  
  8148. set node1154 [$diag addNode cad_class 784.0 672.0 120.0 32.0]
  8149. $node1154 setLabel "name" "Forms"
  8150. $node1154 setProp "is_folded" "1"
  8151. $node1154 setScope "name" "cl" "scopePhase"
  8152.  
  8153. set node1155 [$diag addNode cad_class 1008.0 864.0 120.0 100.0]
  8154. $node1155 setLabel "name" "Extension"
  8155. $node1155 setScope "name" "cl" "scopeSystem"
  8156.  
  8157. set node1152 [$diag addRake generalization $node1154 $node1153 848.0 704.0 768.0 912.0 808.0]
  8158.  
  8159. set conn1156 [$diag addConn generalization_conn $node1152 $node1150 928.0 808.0 928.0 896.0]
  8160. set segm1157 [$conn1156 getFirstSegm]
  8161.  
  8162. set conn1158 [$diag addConn generalization_conn $node1152 $node1149 656.0 808.0 656.0 896.0]
  8163. set segm1159 [$conn1158 getFirstSegm]
  8164.  
  8165. set conn1160 [$diag addConn generalization_conn $node1152 $node1155 1056.0 808.0 1056.0 896.0]
  8166. set segm1161 [$conn1160 getFirstSegm]
  8167.  
  8168. set conn1162 [$diag addConn generalization_conn $node1152 $node1151 1200.0 808.0 1200.0 880.0]
  8169. set segm1163 [$conn1162 getFirstSegm]
  8170.  
  8171. $diag save
  8172. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8173.  
  8174.  
  8175. # ----------------------------------------------------------------------------
  8176. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Presentation.system/Extension.cdm'.
  8177. # ----------------------------------------------------------------------------
  8178.  
  8179. # Generator: et.tcl    /main/hindenburg/11
  8180. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8181. # Interpreter to use: Otsh V5.1.1/B1
  8182. #
  8183. OTShRegister::importTool
  8184.  
  8185. set diag [CDM new Extension Presentation SystemDesign SystemDesign Prototype 1 TrainingMaterials 0]
  8186.  
  8187. set row1164 [$diag addRow method 0.0]
  8188. $row1164 setLabel "name_type" "ok()"
  8189. $row1164 setProp "has_parmlist" "1"
  8190.  
  8191. $diag save
  8192. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8193.  
  8194.  
  8195. # ----------------------------------------------------------------------------
  8196. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Presentation.system/CRUD_User.cdm'.
  8197. # ----------------------------------------------------------------------------
  8198.  
  8199. # Generator: et.tcl    /main/hindenburg/11
  8200. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8201. # Interpreter to use: Otsh V5.1.1/B1
  8202. #
  8203. OTShRegister::importTool
  8204.  
  8205. set diag [CDM new CRUD_User Presentation SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8206.  
  8207. set row1165 [$diag addRow method 0.0]
  8208. $row1165 setLabel "name_type" "insert()\n"
  8209. $row1165 setProp "has_parmlist" "1"
  8210.  
  8211. set row1166 [$diag addRow method 0.0]
  8212. $row1166 setLabel "name_type" "find()\n"
  8213. $row1166 setProp "has_parmlist" "1"
  8214.  
  8215. set row1167 [$diag addRow method 0.0]
  8216. $row1167 setLabel "name_type" "update()\n"
  8217. $row1167 setProp "has_parmlist" "1"
  8218.  
  8219. set row1168 [$diag addRow method 0.0]
  8220. $row1168 setLabel "name_type" "delete()\n"
  8221. $row1168 setProp "has_parmlist" "1"
  8222.  
  8223. set row1169 [$diag addRow method 0.0]
  8224. $row1169 setLabel "name_type" "next()\n"
  8225. $row1169 setProp "has_parmlist" "1"
  8226.  
  8227. set row1170 [$diag addRow method 0.0]
  8228. $row1170 setLabel "name_type" "previous()"
  8229. $row1170 setProp "has_parmlist" "1"
  8230.  
  8231. $diag save
  8232. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8233.  
  8234.  
  8235. # ----------------------------------------------------------------------------
  8236. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Presentation.system/Late_return.cdm'.
  8237. # ----------------------------------------------------------------------------
  8238.  
  8239. # Generator: et.tcl    /main/hindenburg/11
  8240. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8241. # Interpreter to use: Otsh V5.1.1/B1
  8242. #
  8243. OTShRegister::importTool
  8244.  
  8245. set diag [CDM new Late_return Presentation SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8246.  
  8247. set row1171 [$diag addRow method 0.0]
  8248. $row1171 setLabel "name_type" "ok()"
  8249. $row1171 setProp "has_parmlist" "1"
  8250.  
  8251. $diag save
  8252. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8253.  
  8254.  
  8255. # ----------------------------------------------------------------------------
  8256. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Software.cdm'.
  8257. # ----------------------------------------------------------------------------
  8258.  
  8259. # Generator: et.tcl    /main/hindenburg/11
  8260. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8261. # Interpreter to use: Otsh V5.1.1/B1
  8262. #
  8263. OTShRegister::importTool
  8264.  
  8265. set diag [CDM new Software BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8266.  
  8267. set row1172 [$diag addRow attribute 0.0]
  8268. $row1172 setLabel "name_type" "version:char\n"
  8269. $row1172 setScope "name_type" "cl" "scopePhase"
  8270.  
  8271. set row1173 [$diag addRow attribute 0.0]
  8272. $row1173 setLabel "name_type" "compatibility:char\n"
  8273. $row1173 setScope "name_type" "cl" "scopePhase"
  8274.  
  8275. set row1174 [$diag addRow attribute 0.0]
  8276. $row1174 setLabel "name_type" "format:integer"
  8277. $row1174 setScope "name_type" "cl" "scopePhase"
  8278.  
  8279. $diag save
  8280. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8281.  
  8282.  
  8283. # ----------------------------------------------------------------------------
  8284. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/VCR_Tape.cdm'.
  8285. # ----------------------------------------------------------------------------
  8286.  
  8287. # Generator: et.tcl    /main/hindenburg/11
  8288. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8289. # Interpreter to use: Otsh V5.1.1/B1
  8290. #
  8291. OTShRegister::importTool
  8292.  
  8293. set diag [CDM new VCR_Tape BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8294.  
  8295. set row1175 [$diag addRow attribute 0.0]
  8296. $row1175 setLabel "name_type" "duration:integer\n"
  8297. $row1175 setScope "name_type" "cl" "scopePhase"
  8298.  
  8299. set row1176 [$diag addRow attribute 0.0]
  8300. $row1176 setLabel "name_type" "rating:char"
  8301. $row1176 setScope "name_type" "cl" "scopePhase"
  8302.  
  8303. $diag save
  8304. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8305.  
  8306.  
  8307. # ----------------------------------------------------------------------------
  8308. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/LCD_Panel.cdm'.
  8309. # ----------------------------------------------------------------------------
  8310.  
  8311. # Generator: et.tcl    /main/hindenburg/11
  8312. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8313. # Interpreter to use: Otsh V5.1.1/B1
  8314. #
  8315. OTShRegister::importTool
  8316.  
  8317. set diag [CDM new LCD_Panel BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8318.  
  8319. set row1177 [$diag addRow attribute 0.0]
  8320. $row1177 setLabel "name_type" "compatibility:char"
  8321. $row1177 setScope "name_type" "cl" "scopePhase"
  8322.  
  8323. $diag save
  8324. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8325.  
  8326.  
  8327. # ----------------------------------------------------------------------------
  8328. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Borrower.cdm'.
  8329. # ----------------------------------------------------------------------------
  8330.  
  8331. # Generator: et.tcl    /main/hindenburg/11
  8332. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8333. # Interpreter to use: Otsh V5.1.1/B1
  8334. #
  8335. OTShRegister::importTool
  8336.  
  8337. set diag [CDM new Borrower BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8338.  
  8339. set row1178 [$diag addRow attribute 0.0]
  8340. $row1178 setLabel "name_type" "charge_number:char"
  8341. $row1178 setScope "name_type" "cl" "scopePhase"
  8342.  
  8343. $diag save
  8344. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8345.  
  8346.  
  8347. # ----------------------------------------------------------------------------
  8348. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Loan/top.std'.
  8349. # ----------------------------------------------------------------------------
  8350.  
  8351. # Generator: et.tcl    /main/hindenburg/11
  8352. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8353. # Interpreter to use: Otsh V5.1.1/B1
  8354. #
  8355. OTShRegister::importTool
  8356.  
  8357. set diag [STD new Loan:top BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8358.  
  8359. set node1179 [$diag addNode state 1344.0 1344.0 259.0 64.0]
  8360. $node1179 setLabel "name" "Returned"
  8361.  
  8362. set node1180 [$diag addNode state 1344.0 880.0 272.0 80.0]
  8363. $node1180 setLabel "name" "Reserved"
  8364.  
  8365. set node1181 [$diag addNode state 1344.0 1120.0 160.0 64.0]
  8366. $node1181 setLabel "name" "On Loan"
  8367.  
  8368. set node1182 [$diag addNode final_state 866.0 1474.0 28.0 28.0]
  8369. $node1182 setLabel "name" "Damaged"
  8370.  
  8371. set node1183 [$diag addNode final_state 1106.0 1474.0 28.0 28.0]
  8372. $node1183 setLabel "name" "Lost"
  8373.  
  8374. set node1184 [$diag addNode state 816.0 1344.0 120.0 64.0]
  8375. $node1184 setLabel "name" "Damaged"
  8376.  
  8377. set node1185 [$diag addNode state 1008.0 1120.0 120.0 64.0]
  8378. $node1185 setLabel "name" "Overdue"
  8379.  
  8380. set node1186 [$diag addNode final_state 1058.0 1218.0 28.0 28.0]
  8381.  
  8382. set node1187 [$diag addNode std_class 948.0 924.0 120.0 40.0]
  8383. $node1187 setLabel "name" "Loan\nCoordinator"
  8384. $node1187 setScope "name" "cl" "scopePhase"
  8385.  
  8386. set node1188 [$diag addNode state 1072.0 1344.0 120.0 64.0]
  8387. $node1188 setLabel "name" "Lost"
  8388.  
  8389. set node1189 [$diag addNode final_state 1394.0 1474.0 28.0 28.0]
  8390. $node1189 setLabel "name" "Done"
  8391.  
  8392. set node1190 [$diag addNode start_state 1401.0 809.0 14.0 14.0]
  8393.  
  8394. set node1191 [$diag addNode super_state 925.0 1049.0 710.0 206.0]
  8395.  
  8396. set conn1192 [$diag addConn transition $node1191 $node1184 949.0 1152.0 864.0 1360.0]
  8397. $conn1192 setLabel "event" "check_in"
  8398. $conn1192 setLabel "condition" "\[is_damaged=true\]"
  8399. set segm1193 [$conn1192 getFirstSegm]
  8400. set segm1194 [$conn1192 addSegm 864.0 1152.0]
  8401. set segm1195 [$conn1192 addSegm 864.0 1216.0]
  8402. $segm1195 setLabel "editor_only" " "
  8403.  
  8404. set conn1196 [$diag addConn transition $node1190 $node1180 1408.0 816.0 1408.0 896.0]
  8405. set segm1197 [$conn1196 getFirstSegm]
  8406. $segm1197 setLabel "editor_only" " "
  8407.  
  8408. set conn1198 [$diag addConn transition $node1191 $node1179 1408.0 1248.0 1408.0 1360.0]
  8409. $conn1198 setLabel "event" "check_in"
  8410. set segm1199 [$conn1198 getFirstSegm]
  8411. $segm1199 setLabel "editor_only" " "
  8412.  
  8413. set conn1200 [$diag addConn transition $node1179 $node1189 1408.0 1408.0 1408.0 1488.0]
  8414. set segm1201 [$conn1200 getFirstSegm]
  8415. $segm1201 setLabel "editor_only" " "
  8416.  
  8417. set conn1202 [$diag addConn transition $node1180 $node1181 1408.0 928.0 1408.0 1136.0]
  8418. $conn1202 setLabel "event" "check_out"
  8419. set segm1203 [$conn1202 getFirstSegm]
  8420. $segm1203 setLabel "editor_only" " "
  8421.  
  8422. set conn1204 [$diag addConn transition $node1180 $node1179 1456.0 912.0 1424.0 1376.0]
  8423. $conn1204 setLabel "event" "reservation expired"
  8424. set segm1205 [$conn1204 getFirstSegm]
  8425. $segm1205 setLabel "editor_only" " "
  8426. set segm1206 [$conn1204 addSegm 1776.0 912.0]
  8427. set segm1207 [$conn1204 addSegm 1776.0 1376.0]
  8428.  
  8429. set conn1208 [$diag addConn transition $node1184 $node1182 880.0 1408.0 880.0 1488.0]
  8430. set segm1209 [$conn1208 getFirstSegm]
  8431. $segm1209 setLabel "editor_only" " "
  8432.  
  8433. set conn1213 [$diag addConn transition $node1188 $node1183 1120.0 1408.0 1120.0 1488.0]
  8434. set segm1214 [$conn1213 getFirstSegm]
  8435. $segm1214 setLabel "editor_only" " "
  8436.  
  8437. set conn1215 [$diag addConn transition $node1181 $node1185 1360.0 1152.0 1072.0 1152.0]
  8438. $conn1215 setLabel "event" "due_date_exceeded"
  8439. set segm1216 [$conn1215 getFirstSegm]
  8440. $segm1216 setLabel "editor_only" " "
  8441.  
  8442. set conn1217 [$diag addConn transition $node1181 $node1186 1408.0 1184.0 1072.0 1232.0]
  8443. set segm1218 [$conn1217 getFirstSegm]
  8444. set segm1219 [$conn1217 addSegm 1408.0 1232.0]
  8445. $segm1219 setLabel "editor_only" " "
  8446.  
  8447. set conn1220 [$diag addConn transition $node1185 $node1186 1072.0 1184.0 1072.0 1232.0]
  8448. set segm1221 [$conn1220 getFirstSegm]
  8449. $segm1221 setLabel "editor_only" " "
  8450.  
  8451. set conn1222 [$diag addConn transition $node1191 $node1188 1136.0 1248.0 1136.0 1360.0]
  8452. $conn1222 setLabel "event" "check_in"
  8453. $conn1222 setLabel "condition" "\[is_lost=true\]"
  8454. set segm1223 [$conn1222 getFirstSegm]
  8455. $segm1223 setLabel "editor_only" " "
  8456.  
  8457. set conn1224 [$diag addConn transition $node1181 $node1181 1488.0 1152.0 1456.0 1184.0]
  8458. $conn1224 setLabel "event" "loan extended"
  8459. set segm1225 [$conn1224 getFirstSegm]
  8460. set segm1226 [$conn1224 addSegm 1584.0 1152.0]
  8461. $segm1226 setLabel "editor_only" " "
  8462. set segm1227 [$conn1224 addSegm 1584.0 1216.0]
  8463. set segm1228 [$conn1224 addSegm 1456.0 1216.0]
  8464.  
  8465. set conn1210 [$diag addConn event_msg $segm1216 $node1187 1168.0 1152.0 1056.0 944.0]
  8466. set segm1211 [$conn1210 getFirstSegm]
  8467. set segm1212 [$conn1210 addSegm 1168.0 944.0]
  8468. $segm1212 setLabel "event" "advise"
  8469.  
  8470. set cono1230 [$node1181 addActivity]
  8471. $cono1230 setLabel "name" "do: calculate due_date"
  8472.  
  8473. set cono1231 [$node1179 addStateAction]
  8474. $cono1231 setLabel "event" "entry"
  8475. $cono1231 setLabel "action" "/increment item quantity available"
  8476. $cono1231 setScope "event" "rs" "scopeSystem"
  8477.  
  8478. set cono1232 [$node1180 addStateAction]
  8479. $cono1232 setLabel "event" "entery"
  8480. $cono1232 setLabel "action" "/decrement item quantity available\n"
  8481.  
  8482. set cono1229 [$node1180 addActivity]
  8483. $cono1229 setLabel "name" "do:check expire date"
  8484.  
  8485. $diag save
  8486. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8487.  
  8488.  
  8489. # ----------------------------------------------------------------------------
  8490. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/WaitingList.cdm'.
  8491. # ----------------------------------------------------------------------------
  8492.  
  8493. # Generator: et.tcl    /main/hindenburg/11
  8494. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8495. # Interpreter to use: Otsh V5.1.1/B1
  8496. #
  8497. OTShRegister::importTool
  8498.  
  8499. set diag [CDM new WaitingList BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8500.  
  8501. set row1233 [$diag addRow attribute 0.0]
  8502. $row1233 setLabel "name_type" "request_date\n"
  8503.  
  8504. set row1234 [$diag addRow attribute 0.0]
  8505. $row1234 setLabel "name_type" "date_required\n"
  8506.  
  8507. set row1235 [$diag addRow attribute 0.0]
  8508. $row1235 setLabel "name_type" "status"
  8509.  
  8510. set row1236 [$diag addRow method 0.0]
  8511. $row1236 setLabel "name_type" "reserve():integer"
  8512. $row1236 setProp "has_parmlist" "1"
  8513. $row1236 setScope "name_type" "cl" "scopePhase"
  8514.  
  8515. $diag save
  8516. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8517.  
  8518.  
  8519. # ----------------------------------------------------------------------------
  8520. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/SystemArchitecture.ccd'.
  8521. # ----------------------------------------------------------------------------
  8522.  
  8523. # Generator: et.tcl    /main/hindenburg/11
  8524. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8525. # Interpreter to use: Otsh V5.1.1/B1
  8526. #
  8527. OTShRegister::importTool
  8528.  
  8529. set diag [CCD new SystemArchitecture BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8530.  
  8531. set node1237 [$diag addNode subject 804.0 956.0 152.0 40.0]
  8532. $node1237 setLabel "name" "PersistenceObjects"
  8533. $node1237 setScope "name" "cl" "scopePhase"
  8534.  
  8535. set node1238 [$diag addNode subject 1290.0 956.0 172.0 40.0]
  8536. $node1238 setLabel "name" "PresentationIF"
  8537. $node1238 setScope "name" "cl" "scopePhase"
  8538. $node1238 setProp "freeText" "Free text on presentation object" "name" "cl"
  8539.  
  8540. set node1239 [$diag addNode ccd_actor 1300.0 796.0 120.0 40.0]
  8541. $node1239 setLabel "name" "User"
  8542. $node1239 setScope "name" "cl" "scopePhase"
  8543.  
  8544. set node1240 [$diag addNode subject 1063.0 1180.0 146.0 40.0]
  8545. $node1240 setLabel "name" "BuisnessObjects"
  8546. $node1240 setScope "name" "cl" "scopePhase"
  8547.  
  8548. set conn1241 [$diag addConn com_message $node1240 $node1237 1072.0 1200.0 880.0 992.0]
  8549. set segm1242 [$conn1241 getFirstSegm]
  8550. set segm1243 [$conn1241 addSegm 880.0 1200.0]
  8551. $segm1243 setLabel "name" "record\nupdates"
  8552. $segm1243 setScope "name" "pe" "scopeSystem"
  8553. $segm1243 setProp "freeText" "Free text on Message record updates" "name" "pe"
  8554.  
  8555. set conn1244 [$diag addConn com_message $node1237 $node1240 944.0 976.0 1120.0 1200.0]
  8556. set segm1245 [$conn1244 getFirstSegm]
  8557. set segm1246 [$conn1244 addSegm 1120.0 976.0]
  8558. $segm1246 setLabel "name" "record\ndata"
  8559. $segm1246 setScope "name" "pe" "scopeSystem"
  8560.  
  8561. set conn1247 [$diag addConn com_message $node1238 $node1240 1376.0 992.0 1184.0 1200.0]
  8562. set segm1248 [$conn1247 getFirstSegm]
  8563. $segm1248 setLabel "name" "business\nrequests"
  8564. $segm1248 setScope "name" "pe" "scopeSystem"
  8565. set segm1249 [$conn1247 addSegm 1376.0 1200.0]
  8566.  
  8567. set conn1250 [$diag addConn com_message $node1238 $node1239 1312.0 960.0 1312.0 832.0]
  8568. set segm1251 [$conn1250 getFirstSegm]
  8569. $segm1251 setLabel "name" "user\nmessages"
  8570. $segm1251 setScope "name" "pe" "scopeSystem"
  8571.  
  8572. set conn1252 [$diag addConn com_message $node1240 $node1238 1168.0 1184.0 1312.0 976.0]
  8573. set segm1253 [$conn1252 getFirstSegm]
  8574. set segm1254 [$conn1252 addSegm 1168.0 976.0]
  8575. $segm1254 setLabel "name" "display\nmessages"
  8576. $segm1254 setScope "name" "pe" "scopeSystem"
  8577.  
  8578. set conn1255 [$diag addConn com_message $node1239 $node1238 1392.0 832.0 1392.0 960.0]
  8579. set segm1256 [$conn1255 getFirstSegm]
  8580. $segm1256 setLabel "name" "user\nrequests"
  8581. $segm1256 setScope "name" "pe" "scopeSystem"
  8582.  
  8583. $diag save
  8584. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8585.  
  8586.  
  8587. # ----------------------------------------------------------------------------
  8588. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/DamageReport.cdm'.
  8589. # ----------------------------------------------------------------------------
  8590.  
  8591. # Generator: et.tcl    /main/hindenburg/11
  8592. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8593. # Interpreter to use: Otsh V5.1.1/B1
  8594. #
  8595. OTShRegister::importTool
  8596.  
  8597. set diag [CDM new DamageReport BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8598.  
  8599. set row1257 [$diag addRow attribute 0.0]
  8600. $row1257 setLabel "name_type" "DamageReportID:integer\n"
  8601. $row1257 setScope "name_type" "cl" "scopePhase"
  8602.  
  8603. set row1258 [$diag addRow attribute 0.0]
  8604. $row1258 setLabel "name_type" "description:varchar\n"
  8605. $row1258 setScope "name_type" "cl" "scopePhase"
  8606.  
  8607. set row1259 [$diag addRow attribute 0.0]
  8608. $row1259 setLabel "name_type" "is_lost"
  8609.  
  8610. $diag save
  8611. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8612.  
  8613.  
  8614. # ----------------------------------------------------------------------------
  8615. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/LateFee.cdm'.
  8616. # ----------------------------------------------------------------------------
  8617.  
  8618. # Generator: et.tcl    /main/hindenburg/11
  8619. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8620. # Interpreter to use: Otsh V5.1.1/B1
  8621. #
  8622. OTShRegister::importTool
  8623.  
  8624. set diag [CDM new LateFee BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8625.  
  8626. set row1260 [$diag addRow attribute 0.0]
  8627. $row1260 setLabel "name_type" "*LateFeeIDinteger\n"
  8628. $row1260 setProp "key" "1"
  8629.  
  8630. set row1261 [$diag addRow attribute 0.0]
  8631. $row1261 setLabel "name_type" "/fee_amount:real\n"
  8632. $row1261 setProp "is_derived" "1"
  8633. $row1261 setScope "name_type" "cl" "scopePhase"
  8634.  
  8635. set row1262 [$diag addRow attribute 0.0]
  8636. $row1262 setLabel "name_type" "is_paid"
  8637.  
  8638. set row1263 [$diag addRow method 0.0]
  8639. $row1263 setLabel "name_type" "\$calculate_Fee()"
  8640. $row1263 setProp "has_parmlist" "1"
  8641. $row1263 setProp "is_class_feature" "1"
  8642.  
  8643. $diag save
  8644. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8645.  
  8646.  
  8647. # ----------------------------------------------------------------------------
  8648. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/OverheadProj.cdm'.
  8649. # ----------------------------------------------------------------------------
  8650.  
  8651. # Generator: et.tcl    /main/hindenburg/11
  8652. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8653. # Interpreter to use: Otsh V5.1.1/B1
  8654. #
  8655. OTShRegister::importTool
  8656.  
  8657. set diag [CDM new OverheadProj BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8658.  
  8659. set row1264 [$diag addRow attribute 0.0]
  8660. $row1264 setLabel "name_type" "intensity:char\n"
  8661. $row1264 setScope "name_type" "cl" "scopePhase"
  8662.  
  8663. set row1265 [$diag addRow attribute 0.0]
  8664. $row1265 setLabel "name_type" "portability:char"
  8665. $row1265 setScope "name_type" "cl" "scopePhase"
  8666.  
  8667. $diag save
  8668. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8669.  
  8670.  
  8671. # ----------------------------------------------------------------------------
  8672. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/TrainingMaterial.cad'.
  8673. # ----------------------------------------------------------------------------
  8674.  
  8675. # Generator: et.tcl    /main/hindenburg/11
  8676. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8677. # Interpreter to use: Otsh V5.1.1/B1
  8678. #
  8679. OTShRegister::importTool
  8680.  
  8681. set diag [CAD new TrainingMaterial BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8682.  
  8683. set node1266 [$diag addNode cad_class 864.0 1024.0 146.0 148.0]
  8684. $node1266 setLabel "name" "Book"
  8685. $node1266 setScope "name" "cl" "scopePhase"
  8686.  
  8687. set node1267 [$diag addNode cad_class 864.0 1248.0 163.0 100.0]
  8688. $node1267 setLabel "name" "Workbook"
  8689. $node1267 setScope "name" "cl" "scopePhase"
  8690.  
  8691. set node1270 [$diag addNode cad_class 1536.0 1248.0 120.0 116.0]
  8692. $node1270 setLabel "name" "OverheadProj"
  8693. $node1270 setScope "name" "cl" "scopePhase"
  8694.  
  8695. set node1272 [$diag addNode cad_class 1168.0 800.0 143.0 116.0]
  8696. $node1272 setLabel "name" "TrainingMaterial"
  8697. $node1272 setScope "name" "cl" "scopePhase"
  8698.  
  8699. set node1273 [$diag addNode cad_class 1056.0 1024.0 125.0 132.0]
  8700. $node1273 setLabel "name" "Software"
  8701. $node1273 setScope "name" "cl" "scopePhase"
  8702.  
  8703. set node1274 [$diag addNode cad_class 1248.0 1024.0 120.0 116.0]
  8704. $node1274 setLabel "name" "VCR_Tape"
  8705. $node1274 setScope "name" "cl" "scopePhase"
  8706.  
  8707. set node1275 [$diag addNode cad_class 1440.0 1024.0 125.0 100.0]
  8708. $node1275 setLabel "name" "CDROM"
  8709. $node1275 setScope "name" "cl" "scopePhase"
  8710.  
  8711. set node1276 [$diag addNode cad_class 1696.0 1248.0 125.0 100.0]
  8712. $node1276 setLabel "name" "LCD_Panel"
  8713. $node1276 setScope "name" "cl" "scopePhase"
  8714.  
  8715. set node1277 [$diag addNode cad_class 1648.0 1024.0 153.0 116.0]
  8716. $node1277 setLabel "name" "AV_Equipment"
  8717. $node1277 setScope "name" "cl" "scopePhase"
  8718.  
  8719. set conn1278 [$diag addConn association $node1267 $node1272 880.0 1296.0 1200.0 848.0]
  8720. $conn1278 setLabel "role_end" "companion"
  8721. $conn1278 setProp "mult_kind_end" "one"
  8722. $conn1278 setProp "mult_kind_start" "optional"
  8723. set segm1279 [$conn1278 getFirstSegm]
  8724. set segm1280 [$conn1278 addSegm 800.0 1296.0]
  8725. set segm1281 [$conn1278 addSegm 800.0 848.0]
  8726. $segm1281 setLabel "name" "accompanies"
  8727. $segm1281 setScope "name" "cl" "scopeFile"
  8728.  
  8729. set node1268 [$diag addRake generalization $node1272 $node1266 1216.0 880.0 928.0 1056.0 968.0]
  8730. $node1268 setLabel "name" "training material type"
  8731. $node1268 setScope "name" "de" "scopeSystem"
  8732.  
  8733. set conn1282 [$diag addConn generalization_conn $node1268 $node1273 1120.0 968.0 1120.0 1056.0]
  8734. set segm1283 [$conn1282 getFirstSegm]
  8735.  
  8736. set conn1284 [$diag addConn generalization_conn $node1268 $node1274 1312.0 968.0 1312.0 1056.0]
  8737. set segm1285 [$conn1284 getFirstSegm]
  8738.  
  8739. set conn1286 [$diag addConn generalization_conn $node1268 $node1275 1504.0 968.0 1504.0 1056.0]
  8740. set segm1287 [$conn1286 getFirstSegm]
  8741.  
  8742. set conn1288 [$diag addConn generalization_conn $node1268 $node1277 1712.0 968.0 1712.0 1056.0]
  8743. set segm1289 [$conn1288 getFirstSegm]
  8744.  
  8745. set node1269 [$diag addRake generalization $node1266 $node1267 928.0 1120.0 928.0 1280.0 1215.5]
  8746.  
  8747. set node1271 [$diag addRake generalization $node1277 $node1270 1696.0 1104.0 1600.0 1296.0 1192.0]
  8748. $node1271 setLabel "name" "equipment_type"
  8749. $node1271 setScope "name" "de" "scopeSystem"
  8750.  
  8751. set conn1290 [$diag addConn generalization_conn $node1271 $node1276 1760.0 1192.0 1760.0 1264.0]
  8752. set segm1291 [$conn1290 getFirstSegm]
  8753.  
  8754. $diag save
  8755. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8756.  
  8757.  
  8758. # ----------------------------------------------------------------------------
  8759. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Employee.cdm'.
  8760. # ----------------------------------------------------------------------------
  8761.  
  8762. # Generator: et.tcl    /main/hindenburg/11
  8763. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8764. # Interpreter to use: Otsh V5.1.1/B1
  8765. #
  8766. OTShRegister::importTool
  8767.  
  8768. set diag [CDM new Employee BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8769.  
  8770. set row1292 [$diag addRow attribute 0.0]
  8771. $row1292 setLabel "name_type" "name:char\n"
  8772. $row1292 setScope "name_type" "cl" "scopePhase"
  8773.  
  8774. set row1293 [$diag addRow attribute 0.0]
  8775. $row1293 setLabel "name_type" "department\n"
  8776.  
  8777. set row1294 [$diag addRow attribute 0.0]
  8778. $row1294 setLabel "name_type" "phone_number:integer"
  8779. $row1294 setScope "name_type" "cl" "scopePhase"
  8780.  
  8781. set row1295 [$diag addRow method 0.0]
  8782. $row1295 setLabel "name_type" "\$getEmployeeName()"
  8783. $row1295 setProp "has_parmlist" "1"
  8784. $row1295 setProp "is_class_feature" "1"
  8785.  
  8786. $diag save
  8787. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8788.  
  8789.  
  8790. # ----------------------------------------------------------------------------
  8791. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Inventory.cdm'.
  8792. # ----------------------------------------------------------------------------
  8793.  
  8794. # Generator: et.tcl    /main/hindenburg/11
  8795. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8796. # Interpreter to use: Otsh V5.1.1/B1
  8797. #
  8798. OTShRegister::importTool
  8799.  
  8800. set diag [CDM new Inventory BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8801.  
  8802. set row1296 [$diag addRow attribute 0.0]
  8803. $row1296 setLabel "name_type" "*name:char\n"
  8804. $row1296 setProp "key" "1"
  8805. $row1296 setScope "name_type" "cl" "scopePhase"
  8806.  
  8807. set row1297 [$diag addRow attribute 0.0]
  8808. $row1297 setLabel "name_type" "qty_available:integer"
  8809. $row1297 setScope "name_type" "cl" "scopePhase"
  8810.  
  8811. set row1298 [$diag addRow method 0.0]
  8812. $row1298 setLabel "name_type" "reorder()"
  8813. $row1298 setProp "has_parmlist" "1"
  8814.  
  8815. $diag save
  8816. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8817.  
  8818.  
  8819. # ----------------------------------------------------------------------------
  8820. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Extension.cdm'.
  8821. # ----------------------------------------------------------------------------
  8822.  
  8823. # Generator: et.tcl    /main/hindenburg/11
  8824. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8825. # Interpreter to use: Otsh V5.1.1/B1
  8826. #
  8827. OTShRegister::importTool
  8828.  
  8829. set diag [CDM new Extension BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8830.  
  8831. set row1299 [$diag addRow attribute 0.0]
  8832. $row1299 setLabel "name_type" "ExtentionID:integer\n"
  8833. $row1299 setScope "name_type" "cl" "scopePhase"
  8834.  
  8835. set row1300 [$diag addRow attribute 0.0]
  8836. $row1300 setLabel "name_type" "term"
  8837.  
  8838. $diag save
  8839. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8840.  
  8841.  
  8842. # ----------------------------------------------------------------------------
  8843. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/AV_Equipment.cdm'.
  8844. # ----------------------------------------------------------------------------
  8845.  
  8846. # Generator: et.tcl    /main/hindenburg/11
  8847. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8848. # Interpreter to use: Otsh V5.1.1/B1
  8849. #
  8850. OTShRegister::importTool
  8851.  
  8852. set diag [CDM new AV_Equipment BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8853.  
  8854. set row1301 [$diag addRow attribute 0.0]
  8855. $row1301 setLabel "name_type" "serial_number:integer\n"
  8856. $row1301 setScope "name_type" "cl" "scopePhase"
  8857.  
  8858. set row1302 [$diag addRow attribute 0.0]
  8859. $row1302 setLabel "name_type" "repair_state:boolean"
  8860. $row1302 setScope "name_type" "cl" "scopePhase"
  8861.  
  8862. $diag save
  8863. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8864.  
  8865.  
  8866. # ----------------------------------------------------------------------------
  8867. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Book.cdm'.
  8868. # ----------------------------------------------------------------------------
  8869.  
  8870. # Generator: et.tcl    /main/hindenburg/11
  8871. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8872. # Interpreter to use: Otsh V5.1.1/B1
  8873. #
  8874. OTShRegister::importTool
  8875.  
  8876. set diag [CDM new Book BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8877.  
  8878. set row1303 [$diag addRow attribute 0.0]
  8879. $row1303 setLabel "name_type" "author:char\n"
  8880. $row1303 setScope "name_type" "cl" "scopePhase"
  8881.  
  8882. set row1304 [$diag addRow attribute 0.0]
  8883. $row1304 setLabel "name_type" "publisher:char\n"
  8884. $row1304 setScope "name_type" "cl" "scopePhase"
  8885.  
  8886. set row1305 [$diag addRow attribute 0.0]
  8887. $row1305 setLabel "name_type" "ISBN:char\n"
  8888. $row1305 setScope "name_type" "cl" "scopePhase"
  8889.  
  8890. set row1306 [$diag addRow attribute 0.0]
  8891. $row1306 setLabel "name_type" "is_reference:smallint"
  8892. $row1306 setScope "name_type" "cl" "scopePhase"
  8893.  
  8894. $diag save
  8895. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8896.  
  8897.  
  8898. # ----------------------------------------------------------------------------
  8899. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Workbook.cdm'.
  8900. # ----------------------------------------------------------------------------
  8901.  
  8902. # Generator: et.tcl    /main/hindenburg/11
  8903. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8904. # Interpreter to use: Otsh V5.1.1/B1
  8905. #
  8906. OTShRegister::importTool
  8907.  
  8908. set diag [CDM new Workbook BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8909.  
  8910. set row1307 [$diag addRow attribute 0.0]
  8911. $row1307 setLabel "name_type" "*course_name:varchar"
  8912. $row1307 setProp "key" "1"
  8913. $row1307 setScope "name_type" "cl" "scopePhase"
  8914.  
  8915. $diag save
  8916. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  8917.  
  8918.  
  8919. # ----------------------------------------------------------------------------
  8920. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Overview.cad'.
  8921. # ----------------------------------------------------------------------------
  8922.  
  8923. # Generator: et.tcl    /main/hindenburg/11
  8924. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  8925. # Interpreter to use: Otsh V5.1.1/B1
  8926. #
  8927. OTShRegister::importTool
  8928.  
  8929. set diag [CAD new Overview BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  8930.  
  8931. set node1308 [$diag addNode cad_class 512.0 752.0 120.0 32.0]
  8932. $node1308 setLabel "name" "Employee"
  8933. $node1308 setProp "is_folded" "1"
  8934. $node1308 setScope "name" "cl" "scopePhase"
  8935.  
  8936. set node1309 [$diag addNode cad_class 608.0 1008.0 120.0 32.0]
  8937. $node1309 setLabel "name" "Return"
  8938. $node1309 setProp "is_folded" "1"
  8939. $node1309 setScope "name" "cl" "scopePhase"
  8940.  
  8941. set node1310 [$diag addNode cad_class 704.0 608.0 134.0 32.0]
  8942. $node1310 setLabel "name" "LoanCoordinator"
  8943. $node1310 setProp "is_folded" "1"
  8944. $node1310 setScope "name" "cl" "scopePhase"
  8945.  
  8946. set node1311 [$diag addNode cad_class 704.0 704.0 120.0 32.0]
  8947. $node1311 setLabel "name" "Loan"
  8948. $node1311 setProp "is_folded" "1"
  8949. $node1311 setScope "name" "cl" "scopePhase"
  8950.  
  8951. set node1312 [$diag addNode cad_class 704.0 912.0 120.0 32.0]
  8952. $node1312 setLabel "name" "Sale"
  8953. $node1312 setProp "is_folded" "1"
  8954. $node1312 setScope "name" "cl" "scopePhase"
  8955.  
  8956. set node1313 [$diag addNode cad_class 976.0 608.0 120.0 32.0]
  8957. $node1313 setLabel "name" "WaitingList"
  8958. $node1313 setProp "is_folded" "1"
  8959. $node1313 setScope "name" "cl" "scopePhase"
  8960.  
  8961. set node1314 [$diag addNode cad_class 1056.0 864.0 120.0 32.0]
  8962. $node1314 setLabel "name" "Workbook"
  8963. $node1314 setProp "is_folded" "1"
  8964. $node1314 setScope "name" "cl" "scopePhase"
  8965.  
  8966. set node1315 [$diag addNode cad_class 1120.0 640.0 128.0 32.0]
  8967. $node1315 setLabel "name" "TrainingMaterial"
  8968. $node1315 setProp "is_folded" "1"
  8969. $node1315 setScope "name" "cl" "scopePhase"
  8970.  
  8971. set conn1321 [$diag addConn association $node1308 $node1310 592.0 752.0 768.0 624.0]
  8972. $conn1321 setProp "mult_kind_end" "one"
  8973. $conn1321 setProp "mult_kind_start" "many"
  8974. set segm1322 [$conn1321 getFirstSegm]
  8975. $segm1322 setLabel "name" "calls"
  8976. $segm1322 setScope "name" "cl" "scopeFile"
  8977. set segm1323 [$conn1321 addSegm 592.0 624.0]
  8978.  
  8979. set conn1324 [$diag addConn association $node1310 $node1313 816.0 624.0 992.0 624.0]
  8980. $conn1324 setProp "mult_kind_end" "many"
  8981. $conn1324 setProp "mult_kind_start" "one"
  8982. set segm1325 [$conn1324 getFirstSegm]
  8983. $segm1325 setLabel "name" "manages"
  8984. $segm1325 setScope "name" "cl" "scopeFile"
  8985.  
  8986. set conn1328 [$diag addConn association $node1308 $node1315 528.0 784.0 1216.0 672.0]
  8987. $conn1328 setLabel "role_start" "anyone"
  8988. $conn1328 setProp "mult_kind_end" "many"
  8989. $conn1328 setProp "mult_kind_start" "many"
  8990. set segm1329 [$conn1328 getFirstSegm]
  8991. set segm1330 [$conn1328 addSegm 528.0 976.0]
  8992. $segm1330 setLabel "name" "checks_in"
  8993. $segm1330 setScope "name" "cl" "scopeFile"
  8994. set segm1331 [$conn1328 addSegm 1216.0 976.0]
  8995.  
  8996. set conn1332 [$diag addConn association $node1308 $node1315 528.0 752.0 1168.0 656.0]
  8997. $conn1332 setProp "mult_kind_end" "one"
  8998. $conn1332 setProp "mult_kind_start" "many"
  8999. set segm1333 [$conn1332 getFirstSegm]
  9000. set segm1334 [$conn1332 addSegm 528.0 560.0]
  9001. $segm1334 setLabel "name" "waits_for"
  9002. $segm1334 setScope "name" "cl" "scopeFile"
  9003. set segm1335 [$conn1332 addSegm 1168.0 560.0]
  9004.  
  9005. set conn1338 [$diag addConn association $node1310 $node1311 752.0 624.0 752.0 720.0]
  9006. $conn1338 setProp "mult_kind_end" "many"
  9007. $conn1338 setProp "mult_kind_start" "one"
  9008. set segm1339 [$conn1338 getFirstSegm]
  9009. $segm1339 setLabel "name" "arranges"
  9010. $segm1339 setScope "name" "cl" "scopeFile"
  9011.  
  9012. set conn1340 [$diag addConn association $node1308 $node1314 592.0 768.0 1120.0 880.0]
  9013. $conn1340 setLabel "role_start" "buyer"
  9014. $conn1340 setProp "mult_kind_end" "many"
  9015. $conn1340 setProp "mult_kind_start" "many"
  9016. set segm1341 [$conn1340 getFirstSegm]
  9017. set segm1342 [$conn1340 addSegm 592.0 880.0]
  9018. $segm1342 setLabel "name" "purchases"
  9019. $segm1342 setScope "name" "cl" "scopeFile"
  9020.  
  9021. set conn1343 [$diag addConn association $node1308 $node1315 592.0 768.0 1136.0 656.0]
  9022. $conn1343 setLabel "role_start" "borrower"
  9023. $conn1343 setProp "mult_kind_end" "many"
  9024. $conn1343 setProp "mult_kind_start" "many"
  9025. set segm1344 [$conn1343 getFirstSegm]
  9026. $segm1344 setLabel "name" "checks_out"
  9027. $segm1344 setScope "name" "cl" "scopeFile"
  9028. set segm1345 [$conn1343 addSegm 1136.0 768.0]
  9029.  
  9030. set node1316 [$diag addRake generalization $node1315 $node1314 1168.0 672.0 1120.0 880.0 815.5]
  9031.  
  9032. set conn1317 [$diag addConn loop $segm1330 $node1309 640.0 976.0 640.0 1024.0]
  9033. set segm1318 [$conn1317 getFirstSegm]
  9034.  
  9035. set conn1319 [$diag addConn loop $segm1342 $node1312 736.0 880.0 736.0 912.0]
  9036. set segm1320 [$conn1319 getFirstSegm]
  9037.  
  9038. set conn1326 [$diag addConn loop $segm1334 $node1313 1024.0 560.0 1024.0 624.0]
  9039. set segm1327 [$conn1326 getFirstSegm]
  9040.  
  9041. set conn1336 [$diag addConn loop $segm1344 $node1311 752.0 768.0 752.0 720.0]
  9042. set segm1337 [$conn1336 getFirstSegm]
  9043.  
  9044. $diag save
  9045. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9046.  
  9047.  
  9048. # ----------------------------------------------------------------------------
  9049. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/CDROM.cdm'.
  9050. # ----------------------------------------------------------------------------
  9051.  
  9052. # Generator: et.tcl    /main/hindenburg/11
  9053. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9054. # Interpreter to use: Otsh V5.1.1/B1
  9055. #
  9056. OTShRegister::importTool
  9057.  
  9058. set diag [CDM new CDROM BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  9059.  
  9060. set row1346 [$diag addRow attribute 0.0]
  9061. $row1346 setLabel "name_type" "compatibility:char"
  9062. $row1346 setScope "name_type" "cl" "scopePhase"
  9063.  
  9064. $diag save
  9065. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9066.  
  9067.  
  9068. # ----------------------------------------------------------------------------
  9069. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/CoreClasses.cad'.
  9070. # ----------------------------------------------------------------------------
  9071.  
  9072. # Generator: et.tcl    /main/hindenburg/11
  9073. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9074. # Interpreter to use: Otsh V5.1.1/B1
  9075. #
  9076. OTShRegister::importTool
  9077.  
  9078. set diag [CAD new CoreClasses BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  9079.  
  9080. set node1347 [$diag addNode cad_class 800.0 832.0 160.0 144.0]
  9081. $node1347 setLabel "name" "Employee"
  9082. $node1347 setScope "name" "cl" "scopePhase"
  9083.  
  9084. set node1348 [$diag addNode cad_class 992.0 1456.0 129.333 121.333]
  9085. $node1348 setLabel "name" "Return"
  9086. $node1348 setScope "name" "cl" "scopePhase"
  9087.  
  9088. set node1349 [$diag addNode cad_class 1600.0 960.0 134.667 32.0]
  9089. $node1349 setLabel "name" "TrainingMaterial"
  9090. $node1349 setProp "is_folded" "1"
  9091. $node1349 setScope "name" "cl" "scopePhase"
  9092.  
  9093. set node1350 [$diag addNode cad_class 1664.0 1456.0 129.333 121.333]
  9094. $node1350 setLabel "name" "LateFee"
  9095. $node1350 setScope "name" "cl" "scopePhase"
  9096.  
  9097. set node1351 [$diag addNode cad_class 912.0 1056.0 150.667 92.0]
  9098. $node1351 setLabel "name" "Borrower"
  9099. $node1351 setScope "name" "cl" "scopePhase"
  9100.  
  9101. set node1353 [$diag addNode cad_class 1376.0 1520.0 170.667 121.333]
  9102. $node1353 setLabel "name" "DamageReport"
  9103. $node1353 setScope "name" "cl" "scopePhase"
  9104.  
  9105. set node1354 [$diag addNode cad_class 1136.0 1168.0 168.0 180.0]
  9106. $node1354 setLabel "name" "Loan"
  9107. $node1354 setScope "name" "cl" "scopePhase"
  9108.  
  9109. set node1355 [$diag addNode cad_class 1328.0 800.0 125.333 121.333]
  9110. $node1355 setLabel "name" "WaitingList"
  9111. $node1355 setScope "name" "cl" "scopePhase"
  9112.  
  9113. set node1356 [$diag addNode cad_class 1456.0 1232.0 134.667 106.667]
  9114. $node1356 setLabel "name" "Extension"
  9115. $node1356 setScope "name" "cl" "scopePhase"
  9116.  
  9117. set node1357 [$diag addNode cad_class 1648.0 1152.0 148.0 106.667]
  9118. $node1357 setLabel "name" "Inventory"
  9119. $node1357 setScope "name" "cl" "scopePhase"
  9120.  
  9121. set conn1358 [$diag addConn association $node1347 $node1348 832.0 976.0 1040.0 1536.0]
  9122. $conn1358 setLabel "role_start" "employee"
  9123. $conn1358 setProp "mult_kind_end" "optional"
  9124. $conn1358 setProp "mult_kind_start" "one"
  9125. set segm1359 [$conn1358 getFirstSegm]
  9126. $segm1359 setLabel "name" "checks_in"
  9127. $segm1359 setScope "name" "cl" "scopeFile"
  9128. set segm1360 [$conn1358 addSegm 832.0 1536.0]
  9129.  
  9130. set conn1361 [$diag addConn association $node1348 $node1353 1040.0 1568.0 1424.0 1568.0]
  9131. $conn1361 setLabel "role_end" "Returned"
  9132. $conn1361 setLabel "role_start" "Damager"
  9133. $conn1361 setProp "mult_kind_end" "optional"
  9134. $conn1361 setProp "mult_kind_start" "one"
  9135. set segm1362 [$conn1361 getFirstSegm]
  9136. $segm1362 setLabel "name" "is_damaged"
  9137. $segm1362 setScope "name" "cl" "scopeFile"
  9138.  
  9139. set conn1363 [$diag addConn association $node1351 $node1349 1008.0 1104.0 1616.0 992.0]
  9140. $conn1363 setLabel "role_end" "inventory"
  9141. $conn1363 setProp "mult_kind_end" "optional"
  9142. $conn1363 setProp "mult_kind_start" "optional"
  9143. set segm1364 [$conn1363 getFirstSegm]
  9144. $segm1364 setLabel "name" "borrows"
  9145. $segm1364 setScope "name" "cl" "scopeFile"
  9146. set segm1365 [$conn1363 addSegm 1616.0 1104.0]
  9147.  
  9148. set conn1366 [$diag addConn association $node1348 $node1350 1104.0 1488.0 1680.0 1488.0]
  9149. $conn1366 setLabel "role_end" "before"
  9150. $conn1366 setLabel "role_start" "too_late"
  9151. $conn1366 setProp "mult_kind_end" "optional"
  9152. $conn1366 setProp "mult_kind_start" "one"
  9153. set segm1367 [$conn1366 getFirstSegm]
  9154. $segm1367 setLabel "name" "is_late"
  9155. $segm1367 setScope "name" "cl" "scopeFile"
  9156.  
  9157. set conn1368 [$diag addConn association $node1354 $node1348 1152.0 1280.0 1056.0 1488.0]
  9158. $conn1368 setProp "mult_kind_end" "optional"
  9159. $conn1368 setProp "mult_kind_start" "one"
  9160. set segm1369 [$conn1368 getFirstSegm]
  9161. set segm1370 [$conn1368 addSegm 1056.0 1280.0]
  9162. $segm1370 setLabel "name" "is_returned"
  9163. $segm1370 setScope "name" "cl" "scopeFile"
  9164.  
  9165. set conn1373 [$diag addConn association $node1351 $node1349 992.0 1072.0 1632.0 992.0]
  9166. $conn1373 setLabel "role_start" "borrower"
  9167. $conn1373 setProp "mult_kind_end" "many"
  9168. $conn1373 setProp "mult_kind_start" "many"
  9169. set segm1374 [$conn1373 getFirstSegm]
  9170. set segm1375 [$conn1373 addSegm 992.0 992.0]
  9171. $segm1375 setLabel "name" "waits_for"
  9172. $segm1375 setScope "name" "cl" "scopeFile"
  9173.  
  9174. set conn1378 [$diag addConn association $node1354 $node1356 1296.0 1280.0 1520.0 1280.0]
  9175. $conn1378 setLabel "role_start" "needed_by"
  9176. $conn1378 setProp "mult_kind_end" "optional"
  9177. $conn1378 setProp "mult_kind_start" "one"
  9178. set segm1379 [$conn1378 getFirstSegm]
  9179.  
  9180. set conn1380 [$diag addConn association $node1349 $node1357 1712.0 992.0 1712.0 1168.0]
  9181. $conn1380 setLabel "role_end" "amount"
  9182. $conn1380 setProp "mult_kind_end" "one"
  9183. $conn1380 setProp "mult_kind_start" "optional"
  9184. set segm1381 [$conn1380 getFirstSegm]
  9185. $segm1381 setLabel "name" "has"
  9186. $segm1381 setScope "name" "cl" "scopeFile"
  9187.  
  9188. set node1352 [$diag addRake generalization $node1347 $node1351 944.0 960.0 944.0 1056.0 1023.5]
  9189.  
  9190. set conn1371 [$diag addConn loop $segm1375 $node1355 1376.0 992.0 1376.0 912.0]
  9191. set segm1372 [$conn1371 getFirstSegm]
  9192.  
  9193. set conn1376 [$diag addConn loop $segm1364 $node1354 1202.0 1104.0 1200.0 1184.0]
  9194. set segm1377 [$conn1376 getFirstSegm]
  9195.  
  9196. $diag save
  9197. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9198.  
  9199.  
  9200. # ----------------------------------------------------------------------------
  9201. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/TrainingMaterial.cdm'.
  9202. # ----------------------------------------------------------------------------
  9203.  
  9204. # Generator: et.tcl    /main/hindenburg/11
  9205. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9206. # Interpreter to use: Otsh V5.1.1/B1
  9207. #
  9208. OTShRegister::importTool
  9209.  
  9210. set diag [CDM new TrainingMaterial BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  9211.  
  9212. set row1382 [$diag addRow attribute 0.0]
  9213. $row1382 setLabel "name_type" "*name:char\n"
  9214. $row1382 setProp "key" "1"
  9215. $row1382 setScope "name_type" "cl" "scopePhase"
  9216.  
  9217. set row1383 [$diag addRow attribute 0.0]
  9218. $row1383 setLabel "name_type" "description :varchar"
  9219. $row1383 setScope "name_type" "cl" "scopePhase"
  9220.  
  9221. set row1384 [$diag addRow method 0.0]
  9222. $row1384 setLabel "name_type" "getinfo()"
  9223. $row1384 setProp "has_parmlist" "1"
  9224.  
  9225. $diag save
  9226. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9227.  
  9228.  
  9229. # ----------------------------------------------------------------------------
  9230. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Return.cdm'.
  9231. # ----------------------------------------------------------------------------
  9232.  
  9233. # Generator: et.tcl    /main/hindenburg/11
  9234. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9235. # Interpreter to use: Otsh V5.1.1/B1
  9236. #
  9237. OTShRegister::importTool
  9238.  
  9239. set diag [CDM new Return BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  9240.  
  9241. set row1385 [$diag addRow attribute 0.0]
  9242. $row1385 setLabel "name_type" "check_in_date\n"
  9243.  
  9244. set row1386 [$diag addRow attribute 0.0]
  9245. $row1386 setLabel "name_type" "name:char"
  9246. $row1386 setScope "name_type" "cl" "scopePhase"
  9247.  
  9248. set row1387 [$diag addRow method 0.0]
  9249. $row1387 setLabel "name_type" "getEquipInfo()\n"
  9250. $row1387 setProp "has_parmlist" "1"
  9251.  
  9252. set row1388 [$diag addRow method 0.0]
  9253. $row1388 setLabel "name_type" "updateEquipInfo()"
  9254. $row1388 setProp "has_parmlist" "1"
  9255.  
  9256. $diag save
  9257. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9258.  
  9259.  
  9260. # ----------------------------------------------------------------------------
  9261. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Loan.cdm'.
  9262. # ----------------------------------------------------------------------------
  9263.  
  9264. # Generator: et.tcl    /main/hindenburg/11
  9265. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9266. # Interpreter to use: Otsh V5.1.1/B1
  9267. #
  9268. OTShRegister::importTool
  9269.  
  9270. set diag [CDM new Loan BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  9271.  
  9272. set row1389 [$diag addRow attribute 0.0]
  9273. $row1389 setLabel "name_type" "check_out_date\n"
  9274.  
  9275. set row1390 [$diag addRow attribute 0.0]
  9276. $row1390 setLabel "name_type" "/expire_data\n"
  9277. $row1390 setProp "is_derived" "1"
  9278.  
  9279. set row1391 [$diag addRow attribute 0.0]
  9280. $row1391 setLabel "name_type" "term:integer\n"
  9281. $row1391 setScope "name_type" "cl" "scopePhase"
  9282.  
  9283. set row1392 [$diag addRow attribute 0.0]
  9284. $row1392 setLabel "name_type" "/due_date\n"
  9285. $row1392 setProp "is_derived" "1"
  9286.  
  9287. set row1393 [$diag addRow attribute 0.0]
  9288. $row1393 setLabel "name_type" "late_fee:real\n"
  9289. $row1393 setScope "name_type" "cl" "scopePhase"
  9290.  
  9291. set row1394 [$diag addRow attribute 0.0]
  9292. $row1394 setLabel "name_type" "status"
  9293.  
  9294. set row1395 [$diag addRow method 0.0]
  9295. $row1395 setLabel "name_type" "calculate_due_date()\n"
  9296. $row1395 setProp "has_parmlist" "1"
  9297.  
  9298. set row1396 [$diag addRow method 0.0]
  9299. $row1396 setLabel "name_type" "calculate_expire_data()"
  9300. $row1396 setProp "has_parmlist" "1"
  9301.  
  9302. $diag save
  9303. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9304.  
  9305.  
  9306. # ----------------------------------------------------------------------------
  9307. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/LoanTracking-UseCase.ccd'.
  9308. # ----------------------------------------------------------------------------
  9309.  
  9310. # Generator: et.tcl    /main/hindenburg/11
  9311. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9312. # Interpreter to use: Otsh V5.1.1/B1
  9313. #
  9314. OTShRegister::importTool
  9315.  
  9316. set diag [CCD new LoanTracking-UseCase BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  9317.  
  9318. set node1397 [$diag addNode ccd_actor 740.0 652.0 120.0 40.0]
  9319. $node1397 setLabel "name" "Borrower"
  9320. $node1397 setScope "name" "cl" "scopePhase"
  9321.  
  9322. set node1398 [$diag addNode subject 804.0 1084.0 120.0 40.0]
  9323. $node1398 setLabel "name" "User_Interface"
  9324. $node1398 setScope "name" "cl" "scopePhase"
  9325.  
  9326. set node1399 [$diag addNode subject 1108.0 924.0 120.0 40.0]
  9327. $node1399 setLabel "name" "CoreClasses"
  9328. $node1399 setScope "name" "cl" "scopePhase"
  9329.  
  9330. set node1400 [$diag addNode subject 1252.0 1100.0 120.0 40.0]
  9331. $node1400 setLabel "name" "Database"
  9332. $node1400 setScope "name" "cl" "scopePhase"
  9333.  
  9334. set node1401 [$diag addNode ccd_class 724.0 892.0 120.0 40.0]
  9335. $node1401 setLabel "name" "LoanCoordinator"
  9336. $node1401 setScope "name" "cl" "scopePhase"
  9337.  
  9338. set conn1402 [$diag addConn com_message $node1397 $node1401 768.0 688.0 768.0 912.0]
  9339. set segm1403 [$conn1402 getFirstSegm]
  9340. $segm1403 setLabel "name" "Borrower_Requests"
  9341. $segm1403 setScope "name" "pe" "scopeSystem"
  9342. set segm1404 [$conn1402 addSegm 672.0 816.0]
  9343.  
  9344. set conn1405 [$diag addConn com_message $node1399 $node1398 1152.0 960.0 896.0 1104.0]
  9345. set segm1406 [$conn1405 getFirstSegm]
  9346. $segm1406 setLabel "name" "UI_responses"
  9347. $segm1406 setScope "name" "pe" "scopeSystem"
  9348. set segm1407 [$conn1405 addSegm 1072.0 1088.0]
  9349.  
  9350. set conn1408 [$diag addConn com_message $node1399 $node1400 1184.0 944.0 1280.0 1120.0]
  9351. set segm1409 [$conn1408 getFirstSegm]
  9352. $segm1409 setLabel "name" "sets"
  9353. $segm1409 setScope "name" "pe" "scopeSystem"
  9354.  
  9355. set conn1410 [$diag addConn com_message $node1401 $node1397 816.0 896.0 816.0 688.0]
  9356. set segm1411 [$conn1410 getFirstSegm]
  9357. set segm1412 [$conn1410 addSegm 912.0 816.0]
  9358. $segm1412 setLabel "name" "Notifications"
  9359. $segm1412 setScope "name" "pe" "scopeSystem"
  9360.  
  9361. set conn1413 [$diag addConn com_message $node1401 $node1398 784.0 928.0 848.0 1104.0]
  9362. set segm1414 [$conn1413 getFirstSegm]
  9363. $segm1414 setLabel "name" "UI_cmds"
  9364. $segm1414 setScope "name" "pe" "scopeSystem"
  9365.  
  9366. set conn1415 [$diag addConn com_message $node1398 $node1399 896.0 1088.0 1136.0 944.0]
  9367. set segm1416 [$conn1415 getFirstSegm]
  9368. $segm1416 setLabel "name" "UI_requests"
  9369. $segm1416 setScope "name" "pe" "scopeSystem"
  9370. set segm1417 [$conn1415 addSegm 976.0 960.0]
  9371.  
  9372. set conn1418 [$diag addConn com_message $node1400 $node1399 1328.0 1104.0 1200.0 944.0]
  9373. set segm1419 [$conn1418 getFirstSegm]
  9374. set segm1420 [$conn1418 addSegm 1328.0 944.0]
  9375. $segm1420 setLabel "name" "gets"
  9376. $segm1420 setScope "name" "pe" "scopeSystem"
  9377.  
  9378. $diag save
  9379. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9380.  
  9381.  
  9382. # ----------------------------------------------------------------------------
  9383. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/CoreClasses.ccd'.
  9384. # ----------------------------------------------------------------------------
  9385.  
  9386. # Generator: et.tcl    /main/hindenburg/11
  9387. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9388. # Interpreter to use: Otsh V5.1.1/B1
  9389. #
  9390. OTShRegister::importTool
  9391.  
  9392. set diag [CCD new CoreClasses BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  9393.  
  9394. set node1421 [$diag addNode subject 612.0 940.0 120.0 40.0]
  9395. $node1421 setLabel "name" "User_Interface"
  9396. $node1421 setScope "name" "cl" "scopePhase"
  9397.  
  9398. set node1422 [$diag addNode ccd_class 612.0 764.0 120.0 40.0]
  9399. $node1422 setLabel "name" "Borrower"
  9400. $node1422 setScope "name" "cl" "scopePhase"
  9401.  
  9402. set node1423 [$diag addNode ccd_class 612.0 1084.0 120.0 40.0]
  9403. $node1423 setLabel "name" "TrainingMaterial"
  9404. $node1423 setScope "name" "cl" "scopePhase"
  9405.  
  9406. set node1424 [$diag addNode ccd_class 1044.0 668.0 120.0 40.0]
  9407. $node1424 setLabel "name" "Inventory"
  9408. $node1424 setScope "name" "cl" "scopePhase"
  9409.  
  9410. set node1425 [$diag addNode ccd_class 1012.0 860.0 120.0 40.0]
  9411. $node1425 setLabel "name" "Loan"
  9412. $node1425 setScope "name" "cl" "scopePhase"
  9413.  
  9414. set node1426 [$diag addNode ccd_class 1012.0 1084.0 120.0 40.0]
  9415. $node1426 setLabel "name" "WaitingList"
  9416. $node1426 setScope "name" "cl" "scopePhase"
  9417.  
  9418. set conn1427 [$diag addConn com_message $node1421 $node1422 672.0 944.0 672.0 784.0]
  9419. set segm1428 [$conn1427 getFirstSegm]
  9420. $segm1428 setLabel "name" "create"
  9421. $segm1428 setScope "name" "pe" "scopeSystem"
  9422.  
  9423. set conn1429 [$diag addConn com_message $node1421 $node1426 720.0 976.0 1040.0 1104.0]
  9424. set segm1430 [$conn1429 getFirstSegm]
  9425. $segm1430 setLabel "name" "check_out\n"
  9426. $segm1430 setScope "name" "pe" "scopeSystem"
  9427. set segm1431 [$conn1429 addSegm 1040.0 976.0]
  9428.  
  9429. set conn1432 [$diag addConn com_message $node1421 $node1425 732.0 944.0 1040.0 880.0]
  9430. set segm1433 [$conn1432 getFirstSegm]
  9431. $segm1433 setLabel "name" "check_out\n"
  9432. $segm1433 setScope "name" "pe" "scopeSystem"
  9433. set segm1434 [$conn1432 addSegm 1040.0 944.0]
  9434.  
  9435. set conn1435 [$diag addConn com_message $node1425 $node1424 1104.0 864.0 1104.0 688.0]
  9436. set segm1436 [$conn1435 getFirstSegm]
  9437. $segm1436 setLabel "name" "adjust_quantity"
  9438. $segm1436 setScope "name" "pe" "scopeSystem"
  9439.  
  9440. set conn1437 [$diag addConn com_message $node1426 $node1425 1104.0 1088.0 1104.0 880.0]
  9441. set segm1438 [$conn1437 getFirstSegm]
  9442. $segm1438 setLabel "name" "reserve"
  9443. $segm1438 setScope "name" "pe" "scopeSystem"
  9444.  
  9445. set conn1439 [$diag addConn com_message $node1426 $node1423 1024.0 1104.0 720.0 1104.0]
  9446. set segm1440 [$conn1439 getFirstSegm]
  9447. $segm1440 setLabel "name" "check item availability\n"
  9448. $segm1440 setScope "name" "pe" "scopeSystem"
  9449.  
  9450. set conn1441 [$diag addConn com_message $node1425 $node1422 1040.0 864.0 720.0 784.0]
  9451. set segm1442 [$conn1441 getFirstSegm]
  9452. set segm1443 [$conn1441 addSegm 1040.0 784.0]
  9453. $segm1443 setLabel "name" "overdue_notice\n"
  9454. $segm1443 setScope "name" "pe" "scopeSystem"
  9455.  
  9456. set conn1444 [$diag addConn com_message $node1425 $node1426 1120.0 880.0 1120.0 1104.0]
  9457. set segm1445 [$conn1444 getFirstSegm]
  9458. set segm1446 [$conn1444 addSegm 1184.0 880.0]
  9459. $segm1446 setLabel "name" "expire"
  9460. $segm1446 setScope "name" "pe" "scopeSystem"
  9461. set segm1447 [$conn1444 addSegm 1184.0 1104.0]
  9462.  
  9463. set conn1448 [$diag addConn com_message $node1421 $node1425 720.0 944.0 1072.0 880.0]
  9464. set segm1449 [$conn1448 getFirstSegm]
  9465. set segm1450 [$conn1448 addSegm 720.0 880.0]
  9466. $segm1450 setLabel "name" "check_in\n"
  9467. $segm1450 setScope "name" "pe" "scopeSystem"
  9468.  
  9469. $diag save
  9470. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9471.  
  9472.  
  9473. # ----------------------------------------------------------------------------
  9474. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Notifications.mgd'.
  9475. # ----------------------------------------------------------------------------
  9476.  
  9477. # Generator: et.tcl    /main/hindenburg/11
  9478. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9479. # Interpreter to use: Otsh V5.1.1/B1
  9480. #
  9481. OTShRegister::importTool
  9482.  
  9483. set diag [MGD new Notifications BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 0]
  9484.  
  9485. set node1451 [$diag addNode message_def 772.0 700.0 120.0 40.0]
  9486. $node1451 setLabel "name" "Notifications"
  9487. $node1451 setScope "name" "pe" "scopeSystem"
  9488.  
  9489. set node1453 [$diag addNode message_def 532.0 860.0 120.0 40.0]
  9490. $node1453 setLabel "name" "overdue"
  9491. $node1453 setScope "name" "pe" "scopeSystem"
  9492.  
  9493. set node1454 [$diag addNode message_def 692.0 860.0 120.0 40.0]
  9494. $node1454 setLabel "name" "checked_out"
  9495. $node1454 setScope "name" "pe" "scopeSystem"
  9496.  
  9497. set node1455 [$diag addNode message_def 852.0 860.0 120.0 40.0]
  9498. $node1455 setLabel "name" "due_date"
  9499. $node1455 setScope "name" "pe" "scopeSystem"
  9500.  
  9501. set node1456 [$diag addNode message_def 1012.0 860.0 120.0 40.0]
  9502. $node1456 setLabel "name" "accepted"
  9503. $node1456 setScope "name" "pe" "scopeSystem"
  9504.  
  9505. set node1452 [$diag addRake message_gen $node1451 $node1453 832.0 736.0 592.0 864.0 808.0]
  9506.  
  9507. set conn1457 [$diag addConn message_gen_conn $node1452 $node1454 752.0 808.0 752.0 880.0]
  9508. set segm1458 [$conn1457 getFirstSegm]
  9509.  
  9510. set conn1459 [$diag addConn message_gen_conn $node1452 $node1455 912.0 808.0 912.0 880.0]
  9511. set segm1460 [$conn1459 getFirstSegm]
  9512.  
  9513. set conn1461 [$diag addConn message_gen_conn $node1452 $node1456 1072.0 808.0 1072.0 880.0]
  9514. set segm1462 [$conn1461 getFirstSegm]
  9515.  
  9516. $diag save
  9517. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9518.  
  9519.  
  9520. # ----------------------------------------------------------------------------
  9521. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/UI_cmds.mgd'.
  9522. # ----------------------------------------------------------------------------
  9523.  
  9524. # Generator: et.tcl    /main/hindenburg/11
  9525. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9526. # Interpreter to use: Otsh V5.1.1/B1
  9527. #
  9528. OTShRegister::importTool
  9529.  
  9530. set diag [MGD new UI_cmds BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 0]
  9531.  
  9532. set node1464 [$diag addNode message_def 612.0 796.0 120.0 40.0]
  9533. $node1464 setLabel "name" "arrange_loan"
  9534. $node1464 setScope "name" "pe" "scopeSystem"
  9535.  
  9536. set node1465 [$diag addNode message_def 740.0 796.0 120.0 40.0]
  9537. $node1465 setLabel "name" "manage_\nwaiting_list"
  9538. $node1465 setScope "name" "pe" "scopeSystem"
  9539.  
  9540. set node1466 [$diag addNode message_def 868.0 796.0 120.0 40.0]
  9541. $node1466 setLabel "name" "arrange_sale"
  9542. $node1466 setScope "name" "pe" "scopeSystem"
  9543.  
  9544. set node1467 [$diag addNode message_def 996.0 796.0 120.0 40.0]
  9545. $node1467 setLabel "name" "handle_return"
  9546. $node1467 setScope "name" "pe" "scopeSystem"
  9547.  
  9548. set node1468 [$diag addNode message_def 1124.0 796.0 120.0 40.0]
  9549. $node1468 setLabel "name" "generate_report"
  9550. $node1468 setScope "name" "pe" "scopeSystem"
  9551.  
  9552. set node1469 [$diag addNode message_def 1252.0 796.0 120.0 40.0]
  9553. $node1469 setLabel "name" "add_new_\ntraining_materials"
  9554. $node1469 setScope "name" "pe" "scopeSystem"
  9555.  
  9556. set node1470 [$diag addNode message_def 948.0 652.0 120.0 40.0]
  9557. $node1470 setLabel "name" "UI_cmds"
  9558. $node1470 setScope "name" "pe" "scopeSystem"
  9559.  
  9560. set node1471 [$diag addNode message_def 1384.0 796.0 144.0 40.0]
  9561. $node1471 setLabel "name" "manage_workbook_\ninventory"
  9562. $node1471 setScope "name" "pe" "scopeSystem"
  9563.  
  9564. set node1463 [$diag addRake message_gen $node1470 $node1464 1008.0 688.0 672.0 800.0 752.0]
  9565.  
  9566. set conn1472 [$diag addConn message_gen_conn $node1463 $node1465 800.0 752.0 800.0 800.0]
  9567. set segm1473 [$conn1472 getFirstSegm]
  9568.  
  9569. set conn1474 [$diag addConn message_gen_conn $node1463 $node1466 928.0 752.0 928.0 816.0]
  9570. set segm1475 [$conn1474 getFirstSegm]
  9571.  
  9572. set conn1476 [$diag addConn message_gen_conn $node1463 $node1467 1056.0 752.0 1056.0 800.0]
  9573. set segm1477 [$conn1476 getFirstSegm]
  9574.  
  9575. set conn1478 [$diag addConn message_gen_conn $node1463 $node1468 1184.0 752.0 1184.0 800.0]
  9576. set segm1479 [$conn1478 getFirstSegm]
  9577.  
  9578. set conn1480 [$diag addConn message_gen_conn $node1463 $node1469 1312.0 752.0 1312.0 816.0]
  9579. set segm1481 [$conn1480 getFirstSegm]
  9580.  
  9581. set conn1482 [$diag addConn message_gen_conn $node1463 $node1471 1456.0 752.0 1456.0 816.0]
  9582. set segm1483 [$conn1482 getFirstSegm]
  9583.  
  9584. $diag save
  9585. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9586.  
  9587.  
  9588. # ----------------------------------------------------------------------------
  9589. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Borrower_Requests.mgd'.
  9590. # ----------------------------------------------------------------------------
  9591.  
  9592. # Generator: et.tcl    /main/hindenburg/11
  9593. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9594. # Interpreter to use: Otsh V5.1.1/B1
  9595. #
  9596. OTShRegister::importTool
  9597.  
  9598. set diag [MGD new Borrower_Requests BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 0]
  9599.  
  9600. set node1484 [$diag addNode message_def 740.0 876.0 120.0 40.0]
  9601. $node1484 setLabel "name" "LCD_Panel"
  9602. $node1484 setScope "name" "pe" "scopeSystem"
  9603.  
  9604. set node1485 [$diag addNode message_def 517.0 876.0 150.0 40.0]
  9605. $node1485 setLabel "name" "overhead projector"
  9606. $node1485 setScope "name" "pe" "scopeSystem"
  9607.  
  9608. set node1487 [$diag addNode message_def 722.0 700.0 156.0 40.0]
  9609. $node1487 setLabel "name" "Borrower_Requests"
  9610. $node1487 setScope "name" "pe" "scopeSystem"
  9611.  
  9612. set node1488 [$diag addNode message_def 916.0 876.0 120.0 40.0]
  9613. $node1488 setLabel "name" "extension"
  9614. $node1488 setScope "name" "pe" "scopeSystem"
  9615.  
  9616. set node1486 [$diag addRake message_gen $node1487 $node1484 800.0 736.0 800.0 896.0 816.0]
  9617.  
  9618. set conn1489 [$diag addConn message_gen_conn $node1486 $node1485 592.0 816.0 592.0 896.0]
  9619. set segm1490 [$conn1489 getFirstSegm]
  9620.  
  9621. set conn1491 [$diag addConn message_gen_conn $node1486 $node1488 976.0 816.0 976.0 880.0]
  9622. set segm1492 [$conn1491 getFirstSegm]
  9623.  
  9624. $diag save
  9625. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9626.  
  9627.  
  9628. # ----------------------------------------------------------------------------
  9629. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/WaitingList/top.std'.
  9630. # ----------------------------------------------------------------------------
  9631.  
  9632. # Generator: et.tcl    /main/hindenburg/11
  9633. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9634. # Interpreter to use: Otsh V5.1.1/B1
  9635. #
  9636. OTShRegister::importTool
  9637.  
  9638. set diag [STD new WaitingList:top BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  9639.  
  9640. set node1493 [$diag addNode state 1104.0 928.0 173.0 80.0]
  9641. $node1493 setLabel "name" "Waiting"
  9642.  
  9643. set node1494 [$diag addNode state 1104.0 1344.0 132.0 64.0]
  9644. $node1494 setLabel "name" "Not Waiting"
  9645.  
  9646. set node1495 [$diag addNode state 1104.0 1136.0 164.0 80.0]
  9647. $node1495 setLabel "name" "Reserved"
  9648.  
  9649. set node1496 [$diag addNode final_state 1554.0 1362.0 28.0 28.0]
  9650. $node1496 setLabel "name" "Done"
  9651.  
  9652. set node1497 [$diag addNode start_state 1177.0 809.0 14.0 14.0]
  9653.  
  9654. set node1498 [$diag addNode state 1504.0 1136.0 153.0 80.0]
  9655. $node1498 setLabel "name" "Expired"
  9656.  
  9657. set node1499 [$diag addNode std_class 820.0 1068.0 120.0 40.0]
  9658. $node1499 setLabel "name" "Loan\nCoordinator"
  9659. $node1499 setScope "name" "cl" "scopePhase"
  9660.  
  9661. set conn1502 [$diag addConn transition $node1493 $node1495 1184.0 976.0 1184.0 1168.0]
  9662. $conn1502 setLabel "event" "item is available\n"
  9663. set segm1503 [$conn1502 getFirstSegm]
  9664. $segm1503 setLabel "editor_only" " "
  9665.  
  9666. set conn1504 [$diag addConn transition $node1495 $node1494 1184.0 1200.0 1184.0 1360.0]
  9667. $conn1504 setLabel "event" "item is checked_out"
  9668. set segm1505 [$conn1504 getFirstSegm]
  9669. $segm1505 setLabel "editor_only" " "
  9670.  
  9671. set conn1506 [$diag addConn transition $node1497 $node1493 1184.0 816.0 1184.0 944.0]
  9672. set segm1507 [$conn1506 getFirstSegm]
  9673. $segm1507 setLabel "editor_only" " "
  9674.  
  9675. set conn1508 [$diag addConn transition $node1495 $node1498 1264.0 1168.0 1504.0 1168.0]
  9676. $conn1508 setLabel "event" "reservation date has expired"
  9677. set segm1509 [$conn1508 getFirstSegm]
  9678. $segm1509 setLabel "editor_only" " "
  9679.  
  9680. set conn1510 [$diag addConn transition $node1493 $node1498 1248.0 960.0 1568.0 1168.0]
  9681. $conn1510 setLabel "event" "date required has expired"
  9682. set segm1511 [$conn1510 getFirstSegm]
  9683. set segm1512 [$conn1510 addSegm 1568.0 960.0]
  9684. $segm1512 setLabel "editor_only" " "
  9685.  
  9686. set conn1513 [$diag addConn transition $node1498 $node1496 1568.0 1200.0 1568.0 1376.0]
  9687. set segm1514 [$conn1513 getFirstSegm]
  9688. $segm1514 setLabel "editor_only" " "
  9689.  
  9690. set conn1515 [$diag addConn transition $node1494 $node1496 1216.0 1376.0 1568.0 1376.0]
  9691. set segm1516 [$conn1515 getFirstSegm]
  9692. $segm1516 setLabel "editor_only" " "
  9693.  
  9694. set conn1500 [$diag addConn event_msg $segm1503 $node1499 1184.0 1088.0 928.0 1088.0]
  9695. set segm1501 [$conn1500 getFirstSegm]
  9696. $segm1501 setLabel "event" "notify"
  9697.  
  9698. set cono1520 [$node1494 addStateAction]
  9699. $cono1520 setLabel "event" "entry"
  9700. $cono1520 setLabel "action" "/status=done"
  9701. $cono1520 setScope "event" "rs" "scopeSystem"
  9702.  
  9703. set cono1521 [$node1498 addStateAction]
  9704. $cono1521 setLabel "event" "entry"
  9705. $cono1521 setLabel "action" "/status='expired'\n"
  9706. $cono1521 setScope "event" "rs" "scopeSystem"
  9707.  
  9708. set cono1522 [$node1495 addStateAction]
  9709. $cono1522 setLabel "event" "entry"
  9710. $cono1522 setLabel "action" "/status='reserved'\n"
  9711. $cono1522 setScope "event" "rs" "scopeSystem"
  9712.  
  9713. set cono1523 [$node1493 addStateAction]
  9714. $cono1523 setLabel "event" "entry"
  9715. $cono1523 setLabel "action" "/status='waiting'\n"
  9716. $cono1523 setScope "event" "rs" "scopeSystem"
  9717.  
  9718. set cono1517 [$node1498 addActivity]
  9719. $cono1517 setLabel "name" "do:expired loan"
  9720.  
  9721. set cono1518 [$node1495 addActivity]
  9722. $cono1518 setLabel "name" "do:reserve item"
  9723.  
  9724. set cono1519 [$node1493 addActivity]
  9725. $cono1519 setLabel "name" "do:check item availability"
  9726.  
  9727. $diag save
  9728. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9729.  
  9730.  
  9731. # ----------------------------------------------------------------------------
  9732. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Employee_requests_LCD_Panel.etd'.
  9733. # ----------------------------------------------------------------------------
  9734.  
  9735. # Generator: et.tcl    /main/hindenburg/11
  9736. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9737. # Interpreter to use: Otsh V5.1.1/B1
  9738. #
  9739. OTShRegister::importTool
  9740.  
  9741. set diag [ETD new common:Employee_requests_LCD_Panel BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 0]
  9742.  
  9743. set node1524 [$diag addNode etd_object 1310.5 1344.0 3.0 45.0]
  9744. $node1524 setLabel "name_type" "Loan"
  9745. $node1524 setScope "name_type" "cl" "scopePhase"
  9746.  
  9747. set node1525 [$diag addNode etd_object 1310.5 1168.0 3.0 64.0]
  9748. $node1525 setLabel "name_type" "WaitingList"
  9749. $node1525 setScope "name_type" "cl" "scopePhase"
  9750.  
  9751. set node1526 [$diag addNode etd_object 1310.5 1424.0 3.0 39.0]
  9752. $node1526 setLabel "name_type" "WaitingList"
  9753. $node1526 setScope "name_type" "cl" "scopePhase"
  9754.  
  9755. set node1527 [$diag addNode etd_object 1502.5 928.0 3.0 49.0]
  9756. $node1527 setLabel "name_type" "Inventory"
  9757. $node1527 setScope "name_type" "cl" "scopePhase"
  9758.  
  9759. set node1528 [$diag addNode etd_object 1134.5 816.0 3.0 639.0]
  9760. $node1528 setLabel "name_type" "LoanCoordinator"
  9761. $node1528 setScope "name_type" "cl" "scopePhase"
  9762.  
  9763. set node1529 [$diag addNode etd_object 1326.5 928.0 3.0 52.0]
  9764. $node1529 setLabel "name_type" "loan"
  9765. $node1529 setScope "name_type" "cl" "scopePhase"
  9766.  
  9767. set node1530 [$diag addNode etd_object 1518.5 1344.0 3.0 46.0]
  9768. $node1530 setLabel "name_type" "Inventory"
  9769. $node1530 setScope "name_type" "cl" "scopePhase"
  9770.  
  9771. set node1531 [$diag addNode etd_initiator 830.5 816.0 3.0 630.0]
  9772. $node1531 setLabel "name_type" "Borrower"
  9773. $node1531 setScope "name_type" "cl" "scopePhase"
  9774.  
  9775. set node1532 [$diag addNode etd_object 1598.5 1024.0 3.0 301.0]
  9776. $node1532 setLabel "name_type" "TrainingMaterial"
  9777. $node1532 setScope "name_type" "cl" "scopePhase"
  9778.  
  9779. set node1533 [$diag addNode etd_object 1598.5 816.0 3.0 122.0]
  9780. $node1533 setLabel "name_type" "Proxima:LCD_Panel"
  9781. $node1533 setScope "name_type" "de" "scopeSystem"
  9782. $node1533 setScope "name_type" "cl" "scopePhase"
  9783.  
  9784. set conn1534 [$diag addConn etd_event $node1528 $node1531 1136.0 1296.0 832.0 1296.0]
  9785. set segm1535 [$conn1534 getFirstSegm]
  9786. $segm1535 setLabel "event" "notify borrower"
  9787. $segm1535 setScope "event" "pe" "scopeSystem"
  9788.  
  9789. set conn1536 [$diag addConn etd_event $node1528 $node1531 1136.0 912.0 832.0 912.0]
  9790. set segm1537 [$conn1536 getFirstSegm]
  9791. $segm1537 setLabel "event" "notifies borrower"
  9792. $segm1537 setScope "event" "pe" "scopeSystem"
  9793.  
  9794. set conn1538 [$diag addConn etd_event $node1528 $node1531 1136.0 1120.0 832.0 1120.0]
  9795. set segm1539 [$conn1538 getFirstSegm]
  9796. $segm1539 setLabel "event" "notifies borrower"
  9797. $segm1539 setScope "event" "pe" "scopeSystem"
  9798.  
  9799. set conn1540 [$diag addConn etd_event $node1528 $node1533 1136.0 832.0 1600.0 832.0]
  9800. set segm1541 [$conn1540 getFirstSegm]
  9801. $segm1541 setLabel "event" "checks availability"
  9802. $segm1541 setScope "event" "pe" "scopeSystem"
  9803.  
  9804. set conn1542 [$diag addConn etd_event $node1528 $node1532 1136.0 1056.0 1600.0 1056.0]
  9805. set segm1543 [$conn1542 getFirstSegm]
  9806. $segm1543 setLabel "event" "checks availability"
  9807. $segm1543 setScope "event" "pe" "scopeSystem"
  9808.  
  9809. set conn1544 [$diag addConn etd_event $node1528 $node1532 1136.0 1248.0 1600.0 1248.0]
  9810. set segm1545 [$conn1544 getFirstSegm]
  9811. $segm1545 setLabel "event" "checks availablity"
  9812. $segm1545 setScope "event" "pe" "scopeSystem"
  9813.  
  9814. set conn1546 [$diag addConn etd_event $node1528 $node1524 1136.0 1360.0 1312.0 1360.0]
  9815. set segm1547 [$conn1546 getFirstSegm]
  9816. $segm1547 setLabel "event" "creates"
  9817. $segm1547 setScope "event" "pe" "scopeSystem"
  9818.  
  9819. set conn1548 [$diag addConn etd_event $node1528 $node1526 1136.0 1440.0 1312.0 1440.0]
  9820. set segm1549 [$conn1548 getFirstSegm]
  9821. $segm1549 setLabel "event" "deletes"
  9822. $segm1549 setScope "event" "pe" "scopeSystem"
  9823.  
  9824. set conn1550 [$diag addConn etd_event $node1528 $node1525 1136.0 1200.0 1312.0 1200.0]
  9825. set segm1551 [$conn1550 getFirstSegm]
  9826. $segm1551 setLabel "event" "creates"
  9827. $segm1551 setScope "event" "pe" "scopeSystem"
  9828.  
  9829. set conn1552 [$diag addConn etd_event $node1529 $node1527 1328.0 944.0 1504.0 944.0]
  9830. set segm1553 [$conn1552 getFirstSegm]
  9831. $segm1553 setLabel "event" "decrement qty"
  9832. $segm1553 setScope "event" "pe" "scopeSystem"
  9833.  
  9834. set conn1554 [$diag addConn etd_event $node1531 $node1528 832.0 832.0 1136.0 832.0]
  9835. set segm1555 [$conn1554 getFirstSegm]
  9836. $segm1555 setLabel "event" "calls to request LCD_Panel"
  9837. $segm1555 setScope "event" "pe" "scopeSystem"
  9838.  
  9839. set conn1556 [$diag addConn etd_event $node1532 $node1528 1600.0 1296.0 1136.0 1296.0]
  9840. set segm1557 [$conn1556 getFirstSegm]
  9841. $segm1557 setLabel "event" "item is available"
  9842. $segm1557 setScope "event" "pe" "scopeSystem"
  9843.  
  9844. set conn1558 [$diag addConn etd_event $node1533 $node1528 1600.0 880.0 1136.0 880.0]
  9845. set segm1559 [$conn1558 getFirstSegm]
  9846. $segm1559 setLabel "event" "item is available"
  9847. $segm1559 setScope "event" "pe" "scopeSystem"
  9848.  
  9849. set conn1560 [$diag addConn etd_event $node1531 $node1528 832.0 1056.0 1136.0 1056.0]
  9850. set segm1561 [$conn1560 getFirstSegm]
  9851. $segm1561 setLabel "event" "request overhead projector"
  9852. $segm1561 setScope "event" "pe" "scopeSystem"
  9853.  
  9854. set conn1562 [$diag addConn etd_event $node1532 $node1528 1600.0 1120.0 1136.0 1120.0]
  9855. set segm1563 [$conn1562 getFirstSegm]
  9856. $segm1563 setLabel "event" "item is not available"
  9857. $segm1563 setScope "event" "pe" "scopeSystem"
  9858.  
  9859. set conn1564 [$diag addConn etd_event $node1531 $node1528 832.0 1184.0 1136.0 1184.0]
  9860. set segm1565 [$conn1564 getFirstSegm]
  9861. $segm1565 setLabel "event" "requests to be on waiting list"
  9862. $segm1565 setScope "event" "pe" "scopeSystem"
  9863.  
  9864. set conn1566 [$diag addConn etd_event $node1528 $node1529 1136.0 944.0 1328.0 944.0]
  9865. set segm1567 [$conn1566 getFirstSegm]
  9866. $segm1567 setLabel "event" "creates"
  9867. $segm1567 setScope "event" "pe" "scopeSystem"
  9868.  
  9869. set conn1568 [$diag addConn etd_event $node1524 $node1530 1312.0 1360.0 1520.0 1360.0]
  9870. set segm1569 [$conn1568 getFirstSegm]
  9871. $segm1569 setLabel "event" "decrement qty"
  9872. $segm1569 setScope "event" "pe" "scopeSystem"
  9873.  
  9874. $diag save
  9875. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9876.  
  9877.  
  9878. # ----------------------------------------------------------------------------
  9879. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/BusinessObjects.system/Employee_requests_extension.etd'.
  9880. # ----------------------------------------------------------------------------
  9881.  
  9882. # Generator: et.tcl    /main/hindenburg/11
  9883. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9884. # Interpreter to use: Otsh V5.1.1/B1
  9885. #
  9886. OTShRegister::importTool
  9887.  
  9888. set diag [ETD new common:Employee_requests_extension BusinessObjects SystemDesign SystemDesign Prototype 1 TrainingMaterials 0]
  9889.  
  9890. set node1570 [$diag addNode etd_object 1614.5 816.0 3.0 481.0]
  9891. $node1570 setLabel "name_type" "Loan"
  9892. $node1570 setScope "name_type" "cl" "scopePhase"
  9893.  
  9894. set node1571 [$diag addNode etd_object 1070.5 816.0 3.0 475.0]
  9895. $node1571 setLabel "name_type" "LoanCoordinator"
  9896. $node1571 setScope "name_type" "cl" "scopePhase"
  9897.  
  9898. set node1572 [$diag addNode etd_object 1454.5 976.0 3.0 120.0]
  9899. $node1572 setLabel "name_type" "WaitingList"
  9900. $node1572 setScope "name_type" "cl" "scopePhase"
  9901.  
  9902. set node1573 [$diag addNode etd_initiator 830.5 816.0 3.0 474.0]
  9903. $node1573 setLabel "name_type" "Borrower"
  9904. $node1573 setScope "name_type" "cl" "scopePhase"
  9905.  
  9906. set node1574 [$diag addNode etd_object 1342.5 1104.0 3.0 120.0]
  9907. $node1574 setLabel "name_type" "Extension"
  9908. $node1574 setScope "name_type" "cl" "scopePhase"
  9909.  
  9910. set conn1575 [$diag addConn etd_event $node1571 $node1573 1072.0 1248.0 832.0 1248.0]
  9911. set segm1576 [$conn1575 getFirstSegm]
  9912. $segm1576 setLabel "event" "notifies new due date"
  9913. $segm1576 setScope "event" "pe" "scopeSystem"
  9914.  
  9915. set conn1577 [$diag addConn etd_event $node1571 $node1574 1072.0 1136.0 1344.0 1136.0]
  9916. set segm1578 [$conn1577 getFirstSegm]
  9917. $segm1578 setLabel "event" "creates"
  9918. $segm1578 setScope "event" "pe" "scopeSystem"
  9919.  
  9920. set conn1579 [$diag addConn etd_event $node1574 $node1570 1344.0 1168.0 1616.0 1168.0]
  9921. set segm1580 [$conn1579 getFirstSegm]
  9922. $segm1580 setLabel "event" "update due date"
  9923. $segm1580 setScope "event" "pe" "scopeSystem"
  9924.  
  9925. set conn1581 [$diag addConn etd_event $node1571 $node1570 1072.0 848.0 1616.0 848.0]
  9926. set segm1582 [$conn1581 getFirstSegm]
  9927. $segm1582 setLabel "event" "checks Loan status"
  9928. $segm1582 setScope "event" "pe" "scopeSystem"
  9929.  
  9930. set conn1583 [$diag addConn etd_event $node1572 $node1571 1456.0 1040.0 1072.0 1040.0]
  9931. set segm1584 [$conn1583 getFirstSegm]
  9932. $segm1584 setLabel "event" "item is not reserved"
  9933. $segm1584 setScope "event" "pe" "scopeSystem"
  9934.  
  9935. set conn1585 [$diag addConn etd_event $node1573 $node1571 832.0 848.0 1072.0 848.0]
  9936. set segm1586 [$conn1585 getFirstSegm]
  9937. $segm1586 setLabel "event" "request extension for LCD_Panel"
  9938. $segm1586 setScope "event" "pe" "scopeSystem"
  9939.  
  9940. set conn1587 [$diag addConn etd_event $node1570 $node1571 1616.0 912.0 1072.0 912.0]
  9941. set segm1588 [$conn1587 getFirstSegm]
  9942. $segm1588 setLabel "event" "status is on_loan"
  9943. $segm1588 setScope "event" "pe" "scopeSystem"
  9944.  
  9945. set conn1589 [$diag addConn etd_event $node1570 $node1571 1616.0 1248.0 1072.0 1248.0]
  9946. set segm1590 [$conn1589 getFirstSegm]
  9947. $segm1590 setLabel "event" "new due date"
  9948. $segm1590 setScope "event" "pe" "scopeSystem"
  9949.  
  9950. set conn1591 [$diag addConn etd_event $node1571 $node1572 1072.0 992.0 1456.0 992.0]
  9951. set segm1592 [$conn1591 getFirstSegm]
  9952. $segm1592 setLabel "event" "checks WaitingList for item and date"
  9953. $segm1592 setScope "event" "pe" "scopeSystem"
  9954.  
  9955. $diag save
  9956. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9957.  
  9958.  
  9959. # ----------------------------------------------------------------------------
  9960. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Architecture.system/2T_Fetch.ccd'.
  9961. # ----------------------------------------------------------------------------
  9962.  
  9963. # Generator: et.tcl    /main/hindenburg/11
  9964. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  9965. # Interpreter to use: Otsh V5.1.1/B1
  9966. #
  9967. OTShRegister::importTool
  9968.  
  9969. set diag [CCD new 2T_Fetch Architecture SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  9970.  
  9971. set node1593 [$diag addNode ccd_actor 900.0 700.0 120.0 40.0]
  9972. $node1593 setLabel "name" "Server_Part"
  9973. $node1593 setScope "name" "cl" "scopePhase"
  9974.  
  9975. set node1594 [$diag addNode ccd_actor 564.0 700.0 120.0 40.0]
  9976. $node1594 setLabel "name" "Client_Part"
  9977. $node1594 setScope "name" "cl" "scopePhase"
  9978.  
  9979. set node1595 [$diag addNode ccd_class 564.0 860.0 120.0 40.0]
  9980. $node1595 setLabel "name" "User_Interface"
  9981. $node1595 setScope "name" "cl" "scopePhase"
  9982.  
  9983. set node1596 [$diag addNode ccd_class 884.0 860.0 152.0 40.0]
  9984. $node1596 setLabel "name" "Database_\nStored_Procedure"
  9985. $node1596 setScope "name" "cl" "scopePhase"
  9986.  
  9987. set conn1597 [$diag addConn com_message $node1594 $node1593 672.0 720.0 912.0 720.0]
  9988. set segm1598 [$conn1597 getFirstSegm]
  9989. $segm1598 setLabel "name" "fetch\n"
  9990. $segm1598 setScope "name" "pe" "scopeSystem"
  9991.  
  9992. set conn1599 [$diag addConn com_message $node1595 $node1596 672.0 880.0 912.0 880.0]
  9993. set segm1600 [$conn1599 getFirstSegm]
  9994. $segm1600 setLabel "name" "SQL\n(short commands)\n\n"
  9995. $segm1600 setScope "name" "pe" "scopeSystem"
  9996.  
  9997. $diag save
  9998. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  9999.  
  10000.  
  10001. # ----------------------------------------------------------------------------
  10002. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Architecture.system/Two-Tiered_Architecture.cad'.
  10003. # ----------------------------------------------------------------------------
  10004.  
  10005. # Generator: et.tcl    /main/hindenburg/11
  10006. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  10007. # Interpreter to use: Otsh V5.1.1/B1
  10008. #
  10009. OTShRegister::importTool
  10010.  
  10011. set diag [CAD new Two-Tiered_Architecture Architecture SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  10012.  
  10013. set node1601 [$diag addNode cad_class 800.0 1152.0 120.0 48.0]
  10014. $node1601 setLabel "name" "Client_\nHost"
  10015. $node1601 setProp "is_folded" "1"
  10016. $node1601 setScope "name" "cl" "scopePhase"
  10017.  
  10018. set node1602 [$diag addNode cad_class 992.0 1088.0 120.0 48.0]
  10019. $node1602 setLabel "name" "Client_\nApplication"
  10020. $node1602 setProp "is_folded" "1"
  10021. $node1602 setScope "name" "cl" "scopePhase"
  10022.  
  10023. set node1603 [$diag addNode cad_class 1280.0 1408.0 120.0 32.0]
  10024. $node1603 setLabel "name" "Triggers"
  10025. $node1603 setProp "is_folded" "1"
  10026. $node1603 setScope "name" "cl" "scopePhase"
  10027.  
  10028. set node1604 [$diag addNode cad_class 1408.0 1088.0 126.0 48.0]
  10029. $node1604 setLabel "name" "Database\nServer_Process"
  10030. $node1604 setProp "is_folded" "1"
  10031. $node1604 setScope "name" "cl" "scopePhase"
  10032.  
  10033. set node1605 [$diag addNode cad_class 1408.0 1264.0 120.0 48.0]
  10034. $node1605 setLabel "name" "Database_\nBackup"
  10035. $node1605 setProp "is_folded" "1"
  10036. $node1605 setScope "name" "cl" "scopePhase"
  10037.  
  10038. set node1606 [$diag addNode more_classes 1412.0 1404.0 120.0 40.0]
  10039.  
  10040. set node1607 [$diag addNode more_classes 1540.0 1084.0 120.0 40.0]
  10041.  
  10042. set node1608 [$diag addNode cad_class 1232.0 800.0 120.0 32.0]
  10043. $node1608 setLabel "name" "Application"
  10044. $node1608 setProp "is_folded" "1"
  10045. $node1608 setScope "name" "cl" "scopePhase"
  10046.  
  10047. set node1609 [$diag addNode cad_class 1552.0 1264.0 120.0 48.0]
  10048. $node1609 setLabel "name" "Data_\nProcessing"
  10049. $node1609 setProp "is_folded" "1"
  10050. $node1609 setScope "name" "cl" "scopePhase"
  10051.  
  10052. set node1610 [$diag addNode cad_class 1616.0 992.0 120.0 48.0]
  10053. $node1610 setLabel "name" "Server_\nHost"
  10054. $node1610 setProp "is_folded" "1"
  10055. $node1610 setScope "name" "cl" "scopePhase"
  10056.  
  10057. set node1611 [$diag addNode more_classes 1684.0 1260.0 120.0 40.0]
  10058.  
  10059. set node1612 [$diag addNode cad_class 912.0 1264.0 120.0 48.0]
  10060. $node1612 setLabel "name" "User_\nInterface"
  10061. $node1612 setProp "is_folded" "1"
  10062. $node1612 setScope "name" "cl" "scopePhase"
  10063.  
  10064. set node1613 [$diag addNode cad_class 1056.0 928.0 120.0 32.0]
  10065. $node1613 setLabel "name" "Client_Part"
  10066. $node1613 setProp "is_folded" "1"
  10067. $node1613 setScope "name" "cl" "scopePhase"
  10068.  
  10069. set node1614 [$diag addNode cad_class 1056.0 1264.0 120.0 48.0]
  10070. $node1614 setLabel "name" "Program_\nLogic"
  10071. $node1614 setProp "is_folded" "1"
  10072. $node1614 setScope "name" "cl" "scopePhase"
  10073.  
  10074. set node1615 [$diag addNode more_classes 1124.0 1084.0 120.0 40.0]
  10075.  
  10076. set node1616 [$diag addNode cad_class 1136.0 1408.0 120.0 48.0]
  10077. $node1616 setLabel "name" "Stored_\nProcedures"
  10078. $node1616 setProp "is_folded" "1"
  10079. $node1616 setScope "name" "cl" "scopePhase"
  10080.  
  10081. set node1618 [$diag addNode cad_class 1264.0 1264.0 120.0 48.0]
  10082. $node1618 setLabel "name" "Data_\nStorage"
  10083. $node1618 setProp "is_folded" "1"
  10084. $node1618 setScope "name" "cl" "scopePhase"
  10085.  
  10086. set node1620 [$diag addNode cad_class 1456.0 928.0 120.0 32.0]
  10087. $node1620 setLabel "name" "Server_Part"
  10088. $node1620 setProp "is_folded" "1"
  10089. $node1620 setScope "name" "cl" "scopePhase"
  10090.  
  10091. set conn1621 [$diag addConn association $node1601 $node1602 848.0 1168.0 1024.0 1104.0]
  10092. $conn1621 setProp "mult_kind_end" "many"
  10093. $conn1621 setProp "mult_kind_start" "one"
  10094. set segm1622 [$conn1621 getFirstSegm]
  10095. set segm1623 [$conn1621 addSegm 848.0 1104.0]
  10096. $segm1623 setLabel "name" "executes\n"
  10097. $segm1623 setScope "name" "cl" "scopeFile"
  10098.  
  10099. set conn1624 [$diag addConn aggregation $node1620 $node1604 1520.0 960.0 1472.0 1104.0]
  10100. $conn1624 setProp "mult_kind_end" "one"
  10101. $conn1624 setProp "mult_kind_start" "one"
  10102. set segm1625 [$conn1624 getFirstSegm]
  10103. set segm1626 [$conn1624 addSegm 1520.0 1024.0]
  10104. set segm1627 [$conn1624 addSegm 1472.0 1024.0]
  10105.  
  10106. set conn1628 [$diag addConn aggregation $node1613 $node1602 1120.0 944.0 1040.0 1104.0]
  10107. $conn1628 setProp "mult_kind_end" "one"
  10108. $conn1628 setProp "mult_kind_start" "one"
  10109. set segm1629 [$conn1628 getFirstSegm]
  10110. set segm1630 [$conn1628 addSegm 1120.0 1024.0]
  10111. set segm1631 [$conn1628 addSegm 1040.0 1024.0]
  10112.  
  10113. set conn1632 [$diag addConn aggregation $node1608 $node1613 1296.0 832.0 1104.0 944.0]
  10114. $conn1632 setProp "mult_kind_end" "one"
  10115. $conn1632 setProp "mult_kind_start" "one"
  10116. set segm1633 [$conn1632 getFirstSegm]
  10117. $segm1633 setLabel "name" "consists of"
  10118. $segm1633 setScope "name" "cl" "scopeFile"
  10119. set segm1634 [$conn1632 addSegm 1296.0 896.0]
  10120. set segm1635 [$conn1632 addSegm 1104.0 896.0]
  10121.  
  10122. set conn1636 [$diag addConn association $node1620 $node1613 1456.0 944.0 1168.0 944.0]
  10123. $conn1636 setProp "mult_kind_end" "many"
  10124. $conn1636 setProp "mult_kind_start" "optional"
  10125. set segm1637 [$conn1636 getFirstSegm]
  10126. $segm1637 setLabel "name" "fetch\n"
  10127. $segm1637 setScope "name" "cl" "scopeFile"
  10128.  
  10129. set conn1638 [$diag addConn association $node1620 $node1610 1568.0 944.0 1680.0 1008.0]
  10130. $conn1638 setProp "mult_kind_end" "many"
  10131. $conn1638 setProp "mult_kind_start" "one"
  10132. set segm1639 [$conn1638 getFirstSegm]
  10133. $segm1639 setLabel "name" "executes\n"
  10134. $segm1639 setScope "name" "cl" "scopeFile"
  10135. set segm1640 [$conn1638 addSegm 1680.0 944.0]
  10136.  
  10137. set conn1641 [$diag addConn aggregation $node1602 $node1612 1056.0 1136.0 976.0 1280.0]
  10138. $conn1641 setProp "mult_kind_end" "one"
  10139. $conn1641 setProp "mult_kind_start" "one"
  10140. set segm1642 [$conn1641 getFirstSegm]
  10141. set segm1643 [$conn1641 addSegm 1056.0 1216.0]
  10142. set segm1644 [$conn1641 addSegm 976.0 1216.0]
  10143.  
  10144. set conn1645 [$diag addConn aggregation $node1602 $node1614 1056.0 1120.0 1120.0 1280.0]
  10145. $conn1645 setProp "mult_kind_end" "one"
  10146. $conn1645 setProp "mult_kind_start" "one"
  10147. set segm1646 [$conn1645 getFirstSegm]
  10148. set segm1647 [$conn1645 addSegm 1056.0 1216.0]
  10149. set segm1648 [$conn1645 addSegm 1120.0 1216.0]
  10150.  
  10151. set conn1649 [$diag addConn aggregation $node1608 $node1620 1296.0 832.0 1520.0 944.0]
  10152. $conn1649 setProp "mult_kind_end" "one"
  10153. $conn1649 setProp "mult_kind_start" "one"
  10154. set segm1650 [$conn1649 getFirstSegm]
  10155. set segm1651 [$conn1649 addSegm 1296.0 896.0]
  10156. set segm1652 [$conn1649 addSegm 1520.0 896.0]
  10157.  
  10158. set node1617 [$diag addRake generalization $node1618 $node1606 1328.0 1296.0 1472.0 1424.0 1360.0]
  10159.  
  10160. set conn1653 [$diag addConn generalization_conn $node1617 $node1616 1200.0 1360.0 1200.0 1424.0]
  10161. set segm1654 [$conn1653 getFirstSegm]
  10162.  
  10163. set conn1655 [$diag addConn generalization_conn $node1617 $node1603 1328.0 1360.0 1328.0 1424.0]
  10164. set segm1656 [$conn1655 getFirstSegm]
  10165.  
  10166. set node1619 [$diag addRake generalization $node1604 $node1605 1472.0 1120.0 1472.0 1296.0 1208.0]
  10167.  
  10168. set conn1657 [$diag addConn generalization_conn $node1619 $node1609 1616.0 1208.0 1616.0 1296.0]
  10169. set segm1658 [$conn1657 getFirstSegm]
  10170.  
  10171. set conn1659 [$diag addConn generalization_conn $node1619 $node1611 1744.0 1208.0 1744.0 1280.0]
  10172. set segm1660 [$conn1659 getFirstSegm]
  10173.  
  10174. set conn1661 [$diag addConn generalization_conn $node1619 $node1618 1328.0 1208.0 1328.0 1280.0]
  10175. set segm1662 [$conn1661 getFirstSegm]
  10176.  
  10177. $diag save
  10178. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  10179.  
  10180.  
  10181. # ----------------------------------------------------------------------------
  10182. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Architecture.system/External_Data.cdm'.
  10183. # ----------------------------------------------------------------------------
  10184.  
  10185. # Generator: et.tcl    /main/hindenburg/11
  10186. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  10187. # Interpreter to use: Otsh V5.1.1/B1
  10188. #
  10189. OTShRegister::importTool
  10190.  
  10191. set diag [CDM new External_Data Architecture SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  10192.  
  10193. set row1663 [$diag addRow method 0.0]
  10194. $row1663 setLabel "name_type" "data_managers"
  10195.  
  10196. $diag save
  10197. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  10198.  
  10199.  
  10200. # ----------------------------------------------------------------------------
  10201. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Architecture.system/Three-Tiered_Architecture.cad'.
  10202. # ----------------------------------------------------------------------------
  10203.  
  10204. # Generator: et.tcl    /main/hindenburg/11
  10205. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  10206. # Interpreter to use: Otsh V5.1.1/B1
  10207. #
  10208. OTShRegister::importTool
  10209.  
  10210. set diag [CAD new Three-Tiered_Architecture Architecture SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  10211.  
  10212. set node1664 [$diag addNode more_classes 1300.0 1228.0 120.0 40.0]
  10213.  
  10214. set node1665 [$diag addNode cad_class 928.0 1088.0 128.0 28.0]
  10215. $node1665 setLabel "name" "Business_Rules"
  10216. $node1665 setProp "is_folded" "1"
  10217. $node1665 setScope "name" "cl" "scopePhase"
  10218.  
  10219. set node1666 [$diag addNode cad_class 800.0 1088.0 107.001 28.0]
  10220. $node1666 setLabel "name" "Algorithms"
  10221. $node1666 setProp "is_folded" "1"
  10222. $node1666 setScope "name" "cl" "scopePhase"
  10223.  
  10224. set node1667 [$diag addNode cad_class 1360.0 1088.0 120.0 92.0001]
  10225. $node1667 setLabel "name" "External_Data"
  10226. $node1667 setScope "name" "cl" "scopePhase"
  10227.  
  10228. set node1668 [$diag addNode cad_class 1024.0 1344.0 120.0 28.0]
  10229. $node1668 setLabel "name" "In-Out_Tokens"
  10230. $node1668 setProp "is_folded" "1"
  10231. $node1668 setScope "name" "cl" "scopePhase"
  10232.  
  10233. set node1669 [$diag addNode cad_class 1200.0 1088.0 130.0 96.0]
  10234. $node1669 setLabel "name" "External_Events"
  10235. $node1669 setScope "name" "cl" "scopePhase"
  10236.  
  10237. set node1671 [$diag addNode cad_class 1328.0 960.0 167.0 32.0]
  10238. $node1671 setLabel "name" "Communications_Part"
  10239. $node1671 setProp "is_folded" "1"
  10240. $node1671 setScope "name" "cl" "scopePhase"
  10241.  
  10242. set node1672 [$diag addNode more_classes 1508.0 1084.0 120.0 40.0]
  10243.  
  10244. set node1674 [$diag addNode cad_class 864.0 944.0 152.0 32.0]
  10245. $node1674 setLabel "name" "Computational_Part"
  10246. $node1674 setProp "is_folded" "1"
  10247. $node1674 setScope "name" "cl" "scopePhase"
  10248.  
  10249. set node1675 [$diag addNode cad_class 1104.0 800.0 120.0 32.0]
  10250. $node1675 setLabel "name" "Application"
  10251. $node1675 setProp "is_folded" "1"
  10252. $node1675 setScope "name" "cl" "scopePhase"
  10253.  
  10254. set node1676 [$diag addNode cad_class 1168.0 1344.0 170.0 28.0]
  10255. $node1676 setLabel "name" "Presentation_Formats"
  10256. $node1676 setProp "is_folded" "1"
  10257. $node1676 setScope "name" "cl" "scopePhase"
  10258.  
  10259. set node1677 [$diag addNode cad_class 1104.0 1232.0 162.0 32.0]
  10260. $node1677 setLabel "name" "Interactive_Interface"
  10261. $node1677 setProp "is_folded" "1"
  10262. $node1677 setScope "name" "cl" "scopePhase"
  10263.  
  10264. set node1679 [$diag addNode more_classes 1060.0 1084.0 120.0 40.0]
  10265.  
  10266. set conn1680 [$diag addConn aggregation $node1675 $node1674 1168.0 832.0 944.0 944.0]
  10267. $conn1680 setProp "mult_kind_end" "one"
  10268. $conn1680 setProp "mult_kind_start" "one"
  10269. set segm1681 [$conn1680 getFirstSegm]
  10270. $segm1681 setLabel "name" "consists_of"
  10271. $segm1681 setScope "name" "cl" "scopeFile"
  10272. set segm1682 [$conn1680 addSegm 1168.0 912.0]
  10273. set segm1683 [$conn1680 addSegm 944.0 912.0]
  10274.  
  10275. set conn1684 [$diag addConn aggregation $node1677 $node1668 1168.0 1264.0 1088.0 1344.0]
  10276. $conn1684 setProp "mult_kind_end" "one"
  10277. $conn1684 setProp "mult_kind_start" "one"
  10278. set segm1685 [$conn1684 getFirstSegm]
  10279. set segm1686 [$conn1684 addSegm 1168.0 1312.0]
  10280. set segm1687 [$conn1684 addSegm 1088.0 1312.0]
  10281.  
  10282. set conn1688 [$diag addConn aggregation $node1675 $node1671 1168.0 832.0 1408.0 960.0]
  10283. $conn1688 setProp "mult_kind_end" "one"
  10284. $conn1688 setProp "mult_kind_start" "one"
  10285. set segm1689 [$conn1688 getFirstSegm]
  10286. set segm1690 [$conn1688 addSegm 1168.0 912.0]
  10287. set segm1691 [$conn1688 addSegm 1408.0 912.0]
  10288.  
  10289. set conn1692 [$diag addConn aggregation $node1677 $node1676 1168.0 1248.0 1264.0 1344.0]
  10290. $conn1692 setProp "mult_kind_end" "one"
  10291. $conn1692 setProp "mult_kind_start" "one"
  10292. set segm1693 [$conn1692 getFirstSegm]
  10293. set segm1694 [$conn1692 addSegm 1168.0 1312.0]
  10294. set segm1695 [$conn1692 addSegm 1264.0 1312.0]
  10295.  
  10296. set node1670 [$diag addRake generalization $node1671 $node1667 1408.0 992.0 1424.0 1104.0 1039.5]
  10297.  
  10298. set conn1696 [$diag addConn generalization_conn $node1670 $node1669 1408.0 1040.0 1264.0 1104.0]
  10299. set segm1697 [$conn1696 getFirstSegm]
  10300.  
  10301. set conn1698 [$diag addConn generalization_conn $node1670 $node1672 1434.0 1040.0 1568.0 1104.0]
  10302. set segm1699 [$conn1698 getFirstSegm]
  10303. set segm1700 [$conn1698 addSegm 1568.0 1056.0]
  10304.  
  10305. set node1673 [$diag addRake overlap_gen $node1674 $node1665 944.0 960.0 976.0 1104.0 1032.0]
  10306.  
  10307. set conn1701 [$diag addConn overlap_gen_conn $node1673 $node1666 944.0 1032.5 848.0 1088.0]
  10308. set segm1702 [$conn1701 getFirstSegm]
  10309. set segm1703 [$conn1701 addSegm 848.0 1040.0]
  10310.  
  10311. set conn1704 [$diag addConn overlap_gen_conn $node1673 $node1679 1056.0 1032.5 1120.0 1088.0]
  10312. set segm1705 [$conn1704 getFirstSegm]
  10313.  
  10314. set node1678 [$diag addRake generalization $node1669 $node1677 1264.0 1184.0 1168.0 1248.0 1216.0]
  10315.  
  10316. set conn1706 [$diag addConn generalization_conn $node1678 $node1664 1264.0 1216.5 1360.0 1248.0]
  10317. set segm1707 [$conn1706 getFirstSegm]
  10318.  
  10319. $diag save
  10320. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  10321.  
  10322.  
  10323. # ----------------------------------------------------------------------------
  10324. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Architecture.system/Client-Server_Architecture.cad'.
  10325. # ----------------------------------------------------------------------------
  10326.  
  10327. # Generator: et.tcl    /main/hindenburg/11
  10328. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  10329. # Interpreter to use: Otsh V5.1.1/B1
  10330. #
  10331. OTShRegister::importTool
  10332.  
  10333. set diag [CAD new Client-Server_Architecture Architecture SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  10334.  
  10335. set node1708 [$diag addNode cad_class 768.0 1200.0 120.0 32.0]
  10336. $node1708 setLabel "name" "UI"
  10337. $node1708 setProp "is_folded" "1"
  10338. $node1708 setScope "name" "cl" "scopePhase"
  10339.  
  10340. set node1710 [$diag addNode cad_class 896.0 912.0 120.0 32.0]
  10341. $node1710 setLabel "name" "Client-Host"
  10342. $node1710 setProp "is_folded" "1"
  10343. $node1710 setScope "name" "cl" "scopePhase"
  10344.  
  10345. set node1711 [$diag addNode cad_class 1216.0 1056.0 120.0 48.0]
  10346. $node1711 setLabel "name" "Response_\nManager"
  10347. $node1711 setProp "is_folded" "1"
  10348. $node1711 setScope "name" "cl" "scopePhase"
  10349.  
  10350. set node1712 [$diag addNode cad_class 1408.0 1200.0 120.0 48.0]
  10351. $node1712 setLabel "name" "Numerical_\nCalcs"
  10352. $node1712 setProp "is_folded" "1"
  10353. $node1712 setScope "name" "cl" "scopePhase"
  10354.  
  10355. set node1713 [$diag addNode cad_class 1536.0 1056.0 120.0 48.0]
  10356. $node1713 setLabel "name" "Database_\nServer"
  10357. $node1713 setProp "is_folded" "1"
  10358. $node1713 setScope "name" "cl" "scopePhase"
  10359.  
  10360. set node1714 [$diag addNode more_classes 900.0 1196.0 120.0 40.0]
  10361.  
  10362. set node1715 [$diag addNode cad_class 1168.0 800.0 120.0 32.0]
  10363. $node1715 setLabel "name" "Application"
  10364. $node1715 setProp "is_folded" "1"
  10365. $node1715 setScope "name" "cl" "scopePhase"
  10366.  
  10367. set node1716 [$diag addNode cad_class 1360.0 912.0 120.0 32.0]
  10368. $node1716 setLabel "name" "Server-Host"
  10369. $node1716 setProp "is_folded" "1"
  10370. $node1716 setScope "name" "cl" "scopePhase"
  10371.  
  10372. set node1717 [$diag addNode cad_class 1360.0 1056.0 120.0 48.0]
  10373. $node1717 setLabel "name" "Server_\nPartition"
  10374. $node1717 setProp "is_folded" "1"
  10375. $node1717 setScope "name" "cl" "scopePhase"
  10376.  
  10377. set node1718 [$diag addNode cad_class 1552.0 1200.0 120.0 64.0]
  10378. $node1718 setLabel "name" "Combine\nfiles with\nDB_Data"
  10379. $node1718 setProp "is_folded" "1"
  10380. $node1718 setScope "name" "cl" "scopePhase"
  10381.  
  10382. set node1719 [$diag addNode cad_class 816.0 1056.0 120.0 48.0]
  10383. $node1719 setLabel "name" "Client_\nPartition"
  10384. $node1719 setProp "is_folded" "1"
  10385. $node1719 setScope "name" "cl" "scopePhase"
  10386.  
  10387. set node1720 [$diag addNode cad_class 976.0 1056.0 120.0 48.0]
  10388. $node1720 setLabel "name" "Request_\nManager"
  10389. $node1720 setProp "is_folded" "1"
  10390. $node1720 setScope "name" "cl" "scopePhase"
  10391.  
  10392. set node1721 [$diag addNode cad_class 1120.0 1200.0 120.0 48.0]
  10393. $node1721 setLabel "name" "Report_\nGenerator"
  10394. $node1721 setProp "is_folded" "1"
  10395. $node1721 setScope "name" "cl" "scopePhase"
  10396.  
  10397. set node1723 [$diag addNode cad_class 1264.0 1200.0 120.0 32.0]
  10398. $node1723 setLabel "name" "UI"
  10399. $node1723 setProp "is_folded" "1"
  10400. $node1723 setScope "name" "cl" "scopePhase"
  10401.  
  10402. set conn1724 [$diag addConn aggregation $node1715 $node1710 1232.0 832.0 960.0 912.0]
  10403. $conn1724 setProp "mult_kind_end" "one"
  10404. $conn1724 setProp "mult_kind_start" "one"
  10405. set segm1725 [$conn1724 getFirstSegm]
  10406. set segm1726 [$conn1724 addSegm 1232.0 880.0]
  10407. set segm1727 [$conn1724 addSegm 960.0 880.0]
  10408.  
  10409. set conn1728 [$diag addConn association $node1719 $node1720 928.0 1088.0 992.0 1088.0]
  10410. $conn1728 setProp "mult_kind_end" "optional"
  10411. $conn1728 setProp "mult_kind_start" "one"
  10412. set segm1729 [$conn1728 getFirstSegm]
  10413.  
  10414. set conn1730 [$diag addConn association $node1711 $node1720 1232.0 1088.0 1088.0 1088.0]
  10415. $conn1730 setProp "mult_kind_end" "many"
  10416. $conn1730 setProp "mult_kind_start" "one"
  10417. set segm1731 [$conn1730 getFirstSegm]
  10418. $segm1731 setLabel "name" "connection"
  10419. $segm1731 setScope "name" "cl" "scopeFile"
  10420.  
  10421. set conn1732 [$diag addConn aggregation $node1710 $node1720 960.0 928.0 1040.0 1072.0]
  10422. $conn1732 setProp "mult_kind_end" "many"
  10423. $conn1732 setProp "mult_kind_start" "one"
  10424. set segm1733 [$conn1732 getFirstSegm]
  10425. set segm1734 [$conn1732 addSegm 960.0 1008.0]
  10426. set segm1735 [$conn1732 addSegm 1040.0 1008.0]
  10427.  
  10428. set conn1736 [$diag addConn aggregation $node1716 $node1717 1424.0 928.0 1424.0 1072.0]
  10429. $conn1736 setProp "mult_kind_end" "many"
  10430. $conn1736 setProp "mult_kind_start" "one"
  10431. set segm1737 [$conn1736 getFirstSegm]
  10432.  
  10433. set conn1738 [$diag addConn aggregation $node1716 $node1713 1424.0 928.0 1616.0 1072.0]
  10434. $conn1738 setProp "mult_kind_end" "one"
  10435. $conn1738 setProp "mult_kind_start" "one"
  10436. set segm1739 [$conn1738 getFirstSegm]
  10437. set segm1740 [$conn1738 addSegm 1424.0 1008.0]
  10438. set segm1741 [$conn1738 addSegm 1616.0 1008.0]
  10439.  
  10440. set conn1742 [$diag addConn aggregation $node1710 $node1719 960.0 944.0 880.0 1072.0]
  10441. $conn1742 setProp "mult_kind_end" "many"
  10442. $conn1742 setProp "mult_kind_start" "one"
  10443. set segm1743 [$conn1742 getFirstSegm]
  10444. set segm1744 [$conn1742 addSegm 960.0 1008.0]
  10445. set segm1745 [$conn1742 addSegm 880.0 1008.0]
  10446.  
  10447. set conn1746 [$diag addConn aggregation $node1716 $node1711 1424.0 928.0 1248.0 1072.0]
  10448. $conn1746 setProp "mult_kind_end" "many"
  10449. $conn1746 setProp "mult_kind_start" "one"
  10450. set segm1747 [$conn1746 getFirstSegm]
  10451. set segm1748 [$conn1746 addSegm 1424.0 1008.0]
  10452. set segm1749 [$conn1746 addSegm 1248.0 1008.0]
  10453.  
  10454. set conn1750 [$diag addConn aggregation $node1715 $node1716 1232.0 832.0 1440.0 928.0]
  10455. $conn1750 setProp "mult_kind_end" "many"
  10456. $conn1750 setProp "mult_kind_start" "one"
  10457. set segm1751 [$conn1750 getFirstSegm]
  10458. set segm1752 [$conn1750 addSegm 1232.0 880.0]
  10459. set segm1753 [$conn1750 addSegm 1440.0 880.0]
  10460.  
  10461. set node1709 [$diag addRake generalization $node1719 $node1708 880.0 1088.0 832.0 1216.0 1151.5]
  10462.  
  10463. set conn1754 [$diag addConn generalization_conn $node1709 $node1714 960.0 1151.5 960.0 1216.0]
  10464. set segm1755 [$conn1754 getFirstSegm]
  10465.  
  10466. set node1722 [$diag addRake generalization $node1717 $node1712 1424.0 1088.0 1472.0 1232.0 1160.0]
  10467. $node1722 setLabel "name" "partition_type"
  10468. $node1722 setScope "name" "de" "scopeSystem"
  10469.  
  10470. set conn1756 [$diag addConn generalization_conn $node1722 $node1718 1616.0 1160.0 1616.0 1216.0]
  10471. set segm1757 [$conn1756 getFirstSegm]
  10472.  
  10473. set conn1758 [$diag addConn generalization_conn $node1722 $node1721 1184.0 1160.0 1184.0 1216.0]
  10474. set segm1759 [$conn1758 getFirstSegm]
  10475.  
  10476. set conn1760 [$diag addConn generalization_conn $node1722 $node1723 1328.0 1160.0 1328.0 1216.0]
  10477. set segm1761 [$conn1760 getFirstSegm]
  10478.  
  10479. $diag save
  10480. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  10481.  
  10482.  
  10483. # ----------------------------------------------------------------------------
  10484. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Architecture.system/External_Events.cdm'.
  10485. # ----------------------------------------------------------------------------
  10486.  
  10487. # Generator: et.tcl    /main/hindenburg/11
  10488. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  10489. # Interpreter to use: Otsh V5.1.1/B1
  10490. #
  10491. OTShRegister::importTool
  10492.  
  10493. set diag [CDM new External_Events Architecture SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  10494.  
  10495. set row1762 [$diag addRow method 0.0]
  10496. $row1762 setLabel "name_type" "event_handlers"
  10497.  
  10498. $diag save
  10499. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  10500.  
  10501.  
  10502. # ----------------------------------------------------------------------------
  10503. # diagram = '/corporate/TrainingMaterials/Prototype:1/SystemDesign.SystemDesign/Architecture.system/3T_Connection.ccd'.
  10504. # ----------------------------------------------------------------------------
  10505.  
  10506. # Generator: et.tcl    /main/hindenburg/11
  10507. # Argument(s): {-aC:\OT4OMT\sample_models.tcl} -vi -vo -e -l
  10508. # Interpreter to use: Otsh V5.1.1/B1
  10509. #
  10510. OTShRegister::importTool
  10511.  
  10512. set diag [CCD new 3T_Connection Architecture SystemDesign SystemDesign Prototype 1 TrainingMaterials 1]
  10513.  
  10514. set node1763 [$diag addNode ccd_class 1348.0 796.0 120.0 40.0]
  10515. $node1763 setLabel "name" "Response_\nManager"
  10516. $node1763 setScope "name" "cl" "scopePhase"
  10517.  
  10518. set node1764 [$diag addNode ccd_actor 1348.0 924.0 120.0 40.0]
  10519. $node1764 setLabel "name" "Server_Partition"
  10520. $node1764 setScope "name" "cl" "scopePhase"
  10521.  
  10522. set node1765 [$diag addNode ccd_class 804.0 1100.0 120.0 40.0]
  10523. $node1765 setLabel "name" "Client"
  10524. $node1765 setScope "name" "cl" "scopePhase"
  10525.  
  10526. set node1766 [$diag addNode ccd_class 964.0 796.0 120.0 40.0]
  10527. $node1766 setLabel "name" "Request_\nManager"
  10528. $node1766 setScope "name" "cl" "scopePhase"
  10529.  
  10530. set node1767 [$diag addNode ccd_actor 964.0 924.0 120.0 40.0]
  10531. $node1767 setLabel "name" "Client_Partition"
  10532. $node1767 setScope "name" "cl" "scopePhase"
  10533.  
  10534. set node1768 [$diag addNode ccd_class 1492.0 1100.0 120.0 40.0]
  10535. $node1768 setLabel "name" "Server"
  10536. $node1768 setScope "name" "cl" "scopePhase"
  10537.  
  10538. set node1769 [$diag addNode ccd_class 1005.0 1100.0 166.0 40.0]
  10539. $node1769 setLabel "name" "ixASRequestMgr"
  10540. $node1769 setScope "name" "cl" "scopePhase"
  10541.  
  10542. set node1770 [$diag addNode ccd_class 1264.0 1100.0 160.0 40.0]
  10543. $node1770 setLabel "name" "ixASResponseMgr"
  10544. $node1770 setScope "name" "cl" "scopePhase"
  10545.  
  10546. set node1771 [$diag addNode ccd_container 1278.0 1270.0 132.0 52.0]
  10547. $node1771 setLabel "name" "fglexec"
  10548. $node1771 setScope "name" "cl" "scopePhase"
  10549.  
  10550. set conn1772 [$diag addConn com_message $node1767 $node1766 1024.0 928.0 1024.0 816.0]
  10551. set segm1773 [$conn1772 getFirstSegm]
  10552. $segm1773 setLabel "name" "post_event or\ncall_event"
  10553. $segm1773 setScope "name" "pe" "scopeSystem"
  10554.  
  10555. set conn1774 [$diag addConn com_message $node1765 $node1769 896.0 1120.0 1088.0 1120.0]
  10556. set segm1775 [$conn1774 getFirstSegm]
  10557. $segm1775 setLabel "name" "call"
  10558. $segm1775 setScope "name" "pe" "scopeSystem"
  10559.  
  10560. set conn1776 [$diag addConn com_message $node1771 $node1770 1344.0 1296.0 1344.0 1120.0]
  10561. set segm1777 [$conn1776 getFirstSegm]
  10562. $segm1777 setLabel "name" "call"
  10563. $segm1777 setScope "name" "pe" "scopeSystem"
  10564.  
  10565. set conn1778 [$diag addConn com_message $node1763 $node1764 1408.0 832.0 1408.0 928.0]
  10566. set segm1779 [$conn1778 getFirstSegm]
  10567. $segm1779 setLabel "name" "post_event or\ncall_event"
  10568. $segm1779 setScope "name" "pe" "scopeSystem"
  10569.  
  10570. set conn1780 [$diag addConn com_message $node1766 $node1763 1072.0 816.0 1360.0 816.0]
  10571. set segm1781 [$conn1780 getFirstSegm]
  10572. $segm1781 setLabel "name" "connection\n"
  10573. $segm1781 setScope "name" "pe" "scopeSystem"
  10574.  
  10575. set conn1782 [$diag addConn com_message $node1769 $node1771 1088.0 1136.0 1312.0 1296.0]
  10576. set segm1783 [$conn1782 getFirstSegm]
  10577. set segm1784 [$conn1782 addSegm 1088.0 1296.0]
  10578. $segm1784 setLabel "name" "connection\n"
  10579. $segm1784 setScope "name" "pe" "scopeSystem"
  10580.  
  10581. set conn1785 [$diag addConn com_message $node1770 $node1768 1392.0 1120.0 1504.0 1120.0]
  10582. set segm1786 [$conn1785 getFirstSegm]
  10583.  
  10584. $diag save
  10585. if {[[ClientContext::global] currentLevel] == "File"} {[ClientContext::global] upLevel}
  10586.  
  10587.  
  10588.  
  10589.  
  10590.  
  10591.