home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / macsunrs.sit / MacSUNRISE.Katakana / background_11035.txt < prev    next >
Text File  |  1990-06-26  |  2KB  |  67 lines
  1. -- background: 11035 from stack: in.Katakana
  2. -- bmap block id: 6444
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on arrowKey whichKey
  8.   if whichKey is "up" then click at the loc of  button "zur├╝ck"
  9. end arrowKey
  10.  
  11.  
  12. -- part 53 (button)
  13. -- low flags: 80
  14. -- high flags: A003
  15. -- rect: left=14 top=264 right=284 bottom=180
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Zeichen zeigen
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   if short name of me is "Zeichen zeigen" then
  27.     pop card
  28.     push card
  29.     set name of me to "zur├╝ck"
  30.     hide bkgnd button "Bl├ñttern"
  31.     hide bkgnd button "suchen"
  32.     hide bkgnd button "vorheriges Kanji"
  33.     hide bkgnd button "n├ñchstes Kanji"
  34.     hide button "Strichfolge"
  35.   else
  36.     show button "Strichfolge"
  37.     show bkgnd button "Bl├ñttern"
  38.     show bkgnd button "suchen"
  39.     show bkgnd button "vorheriges Kanji"
  40.     show bkgnd button "n├ñchstes Kanji"
  41.     go back
  42.     set name of me to "Zeichen zeigen"
  43.   end if
  44. end mouseUp
  45.  
  46.  
  47.  
  48.  
  49. -- part 55 (button)
  50. -- low flags: 00
  51. -- high flags: 0000
  52. -- rect: left=447 top=323 right=342 bottom=511
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: beenden
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   pop card
  64.   click at the loc of bkgnd btn quit
  65. end mouseUp
  66.  
  67.