home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / hyperx11.sit / HyperX / background_6343.txt < prev    next >
Text File  |  1988-02-25  |  3KB  |  124 lines
  1. -- background: 6343 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Questions
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=116 top=252 right=274 bottom=216
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: True
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put field "Fact" into theFact
  23.   visual effect wipe down
  24.   go card "Smart"
  25.   put the number of lines in card field "Facts" into numLines
  26.   put numLines+1 into theLine
  27.   put theFact into line theLine of card field "Facts"
  28.   put true into item 2 of line theLine of card field "Facts"
  29.   send mouseUp to card button "Consultation"
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 2 (button)
  35. -- low flags: 00
  36. -- high flags: A003
  37. -- rect: left=287 top=253 right=275 bottom=387
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: False
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   put field "Fact" into theFact
  49.   visual effect wipe down
  50.   go card "Smart"
  51.   put the number of lines in card field "Facts" into numLines
  52.   put numLines+1 into theLine
  53.   put theFact into line theLine of card field "Facts"
  54.   put false into item 2 of line theLine of card field "Facts"
  55.   send mouseUp to card button "Consultation"
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 3 (button)
  61. -- low flags: 80
  62. -- high flags: 2000
  63. -- rect: left=10 top=38 right=85 bottom=57
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 14953 / 14953
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Save
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   hide bkgnd button "Save"
  75.   answer "Save this Question?" with "Cancel" or "No" or "Yes"
  76.   if it is "Cancel"
  77.   then
  78.   show this button
  79.   exit mouseUp
  80. end if
  81. if it is "No"
  82. then
  83. answer "Deleting this card" with "No!" or "Confirm"
  84. if it is "No"
  85. then
  86. show bkgnd button "Save"
  87. exit mouseUp
  88. else
  89.   doMenu "Delete Card"
  90.   pop card
  91.   exit mouseUp
  92. end if
  93. end if
  94. put the ID of this card into theCard
  95. put field "Fact" into theFact
  96. go card "Smart"
  97. put find(card field "Questions",theFact) into theResult
  98. if item 1 of theResult=0
  99. then
  100. put the number of lines in card field "Questions" into theLine
  101. put theLine+1 into theLine
  102. put theFact into item 1 of line theLine of card field "Questions"
  103. put theCard into item 2 of line theLine of card field "Questions"
  104. end if
  105. visual effect iris close
  106. pop card
  107. end mouseUp
  108.  
  109.  
  110.  
  111.  
  112. -- part 4 (field)
  113. -- low flags: 01
  114. -- high flags: 0000
  115. -- rect: left=21 top=144 right=163 bottom=500
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 3
  120. -- text size: 12
  121. -- style flags: 256
  122. -- line height: 16
  123. -- part name: Fact
  124.