-- stack: in.Komposita
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 3 (painting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 5
-- first background id: 2746
-- card count: 14
-- first card id: 8548
-- list block id: 3872
-- print block id: 7941
-- font table block id: 0
-- style table block id: 0
-- free block count: 4
-- free size: 25760 bytes
-- total size: 106496 bytes
-- stack block size: 9728 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on startup
  go MacSunriSE
  send startup to MacSunriSE
end startup

on openStack
  show card Picture
  global Locken
  put true into Locken
end openStack

on closestack
  if the number of this card >4 then hide bkgnd btn id 131
end closestack

on arrowKey whichKey
  if whichKey is "left" then click at the loc of bkgnd button "vorheriges Kanji"
  if whichKey is "right" then click at the loc of bkgnd button "nächstes Kanji"
end arrowKey


on domenu menu
  if (menu is "New Stack..."or menu is "save a Copy..." or menu is "Protect Stack..."or menu is "delete Stack..." or menu is "Background" or menu is "Cut Card" or menu is "new card" or menu is "delete card" or menu is "Back" or menu is "Help" or Menu is "Recent" or menu is "First" or menu is "Last" or menu is "prev" or menu is "next" or menu is "find..." or menu is "quit hypercard" or menu is "paste card" or menu is "print report...") and (the short name of this stack is not "MacSunriSE.Drucken")
  then
  if menu is "New Stack..."or menu is "save a Copy..." or menu is "delete Stack..." or menu is "paste card" or menu is "print report..."
  then
  beep
end if
if menu is "Protect Stack..." or menu is "Background"
then
if the commandkey is not down or the optionkey is not down
then
answer "ooops!" with "'sorry"
else
  ask "Das Passwort bitteschön.."
  if it is not "the commandkey"
  then
  answer "Passwort ist falsch!"
else
  pass domenu
end if
end if
end if
if menu is "delete card" or Menu is "Cut Card"
then
beep
end if
if menu is "new card"
then
beep
end if
if menu is "Back" or Menu is "Recent"
then
beep
end if
if menu is "Help"
then
Kompositaaus
click at the loc of bkgnd btn help
end if
if menu is "First"
then
go first card of this background
end if
if menu is "Last"
then
go last card of this background
end if
if menu is "next"
then
click at the loc of bkgnd btn "nächstes Kanji"
end if
if menu is "prev"
then
click at the loc of bkgnd btn "vorheriges Kanji"
end if
if menu is "find..."
then
click at the loc of bkgnd btn Suchen
end if
else
  pass domenu
end if
end domenu

on selectChoice
  put the short name of the target into thename
  get the rect of the target
  put item 2 of it into top
  get the textheight of the target
  put it into size
  put ((item 2 of the clickloc)-top+size) div size into lineNumber
  send (thename&linenumber) to target
end selectchoice

on EinzelAbfrageLesungen
  set cursor to watch
  put the short name of bkgnd field Lesungen into thename
  get the rect of bkgnd field "Lesungen"
  put item 2 of it into top
  get the textheight of bkgnd field "Lesungen"
  put it into size
  put ((item 2 of the clickloc)-top+size) div size into lineNumber
  if linenumber = 1 and the visible of bkgnd btn Komposita is true
  then
  Kompositaaus
  exit EinzelAbfrageLesungen
end if
if the hilite of bkgnd btn Abfrage is true
then
set the hilite of bkgnd btn Abfrage to false
set the hilite of bkgnd btn Abfrage to true
set the hilite of bkgnd btn Abfrage to false
set the hilite of bkgnd btn Abfrage to true
end if
send (thename&linenumber) to bkgnd field "Lesungen"
end EinzelAbfrageLesungen

on EinzelAbfrageBedeutungen
  set cursor to watch
  put the short name of bkgnd field Bedeutungen into thename
  get the rect of bkgnd field "Bedeutungen"
  put item 2 of it into top
  get the textheight of bkgnd field "Bedeutungen"
  put it into size
  put ((item 2 of the clickloc)-top+size) div size into lineNumber
  if linenumber = 1 and the visible of bkgnd btn Komposita is true
  then
  Kompositaaus
  exit EinzelAbfrageBedeutungen
end if
if the hilite of bkgnd btn Abfrage is true
then
set the hilite of bkgnd btn Abfrage to false
set the hilite of bkgnd btn Abfrage to true
set the hilite of bkgnd btn Abfrage to false
set the hilite of bkgnd btn Abfrage to true
end if
send (thename&linenumber) to bkgnd field "Bedeutungen"
end EinzelAbfrageBedeutungen

on Kompositaaus
  set the cursor to Uhr1
  if the visible of bkgnd btn "selected characters" is true
  then
  click at the loc of bkgnd btn Umschalter
end if
lock screen
put the short name of bkgnd btn id 147 into Startzeit
put the short name of bkgnd btn id 148 into Lernzeit
put the short name of bkgnd btn id 122 into unteregrenze
put the short name of bkgnd btn id 123 into oberegrenze
put the short name of bkgnd btn id 165 into Blättergeschw
set the cursor to Uhr2
put the hilite of bkgnd btn Abfrage into AbfrageK
put the hilite of bkgnd btn Auswahl into AuswahlK
put the hilite of bkgnd btn Zufall into ZufallK
put the hilite of bkgnd btn Ton into TonK
put the visible of bkgnd btn JIS into JISan
put the visible of bkgnd btn "K&K" into KKan
put bkgnd field KK into AktKanJi
push card
go card 2
put bkgnd field "gemerktezeichen" into GZ
put card field Layout into Lay
pop card
go to fifth card of MacSunriSE
set the cursor to Uhr4
set the hilite of bkgnd btn Auswahl to AuswahlK
if the hilite of bkgnd btn Auswahl is true
then
click at the loc of bkgnd btn Auswahl
click at the loc of bkgnd btn Auswahl
end if
find word AktKanJi in bkgnd field KK
show bkgnd btn Hilfe
set the name of bkgnd btn id 147 to Startzeit
set the name of bkgnd btn id 148 to Lernzeit
set the name of bkgnd btn id 122 to unteregrenze
set the name of bkgnd btn id 123 to oberegrenze
set the name of bkgnd btn id 158 to Blättergeschw
set the cursor to Uhr5
set the hilite of bkgnd btn Abfrage to AbfrageK
set the hilite of bkgnd btn Zufall to ZufallK
set the hilite of bkgnd btn Ton to TonK
set the visible of bkgnd btn Abfrage to true
set the visible of bkgnd btn JIS to Jisan
set the Visible of bkgnd btn "K&K" to KKan
push card
go card 2
put GZ into bkgnd field "gemerkteZeichen"
put Lay into card field Layout
pop card
if the visible of bkgnd btn Jis is true
then
show Bkgnd field JIS
hide bkgnd field KK
end if
if the visible of bkgnd btn "K&K" is true
then
show Bkgnd field KK
hide bkgnd field JIS
end if
set the cursor to Uhr6
click at 200,200
global Locken
if Locken is true then unlock screen
hide msg
end Kompositaaus