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
