<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.Komposita</name>
<id>-1</id>
<cardCount>14</cardCount>
<cardID>8548</cardID>
<listID>3872</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on startupgo MacSunriSEsend startup to MacSunriSEend startupon openStackshow card Pictureglobal Lockenput true into Lockenend openStackon closestackif the number of this card >4 then hide bkgnd btn id 131end closestackon arrowKey whichKeyif 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 arrowKeyon domenu menuif (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")thenif 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..."thenbeepend ifif menu is "Protect Stack..." or menu is "Background"thenif the commandkey is not down or the optionkey is not downthenanswer "ooops!" with "'sorry"elseask "Das Passwort bitteschön.."if it is not "the commandkey"thenanswer "Passwort ist falsch!"elsepass domenuend ifend ifend ifif menu is "delete card" or Menu is "Cut Card"thenbeepend ifif menu is "new card"thenbeepend ifif menu is "Back" or Menu is "Recent"thenbeepend ifif menu is "Help"thenKompositaausclick at the loc of bkgnd btn helpend ifif menu is "First"thengo first card of this backgroundend ifif menu is "Last"thengo last card of this backgroundend ifif menu is "next"thenclick at the loc of bkgnd btn "nächstes Kanji"end ifif menu is "prev"thenclick at the loc of bkgnd btn "vorheriges Kanji"end ifif menu is "find..."thenclick at the loc of bkgnd btn Suchenend ifelsepass domenuend ifend domenuon selectChoiceput the short name of the target into thenameget the rect of the targetput item 2 of it into topget the textheight of the targetput it into sizeput ((item 2 of the clickloc)-top+size) div size into lineNumbersend (thename&linenumber) to targetend selectchoiceon EinzelAbfrageLesungenset cursor to watchput the short name of bkgnd field Lesungen into thenameget the rect of bkgnd field "Lesungen"put item 2 of it into topget the textheight of bkgnd field "Lesungen"put it into sizeput ((item 2 of the clickloc)-top+size) div size into lineNumberif linenumber = 1 and the visible of bkgnd btn Komposita is truethenKompositaausexit EinzelAbfrageLesungenend ifif the hilite of bkgnd btn Abfrage is truethenset the hilite of bkgnd btn Abfrage to falseset the hilite of bkgnd btn Abfrage to trueset the hilite of bkgnd btn Abfrage to falseset the hilite of bkgnd btn Abfrage to trueend ifsend (thename&linenumber) to bkgnd field "Lesungen"end EinzelAbfrageLesungenon EinzelAbfrageBedeutungenset cursor to watchput the short name of bkgnd field Bedeutungen into thenameget the rect of bkgnd field "Bedeutungen"put item 2 of it into topget the textheight of bkgnd field "Bedeutungen"put it into sizeput ((item 2 of the clickloc)-top+size) div size into lineNumberif linenumber = 1 and the visible of bkgnd btn Komposita is truethenKompositaausexit EinzelAbfrageBedeutungenend ifif the hilite of bkgnd btn Abfrage is truethenset the hilite of bkgnd btn Abfrage to falseset the hilite of bkgnd btn Abfrage to trueset the hilite of bkgnd btn Abfrage to falseset the hilite o
