home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / Application.tcl < prev    next >
Encoding:
Text File  |  1997-10-01  |  35.1 KB  |  983 lines
  1.  
  2. # Generator: et.tcl    /main/titanic/10
  3. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  4. # Interpreter to use: Otsh V7.1.1/B1
  5. #
  6. OTShRegister::importTool
  7.  
  8. set diag [CDM new m_genapp_frame "Application" "" "" "" "" "" 1]
  9.  
  10. set row1 [$diag addRow method 0.0]
  11. $row1 setLabel "name_type" "\$create"
  12. $row1 setProp "is_class_feature" "1"
  13.  
  14. $diag save
  15.  
  16. # Generator: et.tcl    /main/titanic/10
  17. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  18. # Interpreter to use: Otsh V7.1.1/B1
  19. #
  20. OTShRegister::importTool
  21.  
  22. set diag [CAD new windows "Application" "" "" "" "" "" 1]
  23.  
  24. set node2 [$diag addNode cad_class 1040.0 1824.0 210.666 462.664]
  25. $node2 setLabel "name" "w_genapp_toolbars"
  26. $node2 setScope "name" "cl" "scopePhase"
  27. $node2 setProp "freeText" "Generated toolbar configuration window " "name" "cl"
  28. $node2 setProp "is_global_type" "Yes" "name" "cl"
  29. $node2 setProp "window_type" "Response" "name" "cl"
  30.  
  31. set node3 [$diag addNode cad_class 1456.0 1824.0 120.0 71.3334]
  32. $node3 setLabel "name" "cb_item"
  33. $node3 setProp "is_folded" "1"
  34. $node3 setScope "name" "cl" "scopePhase"
  35. $node3 setProp "is_global_type" "No" "name" "cl"
  36.  
  37. set node4 [$diag addNode cad_class 1456.0 1920.0 120.0 71.3334]
  38. $node4 setLabel "name" "cbx_item"
  39. $node4 setProp "is_folded" "1"
  40. $node4 setScope "name" "cl" "scopePhase"
  41. $node4 setProp "is_global_type" "No" "name" "cl"
  42.  
  43. set node5 [$diag addNode cad_class 1456.0 2016.0 120.0 215.333]
  44. $node5 setLabel "name" "rb_item"
  45. $node5 setScope "name" "cl" "scopePhase"
  46. $node5 setProp "is_global_type" "No" "name" "cl"
  47.  
  48. set node6 [$diag addNode cad_class 1456.0 2352.0 120.0 99.9999]
  49. $node6 setLabel "name" "cb_item"
  50. $node6 setScope "name" "cl" "scopePhase"
  51. $node6 setProp "is_global_type" "No" "name" "cl"
  52.  
  53. set node7 [$diag addNode cad_class 1456.0 2464.0 120.0 33.3333]
  54. $node7 setLabel "name" "statictext"
  55. $node7 setProp "is_folded" "1"
  56. $node7 setScope "name" "cl" "scopePhase"
  57. $node7 setProp "is_builtin" "1" "name" "cl"
  58.  
  59. set node8 [$diag addNode cad_class 1456.0 1456.0 148.0 33.3333]
  60. $node8 setLabel "name" "m_genapp_frame"
  61. $node8 setProp "is_folded" "1"
  62. $node8 setScope "name" "cl" "scopePhase"
  63. $node8 setProp "freeText" "Generated by ObjectTeam " "name" "cl"
  64.  
  65. set node9 [$diag addNode cad_class 1456.0 1248.0 146.666 33.3333]
  66. $node9 setLabel "name" "m_genapp_sheet"
  67. $node9 setProp "is_folded" "1"
  68. $node9 setScope "name" "cl" "scopePhase"
  69. $node9 setProp "freeText" "Generated by ObjectTeam " "name" "cl"
  70. $node9 setProp "is_global_type" "Yes" "name" "cl"
  71.  
  72. set node10 [$diag addNode cad_class 1040.0 1248.0 145.333 129.333]
  73. $node10 setLabel "name" "w_genapp_sheet"
  74. $node10 setScope "name" "cl" "scopePhase"
  75. $node10 setProp "freeText" "Generated MDI sheet window " "name" "cl"
  76. $node10 setProp "is_global_type" "Yes" "name" "cl"
  77. $node10 setProp "window_type" "Main" "name" "cl"
  78.  
  79. set node11 [$diag addNode cad_class 1040.0 1456.0 264.0 202.666]
  80. $node11 setLabel "name" "w_genapp_frame"
  81. $node11 setScope "name" "cl" "scopePhase"
  82. $node11 setProp "freeText" "Generated MDI frame window " "name" "cl"
  83. $node11 setProp "is_global_type" "Yes" "name" "cl"
  84. $node11 setProp "window_type" "MDIHelp" "name" "cl"
  85.  
  86. set node12 [$diag addNode cad_class 1040.0 2352.0 144.0 135.333]
  87. $node12 setLabel "name" "w_genapp_about"
  88. $node12 setScope "name" "cl" "scopePhase"
  89. $node12 setProp "freeText" "Generated about window " "name" "cl"
  90. $node12 setProp "is_global_type" "Yes" "name" "cl"
  91. $node12 setProp "window_type" "Response" "name" "cl"
  92.  
  93. set node13 [$diag addNode cad_class 1456.0 2256.0 120.0 33.3333]
  94. $node13 setLabel "name" "groupbox"
  95. $node13 setProp "is_folded" "1"
  96. $node13 setScope "name" "cl" "scopePhase"
  97. $node13 setProp "is_builtin" "1" "name" "cl"
  98.  
  99. set conn14 [$diag addConn aggregation $node2 $node3 1191.0 1842.0 1456.0 1842.0]
  100. $conn14 setLabel "role_end" "cb_ok"
  101. $conn14 setProp "mult_kind_end" "optional"
  102. $conn14 setProp "mult_kind_start" "optional"
  103. set segm15 [$conn14 getFirstSegm]
  104.  
  105. set conn16 [$diag addConn aggregation $node2 $node3 1200.0 1888.0 1456.0 1888.0]
  106. $conn16 setLabel "role_end" "cb_visible"
  107. $conn16 setProp "mult_kind_end" "optional"
  108. $conn16 setProp "mult_kind_start" "optional"
  109. set segm17 [$conn16 getFirstSegm]
  110.  
  111. set conn18 [$diag addConn aggregation $node2 $node4 1184.0 1936.0 1504.0 1936.0]
  112. $conn18 setLabel "role_end" "cbx_showtips"
  113. $conn18 setProp "mult_kind_end" "optional"
  114. $conn18 setProp "mult_kind_start" "optional"
  115. set segm19 [$conn18 getFirstSegm]
  116.  
  117. set conn20 [$diag addConn aggregation $node2 $node4 1248.0 1984.0 1472.0 1984.0]
  118. $conn20 setLabel "role_end" "cbx_showtext"
  119. $conn20 setProp "mult_kind_end" "optional"
  120. $conn20 setProp "mult_kind_start" "optional"
  121. set segm21 [$conn20 getFirstSegm]
  122.  
  123. set conn22 [$diag addConn aggregation $node2 $node5 1216.0 2032.0 1488.0 2032.0]
  124. $conn22 setLabel "role_end" "rb_left"
  125. $conn22 setProp "mult_kind_end" "optional"
  126. $conn22 setProp "mult_kind_start" "optional"
  127. set segm23 [$conn22 getFirstSegm]
  128.  
  129. set conn24 [$diag addConn aggregation $node2 $node5 1216.0 2080.0 1456.0 2080.0]
  130. $conn24 setLabel "role_end" "rb_right"
  131. $conn24 setProp "mult_kind_end" "optional"
  132. $conn24 setProp "mult_kind_start" "optional"
  133. set segm25 [$conn24 getFirstSegm]
  134.  
  135. set conn26 [$diag addConn aggregation $node2 $node5 1216.0 2128.0 1456.0 2128.0]
  136. $conn26 setLabel "role_end" "rb_top"
  137. $conn26 setProp "mult_kind_end" "optional"
  138. $conn26 setProp "mult_kind_start" "optional"
  139. set segm27 [$conn26 getFirstSegm]
  140.  
  141. set conn28 [$diag addConn aggregation $node2 $node5 1216.0 2176.0 1456.0 2176.0]
  142. $conn28 setLabel "role_end" "rb_bottom"
  143. $conn28 setProp "mult_kind_end" "optional"
  144. $conn28 setProp "mult_kind_start" "optional"
  145. set segm29 [$conn28 getFirstSegm]
  146.  
  147. set conn30 [$diag addConn aggregation $node2 $node5 1200.0 2224.0 1456.0 2224.0]
  148. $conn30 setLabel "role_end" "rb_floating"
  149. $conn30 setProp "mult_kind_end" "optional"
  150. $conn30 setProp "mult_kind_start" "optional"
  151. set segm31 [$conn30 getFirstSegm]
  152.  
  153. set conn32 [$diag addConn association $node10 $node9 1152.0 1264.0 1472.0 1264.0]
  154. $conn32 setLabel "role_end" "menu"
  155. $conn32 setProp "mult_kind_end" "one"
  156. $conn32 setProp "mult_kind_start" "optional"
  157. set segm33 [$conn32 getFirstSegm]
  158.  
  159. set conn34 [$diag addConn association $node11 $node8 1280.0 1472.0 1520.0 1472.0]
  160. $conn34 setLabel "role_end" "menu"
  161. $conn34 setProp "mult_kind_end" "one"
  162. $conn34 setProp "mult_kind_start" "optional"
  163. set segm35 [$conn34 getFirstSegm]
  164.  
  165. set conn36 [$diag addConn aggregation $node2 $node13 1248.0 2272.0 1472.0 2272.0]
  166. $conn36 setLabel "role_end" "gb_1"
  167. $conn36 setProp "mult_kind_end" "one"
  168. $conn36 setProp "mult_kind_start" "optional"
  169. set segm37 [$conn36 getFirstSegm]
  170.  
  171. set conn38 [$diag addConn aggregation $node12 $node6 1166.67 2368.0 1488.0 2368.0]
  172. $conn38 setLabel "role_end" "cb_ok"
  173. $conn38 setProp "mult_kind_end" "one"
  174. $conn38 setProp "mult_kind_start" "optional"
  175. set segm39 [$conn38 getFirstSegm]
  176.  
  177. set conn40 [$diag addConn aggregation $node12 $node7 1136.0 2480.0 1488.0 2480.0]
  178. $conn40 setLabel "role_end" "st_1"
  179. $conn40 setProp "mult_kind_end" "one"
  180. $conn40 setProp "mult_kind_start" "optional"
  181. set segm41 [$conn40 getFirstSegm]
  182.  
  183. $diag save
  184.  
  185. # Generator: et.tcl    /main/titanic/10
  186. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  187. # Interpreter to use: Otsh V7.1.1/B1
  188. #
  189. OTShRegister::importTool
  190.  
  191. set diag [CDM new m_edit "Application" "" "" "" "" "" 1]
  192.  
  193. set row42 [$diag addRow method 0.0]
  194. $row42 setLabel "name_type" "\$create"
  195. $row42 setProp "is_class_feature" "1"
  196.  
  197. $diag save
  198.  
  199. # Generator: et.tcl    /main/titanic/10
  200. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  201. # Interpreter to use: Otsh V7.1.1/B1
  202. #
  203. OTShRegister::importTool
  204.  
  205. set diag [CDM new w_genapp_about "Application" "" "" "" "" "" 1]
  206.  
  207. set row43 [$diag addRow method 0.0]
  208. $row43 setLabel "name_type" "\$create"
  209. $row43 setProp "is_class_feature" "1"
  210.  
  211. $diag save
  212.  
  213. # Generator: et.tcl    /main/titanic/10
  214. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  215. # Interpreter to use: Otsh V7.1.1/B1
  216. #
  217. OTShRegister::importTool
  218.  
  219. set diag [CDM new m_genapp_sheet "Application" "" "" "" "" "" 1]
  220.  
  221. set row44 [$diag addRow method 0.0]
  222. $row44 setLabel "name_type" "\$create"
  223. $row44 setProp "is_class_feature" "1"
  224.  
  225. $diag save
  226.  
  227. # Generator: et.tcl    /main/titanic/10
  228. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  229. # Interpreter to use: Otsh V7.1.1/B1
  230. #
  231. OTShRegister::importTool
  232.  
  233. set diag [CAD new menus "Application" "" "" "" "" "" 1]
  234.  
  235. set node45 [$diag addNode cad_class 1440.0 1008.0 120.0 71.3334]
  236. $node45 setLabel "name" "m_item"
  237. $node45 setProp "is_folded" "1"
  238. $node45 setScope "name" "cl" "scopePhase"
  239. $node45 setProp "is_global_type" "No" "name" "cl"
  240.  
  241. set node46 [$diag addNode cad_class 1440.0 1104.0 120.0 33.3333]
  242. $node46 setLabel "name" "m_seperator"
  243. $node46 setProp "is_folded" "1"
  244. $node46 setScope "name" "cl" "scopePhase"
  245. $node46 setProp "is_global_type" "No" "name" "cl"
  246.  
  247. set node47 [$diag addNode cad_class 1440.0 1152.0 120.0 33.3333]
  248. $node47 setLabel "name" "m_item"
  249. $node47 setProp "is_folded" "1"
  250. $node47 setScope "name" "cl" "scopePhase"
  251. $node47 setProp "is_global_type" "No" "name" "cl"
  252.  
  253. set node48 [$diag addNode cad_class 1440.0 1248.0 120.0 33.3333]
  254. $node48 setLabel "name" "m_item"
  255. $node48 setProp "is_folded" "1"
  256. $node48 setScope "name" "cl" "scopePhase"
  257. $node48 setProp "is_global_type" "No" "name" "cl"
  258.  
  259. set node49 [$diag addNode cad_class 1440.0 1392.0 120.0 71.3334]
  260. $node49 setLabel "name" "m_item"
  261. $node49 setProp "is_folded" "1"
  262. $node49 setScope "name" "cl" "scopePhase"
  263. $node49 setProp "is_global_type" "No" "name" "cl"
  264.  
  265. set node50 [$diag addNode cad_class 1440.0 1200.0 120.0 33.3333]
  266. $node50 setLabel "name" "m_seperator"
  267. $node50 setProp "is_folded" "1"
  268. $node50 setScope "name" "cl" "scopePhase"
  269. $node50 setProp "is_global_type" "No" "name" "cl"
  270.  
  271. set node51 [$diag addNode cad_class 1440.0 1648.0 120.0 167.333]
  272. $node51 setLabel "name" "m_item"
  273. $node51 setProp "is_folded" "1"
  274. $node51 setScope "name" "cl" "scopePhase"
  275. $node51 setProp "is_global_type" "No" "name" "cl"
  276.  
  277. set node52 [$diag addNode cad_class 1440.0 1344.0 120.0 33.3333]
  278. $node52 setLabel "name" "m_seperator"
  279. $node52 setProp "is_folded" "1"
  280. $node52 setScope "name" "cl" "scopePhase"
  281. $node52 setProp "is_global_type" "No" "name" "cl"
  282.  
  283. set node53 [$diag addNode cad_class 1440.0 1600.0 120.0 33.3333]
  284. $node53 setLabel "name" "m_seperator"
  285. $node53 setProp "is_folded" "1"
  286. $node53 setScope "name" "cl" "scopePhase"
  287. $node53 setProp "is_global_type" "No" "name" "cl"
  288.  
  289. set node54 [$diag addNode cad_class 1440.0 2032.0 120.0 33.3333]
  290. $node54 setLabel "name" "m_seperator"
  291. $node54 setProp "is_folded" "1"
  292. $node54 setScope "name" "cl" "scopePhase"
  293. $node54 setProp "is_global_type" "No" "name" "cl"
  294.  
  295. set node55 [$diag addNode cad_class 1440.0 1552.0 120.0 33.3333]
  296. $node55 setLabel "name" "m_item"
  297. $node55 setProp "is_folded" "1"
  298. $node55 setScope "name" "cl" "scopePhase"
  299. $node55 setProp "is_global_type" "No" "name" "cl"
  300.  
  301. set node56 [$diag addNode cad_class 1440.0 2080.0 120.0 33.3333]
  302. $node56 setLabel "name" "m_item"
  303. $node56 setProp "is_folded" "1"
  304. $node56 setScope "name" "cl" "scopePhase"
  305. $node56 setProp "is_global_type" "No" "name" "cl"
  306.  
  307. set node57 [$diag addNode cad_class 1440.0 1296.0 120.0 33.3333]
  308. $node57 setLabel "name" "m_item"
  309. $node57 setProp "is_folded" "1"
  310. $node57 setScope "name" "cl" "scopePhase"
  311. $node57 setProp "is_global_type" "No" "name" "cl"
  312.  
  313. set node58 [$diag addNode cad_class 800.0 816.0 148.0 503.333]
  314. $node58 setLabel "name" "m_genapp_frame"
  315. $node58 setProp "is_folded" "1"
  316. $node58 setScope "name" "cl" "scopePhase"
  317. $node58 setProp "freeText" "Generated by ObjectTeam " "name" "cl"
  318.  
  319. set node59 [$diag addNode cad_class 800.0 1552.0 146.667 311.333]
  320. $node59 setLabel "name" "m_genapp_sheet"
  321. $node59 setScope "name" "cl" "scopePhase"
  322. $node59 setProp "freeText" "Generated by ObjectTeam " "name" "cl"
  323. $node59 setProp "is_global_type" "Yes" "name" "cl"
  324.  
  325. set node60 [$diag addNode cad_class 1120.0 1552.0 120.0 263.333]
  326. $node60 setLabel "name" "m_edit"
  327. $node60 setScope "name" "cl" "scopePhase"
  328. $node60 setProp "is_global_type" "No" "name" "cl"
  329.  
  330. set node61 [$diag addNode cad_class 1120.0 1840.0 120.0 263.333]
  331. $node61 setLabel "name" "m_window"
  332. $node61 setScope "name" "cl" "scopePhase"
  333. $node61 setProp "is_global_type" "No" "name" "cl"
  334.  
  335. set node62 [$diag addNode cad_class 1120.0 816.0 120.0 455.333]
  336. $node62 setLabel "name" "m_file"
  337. $node62 setScope "name" "cl" "scopePhase"
  338. $node62 setProp "is_global_type" "No" "name" "cl"
  339.  
  340. set node63 [$diag addNode cad_class 1120.0 1296.0 120.0 167.333]
  341. $node63 setLabel "name" "m_help"
  342. $node63 setScope "name" "cl" "scopePhase"
  343. $node63 setProp "is_global_type" "No" "name" "cl"
  344.  
  345. set node64 [$diag addNode cad_class 1440.0 1840.0 120.0 167.333]
  346. $node64 setLabel "name" "m_item"
  347. $node64 setProp "is_folded" "1"
  348. $node64 setScope "name" "cl" "scopePhase"
  349. $node64 setProp "is_global_type" "No" "name" "cl"
  350.  
  351. set node65 [$diag addNode cad_class 1440.0 816.0 120.0 119.333]
  352. $node65 setLabel "name" "m_item"
  353. $node65 setProp "is_folded" "1"
  354. $node65 setScope "name" "cl" "scopePhase"
  355. $node65 setProp "is_global_type" "No" "name" "cl"
  356.  
  357. set node66 [$diag addNode cad_class 1440.0 960.0 120.0 33.3333]
  358. $node66 setLabel "name" "m_seperator"
  359. $node66 setProp "is_folded" "1"
  360. $node66 setScope "name" "cl" "scopePhase"
  361. $node66 setProp "is_global_type" "No" "name" "cl"
  362.  
  363. set conn67 [$diag addConn aggregation $node61 $node64 1232.0 1856.0 1456.0 1856.0]
  364. $conn67 setLabel "role_end" "m_tilevertical"
  365. $conn67 setProp "mult_kind_end" "optional"
  366. $conn67 setProp "mult_kind_start" "optional"
  367. set segm68 [$conn67 getFirstSegm]
  368.  
  369. set conn69 [$diag addConn aggregation $node61 $node64 1232.0 1904.0 1440.0 1904.0]
  370. $conn69 setLabel "role_end" "m_tilehorizontal"
  371. $conn69 setProp "mult_kind_end" "optional"
  372. $conn69 setProp "mult_kind_start" "optional"
  373. set segm70 [$conn69 getFirstSegm]
  374.  
  375. set conn71 [$diag addConn aggregation $node61 $node64 1232.0 1952.0 1440.0 1952.0]
  376. $conn71 setLabel "role_end" "m_layer"
  377. $conn71 setProp "mult_kind_end" "optional"
  378. $conn71 setProp "mult_kind_start" "optional"
  379. set segm72 [$conn71 getFirstSegm]
  380.  
  381. set conn73 [$diag addConn aggregation $node61 $node64 1232.0 2000.0 1440.0 2000.0]
  382. $conn73 setLabel "role_end" "m_cascade"
  383. $conn73 setProp "mult_kind_end" "optional"
  384. $conn73 setProp "mult_kind_start" "optional"
  385. set segm74 [$conn73 getFirstSegm]
  386.  
  387. set conn75 [$diag addConn aggregation $node61 $node54 1232.0 2048.0 1456.0 2048.0]
  388. $conn75 setLabel "role_end" "m_-5"
  389. $conn75 setProp "mult_kind_end" "optional"
  390. $conn75 setProp "mult_kind_start" "optional"
  391. set segm76 [$conn75 getFirstSegm]
  392.  
  393. set conn77 [$diag addConn aggregation $node61 $node56 1216.0 2096.0 1488.0 2096.0]
  394. $conn77 setLabel "role_end" "m_arrangeicons"
  395. $conn77 setProp "mult_kind_end" "optional"
  396. $conn77 setProp "mult_kind_start" "optional"
  397. set segm78 [$conn77 getFirstSegm]
  398.  
  399. set conn79 [$diag addConn aggregation $node60 $node51 1216.0 1808.0 1440.0 1808.0]
  400. $conn79 setLabel "role_end" "m_clear"
  401. $conn79 setProp "mult_kind_end" "optional"
  402. $conn79 setProp "mult_kind_start" "optional"
  403. set segm80 [$conn79 getFirstSegm]
  404.  
  405. set conn81 [$diag addConn aggregation $node60 $node51 1200.0 1760.0 1440.0 1760.0]
  406. $conn81 setLabel "role_end" "m_paste"
  407. $conn81 setProp "mult_kind_end" "optional"
  408. $conn81 setProp "mult_kind_start" "optional"
  409. set segm82 [$conn81 getFirstSegm]
  410.  
  411. set conn83 [$diag addConn aggregation $node60 $node51 1184.0 1712.0 1440.0 1712.0]
  412. $conn83 setLabel "role_end" "m_copy"
  413. $conn83 setProp "mult_kind_end" "optional"
  414. $conn83 setProp "mult_kind_start" "optional"
  415. set segm84 [$conn83 getFirstSegm]
  416.  
  417. set conn85 [$diag addConn aggregation $node60 $node51 1200.0 1664.0 1504.0 1664.0]
  418. $conn85 setLabel "role_end" "m_cut"
  419. $conn85 setProp "mult_kind_end" "optional"
  420. $conn85 setProp "mult_kind_start" "optional"
  421. set segm86 [$conn85 getFirstSegm]
  422.  
  423. set conn87 [$diag addConn aggregation $node60 $node53 1136.0 1616.0 1440.0 1616.0]
  424. $conn87 setLabel "role_end" "m_-4"
  425. $conn87 setProp "mult_kind_end" "optional"
  426. $conn87 setProp "mult_kind_start" "optional"
  427. set segm88 [$conn87 getFirstSegm]
  428.  
  429. set conn89 [$diag addConn aggregation $node60 $node55 1232.0 1568.0 1440.0 1568.0]
  430. $conn89 setLabel "role_end" "m_undo"
  431. $conn89 setProp "mult_kind_end" "optional"
  432. $conn89 setProp "mult_kind_start" "optional"
  433. set segm90 [$conn89 getFirstSegm]
  434.  
  435. set conn91 [$diag addConn aggregation $node63 $node52 1232.0 1360.0 1456.0 1360.0]
  436. $conn91 setLabel "role_end" "m_-3"
  437. $conn91 setProp "mult_kind_end" "optional"
  438. $conn91 setProp "mult_kind_start" "optional"
  439. set segm92 [$conn91 getFirstSegm]
  440.  
  441. set conn93 [$diag addConn aggregation $node63 $node49 1232.0 1408.0 1456.0 1408.0]
  442. $conn93 setLabel "role_end" "m_helpindex"
  443. $conn93 setProp "mult_kind_end" "optional"
  444. $conn93 setProp "mult_kind_start" "optional"
  445. set segm94 [$conn93 getFirstSegm]
  446.  
  447. set conn95 [$diag addConn aggregation $node63 $node57 1232.0 1312.0 1472.0 1312.0]
  448. $conn95 setLabel "role_end" "m_aboutquickapp"
  449. $conn95 setProp "mult_kind_end" "optional"
  450. $conn95 setProp "mult_kind_start" "optional"
  451. set segm96 [$conn95 getFirstSegm]
  452.  
  453. set conn97 [$diag addConn aggregation $node62 $node48 1216.0 1264.0 1456.0 1264.0]
  454. $conn97 setLabel "role_end" "m_exit"
  455. $conn97 setProp "mult_kind_end" "optional"
  456. $conn97 setProp "mult_kind_start" "optional"
  457. set segm98 [$conn97 getFirstSegm]
  458.  
  459. set conn99 [$diag addConn aggregation $node62 $node50 1216.0 1216.0 1440.0 1216.0]
  460. $conn99 setLabel "role_end" "m_-1"
  461. $conn99 setProp "mult_kind_end" "optional"
  462. $conn99 setProp "mult_kind_start" "optional"
  463. set segm100 [$conn99 getFirstSegm]
  464.  
  465. set conn101 [$diag addConn aggregation $node62 $node47 1200.0 1168.0 1488.0 1168.0]
  466. $conn101 setLabel "role_end" "m_toolbars"
  467. $conn101 setProp "mult_kind_end" "optional"
  468. $conn101 setProp "mult_kind_start" "optional"
  469. set segm102 [$conn101 getFirstSegm]
  470.  
  471. set conn103 [$diag addConn aggregation $node62 $node46 1200.0 1120.0 1472.0 1120.0]
  472. $conn103 setLabel "role_end" "m_-2"
  473. $conn103 setProp "mult_kind_end" "optional"
  474. $conn103 setProp "mult_kind_start" "optional"
  475. set segm104 [$conn103 getFirstSegm]
  476.  
  477. set conn105 [$diag addConn aggregation $node62 $node45 1232.0 1072.0 1456.0 1072.0]
  478. $conn105 setLabel "role_end" "m_printersetup"
  479. $conn105 setProp "mult_kind_end" "optional"
  480. $conn105 setProp "mult_kind_start" "optional"
  481. set segm106 [$conn105 getFirstSegm]
  482.  
  483. set conn107 [$diag addConn aggregation $node62 $node45 1200.0 1024.0 1456.0 1024.0]
  484. $conn107 setLabel "role_end" "m_print"
  485. $conn107 setProp "mult_kind_end" "optional"
  486. $conn107 setProp "mult_kind_start" "optional"
  487. set segm108 [$conn107 getFirstSegm]
  488.  
  489. set conn109 [$diag addConn aggregation $node62 $node66 1216.0 976.0 1456.0 976.0]
  490. $conn109 setLabel "role_end" "m_-"
  491. $conn109 setProp "mult_kind_end" "optional"
  492. $conn109 setProp "mult_kind_start" "optional"
  493. set segm110 [$conn109 getFirstSegm]
  494.  
  495. set conn111 [$diag addConn aggregation $node62 $node65 1232.0 928.0 1440.0 928.0]
  496. $conn111 setLabel "role_end" "m_close"
  497. $conn111 setProp "mult_kind_end" "optional"
  498. $conn111 setProp "mult_kind_start" "optional"
  499. set segm112 [$conn111 getFirstSegm]
  500.  
  501. set conn113 [$diag addConn aggregation $node62 $node65 1232.0 880.0 1440.0 880.0]
  502. $conn113 setLabel "role_end" "m_open"
  503. $conn113 setProp "mult_kind_end" "optional"
  504. $conn113 setProp "mult_kind_start" "optional"
  505. set segm114 [$conn113 getFirstSegm]
  506.  
  507. set conn115 [$diag addConn aggregation $node58 $node62 928.0 832.0 1168.0 832.0]
  508. $conn115 setLabel "role_end" "m_file"
  509. $conn115 setProp "mult_kind_end" "one"
  510. $conn115 setProp "mult_kind_start" "optional"
  511. set segm116 [$conn115 getFirstSegm]
  512.  
  513. set conn117 [$diag addConn aggregation $node63 $node49 1232.0 1456.0 1456.0 1456.0]
  514. $conn117 setLabel "role_end" "m_search"
  515. $conn117 setProp "mult_kind_end" "optional"
  516. $conn117 setProp "mult_kind_start" "optional"
  517. set segm118 [$conn117 getFirstSegm]
  518.  
  519. set conn119 [$diag addConn aggregation $node59 $node60 896.0 1568.0 1136.0 1568.0]
  520. $conn119 setLabel "role_end" "m_edit"
  521. $conn119 setProp "mult_kind_end" "one"
  522. $conn119 setProp "mult_kind_start" "optional"
  523. set segm120 [$conn119 getFirstSegm]
  524.  
  525. set conn121 [$diag addConn aggregation $node59 $node61 896.0 1856.0 1136.0 1856.0]
  526. $conn121 setLabel "role_end" "m_window"
  527. $conn121 setProp "mult_kind_end" "one"
  528. $conn121 setProp "mult_kind_start" "optional"
  529. set segm122 [$conn121 getFirstSegm]
  530.  
  531. set conn123 [$diag addConn aggregation $node58 $node63 864.0 1312.0 1120.0 1312.0]
  532. $conn123 setLabel "role_end" "m_help"
  533. $conn123 setProp "mult_kind_end" "one"
  534. $conn123 setProp "mult_kind_start" "optional"
  535. set segm124 [$conn123 getFirstSegm]
  536.  
  537. set conn125 [$diag addConn aggregation $node62 $node65 1216.0 832.0 1440.0 832.0]
  538. $conn125 setLabel "role_end" "m_new"
  539. $conn125 setProp "mult_kind_end" "one"
  540. $conn125 setProp "mult_kind_start" "optional"
  541. set segm126 [$conn125 getFirstSegm]
  542.  
  543. $diag save
  544.  
  545. # Generator: et.tcl    /main/titanic/10
  546. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  547. # Interpreter to use: Otsh V7.1.1/B1
  548. #
  549. OTShRegister::importTool
  550.  
  551. set diag [CDM new m_help "Application" "" "" "" "" "" 1]
  552.  
  553. set row127 [$diag addRow method 0.0]
  554. $row127 setLabel "name_type" "\$create"
  555. $row127 setProp "is_class_feature" "1"
  556.  
  557. $diag save
  558.  
  559. # Generator: et.tcl    /main/titanic/10
  560. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  561. # Interpreter to use: Otsh V7.1.1/B1
  562. #
  563. OTShRegister::importTool
  564.  
  565. set diag [CDM new m_file "Application" "" "" "" "" "" 1]
  566.  
  567. set row128 [$diag addRow method 0.0]
  568. $row128 setLabel "name_type" "\$create"
  569. $row128 setProp "is_class_feature" "1"
  570.  
  571. $diag save
  572.  
  573. # Generator: et.tcl    /main/titanic/10
  574. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  575. # Interpreter to use: Otsh V7.1.1/B1
  576. #
  577. OTShRegister::importTool
  578.  
  579. set diag [CAD new trees "Application" "" "" "" "" "" 1]
  580.  
  581. set node135 [$diag addNode cad_class 4515.75 5259.5 120.0 33.3333]
  582. $node135 setLabel "name" "checkbox"
  583. $node135 setProp "is_folded" "1"
  584. $node135 setScope "name" "cl" "scopePhase"
  585. $node135 setProp "is_builtin" "1" "name" "cl"
  586.  
  587. set node136 [$diag addNode cad_class 4512.0 5328.0 139.833 99.9999]
  588. $node136 setLabel "name" "cbx_item"
  589. $node136 setScope "name" "cl" "scopePhase"
  590. $node136 setProp "is_global_type" "No" "name" "cl"
  591.  
  592. set node137 [$diag addNode cad_class 4512.0 5488.0 120.0 33.3333]
  593. $node137 setLabel "name" "radiobutton"
  594. $node137 setProp "is_folded" "1"
  595. $node137 setScope "name" "cl" "scopePhase"
  596. $node137 setProp "is_builtin" "1" "name" "cl"
  597.  
  598. set node138 [$diag addNode cad_class 4512.0 5552.0 120.0 99.9999]
  599. $node138 setLabel "name" "rb_item"
  600. $node138 setScope "name" "cl" "scopePhase"
  601. $node138 setProp "is_global_type" "No" "name" "cl"
  602.  
  603. set node139 [$diag addNode cad_class 4432.0 4976.0 140.0 33.3333]
  604. $node139 setLabel "name" "commandbutton"
  605. $node139 setProp "is_folded" "1"
  606. $node139 setScope "name" "cl" "scopePhase"
  607. $node139 setProp "is_builtin" "1" "name" "cl"
  608.  
  609. set node140 [$diag addNode cad_class 4448.0 5072.0 120.0 99.9999]
  610. $node140 setLabel "name" "cb_item"
  611. $node140 setScope "name" "cl" "scopePhase"
  612. $node140 setProp "is_global_type" "No" "name" "cl"
  613.  
  614. set node141 [$diag addNode cad_class 4832.0 4816.0 120.0 99.9999]
  615. $node141 setLabel "name" "m_seperator"
  616. $node141 setScope "name" "cl" "scopePhase"
  617. $node141 setProp "is_global_type" "No" "name" "cl"
  618.  
  619. set node142 [$diag addNode cad_class 4960.0 4816.0 120.0 99.9999]
  620. $node142 setLabel "name" "m_item"
  621. $node142 setScope "name" "cl" "scopePhase"
  622. $node142 setProp "is_global_type" "No" "name" "cl"
  623.  
  624. set node143 [$diag addNode cad_class 4400.0 4448.0 120.0 33.3333]
  625. $node143 setLabel "name" "window"
  626. $node143 setProp "is_folded" "1"
  627. $node143 setScope "name" "cl" "scopePhase"
  628. $node143 setProp "is_builtin" "1" "name" "cl"
  629.  
  630. set node144 [$diag addNode cad_class 4320.0 4528.0 144.0 33.3333]
  631. $node144 setLabel "name" "w_genapp_about"
  632. $node144 setProp "is_folded" "1"
  633. $node144 setScope "name" "cl" "scopePhase"
  634. $node144 setProp "freeText" "Generated about window " "name" "cl"
  635. $node144 setProp "is_global_type" "Yes" "name" "cl"
  636. $node144 setProp "window_type" "Response" "name" "cl"
  637.  
  638. set node145 [$diag addNode cad_class 4480.0 4528.0 145.333 33.3333]
  639. $node145 setLabel "name" "w_genapp_sheet"
  640. $node145 setProp "is_folded" "1"
  641. $node145 setScope "name" "cl" "scopePhase"
  642. $node145 setProp "freeText" "Generated MDI sheet window " "name" "cl"
  643. $node145 setProp "is_global_type" "Yes" "name" "cl"
  644. $node145 setProp "window_type" "Main" "name" "cl"
  645.  
  646. set node146 [$diag addNode cad_class 4400.0 4576.0 146.666 33.3333]
  647. $node146 setLabel "name" "w_genapp_frame"
  648. $node146 setProp "is_folded" "1"
  649. $node146 setScope "name" "cl" "scopePhase"
  650. $node146 setProp "freeText" "Generated MDI frame window " "name" "cl"
  651. $node146 setProp "is_global_type" "Yes" "name" "cl"
  652. $node146 setProp "window_type" "MDIHelp" "name" "cl"
  653.  
  654. set node147 [$diag addNode cad_class 4560.0 4576.0 164.0 33.3333]
  655. $node147 setLabel "name" "w_genapp_toolbars"
  656. $node147 setProp "is_folded" "1"
  657. $node147 setScope "name" "cl" "scopePhase"
  658. $node147 setProp "freeText" "Generated toolbar configuration window " "name" "cl"
  659. $node147 setProp "is_global_type" "Yes" "name" "cl"
  660. $node147 setProp "window_type" "Response" "name" "cl"
  661.  
  662. set node148 [$diag addNode cad_class 4432.0 4736.0 120.0 33.3333]
  663. $node148 setLabel "name" "menu"
  664. $node148 setProp "is_folded" "1"
  665. $node148 setScope "name" "cl" "scopePhase"
  666. $node148 setProp "is_builtin" "1" "name" "cl"
  667.  
  668. set node149 [$diag addNode cad_class 4320.0 4816.0 148.0 33.3333]
  669. $node149 setLabel "name" "m_genapp_frame"
  670. $node149 setProp "is_folded" "1"
  671. $node149 setScope "name" "cl" "scopePhase"
  672. $node149 setProp "freeText" "Generated by ObjectTeam " "name" "cl"
  673.  
  674. set node150 [$diag addNode cad_class 4320.0 4896.0 146.666 33.3333]
  675. $node150 setLabel "name" "m_genapp_sheet"
  676. $node150 setProp "is_folded" "1"
  677. $node150 setScope "name" "cl" "scopePhase"
  678. $node150 setProp "freeText" "Generated by ObjectTeam " "name" "cl"
  679. $node150 setProp "is_global_type" "Yes" "name" "cl"
  680.  
  681. set node151 [$diag addNode cad_class 4480.0 4816.0 120.0 33.3333]
  682. $node151 setLabel "name" "m_file"
  683. $node151 setProp "is_folded" "1"
  684. $node151 setScope "name" "cl" "scopePhase"
  685. $node151 setProp "is_global_type" "No" "name" "cl"
  686.  
  687. set node152 [$diag addNode cad_class 4544.0 4864.0 120.0 33.3333]
  688. $node152 setLabel "name" "m_help"
  689. $node152 setProp "is_folded" "1"
  690. $node152 setScope "name" "cl" "scopePhase"
  691. $node152 setProp "is_global_type" "No" "name" "cl"
  692.  
  693. set node153 [$diag addNode cad_class 4624.0 4816.0 120.0 33.3333]
  694. $node153 setLabel "name" "m_edit"
  695. $node153 setProp "is_folded" "1"
  696. $node153 setScope "name" "cl" "scopePhase"
  697. $node153 setProp "is_global_type" "No" "name" "cl"
  698.  
  699. set node154 [$diag addNode cad_class 4704.0 4864.0 120.0 33.3333]
  700. $node154 setLabel "name" "m_window"
  701. $node154 setProp "is_folded" "1"
  702. $node154 setScope "name" "cl" "scopePhase"
  703. $node154 setProp "is_global_type" "No" "name" "cl"
  704.  
  705. set node129 [$diag addRake generalization $node135 $node136 4575.75 5287.94 4576.0 5344.0 5327.5]
  706.  
  707. set conn155 [$node129 getInConn]
  708. set segm156 [$conn155 getFirstSegm]
  709.  
  710. set conn157 [$node129 getFirstOutConn]
  711. set segm158 [$conn157 getFirstSegm]
  712.  
  713. set node130 [$diag addRake generalization $node139 $node140 4496.0 5008.0 4496.0 5088.0 5039.5]
  714.  
  715. set conn159 [$node130 getInConn]
  716. set segm160 [$conn159 getFirstSegm]
  717.  
  718. set conn161 [$node130 getFirstOutConn]
  719. set segm162 [$conn161 getFirstSegm]
  720.  
  721. set node131 [$diag addRake generalization $node137 $node138 4576.0 5504.0 4576.0 5568.0 5551.5]
  722.  
  723. set conn163 [$node131 getInConn]
  724. set segm164 [$conn163 getFirstSegm]
  725.  
  726. set conn165 [$node131 getFirstOutConn]
  727. set segm166 [$conn165 getFirstSegm]
  728.  
  729. set node132 [$diag addRake generalization $node143 $node144 4464.0 4476.44 4368.0 4528.0 4511.5]
  730.  
  731. set conn167 [$node132 getInConn]
  732. set segm168 [$conn167 getFirstSegm]
  733.  
  734. set conn169 [$node132 getFirstOutConn]
  735. set segm170 [$conn169 getFirstSegm]
  736.  
  737. set conn171 [$diag addConn generalization_conn $node132 $node146 4464.0 4511.5 4464.0 4576.0]
  738. set segm172 [$conn171 getFirstSegm]
  739.  
  740. set conn173 [$diag addConn generalization_conn $node132 $node145 4544.0 4511.5 4544.0 4544.0]
  741. set segm174 [$conn173 getFirstSegm]
  742.  
  743. set conn175 [$diag addConn generalization_conn $node132 $node147 4624.0 4511.5 4624.0 4576.0]
  744. set segm176 [$conn175 getFirstSegm]
  745.  
  746. set node133 [$diag addRake generalization $node148 $node141 4496.0 4752.0 4896.0 4848.0 4799.5]
  747.  
  748. set conn177 [$node133 getInConn]
  749. set segm178 [$conn177 getFirstSegm]
  750.  
  751. set conn179 [$node133 getFirstOutConn]
  752. set segm180 [$conn179 getFirstSegm]
  753.  
  754. set conn181 [$diag addConn generalization_conn $node133 $node142 5008.0 4799.5 5008.0 4848.0]
  755. set segm182 [$conn181 getFirstSegm]
  756.  
  757. set conn183 [$diag addConn generalization_conn $node133 $node153 4672.0 4799.5 4672.0 4832.0]
  758. set segm184 [$conn183 getFirstSegm]
  759.  
  760. set conn185 [$diag addConn generalization_conn $node133 $node152 4608.0 4799.5 4608.0 4880.0]
  761. set segm186 [$conn185 getFirstSegm]
  762.  
  763. set conn187 [$diag addConn generalization_conn $node133 $node151 4544.0 4799.5 4544.0 4832.0]
  764. set segm188 [$conn187 getFirstSegm]
  765.  
  766. set conn189 [$diag addConn generalization_conn $node133 $node149 4384.0 4799.5 4384.0 4832.0]
  767. set segm190 [$conn189 getFirstSegm]
  768.  
  769. set conn191 [$diag addConn generalization_conn $node133 $node154 4752.0 4799.5 4752.0 4880.0]
  770. set segm192 [$conn191 getFirstSegm]
  771.  
  772. set node134 [$diag addRake generalization $node149 $node150 4384.0 4832.0 4384.0 4912.0 4872.0]
  773.  
  774. set conn193 [$node134 getInConn]
  775. set segm194 [$conn193 getFirstSegm]
  776.  
  777. set conn195 [$node134 getFirstOutConn]
  778. set segm196 [$conn195 getFirstSegm]
  779.  
  780. $diag save
  781.  
  782. # Generator: et.tcl    /main/titanic/10
  783. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  784. # Interpreter to use: Otsh V7.1.1/B1
  785. #
  786. OTShRegister::importTool
  787.  
  788. set diag [CDM new m_window "Application" "" "" "" "" "" 1]
  789.  
  790. set row197 [$diag addRow method 0.0]
  791. $row197 setLabel "name_type" "\$create"
  792. $row197 setProp "is_class_feature" "1"
  793.  
  794. $diag save
  795.  
  796. # Generator: et.tcl    /main/titanic/10
  797. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  798. # Interpreter to use: Otsh V7.1.1/B1
  799. #
  800. OTShRegister::importTool
  801.  
  802. set diag [CDM new w_genapp_frame "Application" "" "" "" "" "" 1]
  803.  
  804. set row198 [$diag addRow method 0.0]
  805. $row198 setLabel "name_type" "enableprint()\n"
  806. $row198 setProp "has_parmlist" "1"
  807. $row198 setProp "is_event" "1"
  808.  
  809. set cell199 [$row198 addCell parameter 0.0]
  810. $cell199 setLabel "name_type" "pbm_custom01:eventid"
  811. $cell199 setScope "name_type" "cl" "scopePhase"
  812. $cell199 setScope "name_type" "de" "scopeFile"
  813.  
  814. set row200 [$diag addRow method 0.0]
  815. $row200 setLabel "name_type" "open()\n"
  816. $row200 setProp "has_parmlist" "1"
  817. $row200 setProp "is_event" "1"
  818.  
  819. set row201 [$diag addRow method 0.0]
  820. $row201 setLabel "name_type" "wf_closesheet()\n"
  821. $row201 setProp "has_parmlist" "1"
  822.  
  823. set row202 [$diag addRow method 0.0]
  824. $row202 setLabel "name_type" "wf_setmenutext()\n"
  825. $row202 setProp "has_parmlist" "1"
  826.  
  827. set cell203 [$row202 addCell parameter 0.0]
  828. $cell203 setLabel "name_type" "menu_reference:\n    m_genapp_frame"
  829. $cell203 setScope "name_type" "cl" "scopePhase"
  830. $cell203 setProp "freeText" "Generated by ObjectTeam " "name_type" "cl"
  831. $cell203 setScope "name_type" "de" "scopeFile"
  832.  
  833. set row204 [$diag addRow method 0.0]
  834. $row204 setLabel "name_type" "wf_enableprint()\n"
  835. $row204 setProp "has_parmlist" "1"
  836.  
  837. set cell205 [$row204 addCell parameter 0.0]
  838. $cell205 setLabel "name_type" "enable:boolean"
  839. $cell205 setProp "pass_by" "Value"
  840. $cell205 setScope "name_type" "cl" "scopePhase"
  841. $cell205 setScope "name_type" "de" "scopeFile"
  842.  
  843. set row206 [$diag addRow method 0.0]
  844. $row206 setLabel "name_type" "wf_getsheetcount(): integer\n"
  845. $row206 setProp "has_parmlist" "1"
  846. $row206 setScope "name_type" "cl" "scopePhase"
  847.  
  848. set row207 [$diag addRow method 0.0]
  849. $row207 setLabel "name_type" "wf_newsheet(): integer"
  850. $row207 setProp "has_parmlist" "1"
  851. $row207 setScope "name_type" "cl" "scopePhase"
  852.  
  853. $diag save
  854.  
  855. # Generator: et.tcl    /main/titanic/10
  856. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  857. # Interpreter to use: Otsh V7.1.1/B1
  858. #
  859. OTShRegister::importTool
  860.  
  861. set diag [CDM new w_genapp_toolbars "Application" "" "" "" "" "" 1]
  862.  
  863. set row208 [$diag addRow attribute 0.0]
  864. $row208 setLabel "name_type" "iapp_application: application\n"
  865. $row208 setScope "name_type" "cl" "scopePhase"
  866. $row208 setProp "is_builtin" "1" "name_type" "cl"
  867. $row208 setProp "attrib_access" "Public-Public" "name_type" "de"
  868.  
  869. set row209 [$diag addRow attribute 0.0]
  870. $row209 setLabel "name_type" "iw_window: window"
  871. $row209 setScope "name_type" "cl" "scopePhase"
  872. $row209 setProp "is_builtin" "1" "name_type" "cl"
  873. $row209 setProp "attrib_access" "Public-Public" "name_type" "de"
  874.  
  875. set row210 [$diag addRow method 0.0]
  876. $row210 setLabel "name_type" "\$create\n"
  877. $row210 setProp "is_class_feature" "1"
  878.  
  879. set row211 [$diag addRow method 0.0]
  880. $row211 setLabel "name_type" "open()"
  881. $row211 setProp "has_parmlist" "1"
  882. $row211 setProp "is_event" "1"
  883.  
  884. $diag save
  885.  
  886. # Generator: et.tcl    /main/titanic/10
  887. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  888. # Interpreter to use: Otsh V7.1.1/B1
  889. #
  890. OTShRegister::importTool
  891.  
  892. set diag [CDM new w_genapp_sheet "Application" "" "" "" "" "" 1]
  893.  
  894. set row212 [$diag addRow method 0.0]
  895. $row212 setLabel "name_type" "\$create\n"
  896. $row212 setProp "is_class_feature" "1"
  897.  
  898. set row213 [$diag addRow method 0.0]
  899. $row213 setLabel "name_type" "open()\n"
  900. $row213 setProp "has_parmlist" "1"
  901. $row213 setProp "is_event" "1"
  902.  
  903. set row214 [$diag addRow method 0.0]
  904. $row214 setLabel "name_type" "close()"
  905. $row214 setProp "has_parmlist" "1"
  906. $row214 setProp "is_event" "1"
  907.  
  908. $diag save
  909.  
  910. # Generator: et.tcl    /main/titanic/10
  911. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  912. # Interpreter to use: Otsh V7.1.1/B1
  913. #
  914. OTShRegister::importTool
  915.  
  916. set diag [CDM new cbx_item "Application" "" "" "" "" "" 1]
  917.  
  918. set row215 [$diag addRow method 0.0]
  919. $row215 setLabel "name_type" "clicked()"
  920. $row215 setProp "has_parmlist" "1"
  921. $row215 setProp "is_event" "1"
  922.  
  923. $diag save
  924.  
  925. # Generator: et.tcl    /main/titanic/10
  926. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  927. # Interpreter to use: Otsh V7.1.1/B1
  928. #
  929. OTShRegister::importTool
  930.  
  931. set diag [CDM new rb_item "Application" "" "" "" "" "" 1]
  932.  
  933. set row216 [$diag addRow method 0.0]
  934. $row216 setLabel "name_type" "clicked()"
  935. $row216 setProp "has_parmlist" "1"
  936. $row216 setProp "is_event" "1"
  937.  
  938. $diag save
  939.  
  940. # Generator: et.tcl    /main/titanic/10
  941. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  942. # Interpreter to use: Otsh V7.1.1/B1
  943. #
  944. OTShRegister::importTool
  945.  
  946. set diag [CDM new cb_item "Application" "" "" "" "" "" 1]
  947.  
  948. set row217 [$diag addRow method 0.0]
  949. $row217 setLabel "name_type" "clicked()"
  950. $row217 setProp "has_parmlist" "1"
  951. $row217 setProp "is_event" "1"
  952.  
  953. $diag save
  954.  
  955. # Generator: et.tcl    /main/titanic/10
  956. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  957. # Interpreter to use: Otsh V7.1.1/B1
  958. #
  959. OTShRegister::importTool
  960.  
  961. set diag [CDM new m_item "Application" "" "" "" "" "" 1]
  962.  
  963. set row218 [$diag addRow method 0.0]
  964. $row218 setLabel "name_type" "clicked()"
  965. $row218 setProp "has_parmlist" "1"
  966. $row218 setProp "is_event" "1"
  967.  
  968. $diag save
  969.  
  970. # Generator: et.tcl    /main/titanic/10
  971. # Argument(s): -e -dphase -a/user/resc/Application.tcl
  972. # Interpreter to use: Otsh V7.1.1/B1
  973. #
  974. OTShRegister::importTool
  975.  
  976. set diag [CDM new m_seperator "Application" "" "" "" "" "" 1]
  977.  
  978. set row219 [$diag addRow method 0.0]
  979. $row219 setLabel "name_type" "\$create"
  980. $row219 setProp "is_class_feature" "1"
  981.  
  982. $diag save
  983.