home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / macsunrs.sit / MacSUNRISE.Komposita / card_10883.txt < prev    next >
Text File  |  1990-07-20  |  12KB  |  556 lines
  1. -- card: 10883 from stack: in.Komposita
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 11036
  5. -- name: Suchkarte
  6. ----- HyperTalk script -----
  7. on opencard
  8. end opencard
  9.  
  10. on closecard
  11. end closecard
  12.  
  13. on returnkey
  14.   click at the loc of card btn zur├╝ck
  15. end returnkey
  16.  
  17.  
  18.  
  19. -- part 4 (button)
  20. -- low flags: 00
  21. -- high flags: 8006
  22. -- rect: left=17 top=252 right=272 bottom=172
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: JIS
  31. ----- HyperTalk script -----
  32. on mouseUp
  33.   set hilite of button Bedeutungen to false
  34.   set hilite of button Lesungen to false
  35.   set hilite of button "K&K" to false
  36.   set hilite of btn Komposita to false
  37.   set hilite of btn Bedeutung to false
  38.   set hilite of btn Lesung to false
  39.   set hilite of btn " Notiz zu Lesungen" to false
  40.   set hilite of btn "  Notiz zu Bedeut." to false
  41.   set hilite of btn "notiz zu Komposita" to false
  42.   set hilite of me to true
  43.   global Suchbegriff
  44.   put "JIS" into Suchbegriff
  45.   click at the loc of btn Suchen
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 5 (button)
  51. -- low flags: 00
  52. -- high flags: 8006
  53. -- rect: left=17 top=212 right=231 bottom=172
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: K&K
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   set hilite of button Bedeutungen to false
  65.   set hilite of button Lesungen to false
  66.   set hilite of button JIS to false
  67.   set hilite of btn Komposita to false
  68.   set hilite of btn Bedeutung to false
  69.   set hilite of btn Lesung to false
  70.   set hilite of btn " Notiz zu Lesungen" to false
  71.   set hilite of btn "  Notiz zu Bedeut." to false
  72.   set hilite of btn "notiz zu Komposita" to false
  73.   set hilite of me to true
  74.   global Suchbegriff
  75.   put "KK" into Suchbegriff
  76.   click at the loc of btn Suchen
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 8 (button)
  82. -- low flags: 00
  83. -- high flags: 2003
  84. -- rect: left=7 top=40 right=208 bottom=178
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 8538 / 8538
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Suchen
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   unlock screen
  96.   set the hilite of me to true
  97.   set the hilite of me to false
  98.   global Suchbegriff
  99.   global findwort
  100.   if the hilite of btn "Notiz zu Komposita" is true
  101.   then
  102.   put "Notiz zu Komposita" into Suchbegriff
  103.   put "note / compounds" into Fragebegriff
  104. end if
  105. if the hilite of btn "Lesung" is true
  106. then
  107. put "Lesung" into Suchbegriff
  108. put "compound readings" into Fragebegriff
  109. end if
  110. if the hilite of btn "Bedeutung" is true
  111. then
  112. put "Bedeutung" into Suchbegriff
  113. put "compound meanings" into Fragebegriff
  114. end if
  115. if the hilite of btn "K&K" is true
  116. then
  117. put "KK" into Suchbegriff
  118. put "K&K" into Fragebegriff
  119. end if
  120. if the hilite of btn "JIS" is true
  121. then
  122. put "JIS" into Suchbegriff
  123. put "JIS" into Fragebegriff
  124. end if
  125. Ask "Word to search for in '" & Fragebegriff&"'" with findwort
  126. if it is not empty
  127. then
  128. global Findwort
  129. put it into findwort
  130. set cursor to watch
  131. lock screen
  132. pop card
  133. put the id of this card into Istcard
  134. push card
  135. if Suchbegriff= "Lesung"
  136. then
  137. put 0 into Z├ñhler
  138. repeat until Z├ñhler=5
  139.   put Z├ñhler +1 into Z├ñhler
  140.   put Suchbegriff&Z├ñhler into Searchword
  141.   find word findwort in bkgnd field Searchword
  142.   if the result is not "not found"
  143.   then
  144.   if the id of this card is Istcard
  145.   then
  146.   pop card
  147. else
  148.   pop card
  149.   go back
  150. end if
  151. unlock screen
  152. exit mouseup
  153. end if
  154. end repeat
  155. play boing
  156. go card Suchkarte
  157. unlock screen
  158. else
  159.   find word findwort in bkgnd field Suchbegriff
  160.   if the result = "not found"
  161.   then
  162.   play boing
  163.   go card Suchkarte
  164.   unlock screen
  165. else
  166.   if the id of this card is Istcard
  167.   then
  168.   pop card
  169. else
  170.   pop card
  171.   go back
  172. end if
  173. global Suchbegriff
  174. if (Suchbegriff <> "JIS") and (Suchbegriff <> "KK") then
  175.   if Suchbegriff="Notiz zu Komposita" and the hilite of bkgnd btn "Notiz zu Komposita" is false
  176.   then
  177.   click at the loc of bkgnd btn "Notiz zu Komposita"
  178. else
  179.   if (Suchbegriff = "JIS") and (the visible of bkgnd btn "JIS" is false)
  180.   then
  181.   click at the loc of bkgnd btn "JIS"
  182. end if
  183. if (Suchbegriff = "KK") and (the visible of bkgnd btn "K&K" is false)
  184. then
  185. click at the loc of bkgnd btn "K&K"
  186. end if
  187. end if
  188. end if
  189. unlock screen
  190. end if
  191. end if
  192. end if
  193. end mouseUp
  194.  
  195.  
  196.  
  197. -- part 12 (button)
  198. -- low flags: 00
  199. -- high flags: 0006
  200. -- rect: left=187 top=256 right=275 bottom=340
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 1
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name:  Notiz zu Lesungen
  209. ----- HyperTalk script -----
  210. on mouseUp
  211.   set the hilite of me to true
  212.   global Locken
  213.   put false into Locken
  214.   lock screen
  215.   pop card
  216.   Kompositaaus
  217.   click at the loc of bkgnd btn Suchen
  218.   unlock screen
  219.   click at the loc of btn " notiz zu Lesungen"
  220. end mouseUp
  221.  
  222.  
  223.  
  224. -- part 13 (button)
  225. -- low flags: 00
  226. -- high flags: 0006
  227. -- rect: left=349 top=256 right=275 bottom=507
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name:   Notiz zu Bedeut.
  236. ----- HyperTalk script -----
  237. on mouseUp
  238.   set the hilite of me to true
  239.   global Locken
  240.   put false into Locken
  241.   lock screen
  242.   pop card
  243.   Kompositaaus
  244.   click at the loc of bkgnd btn Suchen
  245.   unlock screen
  246.   click at the loc of btn "  notiz zu Bedeut."
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 14 (button)
  252. -- low flags: 00
  253. -- high flags: 0006
  254. -- rect: left=187 top=22 right=41 bottom=342
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: Lesungen
  263. ----- HyperTalk script -----
  264. on mouseUp
  265.   set the hilite of me to true
  266.   global Locken
  267.   put false into Locken
  268.   lock screen
  269.   pop card
  270.   Kompositaaus
  271.   click at the loc of bkgnd btn Suchen
  272.   unlock screen
  273.   click at the loc of btn Lesungen
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 15 (button)
  279. -- low flags: 00
  280. -- high flags: 0006
  281. -- rect: left=349 top=22 right=41 bottom=505
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 0 / 0
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: Bedeutungen
  290. ----- HyperTalk script -----
  291. on mouseUp
  292.   set the hilite of me to true
  293.   global Locken
  294.   put false into Locken
  295.   lock screen
  296.   pop card
  297.   Kompositaaus
  298.   click at the loc of bkgnd btn Suchen
  299.   unlock screen
  300.   click at the loc of btn Bedeutungen
  301. end mouseUp
  302.  
  303.  
  304.  
  305. -- part 16 (button)
  306. -- low flags: 00
  307. -- high flags: 2003
  308. -- rect: left=12 top=276 right=320 bottom=178
  309. -- title width / last selected line: 0
  310. -- icon id / first selected line: 14953 / 14953
  311. -- text alignment: 1
  312. -- font id: 0
  313. -- text size: 12
  314. -- style flags: 0
  315. -- line height: 16
  316. -- part name: zurƒck
  317. ----- HyperTalk script -----
  318. on mouseUp
  319.   pop card
  320. end mouseUp
  321.  
  322.  
  323.  
  324.  
  325. -- part 17 (button)
  326. -- low flags: 00
  327. -- high flags: 8000
  328. -- rect: left=117 top=4 right=20 bottom=170
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 1
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: 17:24
  337.  
  338.  
  339. -- part 18 (button)
  340. -- low flags: 00
  341. -- high flags: 8000
  342. -- rect: left=295 top=4 right=20 bottom=346
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 0 / 0
  345. -- text alignment: 1
  346. -- font id: 0
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: 00:01
  351.  
  352.  
  353. -- part 19 (button)
  354. -- low flags: 00
  355. -- high flags: 8000
  356. -- rect: left=348 top=3 right=19 bottom=505
  357. -- title width / last selected line: 0
  358. -- icon id / first selected line: 0 / 0
  359. -- text alignment: 1
  360. -- font id: 0
  361. -- text size: 12
  362. -- style flags: 0
  363. -- line height: 16
  364. -- part name: 20.7.1990
  365.  
  366.  
  367. -- part 20 (button)
  368. -- low flags: 00
  369. -- high flags: 8004
  370. -- rect: left=187 top=42 right=61 bottom=506
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 1
  374. -- font id: 0
  375. -- text size: 12
  376. -- style flags: 0
  377. -- line height: 16
  378. -- part name: compounds
  379. ----- HyperTalk script -----
  380. on mouseUp
  381.  
  382. end mouseUp
  383.  
  384.  
  385.  
  386. -- part 22 (button)
  387. -- low flags: 00
  388. -- high flags: 8004
  389. -- rect: left=348 top=59 right=78 bottom=505
  390. -- title width / last selected line: 0
  391. -- icon id / first selected line: 0 / 0
  392. -- text alignment: 1
  393. -- font id: 0
  394. -- text size: 12
  395. -- style flags: 0
  396. -- line height: 16
  397. -- part name: comp. readings
  398.  
  399.  
  400. -- part 21 (button)
  401. -- low flags: 00
  402. -- high flags: 0006
  403. -- rect: left=349 top=59 right=78 bottom=505
  404. -- title width / last selected line: 0
  405. -- icon id / first selected line: 0 / 0
  406. -- text alignment: 1
  407. -- font id: 0
  408. -- text size: 12
  409. -- style flags: 0
  410. -- line height: 16
  411. -- part name: Lesung
  412. ----- HyperTalk script -----
  413. on mouseUp
  414.   set hilite of button Lesungen to false
  415.   set hilite of button JIS to false
  416.   set hilite of button "K&K" to false
  417.   set hilite of btn Komposita to false
  418.   set hilite of btn Bedeutung to false
  419.   set hilite of btn "  Notiz zu Bedeut." to false
  420.   set hilite of btn " Notiz zu Lesungen" to false
  421.   set hilite of  btn "notiz zu Komposita" to false
  422.   set hilite of me to true
  423.   global Suchbegriff
  424.   put "Lesung" into Suchbegriff
  425.   click at the loc of btn Suchen
  426. end mouseUp
  427.  
  428.  
  429.  
  430. -- part 24 (button)
  431. -- low flags: 00
  432. -- high flags: 8004
  433. -- rect: left=348 top=76 right=95 bottom=505
  434. -- title width / last selected line: 0
  435. -- icon id / first selected line: 0 / 0
  436. -- text alignment: 1
  437. -- font id: 0
  438. -- text size: 12
  439. -- style flags: 0
  440. -- line height: 16
  441. -- part name: comp. meanings
  442.  
  443.  
  444. -- part 23 (button)
  445. -- low flags: 00
  446. -- high flags: 4006
  447. -- rect: left=349 top=76 right=95 bottom=505
  448. -- title width / last selected line: 0
  449. -- icon id / first selected line: 0 / 0
  450. -- text alignment: 1
  451. -- font id: 0
  452. -- text size: 12
  453. -- style flags: 0
  454. -- line height: 16
  455. -- part name: Bedeutung
  456. ----- HyperTalk script -----
  457. on mouseUp
  458.   set hilite of button Lesungen to false
  459.   set hilite of button JIS to false
  460.   set hilite of button "K&K" to false
  461.   set hilite of btn Komposita to false
  462.   set hilite of btn Lesung to false
  463.   set hilite of btn "  Notiz zu Bedeut." to false
  464.   set hilite of btn " Notiz zu Lesungen" to false
  465.   set hilite of  btn "notiz zu Komposita" to false
  466.   set hilite of me to true
  467.   global Suchbegriff
  468.   put "Bedeutung" into Suchbegriff
  469.   click at the loc of btn Suchen
  470. end mouseUp
  471.  
  472.  
  473.  
  474. -- part 26 (button)
  475. -- low flags: 00
  476. -- high flags: 8004
  477. -- rect: left=187 top=276 right=295 bottom=505
  478. -- title width / last selected line: 0
  479. -- icon id / first selected line: 0 / 0
  480. -- text alignment: 1
  481. -- font id: 0
  482. -- text size: 12
  483. -- style flags: 0
  484. -- line height: 16
  485. -- part name: note / compounds
  486. ----- HyperTalk script -----
  487. on mouseUp
  488.   Kompositaaus
  489. end mouseUp
  490.  
  491.  
  492. -- part 25 (button)
  493. -- low flags: 00
  494. -- high flags: 2006
  495. -- rect: left=187 top=276 right=295 bottom=506
  496. -- title width / last selected line: 0
  497. -- icon id / first selected line: 0 / 0
  498. -- text alignment: 1
  499. -- font id: 0
  500. -- text size: 12
  501. -- style flags: 0
  502. -- line height: 16
  503. -- part name: Notiz zu Komposita
  504. ----- HyperTalk script -----
  505. on mouseUp
  506.   set hilite of button Bedeutungen to false
  507.   set hilite of button JIS to false
  508.   set hilite of button "K&K" to false
  509.   set hilite of  btn Lesungen to false
  510.   set hilite of  btn "Komposita" to false
  511.   set hilite of btn Bedeutung to false
  512.   set hilite of btn Lesung to false
  513.   set hilite of btn "  Notiz zu Bedeut." to false
  514.   set hilite of btn " Notiz zu Lesungen" to false
  515.   set hilite of me to true
  516.   global Suchbegriff
  517.   put "Notiz zu Komposita" into Suchbegriff
  518.   click at the loc of btn Suchen
  519. end mouseUp
  520.  
  521.  
  522.  
  523. -- part 27 (button)
  524. -- low flags: 00
  525. -- high flags: A003
  526. -- rect: left=448 top=323 right=342 bottom=512
  527. -- title width / last selected line: 0
  528. -- icon id / first selected line: 0 / 0
  529. -- text alignment: 1
  530. -- font id: 0
  531. -- text size: 12
  532. -- style flags: 0
  533. -- line height: 16
  534. -- part name: quit
  535. ----- HyperTalk script -----
  536. on mouseUp
  537.   pop card
  538.   Kompositaaus
  539.   domenu quit hypercard
  540. end mouseUp
  541.  
  542.  
  543.  
  544. -- part 28 (button)
  545. -- low flags: 00
  546. -- high flags: 0000
  547. -- rect: left=187 top=42 right=60 bottom=505
  548. -- title width / last selected line: 0
  549. -- icon id / first selected line: 0 / 0
  550. -- text alignment: 1
  551. -- font id: 0
  552. -- text size: 12
  553. -- style flags: 0
  554. -- line height: 16
  555. -- part name: Komposita
  556.