home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / TicTacToe.tcl < prev    next >
Text File  |  1997-08-20  |  25KB  |  652 lines
  1.  
  2. # Generator: et.tcl    /main/titanic/9
  3. # Argument(s): -e -dphase -a/user/resc/TicSystem.tcl
  4. # Interpreter to use: Otsh V7.1.1/F5
  5. #
  6. OTShRegister::importTool
  7.  
  8. set diag [CDM new TicTacToe_Cell "TicTacToe" "" "" "" "" "" 1]
  9.  
  10. set row1 [$diag addRow attribute 0.0]
  11. $row1 setLabel "name_type" "contents: String = ' '"
  12. $row1 setProp "initial_value" "' '"
  13. $row1 setScope "name_type" "cl" "scopePhase"
  14.  
  15. set row2 [$diag addRow method 0.0]
  16. $row2 setLabel "name_type" "getMaxLine(): Integer\n"
  17. $row2 setProp "has_parmlist" "1"
  18. $row2 setProp "freeText" "Returns the highest number of connected cells in a line,\nwhere each cell contains the same symbol as this cell." "name_type" "pe"
  19. $row2 setScope "name_type" "cl" "scopePhase"
  20.  
  21. set row3 [$diag addRow method 0.0]
  22. $row3 setLabel "name_type" "getLine(): Integer"
  23. $row3 setProp "has_parmlist" "1"
  24. $row3 setProp "freeText" "Returns the highest number of connected cells in a line in a specific\ndirection, where each cell contains the same specified symbol." "name_type" "pe"
  25. $row3 setScope "name_type" "cl" "scopePhase"
  26.  
  27. set cell4 [$row3 addCell parameter 0.0]
  28. $cell4 setLabel "name_type" "dir: String, "
  29. $cell4 setScope "name_type" "cl" "scopePhase"
  30. $cell4 setScope "name_type" "de" "scopeFile"
  31.  
  32. set cell5 [$row3 addCell parameter 0.0]
  33. $cell5 setLabel "name_type" "x: String"
  34. $cell5 setScope "name_type" "cl" "scopePhase"
  35. $cell5 setScope "name_type" "de" "scopeFile"
  36.  
  37. $diag save
  38.  
  39. # Generator: et.tcl    /main/titanic/9
  40. # Argument(s): -e -dphase -a/user/resc/TicSystem.tcl
  41. # Interpreter to use: Otsh V7.1.1/F5
  42. #
  43. OTShRegister::importTool
  44.  
  45. set diag [CDM new TicTacToe_GameMenu "TicTacToe" "" "" "" "" "" 1]
  46.  
  47. $diag save
  48.  
  49. # Generator: et.tcl    /main/titanic/9
  50. # Argument(s): -e -dphase -a/user/resc/TicSystem.tcl
  51. # Interpreter to use: Otsh V7.1.1/F5
  52. #
  53. OTShRegister::importTool
  54.  
  55. set diag [CAD new TTicTacToe_GUI "TicTacToe" "" "" "" "" "" 1]
  56.  
  57. set node10 [$diag addNode cad_class 1392.0 1040.0 146.0 33.0]
  58. $node10 setLabel "name" "TicTacToe_Board"
  59. $node10 setProp "is_folded" "1"
  60. $node10 setScope "name" "cl" "scopePhase"
  61. $node10 setProp "freeText" "This is a panel that forms the board." "name" "cl"
  62.  
  63. set node11 [$diag addNode cad_class 800.0 928.0 149.0 97.0]
  64. $node11 setLabel "name" "TicTacToe_Result"
  65. $node11 setScope "name" "cl" "scopePhase"
  66.  
  67. set node12 [$diag addNode cad_class 816.0 800.0 120.0 33.0]
  68. $node12 setLabel "name" "TLabel"
  69. $node12 setProp "is_folded" "1"
  70. $node12 setScope "name" "cl" "scopePhase"
  71. $node12 setProp "is_declaration" "1" "name" "cl"
  72. $node12 setProp "libunit" "StdCtrls" "name" "cl"
  73.  
  74. set node13 [$diag addNode cad_class 1376.0 928.0 177.0 33.0]
  75. $node13 setLabel "name" "TicTacToe_MainMenu"
  76. $node13 setProp "is_folded" "1"
  77. $node13 setScope "name" "cl" "scopePhase"
  78. $node13 setProp "freeText" "Tic Tac Toe Main menu" "name" "cl"
  79.  
  80. set node14 [$diag addNode cad_class 1072.0 928.0 228.0 202.0]
  81. $node14 setLabel "name" "TTicTacToe_GUI"
  82. $node14 setScope "name" "cl" "scopePhase"
  83. $node14 setProp "freeText" "Graphical User Interface of the game." "name" "cl"
  84. $node14 setProp "is_mainform" "1" "name" "cl"
  85.  
  86. set node15 [$diag addNode cad_class 1088.0 800.0 120.0 33.0]
  87. $node15 setLabel "name" "TForm"
  88. $node15 setProp "is_folded" "1"
  89. $node15 setScope "name" "cl" "scopePhase"
  90. $node15 setProp "is_declaration" "1" "name" "cl"
  91. $node15 setProp "libunit" "Forms" "name" "cl"
  92.  
  93. set node16 [$diag addNode cad_class 1184.0 1360.0 179.0 407.5]
  94. $node16 setLabel "name" "TicTacToe_CellButton"
  95. $node16 setScope "name" "cl" "scopePhase"
  96.  
  97. set node17 [$diag addNode cad_class 1200.0 1248.0 120.0 33.0]
  98. $node17 setLabel "name" "TButton"
  99. $node17 setProp "is_folded" "1"
  100. $node17 setScope "name" "cl" "scopePhase"
  101. $node17 setProp "is_declaration" "1" "name" "cl"
  102. $node17 setProp "libunit" "StdCtrls" "name" "cl"
  103.  
  104. set node18 [$diag addNode cad_class 896.0 1360.0 146.0 407.5]
  105. $node18 setLabel "name" "TicTacToe_Board"
  106. $node18 setScope "name" "cl" "scopePhase"
  107. $node18 setProp "freeText" "This is a panel that forms the board." "name" "cl"
  108.  
  109. set node19 [$diag addNode cad_class 896.0 1248.0 120.0 33.0]
  110. $node19 setLabel "name" "TPanel"
  111. $node19 setProp "is_folded" "1"
  112. $node19 setScope "name" "cl" "scopePhase"
  113. $node19 setProp "is_declaration" "1" "name" "cl"
  114. $node19 setProp "libunit" "ExtCtrls" "name" "cl"
  115.  
  116. set node6 [$diag addRake generalization $node12 $node11 880.0 832.0 880.0 960.0 896.0]
  117.  
  118. set conn44 [$node6 getInConn]
  119. set segm45 [$conn44 getFirstSegm]
  120.  
  121. set conn46 [$node6 getFirstOutConn]
  122. set segm47 [$conn46 getFirstSegm]
  123.  
  124. set node7 [$diag addRake generalization $node15 $node14 1152.0 832.0 1152.0 928.0 895.5]
  125.  
  126. set conn48 [$node7 getInConn]
  127. set segm49 [$conn48 getFirstSegm]
  128.  
  129. set conn50 [$node7 getFirstOutConn]
  130. set segm51 [$conn50 getFirstSegm]
  131.  
  132. set node8 [$diag addRake generalization $node17 $node16 1264.0 1280.0 1264.0 1392.0 1344.0]
  133.  
  134. set conn52 [$node8 getInConn]
  135. set segm53 [$conn52 getFirstSegm]
  136.  
  137. set conn54 [$node8 getFirstOutConn]
  138. set segm55 [$conn54 getFirstSegm]
  139.  
  140. set node9 [$diag addRake generalization $node19 $node18 960.0 1280.0 960.0 1376.0 1327.5]
  141.  
  142. set conn56 [$node9 getInConn]
  143. set segm57 [$conn56 getFirstSegm]
  144.  
  145. set conn58 [$node9 getFirstOutConn]
  146. set segm59 [$conn58 getFirstSegm]
  147.  
  148. set conn20 [$diag addConn aggregation $node14 $node10 1264.0 1056.0 1424.0 1056.0]
  149. $conn20 setLabel "role_end" "Board"
  150. $conn20 setProp "mult_kind_end" "one"
  151. $conn20 setProp "mult_kind_start" "optional"
  152. set segm21 [$conn20 getFirstSegm]
  153.  
  154. set conn22 [$diag addConn aggregation $node14 $node11 1072.0 944.0 928.0 944.0]
  155. $conn22 setLabel "role_end" "Result"
  156. $conn22 setProp "mult_kind_end" "one"
  157. $conn22 setProp "mult_kind_start" "optional"
  158. set segm23 [$conn22 getFirstSegm]
  159.  
  160. set conn24 [$diag addConn aggregation $node14 $node13 1200.0 944.0 1392.0 944.0]
  161. $conn24 setLabel "role_end" "MainMenu"
  162. $conn24 setProp "mult_kind_end" "one"
  163. $conn24 setProp "mult_kind_start" "optional"
  164. set segm25 [$conn24 getFirstSegm]
  165.  
  166. set conn26 [$diag addConn aggregation $node18 $node16 1030.0 1760.0 1200.0 1760.0]
  167. $conn26 setLabel "role_end" "CellButton9"
  168. $conn26 setProp "mult_kind_end" "one"
  169. $conn26 setProp "mult_kind_start" "optional"
  170. set segm27 [$conn26 getFirstSegm]
  171.  
  172. set conn28 [$diag addConn aggregation $node18 $node16 1030.0 1712.0 1200.0 1712.0]
  173. $conn28 setLabel "role_end" "CellButton8"
  174. $conn28 setProp "mult_kind_end" "one"
  175. $conn28 setProp "mult_kind_start" "optional"
  176. set segm29 [$conn28 getFirstSegm]
  177.  
  178. set conn30 [$diag addConn aggregation $node18 $node16 1030.0 1664.0 1200.0 1664.0]
  179. $conn30 setLabel "role_end" "CellButton7"
  180. $conn30 setProp "mult_kind_end" "one"
  181. $conn30 setProp "mult_kind_start" "optional"
  182. set segm31 [$conn30 getFirstSegm]
  183.  
  184. set conn32 [$diag addConn aggregation $node18 $node16 1024.0 1616.0 1200.0 1616.0]
  185. $conn32 setLabel "role_end" "CellButton6"
  186. $conn32 setProp "mult_kind_end" "one"
  187. $conn32 setProp "mult_kind_start" "optional"
  188. set segm33 [$conn32 getFirstSegm]
  189.  
  190. set conn34 [$diag addConn aggregation $node18 $node16 1030.0 1568.0 1184.0 1568.0]
  191. $conn34 setLabel "role_end" "CellButton5"
  192. $conn34 setProp "mult_kind_end" "one"
  193. $conn34 setProp "mult_kind_start" "optional"
  194. set segm35 [$conn34 getFirstSegm]
  195.  
  196. set conn36 [$diag addConn aggregation $node18 $node16 1024.0 1520.0 1200.0 1520.0]
  197. $conn36 setLabel "role_end" "CellButton4"
  198. $conn36 setProp "mult_kind_end" "one"
  199. $conn36 setProp "mult_kind_start" "optional"
  200. set segm37 [$conn36 getFirstSegm]
  201.  
  202. set conn38 [$diag addConn aggregation $node18 $node16 1030.0 1472.0 1200.0 1472.0]
  203. $conn38 setLabel "role_end" "CellButton3"
  204. $conn38 setProp "mult_kind_end" "one"
  205. $conn38 setProp "mult_kind_start" "optional"
  206. set segm39 [$conn38 getFirstSegm]
  207.  
  208. set conn40 [$diag addConn aggregation $node18 $node16 1030.0 1424.0 1200.0 1424.0]
  209. $conn40 setLabel "role_end" "CellButton2"
  210. $conn40 setProp "mult_kind_end" "one"
  211. $conn40 setProp "mult_kind_start" "optional"
  212. set segm41 [$conn40 getFirstSegm]
  213.  
  214. set conn42 [$diag addConn aggregation $node18 $node16 1030.0 1376.0 1200.0 1376.0]
  215. $conn42 setLabel "role_end" "CellButton1"
  216. $conn42 setProp "mult_kind_end" "one"
  217. $conn42 setProp "mult_kind_start" "optional"
  218. set segm43 [$conn42 getFirstSegm]
  219.  
  220. $diag save
  221.  
  222. # Generator: et.tcl    /main/titanic/9
  223. # Argument(s): -e -dphase -a/user/resc/TicSystem.tcl
  224. # Interpreter to use: Otsh V7.1.1/F5
  225. #
  226. OTShRegister::importTool
  227.  
  228. set diag [CDM new TTicTacToe_GUI "TicTacToe" "" "" "" "" "" 1]
  229.  
  230. set row60 [$diag addRow attribute 0.0]
  231. $row60 setLabel "name_type" "CellButtons: TButton"
  232. $row60 setProp "attrib_mod" "Other"
  233. $row60 setProp "attrib_othermod" "array \[1..9\] of TButton"
  234. $row60 setScope "name_type" "cl" "scopePhase"
  235. $row60 setProp "is_declaration" "1" "name_type" "cl"
  236. $row60 setProp "libunit" "StdCtrls" "name_type" "cl"
  237. $row60 setProp "attrib_access" "None-None" "name_type" "de"
  238.  
  239. set row61 [$diag addRow method 0.0]
  240. $row61 setLabel "name_type" "\$create\n"
  241. $row61 setProp "is_class_feature" "1"
  242. $row61 setProp "method_modifier" "Override"
  243.  
  244. set row62 [$diag addRow method 0.0]
  245. $row62 setLabel "name_type" "disableBoard()\n"
  246. $row62 setProp "has_parmlist" "1"
  247. $row62 setProp "freeText" "Disables all the buttons of the board." "name_type" "pe"
  248.  
  249. set row63 [$diag addRow method 0.0]
  250. $row63 setLabel "name_type" "enableBoard()\n"
  251. $row63 setProp "has_parmlist" "1"
  252. $row63 setProp "freeText" "Enables all the buttons of the board." "name_type" "pe"
  253.  
  254. set row64 [$diag addRow method 0.0]
  255. $row64 setLabel "name_type" "clearBoard()\n\n"
  256. $row64 setProp "has_parmlist" "1"
  257. $row64 setProp "freeText" "Clears the contents of all the buttons of the board." "name_type" "pe"
  258.  
  259. set row65 [$diag addRow method 0.0]
  260. $row65 setLabel "name_type" "displayResult()\n\n"
  261. $row65 setProp "has_parmlist" "1"
  262. $row65 setProp "freeText" "Displays the specified result." "name_type" "pe"
  263.  
  264. set cell66 [$row65 addCell parameter 0.0]
  265. $cell66 setLabel "name_type" "text: String"
  266. $cell66 setScope "name_type" "cl" "scopePhase"
  267. $cell66 setScope "name_type" "de" "scopeFile"
  268.  
  269. set row67 [$diag addRow method 0.0]
  270. $row67 setLabel "name_type" "cellButtonClick()"
  271. $row67 setProp "has_parmlist" "1"
  272. $row67 setProp "freeText" "Checks if cell is empty and sets it." "name_type" "pe"
  273.  
  274. set cell68 [$row67 addCell parameter 0.0]
  275. $cell68 setLabel "name_type" "index: Integer"
  276. $cell68 setScope "name_type" "cl" "scopePhase"
  277. $cell68 setScope "name_type" "de" "scopeFile"
  278.  
  279. $diag save
  280.  
  281. # Generator: et.tcl    /main/titanic/9
  282. # Argument(s): -e -dphase -a/user/resc/TicSystem.tcl
  283. # Interpreter to use: Otsh V7.1.1/F5
  284. #
  285. OTShRegister::importTool
  286.  
  287. set diag [CAD new TicTacToe_Menu "TicTacToe" "" "" "" "" "" 1]
  288.  
  289. set node71 [$diag addNode cad_class 1392.0 1200.0 174.0 135.5]
  290. $node71 setLabel "name" "TicTacToe_Opponent"
  291. $node71 setScope "name" "cl" "scopePhase"
  292.  
  293. set node72 [$diag addNode cad_class 1056.0 1200.0 214.0 135.5]
  294. $node72 setLabel "name" "TicTacToe_OpponentMenu"
  295. $node72 setScope "name" "cl" "scopePhase"
  296. $node72 setProp "freeText" "Pull-down menu to select an opponent." "name" "cl"
  297.  
  298. set node73 [$diag addNode cad_class 1280.0 1072.0 120.0 33.0]
  299. $node73 setLabel "name" "TMenuItem"
  300. $node73 setProp "is_folded" "1"
  301. $node73 setScope "name" "cl" "scopePhase"
  302. $node73 setProp "is_declaration" "1" "name" "cl"
  303. $node73 setProp "libunit" "Other" "name" "cl"
  304. $node73 setProp "userlib" "Menus" "name" "cl"
  305.  
  306. set node74 [$diag addNode cad_class 1392.0 912.0 134.0 97.0]
  307. $node74 setLabel "name" "TicTacToe_New"
  308. $node74 setScope "name" "cl" "scopePhase"
  309.  
  310. set node75 [$diag addNode cad_class 1088.0 912.0 184.0 97.0]
  311. $node75 setLabel "name" "TicTacToe_GameMenu"
  312. $node75 setScope "name" "cl" "scopePhase"
  313. $node75 setProp "freeText" "Pull down menu to select a new game." "name" "cl"
  314.  
  315. set node77 [$diag addNode cad_class 1248.0 800.0 120.0 33.0]
  316. $node77 setLabel "name" "TMenuItem"
  317. $node77 setProp "is_folded" "1"
  318. $node77 setScope "name" "cl" "scopePhase"
  319. $node77 setProp "is_declaration" "1" "name" "cl"
  320. $node77 setProp "libunit" "Other" "name" "cl"
  321. $node77 setProp "userlib" "Menus" "name" "cl"
  322.  
  323. set node78 [$diag addNode cad_class 432.0 912.0 177.0 97.0]
  324. $node78 setLabel "name" "TicTacToe_MainMenu"
  325. $node78 setScope "name" "cl" "scopePhase"
  326. $node78 setProp "freeText" "Tic Tac Toe Main menu" "name" "cl"
  327.  
  328. set node79 [$diag addNode cad_class 448.0 768.0 120.0 33.0]
  329. $node79 setLabel "name" "TMainMenu"
  330. $node79 setProp "is_folded" "1"
  331. $node79 setScope "name" "cl" "scopePhase"
  332. $node79 setProp "is_declaration" "1" "name" "cl"
  333. $node79 setProp "libunit" "Other" "name" "cl"
  334. $node79 setProp "userlib" "Menus" "name" "cl"
  335.  
  336. set node80 [$diag addNode cad_class 752.0 976.0 214.0 33.0]
  337. $node80 setLabel "name" "TicTacToe_OpponentMenu"
  338. $node80 setProp "is_folded" "1"
  339. $node80 setScope "name" "cl" "scopePhase"
  340. $node80 setProp "freeText" "Pull-down menu to select an opponent." "name" "cl"
  341.  
  342. set node81 [$diag addNode cad_class 752.0 912.0 184.0 33.0]
  343. $node81 setLabel "name" "TicTacToe_GameMenu"
  344. $node81 setProp "is_folded" "1"
  345. $node81 setScope "name" "cl" "scopePhase"
  346. $node81 setProp "freeText" "Pull down menu to select a new game." "name" "cl"
  347.  
  348. set node69 [$diag addRake generalization $node77 $node74 1312.0 832.0 1472.0 944.0 880.0]
  349.  
  350. set conn94 [$node69 getInConn]
  351. set segm95 [$conn94 getFirstSegm]
  352.  
  353. set conn96 [$node69 getFirstOutConn]
  354. set segm97 [$conn96 getFirstSegm]
  355.  
  356. set conn98 [$diag addConn generalization_conn $node69 $node75 1152.0 880.5 1152.0 928.0]
  357. set segm99 [$conn98 getFirstSegm]
  358.  
  359. set node70 [$diag addRake generalization $node79 $node78 512.0 784.0 512.0 928.0 847.5]
  360.  
  361. set conn100 [$node70 getInConn]
  362. set segm101 [$conn100 getFirstSegm]
  363.  
  364. set conn102 [$node70 getFirstOutConn]
  365. set segm103 [$conn102 getFirstSegm]
  366.  
  367. set node76 [$diag addRake generalization $node73 $node71 1344.0 1104.0 1488.0 1232.0 1135.5]
  368.  
  369. set conn104 [$node76 getInConn]
  370. set segm105 [$conn104 getFirstSegm]
  371.  
  372. set conn106 [$node76 getFirstOutConn]
  373. set segm107 [$conn106 getFirstSegm]
  374.  
  375. set conn108 [$diag addConn generalization_conn $node76 $node72 1168.0 1136.0 1168.0 1216.0]
  376. set segm109 [$conn108 getFirstSegm]
  377.  
  378. set conn82 [$diag addConn aggregation $node72 $node71 1257.0 1200.0 1408.0 1200.0]
  379. $conn82 setLabel "role_end" "Human"
  380. $conn82 setProp "mult_kind_end" "one"
  381. $conn82 setProp "mult_kind_start" "optional"
  382. set segm83 [$conn82 getFirstSegm]
  383.  
  384. set conn84 [$diag addConn aggregation $node75 $node74 1200.0 960.0 1408.0 960.0]
  385. $conn84 setLabel "role_end" "New"
  386. $conn84 setProp "mult_kind_end" "one"
  387. $conn84 setProp "mult_kind_start" "optional"
  388. set segm85 [$conn84 getFirstSegm]
  389.  
  390. set conn86 [$diag addConn aggregation $node78 $node81 597.0 928.0 768.0 928.0]
  391. $conn86 setLabel "role_end" "GameMenu"
  392. $conn86 setProp "mult_kind_end" "one"
  393. $conn86 setProp "mult_kind_start" "optional"
  394. set segm87 [$conn86 getFirstSegm]
  395.  
  396. set conn88 [$diag addConn aggregation $node72 $node71 1257.0 1328.0 1408.0 1328.0]
  397. $conn88 setLabel "role_end" "ComputerO"
  398. $conn88 setProp "mult_kind_end" "one"
  399. $conn88 setProp "mult_kind_start" "optional"
  400. set segm89 [$conn88 getFirstSegm]
  401.  
  402. set conn90 [$diag addConn aggregation $node72 $node71 1257.0 1264.0 1408.0 1264.0]
  403. $conn90 setLabel "role_end" "ComputerX"
  404. $conn90 setProp "mult_kind_end" "one"
  405. $conn90 setProp "mult_kind_start" "optional"
  406. set segm91 [$conn90 getFirstSegm]
  407.  
  408. set conn92 [$diag addConn aggregation $node78 $node80 597.0 992.0 768.0 992.0]
  409. $conn92 setLabel "role_end" "OpponentMenu"
  410. $conn92 setProp "mult_kind_end" "one"
  411. $conn92 setProp "mult_kind_start" "optional"
  412. set segm93 [$conn92 getFirstSegm]
  413.  
  414. $diag save
  415.  
  416. # Generator: et.tcl    /main/titanic/9
  417. # Argument(s): -e -dphase -a/user/resc/TicSystem.tcl
  418. # Interpreter to use: Otsh V7.1.1/F5
  419. #
  420. OTShRegister::importTool
  421.  
  422. set diag [CAD new TicTacToe_Core "TicTacToe" "" "" "" "" "" 1]
  423.  
  424. set node110 [$diag addNode cad_class 1072.0 784.0 239.0 127.0]
  425. $node110 setLabel "name" "TicTacToe_Computer"
  426. $node110 setScope "name" "cl" "scopePhase"
  427. $node110 setProp "freeText" "The computer opponent." "name" "cl"
  428.  
  429. set node111 [$diag addNode cad_class 672.0 784.0 252.0 262.0]
  430. $node111 setLabel "name" "TicTacToe_Game"
  431. $node111 setScope "name" "cl" "scopePhase"
  432. $node111 setProp "freeText" "The Tic Tac Toe game itself." "name" "cl"
  433.  
  434. set node112 [$diag addNode cad_class 256.0 784.0 268.0 112.0]
  435. $node112 setLabel "name" "TicTacToe_Cell"
  436. $node112 setScope "name" "cl" "scopePhase"
  437. $node112 setProp "freeText" "Cell of the board." "name" "cl"
  438.  
  439. set node113 [$diag addNode cad_class 928.0 624.0 140.0 33.0]
  440. $node113 setLabel "name" "TTicTacToe_GUI"
  441. $node113 setProp "is_folded" "1"
  442. $node113 setScope "name" "cl" "scopePhase"
  443. $node113 setProp "freeText" "Graphical User Interface of the game." "name" "cl"
  444. $node113 setProp "is_mainform" "1" "name" "cl"
  445.  
  446. set conn114 [$diag addConn qualif_assoc $node111 $node112 672.0 848.0 480.0 848.0]
  447. $conn114 setLabel "qualifier" "Index"
  448. $conn114 setLabel "role_end" "board"
  449. $conn114 setProp "mult_kind_end" "one"
  450. $conn114 setProp "mult_kind_start" "optional"
  451. $conn114 setScope "qualifier" "de" "scopeFile"
  452. $conn114 setProp "data_type" "Integer" "qualifier" "de"
  453. $conn114 setProp "assoc_implement" "Object reference" "role_end" "de"
  454. set segm115 [$conn114 getFirstSegm]
  455.  
  456. set conn116 [$diag addConn qualif_assoc $node112 $node112 256.0 880.0 272.0 800.0]
  457. $conn116 setLabel "qualifier" "Direction"
  458. $conn116 setLabel "role_end" "neighbour"
  459. $conn116 setProp "mult_kind_end" "one"
  460. $conn116 setProp "mult_kind_start" "optional"
  461. $conn116 setScope "qualifier" "de" "scopeFile"
  462. $conn116 setProp "data_type" "String" "qualifier" "de"
  463. $conn116 setProp "assoc_implement" "Object reference" "role_end" "de"
  464. set segm117 [$conn116 getFirstSegm]
  465. set segm118 [$conn116 addSegm 128.0 880.0]
  466. set segm119 [$conn116 addSegm 128.0 800.0]
  467.  
  468. set conn120 [$diag addConn association $node111 $node110 800.0 848.0 1088.0 848.0]
  469. $conn120 setLabel "role_start" "game"
  470. $conn120 setProp "mult_kind_end" "optional"
  471. $conn120 setProp "mult_kind_start" "one"
  472. $conn120 setProp "assoc_implement" "Object reference" "role_start" "de"
  473. set segm121 [$conn120 getFirstSegm]
  474.  
  475. set conn122 [$diag addConn association $node113 $node110 1054.0 640.0 1184.0 832.0]
  476. $conn122 setLabel "role_end" "computer"
  477. $conn122 setLabel "role_start" "gui"
  478. $conn122 setProp "mult_kind_end" "optional"
  479. $conn122 setProp "mult_kind_start" "optional"
  480. $conn122 setProp "assoc_implement" "Object reference" "role_end" "de"
  481. set segm123 [$conn122 getFirstSegm]
  482. set segm124 [$conn122 addSegm 1184.0 640.0]
  483.  
  484. set conn125 [$diag addConn association $node113 $node111 928.0 640.0 800.0 800.0]
  485. $conn125 setLabel "role_end" "game"
  486. $conn125 setLabel "role_start" "gui"
  487. $conn125 setProp "mult_kind_end" "optional"
  488. $conn125 setProp "mult_kind_start" "optional"
  489. $conn125 setProp "assoc_implement" "Object reference" "role_end" "de"
  490. set segm126 [$conn125 getFirstSegm]
  491. set segm127 [$conn125 addSegm 800.0 640.0]
  492.  
  493. $diag save
  494.  
  495. # Generator: et.tcl    /main/titanic/9
  496. # Argument(s): -e -dphase -a/user/resc/TicSystem.tcl
  497. # Interpreter to use: Otsh V7.1.1/F5
  498. #
  499. OTShRegister::importTool
  500.  
  501. set diag [CDM new TicTacToe_New "TicTacToe" "" "" "" "" "" 1]
  502.  
  503. set row128 [$diag addRow method 0.0]
  504. $row128 setLabel "name_type" "Click()"
  505. $row128 setProp "has_parmlist" "1"
  506. $row128 setProp "is_event" "1"
  507. $row128 setProp "freeText" "Starts new game." "name_type" "pe"
  508.  
  509. $diag save
  510.  
  511. # Generator: et.tcl    /main/titanic/9
  512. # Argument(s): -e -dphase -a/user/resc/TicSystem.tcl
  513. # Interpreter to use: Otsh V7.1.1/F5
  514. #
  515. OTShRegister::importTool
  516.  
  517. set diag [CDM new TicTacToe_CellButton "TicTacToe" "" "" "" "" "" 1]
  518.  
  519. set row129 [$diag addRow method 0.0]
  520. $row129 setLabel "name_type" "Click()"
  521. $row129 setProp "has_parmlist" "1"
  522. $row129 setProp "is_event" "1"
  523.  
  524. $diag save
  525.  
  526. # Generator: et.tcl    /main/titanic/9
  527. # Argument(s): -e -dphase -a/user/resc/TicSystem.tcl
  528. # Interpreter to use: Otsh V7.1.1/F5
  529. #
  530. OTShRegister::importTool
  531.  
  532. set diag [CDM new TicTacToe_Opponent "TicTacToe" "" "" "" "" "" 1]
  533.  
  534. set row130 [$diag addRow method 0.0]
  535. $row130 setLabel "name_type" "Click()"
  536. $row130 setProp "has_parmlist" "1"
  537. $row130 setProp "is_event" "1"
  538. $row130 setProp "freeText" "Sets opponent." "name_type" "pe"
  539.  
  540. $diag save
  541.  
  542. # Generator: et.tcl    /main/titanic/9
  543. # Argument(s): -e -dphase -a/user/resc/TicSystem.tcl
  544. # Interpreter to use: Otsh V7.1.1/F5
  545. #
  546. OTShRegister::importTool
  547.  
  548. set diag [CDM new TicTacToe_Computer "TicTacToe" "" "" "" "" "" 1]
  549.  
  550. set row131 [$diag addRow attribute 0.0]
  551. $row131 setLabel "name_type" "id: String = ''"
  552. $row131 setProp "initial_value" "''"
  553. $row131 setScope "name_type" "cl" "scopePhase"
  554.  
  555. set row132 [$diag addRow method 0.0]
  556. $row132 setLabel "name_type" "checkTurn()\n"
  557. $row132 setProp "has_parmlist" "1"
  558. $row132 setProp "freeText" "Checks if it's its turn." "name_type" "pe"
  559.  
  560. set row133 [$diag addRow method 0.0]
  561. $row133 setLabel "name_type" "selectCell()\n"
  562. $row133 setProp "has_parmlist" "1"
  563. $row133 setProp "freeText" "Chooses a good empty cell." "name_type" "pe"
  564.  
  565. set row134 [$diag addRow method 0.0]
  566. $row134 setLabel "name_type" "getMaxValue(): Integer"
  567. $row134 setProp "has_parmlist" "1"
  568. $row134 setProp "freeText" "Determines the strategic value of the specified empty cell." "name_type" "pe"
  569. $row134 setScope "name_type" "cl" "scopePhase"
  570.  
  571. set cell135 [$row134 addCell parameter 0.0]
  572. $cell135 setLabel "name_type" "x: Integer"
  573. $cell135 setScope "name_type" "cl" "scopePhase"
  574. $cell135 setScope "name_type" "de" "scopeFile"
  575.  
  576. $diag save
  577.  
  578. # Generator: et.tcl    /main/titanic/9
  579. # Argument(s): -e -dphase -a/user/resc/TicSystem.tcl
  580. # Interpreter to use: Otsh V7.1.1/F5
  581. #
  582. OTShRegister::importTool
  583.  
  584. set diag [CDM new TicTacToe_Game "TicTacToe" "" "" "" "" "" 1]
  585.  
  586. set row136 [$diag addRow attribute 0.0]
  587. $row136 setLabel "name_type" "turnNumber: Integer\n"
  588. $row136 setScope "name_type" "cl" "scopePhase"
  589.  
  590. set row137 [$diag addRow attribute 0.0]
  591. $row137 setLabel "name_type" "players: String = 'XO'\n"
  592. $row137 setProp "initial_value" "'XO'"
  593. $row137 setScope "name_type" "cl" "scopePhase"
  594.  
  595. set row138 [$diag addRow attribute 0.0]
  596. $row138 setLabel "name_type" "drawText: String = 'It''s a draw!!!'\n"
  597. $row138 setProp "initial_value" "'It''s a draw!!!'"
  598. $row138 setScope "name_type" "cl" "scopePhase"
  599.  
  600. set row139 [$diag addRow attribute 0.0]
  601. $row139 setLabel "name_type" "winText: String = ' is the winner!!!'"
  602. $row139 setProp "initial_value" "' is the winner!!!'"
  603. $row139 setScope "name_type" "cl" "scopePhase"
  604.  
  605. set row140 [$diag addRow method 0.0]
  606. $row140 setLabel "name_type" "createCells()\n"
  607. $row140 setProp "has_parmlist" "1"
  608. $row140 setProp "freeText" "Creates all the cells of the board.\n" "name_type" "pe"
  609.  
  610. set row141 [$diag addRow method 0.0]
  611. $row141 setLabel "name_type" "connectCells()\n\n"
  612. $row141 setProp "has_parmlist" "1"
  613. $row141 setProp "freeText" "Connects all the cells of the board." "name_type" "pe"
  614.  
  615. set row142 [$diag addRow method 0.0]
  616. $row142 setLabel "name_type" "startGame()\n"
  617. $row142 setProp "has_parmlist" "1"
  618. $row142 setProp "freeText" "Initialize everything for a new game." "name_type" "pe"
  619.  
  620. set row143 [$diag addRow method 0.0]
  621. $row143 setLabel "name_type" "clearBoard()\n\n"
  622. $row143 setProp "has_parmlist" "1"
  623. $row143 setProp "freeText" "Clears all the cells of the board." "name_type" "pe"
  624.  
  625. set row144 [$diag addRow method 0.0]
  626. $row144 setLabel "name_type" "checkResult()\n"
  627. $row144 setProp "has_parmlist" "1"
  628. $row144 setProp "freeText" "Checks if there is a winner or a draw\nand displays this result." "name_type" "pe"
  629.  
  630. set cell145 [$row144 addCell parameter 0.0]
  631. $cell145 setLabel "name_type" "number: Integer"
  632. $cell145 setScope "name_type" "cl" "scopePhase"
  633. $cell145 setScope "name_type" "de" "scopeFile"
  634.  
  635. set row146 [$diag addRow method 0.0]
  636. $row146 setLabel "name_type" "selectCell()\n"
  637. $row146 setProp "has_parmlist" "1"
  638. $row146 setProp "freeText" "Marks the selected cell and checks to\nsee if there is a result." "name_type" "pe"
  639.  
  640. set cell147 [$row146 addCell parameter 0.0]
  641. $cell147 setLabel "name_type" "number: Integer"
  642. $cell147 setScope "name_type" "cl" "scopePhase"
  643. $cell147 setScope "name_type" "de" "scopeFile"
  644.  
  645. set row148 [$diag addRow method 0.0]
  646. $row148 setLabel "name_type" "getActivePlayer(): String"
  647. $row148 setProp "has_parmlist" "1"
  648. $row148 setProp "freeText" "Determines the active player." "name_type" "pe"
  649. $row148 setScope "name_type" "cl" "scopePhase"
  650.  
  651. $diag save
  652.