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