home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / macsunrs.sit / MacSUNRISE.Hiragana / background_24715.txt < prev    next >
Text File  |  1990-06-26  |  2KB  |  70 lines
  1. -- background: 24715 from stack: in.Hiragana
  2. -- bmap block id: 28658
  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.  
  13. -- part 53 (button)
  14. -- low flags: 80
  15. -- high flags: A003
  16. -- rect: left=14 top=264 right=284 bottom=180
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Zeichen zeigen
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   if short name of me is "Zeichen zeigen" then
  28.     pop card
  29.     push card
  30.     set name of me to "zur├╝ck"
  31.     hide bkgnd button "Bl├ñttern"
  32.     hide bkgnd button "suchen"
  33.     hide bkgnd button "vorheriges Kanji"
  34.     hide bkgnd button "n├ñchstes Kanji"
  35.     hide button "Strichfolge"
  36.   else
  37.     show button "Strichfolge"
  38.     show bkgnd button "Bl├ñttern"
  39.     show bkgnd button "suchen"
  40.     show bkgnd button "vorheriges Kanji"
  41.     show bkgnd button "n├ñchstes Kanji"
  42.     go back
  43.     set name of me to "Zeichen zeigen"
  44.   end if
  45. end mouseUp
  46.  
  47.  
  48.  
  49.  
  50. -- part 55 (button)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=448 top=323 right=342 bottom=512
  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: beenden
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   pop card
  65.   pop card
  66.   Kompositaaus
  67.   domenu quit hypercard
  68. end mouseUp
  69.  
  70.