home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / hyperx11.sit / HyperX / background_3909.txt < prev    next >
Text File  |  1988-02-25  |  6KB  |  246 lines
  1. -- background: 3909 from stack: in
  2. -- bmap block id: 4339
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Rules
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 00
  10. -- high flags: 0001
  11. -- rect: left=65 top=94 right=226 bottom=450
  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: Assertions
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put item 2 of the ClickLoc into theVert
  23.   put item 2 of the Rect of field "Assertions" into theTop
  24.   put the TextHeight of field "Assertions" into theHeight
  25.   put (theVert-theTop)/theHeight into theLine
  26.   put trunc(theLine) into temp1
  27.   if (theLine-temp1)>.51
  28.   then put round(theLine) into theLine
  29. else put 1+round(theLine) into theLine
  30. if theLine > the number of lines in field "Assertions"
  31. then put the number of lines in field "Assertions" into theLine
  32. put line theLine of field "Assertions" into theFact
  33. set the LockText of field "Assertions" to false
  34. set the ShowLines of field "Assertions" to false
  35. set the Style of field "Assertions" to Opaque
  36. set the LockText of field "Conclusion" to false
  37. set the ShowLines of field "Conclusion" to false
  38. set the Style of field "Conclusion" to Opaque
  39. push this card
  40. visual effect iris open
  41. go card "Smart"
  42. put find(card field "Questions",theFact) into theResult
  43. if item 1 of theResult=0
  44. then
  45. visual effect iris open
  46. go card "Question"
  47. doMenu "New Card"
  48. put theFact into field "Fact"
  49. show bkgnd button "Save"
  50. else
  51.   put item 1 of theResult into theLine
  52.   put item 2 of line theLine of card field "Questions" into theCard
  53.   visual effect iris open
  54.   go theCard
  55.   show bkgnd button "Save"
  56. end if
  57. end mouseUp
  58.  
  59.  
  60.  
  61.  
  62. -- part 1 (field)
  63. -- low flags: 01
  64. -- high flags: 0001
  65. -- rect: left=194 top=51 right=70 bottom=303
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 2
  70. -- text size: 14
  71. -- style flags: 16640
  72. -- line height: 18
  73. -- part name: Rule Number
  74.  
  75.  
  76. -- part 4 (button)
  77. -- low flags: 00
  78. -- high flags: 2000
  79. -- rect: left=446 top=294 right=325 bottom=479
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 27009 / 27009
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: New Button
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   visual effect scroll left
  91.   go to next card in this bkgnd
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 3 (field)
  97. -- low flags: 00
  98. -- high flags: 0001
  99. -- rect: left=65 top=250 right=269 bottom=450
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 0
  103. -- font id: 3
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Conclusion
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   put field "Conclusion" into theFact
  111.   set the LockText of field "Assertions" to false
  112.   set the ShowLines of field "Assertions" to false
  113.   set the Style of field "Assertions" to Opaque
  114.   set the LockText of field "Conclusion" to false
  115.   set the ShowLines of field "Conclusion" to false
  116.   set the Style of field "Conclusion" to Opaque
  117.   push this card
  118.   visual effect iris open
  119.   go card "Smart"
  120.   put find(card field "Questions",theFact) into theResult
  121.   if item 1 of theResult=0
  122.   then
  123.   go card "Question"
  124.   doMenu "New Card"
  125.   put theFact into field "Fact"
  126. else
  127.   put item 1 of theResult into theLine
  128.   put item 2 of line theLine of card field "Questions" into theCard
  129.   go theCard
  130. end if
  131. end mouseUp
  132.  
  133.  
  134.  
  135.  
  136. -- part 5 (button)
  137. -- low flags: 00
  138. -- high flags: 2000
  139. -- rect: left=394 top=295 right=324 bottom=426
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 9301 / 9301
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: New Button
  148. ----- HyperTalk script -----
  149. on mouseUp
  150.   visual effect scroll right
  151.   go to prev card in this bkgnd
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part 7 (button)
  157. -- low flags: 00
  158. -- high flags: A000
  159. -- rect: left=0 top=281 right=342 bottom=72
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 29114 / 29114
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: Title Screen
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   visual effect barn door close
  171.   go to card "Title"
  172. end mouseUp
  173.  
  174.  
  175.  
  176. -- part 8 (button)
  177. -- low flags: 00
  178. -- high flags: A000
  179. -- rect: left=185 top=283 right=342 bottom=251
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 22791 / 22791
  182. -- text alignment: 1
  183. -- font id: 0
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: Add Rule
  188. ----- HyperTalk script -----
  189. on mouseUp
  190.   go to last card in this bkgnd
  191.   put the number of chars in field "Rule Number" of this card into numChars
  192.   put char 6 to numChars of field "Rule Number" of this card into newRule
  193.   add 1 to newRule
  194.   doMenu "New Card"
  195.   put "Rule"&&newRule into field "Rule Number" of this card
  196.   set the name of this card to "Rule"&&newRule
  197.   put newRule into card field "Rule Count" of card "Smart"
  198. end mouseUp
  199.  
  200.  
  201.  
  202. -- part 9 (button)
  203. -- low flags: 00
  204. -- high flags: A000
  205. -- rect: left=293 top=283 right=341 bottom=356
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 28352 / 28352
  208. -- text alignment: 1
  209. -- font id: 0
  210. -- text size: 12
  211. -- style flags: 0
  212. -- line height: 16
  213. -- part name: Questions
  214. ----- HyperTalk script -----
  215. on mouseUp
  216.   set the LockText of field "Assertions" to true
  217.   set the ShowLines of field "Assertions" to true
  218.   set the Style of field "Assertions" to Rectangle
  219.   set the LockText of field "Conclusion" to true
  220.   set the ShowLines of field "Conclusion" to true
  221.   set the Style of field "Conclusion" to Rectangle
  222. end mouseUp
  223.  
  224.  
  225.  
  226. -- part 25 (button)
  227. -- low flags: 00
  228. -- high flags: A000
  229. -- rect: left=103 top=286 right=337 bottom=149
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 21060 / 21060
  232. -- text alignment: 1
  233. -- font id: 0
  234. -- text size: 12
  235. -- style flags: 0
  236. -- line height: 16
  237. -- part name: Help!
  238. ----- HyperTalk script -----
  239. on mouseUp
  240.   push this card
  241.   visual effect zoom out
  242.   go card "Rule Help"
  243.   show card button "Return to Rule"
  244. end mouseUp
  245.  
  246.