home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / debatech.sit / Evidence / background_2577.txt < prev    next >
Text File  |  1990-04-21  |  11KB  |  530 lines
  1. -- background: 2577 from stack: in
  2. -- bmap block id: 3092
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0007
  11. -- rect: left=189 top=178 right=340 bottom=509
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: evidence
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0007
  25. -- rect: left=224 top=143 right=176 bottom=509
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: slug
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 00
  38. -- high flags: 0007
  39. -- rect: left=225 top=59 right=141 bottom=505
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: keywords
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 00
  52. -- high flags: 0002
  53. -- rect: left=37 top=41 right=59 bottom=219
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: case
  62.  
  63.  
  64. -- part 5 (field)
  65. -- low flags: 00
  66. -- high flags: 0007
  67. -- rect: left=37 top=61 right=96 bottom=200
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: type
  76.  
  77.  
  78. -- part 6 (field)
  79. -- low flags: 00
  80. -- high flags: 0007
  81. -- rect: left=7 top=306 right=340 bottom=182
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: novol
  90.  
  91.  
  92. -- part 7 (field)
  93. -- low flags: 00
  94. -- high flags: 0007
  95. -- rect: left=7 top=256 right=289 bottom=182
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: name
  104.  
  105.  
  106. -- part 8 (field)
  107. -- low flags: 00
  108. -- high flags: 0007
  109. -- rect: left=7 top=206 right=239 bottom=182
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: title
  118.  
  119.  
  120. -- part 9 (field)
  121. -- low flags: 00
  122. -- high flags: 0007
  123. -- rect: left=7 top=155 right=188 bottom=182
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 3
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: author
  132.  
  133.  
  134. -- part 10 (button)
  135. -- low flags: 00
  136. -- high flags: A003
  137. -- rect: left=16 top=107 right=129 bottom=59
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: New
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   get field case
  149.   doMenu "New Card"
  150.   put it into field case
  151. end mouseUp
  152.  
  153.  
  154.  
  155. -- part 11 (button)
  156. -- low flags: 00
  157. -- high flags: A003
  158. -- rect: left=75 top=107 right=129 bottom=117
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: IBID
  167. ----- HyperTalk script -----
  168. on mouseUp
  169.   lock screen
  170.   put field case into line 1 of ibid
  171.   put field type into line 2 of ibid
  172.   put field author into line 3 of ibid
  173.   put field title into line 4 of ibid
  174.   put field name into line 5 of ibid
  175.   put field novol into line 6 of ibid
  176.   put field keywords into line 7 of ibid
  177.   doMenu "New Card"
  178.   put line 1 of ibid into field case
  179.   put line 2 of ibid into field type
  180.   put line 3 of ibid into field author
  181.   put line 4 of ibid into field title
  182.   put line 5 of ibid into field name
  183.   put line 6 of ibid into field novol
  184.   put line 7 of ibid into field keywords
  185.   unlock screen
  186. end mouseUp
  187.  
  188.  
  189.  
  190. -- part 13 (button)
  191. -- low flags: 00
  192. -- high flags: A003
  193. -- rect: left=134 top=107 right=129 bottom=171
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: Tag
  202. ----- HyperTalk script -----
  203. on mouseUp
  204.   set lockText of field tag to false
  205.   get field tag
  206.   if it is empty then
  207.     put "ΓÇó" into field tag
  208.   else
  209.     put empty into field tag
  210.   end if
  211.   set lockText of field tag to true
  212. end mouseUp
  213.  
  214.  
  215.  
  216. -- part 15 (button)
  217. -- low flags: 00
  218. -- high flags: 2000
  219. -- rect: left=188 top=3 right=36 bottom=232
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 30393 / 30393
  222. -- text alignment: 1
  223. -- font id: 0
  224. -- text size: 12
  225. -- style flags: 0
  226. -- line height: 16
  227. -- part name: newcase
  228. ----- HyperTalk script -----
  229. on mouseUp
  230.   put the short name of this stack into stackName
  231.   oxBox stackName
  232. end mouseUp
  233.  
  234.  
  235.  
  236. -- part 17 (button)
  237. -- low flags: 00
  238. -- high flags: 2000
  239. -- rect: left=201 top=59 right=81 bottom=223
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 26635 / 26635
  242. -- text alignment: 1
  243. -- font id: 0
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: showTypes
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   global gtypes
  251.   get XScrollBoxM(0,"Select Argument Type(s)",gtypes,"Help")
  252.   if it is "Help" then
  253.     push card
  254.     go to card id 3870 of stack "Debate Coach"
  255.   else
  256.     put empty into selectedTypes
  257.     repeat with count = 1 to number of items in it
  258.       put item count of it into thisType
  259.       if thisType < 1 or thisType > 100 then
  260.         put selectedTypes & thisType into selectedTypes
  261.         if count < number of items in it then
  262.           put selectedTypes & ", " into selectedTypes
  263.         end if
  264.       end if
  265.     end repeat
  266.     put selectedTypes into field type
  267.   end if
  268. end mouseUp
  269.  
  270.  
  271.  
  272. -- part 18 (button)
  273. -- low flags: 00
  274. -- high flags: 2000
  275. -- rect: left=277 top=2 right=37 bottom=307
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 18609 / 18609
  278. -- text alignment: 1
  279. -- font id: 0
  280. -- text size: 12
  281. -- style flags: 0
  282. -- line height: 16
  283. -- part name: briefs
  284. ----- HyperTalk script -----
  285. on mouseUp
  286.   go to stack "Briefs"
  287. end mouseUp
  288.  
  289.  
  290.  
  291. -- part 20 (field)
  292. -- low flags: 01
  293. -- high flags: 0000
  294. -- rect: left=143 top=130 right=147 bottom=161
  295. -- title width / last selected line: 0
  296. -- icon id / first selected line: 0 / 0
  297. -- text alignment: 0
  298. -- font id: 3
  299. -- text size: 12
  300. -- style flags: 0
  301. -- line height: 16
  302. -- part name: tag
  303.  
  304.  
  305. -- part 21 (button)
  306. -- low flags: 00
  307. -- high flags: 2000
  308. -- rect: left=470 top=3 right=40 bottom=509
  309. -- title width / last selected line: 0
  310. -- icon id / first selected line: 1007 / 1007
  311. -- text alignment: 1
  312. -- font id: 0
  313. -- text size: 12
  314. -- style flags: 0
  315. -- line height: 16
  316. -- part name: QuickPrint
  317. ----- HyperTalk script -----
  318. on mouseUp
  319.   quickPrint
  320. end mouseUp
  321.  
  322.  
  323.  
  324. -- part 24 (field)
  325. -- low flags: 80
  326. -- high flags: 0000
  327. -- rect: left=184 top=178 right=340 bottom=504
  328. -- title width / last selected line: 0
  329. -- icon id / first selected line: 0 / 0
  330. -- text alignment: 0
  331. -- font id: 3
  332. -- text size: 12
  333. -- style flags: 0
  334. -- line height: 16
  335. -- part name: yourCard
  336.  
  337.  
  338. -- part 25 (field)
  339. -- low flags: 80
  340. -- high flags: 0000
  341. -- rect: left=7 top=155 right=240 bottom=207
  342. -- title width / last selected line: 0
  343. -- icon id / first selected line: 0 / 0
  344. -- text alignment: 0
  345. -- font id: 3
  346. -- text size: 12
  347. -- style flags: 0
  348. -- line height: 16
  349. -- part name: source
  350.  
  351.  
  352. -- part 26 (button)
  353. -- low flags: 00
  354. -- high flags: 2000
  355. -- rect: left=428 top=4 right=40 bottom=466
  356. -- title width / last selected line: 65535
  357. -- icon id / first selected line: -6047 / 59489
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: QuickWrite
  364. ----- HyperTalk script -----
  365. on mouseUp
  366.   quickWrite
  367. end mouseUp
  368.  
  369.  
  370.  
  371. -- part 27 (button)
  372. -- low flags: 00
  373. -- high flags: 2000
  374. -- rect: left=96 top=1 right=40 bottom=135
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 2002 / 2002
  377. -- text alignment: 1
  378. -- font id: 0
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: coach
  383. ----- HyperTalk script -----
  384. on mouseUp
  385.   go to card id 3060 of stack "Debate Coach"
  386. end mouseUp
  387.  
  388.  
  389.  
  390.  
  391. -- part 28 (button)
  392. -- low flags: 00
  393. -- high flags: 0000
  394. -- rect: left=238 top=5 right=35 bottom=271
  395. -- title width / last selected line: 0
  396. -- icon id / first selected line: 8538 / 8538
  397. -- text alignment: 1
  398. -- font id: 0
  399. -- text size: 12
  400. -- style flags: 0
  401. -- line height: 16
  402. -- part name: search
  403. ----- HyperTalk script -----
  404. on mouseUp
  405.   put the short name of this stack into stackName
  406.   put the selection into chosenText
  407.   search stackName, chosenText
  408. end mouseUp
  409.  
  410.  
  411.  
  412. -- part 29 (button)
  413. -- low flags: 00
  414. -- high flags: 2000
  415. -- rect: left=3 top=1 right=39 bottom=44
  416. -- title width / last selected line: 0
  417. -- icon id / first selected line: 29114 / 29114
  418. -- text alignment: 1
  419. -- font id: 0
  420. -- text size: 12
  421. -- style flags: 0
  422. -- line height: 16
  423. -- part name: Home
  424. ----- HyperTalk script -----
  425. on mouseUp
  426.   pop card
  427. end mouseUp
  428.  
  429.  
  430.  
  431. -- part 30 (button)
  432. -- low flags: 80
  433. -- high flags: 2003
  434. -- rect: left=372 top=5 right=39 bottom=410
  435. -- title width / last selected line: 0
  436. -- icon id / first selected line: 17137 / 17137
  437. -- text alignment: 1
  438. -- font id: 0
  439. -- text size: 12
  440. -- style flags: 0
  441. -- line height: 16
  442. -- part name: disableBriefMaking
  443. ----- HyperTalk script -----
  444. on mouseUp
  445.   global briefMaking
  446.   put "false" into briefMaking
  447.   hide bkgnd button cardContainer
  448.   hide bkgnd button disableBriefMaking
  449.   answer "Brief making now disabled." with "OK"
  450. end mouseUp
  451.  
  452.  
  453.  
  454. -- part 31 (button)
  455. -- low flags: 80
  456. -- high flags: 2003
  457. -- rect: left=329 top=3 right=42 bottom=366
  458. -- title width / last selected line: 0
  459. -- icon id / first selected line: 1588 / 1588
  460. -- text alignment: 1
  461. -- font id: 0
  462. -- text size: 12
  463. -- style flags: 0
  464. -- line height: 16
  465. -- part name: cardContainer
  466. ----- HyperTalk script -----
  467. on mouseUp
  468.   addCardtoBrief
  469. end mouseUp
  470.  
  471.  
  472.  
  473. -- part 32 (button)
  474. -- low flags: 00
  475. -- high flags: 2000
  476. -- rect: left=49 top=7 right=35 bottom=91
  477. -- title width / last selected line: 0
  478. -- icon id / first selected line: 1016 / 1016
  479. -- text alignment: 1
  480. -- font id: 0
  481. -- text size: 12
  482. -- style flags: 0
  483. -- line height: 16
  484. -- part name: New Button
  485. ----- HyperTalk script -----
  486. on mouseUp
  487.   go to previous card
  488. end mouseUp
  489.  
  490.  
  491.  
  492. -- part 33 (button)
  493. -- low flags: 00
  494. -- high flags: 2000
  495. -- rect: left=140 top=7 right=35 bottom=182
  496. -- title width / last selected line: 0
  497. -- icon id / first selected line: 32650 / 32650
  498. -- text alignment: 1
  499. -- font id: 0
  500. -- text size: 12
  501. -- style flags: 0
  502. -- line height: 16
  503. -- part name: New Button
  504. ----- HyperTalk script -----
  505. on mouseUp
  506.   go to next card
  507. end mouseUp
  508.  
  509.  
  510.  
  511. -- part 34 (button)
  512. -- low flags: 00
  513. -- high flags: 2004
  514. -- rect: left=179 top=113 right=149 bottom=219
  515. -- title width / last selected line: 0
  516. -- icon id / first selected line: 23078 / 23078
  517. -- text alignment: 1
  518. -- font id: 0
  519. -- text size: 12
  520. -- style flags: 0
  521. -- line height: 16
  522. -- part name: New Button
  523. ----- HyperTalk script -----
  524. on mouseUp
  525.   push card
  526.   go to card id 3870 of stack "Debate Coach"
  527. end mouseUp
  528.  
  529.  
  530.