-- card: 263840 from stack: in.Komposita -- bmap block id: 264564 -- flags: 0000 -- background id: 264098 -- name: ausgew�hlte Zeichen ----- HyperTalk script ----- on opencard put "" into card field NeuesZeichen end opencard on closecard end closecard -- part 2 (button) -- low flags: 00 -- high flags: A003 -- rect: left=287 top=189 right=211 bottom=501 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: clear all selected characters ----- HyperTalk script ----- on mouseUp answer "Clear ALL selected characters ?" with "Clear" or "Cancel" if it is "Clear" then put "" into bkgnd field gemerkteZeichen global MaxAuswahl global AktAuswahl put 0 into MaxAuswahl put 0 into AktAuswahl end if end mouseUp -- part 3 (button) -- low flags: 00 -- high flags: A003 -- rect: left=286 top=266 right=288 bottom=501 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: print selected characters ----- HyperTalk script ----- on mouseUp if bkgnd field "GemerkteZeichen" is not empty then put "prepare cards for printing.. please wait. " global Druckzeichen global VKomp global VLes global VBed global VZei global VStr global HKomp global HLes global HBed global HZei global HStr put line 1 of card field Layout into VStr put line 2 of card field Layout into VLes put line 3 of card field Layout into VBed put line 4 of card field Layout into VKomp put line 5 of card field Layout into VZei put line 6 of card field Layout into HStr put line 7 of card field Layout into HLes put line 8 of card field Layout into HBed put line 9 of card field Layout into HKomp put line 10 of card field Layout into HZei push card lock screen put 0 into Zähler put bkgnd field "GemerkteZeichen" into zuDruckendeZeichen repeat until Zähler = number of lines of zuDruckendeZeichen put Zähler +1 into Zähler put "prepare cards for printing.. (now preparing"&& "card"&&Zähler&&"of"&&number of lines of zuDruckendeZeichen&")" get line Zähler of zuDruckendeZeichen put it into Druckzeichen set cursor to Uhr1 go card 4+ word 1 of Druckzeichen of MacSunriSE put bkgnd field Lesungen into LesungenDruck put Bkgnd field Bedeutungen into BedeutungenDruck go MacSunriSE.Drucken -- Rückseite -- set cursor to Uhr2 if HKomp is true then Kompositahol else domenu "new card" if HLes is true then put LesungenDruck into Bkgnd field Lesungen if HBed is true then put BedeutungenDruck into Bkgnd field Bedeutungen end if set cursor to Uhr3 if HStr is true then Strichfolgehol else if HZei is true then Zeichenhol end if end if go MacSunriSE.Drucken -- Vorderseite -- set the cursor to Uhr4 if VKomp is true then Kompositahol else domenu new card if VLes is true then put LesungenDruck into Bkgnd field Lesungen if VBed is true then put BedeutungenDruck into Bkgnd field Bedeutungen end if set the cursor to Uhr5 if VStr is true then Strichfolgehol else if VZei is true then Zeichenhol end if end if set cursor to Uhr6 set cursor to Uhr7 set cursor to Uhr8 set cursor to Uhr9 set cursor to Uhr10 set cursor to Uhr11 set cursor to Uhr12 set cursor to Uhr13 set cursor to Uhr14 set cursor to Uhr15 set cursor to Uhr1 go card 5 of MacSunriSE end repeat hide msg go MacSunriSE.Drucken choose browse tool go first card doMenu "delete Card" doMenu "Print Stack..." lock screen set cursor to watch put 1 into Zähler repeat until Zähler = number of lines of zuDruckendeZeichen *2 put Zähler +1 into Zähler doMenu "Delete Card" end repeat domenu "new Background" choose field tool drag from 187,42 to 343, 253 with cmdKey set the name of bkgnd field 1 to "Lesungen" set the textfont of bkgnd field 1 to chicago set the style of bkgnd field 1 to shadow drag from 348,42 to 505, 253 with cmdKey set the name of bkgnd field 2 to "Bedeutungen" set the textfont of bkgnd field 2 to chicago set the style of bkgnd field 2 to shadow choose Browse Tool go card one of this stack domenu "delete card" domenu "compact stack" pop card put 0 into Zähler repeat until Zähler = number of lines of zuDruckendeZeichen put Zähler +1 into Zähler pop card end repeat unlock screen else answer "no characters are choosen." with "OK" end if end mouseUp on Kompositahol global Druckzeichen go card 4 + word 1 of Druckzeichen of MacSunriSE.Komposita domenu copy card go MacSunriSE.Drucken doMenu paste card set script of this background to empty choose lasso tool domenu select domenu copy picture choose rectangle tool set the filled to true set pattern to 1 drag from 0,0 to 512,58 with optionkey drag from 0,0 to 184,276 with optionkey drag from 0,253 to 512,342 with optionkey end Kompositahol on Strichfolgehol global Druckzeichen go card 4+ word 1 of Druckzeichen of MacSunriSE if the number of this card is not 6 then choose browse tool click at the loc of bkgnd btn Striche click at the loc of card btn "vorheriges Kanji" end if choose select tool drag from 9,43 to 170,199 doMenu "Copy Picture" go card 2 of MacSunriSE.Drucken domenu "Paste Picture" end Strichfolgehol on Zeichenhol global Druckzeichen go card 4+ word 1 of Druckzeichen of MacSunriSE choose select tool drag from 9,43 to 170,199 doMenu "Copy Picture" go card 2 of MacSunriSE.Drucken domenu "Paste Picture" end Zeichenhol -- part 6 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=384 top=112 right=131 bottom=483 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: NeuesZeichen ----- HyperTalk script ----- on Mouseup put "" into me end mouseup on returninfield get me if it is not empty then set cursor to Uhr1 global banane put me into Banane push card lock screen find word it in bkgnd field GemerkteZeichen if the result is "not found" then go card erste find word it in bkgnd field KK if the result is "not found" then pop card unlock screen Answer "This K&K number does not exist in that version of MacSunriSE." put "" into me else put Bkgnd field JIS into Dschis pop card unlock screen if Banane < 1000 then if Banane < 100 then if Banane < 10 then put " "&Banane into Banane end if put " "&Banane into Banane end if put " "&Banane into Banane end if put Banane into NeuZeichen get bkgnd field GemerkteZeichen put it & NeuZeichen &" "&Dschis & Return into bkgnd field Gemerktezeichen end if else pop card unlock screen if the foundText = word 2 of line word 2 of the foundLine of bkgnd field 1 then Answer "This K&K number does not exist in that version of MacSunriSE." put "" into me else Answer "This character is already selected." put "" into me end if end if end if click at 222,320 click at the loc of me end returninfield on enterinfield get me if it is not empty then global banane put me into Banane push card lock screen find word it in bkgnd field GemerkteZeichen if the result is "not found" then go card erste find word it in bkgnd field KK if the result is "not found" then pop card unlock screen Answer "This K&K number does not exist in that version of MacSunriSE." put "" into me else put Bkgnd field JIS into Dschis pop card unlock screen if Banane < 1000 then if Banane < 100 then if Banane < 10 then put " "&Banane into Banane end if put " "&Banane into Banane end if put " "&Banane into Banane end if put Banane into NeuZeichen get bkgnd field GemerkteZeichen put it & NeuZeichen &" "&Dschis & Return into bkgnd field Gemerktezeichen end if else pop card unlock screen if the foundText = word 2 of line word 2 of the foundLine of bkgnd field 1 then Answer "This K&K number does not exist in that version of MacSunriSE." put "" into me else Answer "This character is already selected." put "" into me end if end if end if click at 222,320 click at the loc of me end enterinfield -- part 7 (button) -- low flags: 00 -- high flags: A003 -- rect: left=287 top=84 right=106 bottom=502 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: add character to list ----- HyperTalk script ----- on mouseUp click at the loc of card field "NeuesZeichen" end mouseUp -- part 19 (button) -- low flags: 00 -- high flags: A003 -- rect: left=286 top=237 right=259 bottom=501 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Page Layout... ----- HyperTalk script ----- on mouseup push card go MacSunriSE.Layout end Mouseup -- part 8 (button) -- low flags: 00 -- high flags: 2003 -- rect: left=449 top=292 right=340 bottom=501 -- title width / last selected line: 0 -- icon id / first selected line: 14953 / 14953 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Zur�ck ----- HyperTalk script ----- on mouseUp if bkgnd field "GemerkteZeichen" is empty then pop card set the hilite of bkgnd btn id 130 to false else pop card end if end mouseUp -- part 12 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=384 top=136 right=155 bottom=483 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: NeuesZeichenJIS ----- HyperTalk script ----- on Mouseup put "" into me end mouseup on returninfield get me if it is not empty then global banane put me into DSCHIS push card lock screen find word DSCHIS in bkgnd field GemerkteZeichen if the result is "not found" then go card erste put dschis find word DSCHIS in bkgnd field JIS if the result is "not found" then pop card unlock screen Answer "This JIS number does not exist in that version of MacSunriSE." put "" into me else put Bkgnd field KK into KAKA Put KAKA into Banane pop card unlock screen if Banane < 1000 then if Banane < 100 then if Banane < 10 then put " "&Banane into Banane end if put " "&Banane into Banane end if put " "&Banane into Banane end if put Banane into NeuZeichen get bkgnd field GemerkteZeichen put it & NeuZeichen &" "&Dschis & Return into bkgnd field Gemerktezeichen put empty into me end if else pop card unlock screen if the foundText = word 1 of line word 2 of the foundLine of bkgnd field 2 then Answer "This JIS number does not exist in that version of MacSunriSE." put "" into me else Answer "This character is alraedy selected." put "" into me end if end if end if click at 222,320 click at the loc of me end returninfield on enterinfield get me if it is not empty then global banane put me into DSCHIS push card lock screen find word it in bkgnd field GemerkteZeichen if the result is "not found" then go card erste find word it in bkgnd field JIS if the result is "not found" then pop card unlock screen Answer "This JIS number does not exist in that version of MacSunriSE." put "" into me else put Bkgnd field KK into KAKA Put KAKA into Banane pop card unlock screen if Banane < 1000 then if Banane < 100 then if Banane < 10 then put " "&Banane into Banane end if put " "&Banane into Banane end if put " "&Banane into Banane end if put Banane into NeuZeichen get bkgnd field GemerkteZeichen put it & NeuZeichen &" "&Dschis & Return into bkgnd field Gemerktezeichen put empty into me end if else pop card unlock screen if the foundText = word 1 of line word 2 of the foundLine of bkgnd field 2 then Answer "This JIS number does not exist in that version of MacSunriSE." put "" into me else Answer "This character is already selected." put "" into me end if end if end if click at 222,320 click at the loc of me end enterinfield -- part 14 (button) -- low flags: 00 -- high flags: A003 -- rect: left=287 top=161 right=183 bottom=501 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: clear specified character ----- HyperTalk script ----- on mouseUp if bkgnd field "GemerkteZeichen" is not empty then show card field Textzumlöschen show card button OK else answer "no entries to clear." with "OK" end if end mouseUp -- part 15 (field) -- low flags: 81 -- high flags: 2004 -- rect: left=258 top=78 right=277 bottom=501 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Textzuml�schen -- part 17 (button) -- low flags: 80 -- high flags: A003 -- rect: left=342 top=207 right=255 bottom=417 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: OK ----- HyperTalk script ----- on mouseUp hide me hide card field Textzumlöschen end mouseUp -- part 20 (field) -- low flags: 80 -- high flags: 0001 -- rect: left=4 top=7 right=211 bottom=95 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Layout -- part 23 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=24 top=281 right=341 bottom=97 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 30 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=18 top=273 right=304 bottom=48 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 31 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=56 top=295 right=337 bottom=90 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part contents for card part 15 ----- text ----- To clear one ore more specified characters from this field, just click with the scissors at the number (K&K or JIS) of this field. When ready to continue normal session, hit the OK-Button below. -- part contents for card part 20 ----- text ----- false true true false true true false false true false -- part contents for background part 36 ----- text ----- 2 1676