home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / macsunrs.sit / MacSUNRISE.Hiragana / card_24476.txt < prev    next >
Text File  |  1990-06-26  |  5KB  |  218 lines
  1. -- card: 24476 from stack: in.Hiragana
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 24715
  5. -- name: Suchkarte
  6. ----- HyperTalk script -----
  7. on opencard
  8. end opencard
  9.  
  10. on closecard
  11. end closecard
  12.  
  13.  
  14.  
  15. -- part 4 (button)
  16. -- low flags: 00
  17. -- high flags: 8006
  18. -- rect: left=17 top=252 right=272 bottom=172
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: JIS
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   set hilite of button Lesungen to false
  30.   set hilite of btn " Notiz zu Lesungen" to false
  31.   set hilite of me to true
  32.   global Suchbegriff
  33.   put "JIS" into Suchbegriff
  34.   click at the loc of btn Suchen
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part 8 (button)
  40. -- low flags: 00
  41. -- high flags: 2003
  42. -- rect: left=7 top=40 right=208 bottom=178
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 8538 / 8538
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: Suchen
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   set the hilite of me to true
  54.   set the hilite of me to false
  55.   global Suchbegriff
  56.   global findwort
  57.   if the hilite of btn "Lesungen" is true then put "Lesungen" into Suchbegriff
  58.   if the hilite of btn " Notiz zu Lesungen" is true then put "Notiz zu Lesungen" into Suchbegriff
  59.   if the hilite of btn "JIS" is true then put "JIS" into Suchbegriff
  60.   put Suchbegriff into Fragebegriff
  61.   if fragebegriff ="Lesungen" then put "readings" into Fragebegriff
  62.   if Fragebegriff ="Notiz zu Lesungen" then put "note / readings" into Fragebegriff
  63.   Ask "what to search for in   " & Fragebegriff with findwort
  64.   if it is not empty
  65.   then
  66.   global Findwort
  67.   put it into findwort
  68.   set cursor to Lupe
  69.   lock screen
  70.   go next card
  71.   find word findwort in bkgnd field Suchbegriff
  72.   if the result = "not found"
  73.   then
  74.   play boing
  75.   go card Suchkarte
  76. else
  77.   pop card into Banane
  78.   unlock screen
  79.   click at 200,200
  80. end if
  81. unlock screen
  82. end if
  83. end mouseUp
  84.  
  85.  
  86.  
  87.  
  88. -- part 12 (button)
  89. -- low flags: 00
  90. -- high flags: 0006
  91. -- rect: left=187 top=256 right=275 bottom=340
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name:  Notiz zu Lesungen
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   set hilite of button Lesungen to false
  103.   set hilite of button JIS to false
  104.   set hilite of me to true
  105.   global Suchbegriff
  106.   put "Notiz zu Lesungen" into Suchbegriff
  107.   click at the loc of btn Suchen
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 14 (button)
  113. -- low flags: 00
  114. -- high flags: 4006
  115. -- rect: left=187 top=22 right=41 bottom=342
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Lesungen
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   set hilite of button JIS to false
  127.   set hilite of btn " Notiz zu Lesungen" to false
  128.   set hilite of me to true
  129.   global Suchbegriff
  130.   put "Lesungen" into Suchbegriff
  131.   click at the loc of btn Suchen
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 16 (button)
  137. -- low flags: 00
  138. -- high flags: 2003
  139. -- rect: left=12 top=276 right=320 bottom=178
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 14953 / 14953
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: zurƒck
  148. ----- HyperTalk script -----
  149. on mouseUp
  150.   pop card
  151. end mouseUp
  152.  
  153.  
  154.  
  155.  
  156. -- part 17 (button)
  157. -- low flags: 00
  158. -- high flags: 8000
  159. -- rect: left=121 top=4 right=20 bottom=164
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: 19:33
  168.  
  169.  
  170. -- part 18 (button)
  171. -- low flags: 00
  172. -- high flags: 8000
  173. -- rect: left=297 top=4 right=20 bottom=344
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: 00:02
  182.  
  183.  
  184. -- part 19 (button)
  185. -- low flags: 00
  186. -- high flags: 8000
  187. -- rect: left=348 top=3 right=19 bottom=505
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: 21.6.1990
  196.  
  197.  
  198. -- part 20 (button)
  199. -- low flags: 00
  200. -- high flags: A003
  201. -- rect: left=448 top=323 right=342 bottom=512
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: quit
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   pop card
  213.   pop card
  214.   Kompositaaus
  215.   domenu quit hypercard
  216. end mouseUp
  217.  
  218.