Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/macsunrs.sit/MacSUNRISE.Komposita/background_2746.txt

Text File | 1990-07-20 | 29KB | 1,327 lines

-- background: 2746 from stack: in.Komposita
-- bmap block id: 2242
-- flags: 0000
-- background id: 0
-- name: Kanji.Komposita
----- HyperTalk script -----
on idle
  if the mouseloc is not within the rect of bkgnd field "notiz zu Komposita"
  then
  global Startzeit
  put the seconds into Jetztzeit
  put (Jetztzeit - Startzeit) into Arbeitszeit
  put trunc (Arbeitszeit / 3600) into Stunde
  if Stunde < 10 then put "0"&Stunde into Stunde
  put Arbeitszeit - Stunde*3600 into Arbeitszeit
  put trunc (Arbeitszeit / 60) into Minute
  if Minute < 10 then put "0"&Minute into Minute
  set the name of bkgnd btn id 148 to Stunde&":"&Minute
  set the name of bkgnd btn id 147 to char 1 to 5 of the short name of bkgnd btn id 147
  pass idle
end if
end idle




-- part 8 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=145 top=209 right=275 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nèchstes Kanji
----- HyperTalk script -----
on mousedown
  send mousestilldown to target
end mousedown

on mousestilldown
  set the hilite of me to true
  if the hilite of bkgnd btn Zufall is false
  then
  if the hilite of bkgnd Btn Auswahl is false
  then
  get bkgnd field kk
  if it+1 > the short name of bkgnd btn id 123
  then
  find word the short name of bkgnd btn id 122 in bkgnd field kk
else
  go to next card of this background
end if
else
  lock screen
  global MaxAuswahl
  global AktAuswahl
  if AktAuswahl+1 > Maxauswahl
  then
  put 1 into Aktauswahl
else
  put Aktauswahl +1 into Aktauswahl
end if
go card 2
get line Aktauswahl of bkgnd field GemerkteZeichen
go card 4+ word 1 of it of MacSunriSE.Komposita
end if
else
  lock screen
  if the hilite of bkgnd btn Auswahl is false
  then
  get the short name of bkgnd btn id 122
  put it into unteregrenze
  get the short name of bkgnd btn id 123
  put it into oberegrenze
  put oberegrenze - unteregrenze into AnzahlKarten
  get bkgnd field kk
  put it into AlteKarte
  put it into NeueKarte
  repeat until (ALteKarte <> NeueKarte) and ( the result is not "not found")
    put Random (oberegrenze - unteregrenze+1)+unteregrenze -1 into NeueKarte
    go card 4+ NeueKarte of MacSunriSE.Komposita
  end repeat
else
  lock screen
  global Maxauswahl
  get bkgnd field kk
  put it into AlteKarte
  go card 2
  put it into NeueKarte
  repeat until NeueKarte <> AlteKarte
    get line Random (Maxauswahl) of bkgnd field GemerkteZeichen
    put word 1 of it into NeueKarte
  end repeat
  go card 4+ NeueKarte of MacSunriSE.Komposita
end if
end if
click at 200,200
unlock screen
set the hilite of me to false
end mousestilldown



-- part 9 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=12 top=209 right=275 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 19381 / 19381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: vorheriges Kanji
----- HyperTalk script -----
on mousedown
  send mousestilldown to target
end mousedown

on mousestilldown
  set the hilite of me to true
  if the hilite of bkgnd btn Zufall is false
  then
  if the hilite of bkgnd Btn Auswahl is false
  then
  get bkgnd field kk
  if it-1 <the short name of bkgnd btn id 122
  then
  find word the short name of bkgnd btn id 123 in bkgnd field kk
else
  go to prev card of this background
end if
else
  lock screen
  global MaxAuswahl
  global AktAuswahl
  if AktAuswahl-1 < 1
  then
  put Maxauswahl into Aktauswahl
else
  put Aktauswahl -1 into Aktauswahl
end if
go card 2
get line Aktauswahl of bkgnd field GemerkteZeichen
go card 4+ word one of it of MacSunriSE.Komposita
click at 200,200
end if
else
  lock screen
  if the hilite of bkgnd btn Auswahl is false
  then
  get the short name of bkgnd btn id 122
  put it into unteregrenze
  get the short name of bkgnd btn id 123
  put it into oberegrenze
  put oberegrenze - unteregrenze into AnzahlKarten
  get bkgnd field kk
  put it into AlteKarte
  put it into NeueKarte
  repeat until (ALteKarte <> NeueKarte) and ( the result is not "not found")
    put Random (oberegrenze - unteregrenze+1)+unteregrenze -1 into NeueKarte
    go Card 4+ NeueKarte of MacSunriSE.Komposita
  end repeat
else
  lock screen
  global Maxauswahl
  get bkgnd field kk
  put it into AlteKarte
  go card 2
  put it into NeueKarte
  repeat until NeueKarte <> AlteKarte
    get line Random (Maxauswahl) of bkgnd field GemerkteZeichen
    put it into NeueKarte
  end repeat
  go card 4+ NeueKarte of MacSunriSE.Komposita
end if
end if
click at 200,200
unlock screen
set the hilite of me to false
end mousestilldown


-- part 15 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=94 top=251 right=268 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: JIS
----- HyperTalk script -----
on mouseup
  global SprungJ
  ask "Go to card number (JIS) " with SprungJ
  if it is not empty
  then
  put it into SprungJ
  find word it in bkgnd field JIS
end if
click at 200,200
end mouseup



-- part 22 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=94 top=251 right=268 bottom=143
-- 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: KK
----- HyperTalk script -----
on mouseup
  global Sprung
  ask "Go to card number (K&K) " with Sprung
  if it is not empty
  then
  put it into Sprung
  go card 4+ sprung
end if
click at 200,200
end mouseup



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=75 top=279 right=322 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Suchen
----- HyperTalk script -----
on mouseUp
  set the hilite of me to true
  set cursor to Lupe
  if the ShiftKey is down
  then
  global findwort
  global suchbegriff
  if suchbegriff is not empty
  then
  lock screen
  go next card of this background
  if Suchbegriff= "Lesung"
  then
  put 0 into Zähler
  repeat until Zähler=5
    put Zähler +1 into Zähler
    put Suchbegriff&Zähler into Searchword
    find word findwort in bkgnd field Searchword
    if the result is not "not found"
    then
    unlock screen
    exit mouseup
  end if
end repeat
else
  find word findwort in field Suchbegriff
  unlock screen
end if
end if
set the hilite of me to false
else
  lock screen
  if the visible of bkgnd btn "selected characters" is true then click at the loc of bkgnd btn Umschalter
  push card
  get the short name of bkgnd btn id 147
  put it into Start
  get the short name of bkgnd btn id 148
  put it into Zeit
  put the short date into datum
  set the hilite of me to false
  go card Suchkarte
  set the name of  btn id 17 to start
  set the name of  btn id 18 to zeit
  set the name of  btn id 19 to datum
  unlock screen
end if
end mouseUp



-- part 47 (button)
-- low flags: 80
-- high flags: C002
-- rect: left=187 top=323 right=341 bottom=243
-- 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: Abfrage
----- HyperTalk script -----
on mouseup
  if the hilite of me is true
  then
  set the hilite of me to false
else
  set the hilite of me to true
end if
end mouseup



-- part 48 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=1 top=324 right=340 bottom=69
-- 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: Schriftart
----- HyperTalk script -----
on mouseUp
  Answer "change to which script ?" with "Hiragana" or "Katakana" or "Cancel"
  if it is not "Cancel"
  then
  push card
  put the short name of bkgnd btn id 147 into Startzeit
  if it is "Hiragana"
  then
  go MacSunriSE.Hiragana
else
  go MacSunriSE.Katakana
end if
set the name of bkgnd btn id 136 to startzeit
end if
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=279 right=321 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blèttern
----- HyperTalk script -----
on mouseUp
  set cursor to Blättern
  set the hilite of me to true
  repeat until the mouse is down
    lock screen
    if the hilite of bkgnd btn Zufall is false
    then
    if the hilite of bkgnd Btn Auswahl is false
    then
    get bkgnd field kk
    if it+1 > the short name of bkgnd btn id 123
    then
    find word the short name of bkgnd btn id 122 in bkgnd field kk
  else
    go to next card of this background
  end if
else
  global MaxAuswahl
  global AktAuswahl
  if AktAuswahl+1 > Maxauswahl
  then
  put 1 into Aktauswahl
else
  put Aktauswahl +1 into Aktauswahl
end if
go card 2
get line Aktauswahl of bkgnd field GemerkteZeichen
go card 4+ word one of it of MacSunriSE.Komposita
end if
else
  if the hilite of bkgnd btn Auswahl is false
  then
  get the short name of bkgnd btn id 122
  put it into unteregrenze
  get the short name of bkgnd btn id 123
  put it into oberegrenze
  put oberegrenze - unteregrenze into AnzahlKarten
  get bkgnd field kk
  put it into AlteKarte
  put it into NeueKarte
  repeat until (ALteKarte <> NeueKarte) and ( the result is not "not found")
    put Random (oberegrenze - unteregrenze+1)+unteregrenze -1 into NeueKarte
    go card 4+ NeueKarte of MacSunriSE.Komposita
  end repeat
else
  global Maxauswahl
  get bkgnd field kk
  put it into AlteKarte
  go card 2
  put it into NeueKarte
  repeat until NeueKarte <> AlteKarte
    get line Random (Maxauswahl) of bkgnd field GemerkteZeichen
    put it into NeueKarte
  end repeat
  go card 4+ NeueKarte of MacSunriSE.Komposita
end if
end if
click at 200,200
unlock screen
wait for the short name of bkgnd btn id 165 seconds
end repeat
set the hilite of me to false
end mouseUp



-- part 54 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=71 top=324 right=340 bottom=182
-- 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: Zeichen wèhlen
----- HyperTalk script -----
on mouseUp
  set the hilite of me to true
  set cursor to Uhr1
  lock screen
  push card
  get bkgnd field KK
  put it into NeuesZeichen
  put bkgnd field JIS into Dschis
  go card 2
  set cursor to Uhr2
  find word Neueszeichen in bkgnd field GemerkteZeichen
  if the Result is "not found"
  then
  put neueszeichen into Banane
  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
set cursor to Uhr3
put Banane into NeuZeichen
get bkgnd field GemerkteZeichen
put it & NeuZeichen &"      "&Dschis & Return into bkgnd field Gemerktezeichen
global MaxAuswahl
global Aktauswahl
set cursor to Uhr4
put Maxauswahl +1 into Maxauswahl
if Maxauswahl =1 then
  put 1 into AktAuswahl
end if
else
  play boing
  set cursor to arrow
  Answer "This character is choosen already." with "OK"
  pop card
  unlock screen
  set the hilite of me to false
  exit mouseup
end if
set cursor to Uhr5
pop card
unlock screen
set cursor to Uhr6
set the hilite of me to false
end mouseUp



-- part 106 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=22 top=279 right=320 bottom=69
-- title width / last selected line: 0
-- icon id / first selected line: 30179 / 30179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Striche
----- HyperTalk script -----
on mouseUp
  set the hilite of me to true
  if the visible of bkgnd btn "deselect char" is true then click at the loc of bkgnd btn Umschalter
  push card
  lock screen
  set the hilite of me to false
  put the short name of bkgnd btn id 147 into startzeit
  get bkgnd field "kk"
  put it into kkaktuell
  if kkaktuell>0 and kkaktuell<=153 then
    go MacSunriSE.Striche1
  end if
  if kkaktuell>153 and kkaktuell<=253 then
    go MacSunriSE.Striche2
  end if
  if kkaktuell>253 and kkaktuell<=372 then
    go MacSunriSE.Striche3
  end if
  if kkaktuell>372 and kkaktuell<=386 then
    go MacSunriSE.Striche4
  end if
  if kkaktuell>386 and kkaktuell<=500 then
    go MacSunriSE.Striche5
  end if
  set the name of bkgnd btn id 27 to startzeit
  find word kkaktuell in bkgnd field kk
  click at 200,200
  unlock screen
end mouseUp




-- part 122 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=49 top=218 right=235 bottom=86
-- 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: 1
----- HyperTalk script -----
on mouseUp
  Ask "new lower limit:" with the short name of me
  if it is not empty
  then
  global MIN
  global MAX
  if it < MIN
  then
  set the name of bkgnd btn id 122 to MIN
else
  if it > the short name of bkgnd btn id 123
  then
  set the name of bkgnd btn id 122 to the short name of bkgnd btn id 123
else
  set the name of bkgnd btn id 122 to it
end if
end if
lock screen
find word the short name of bkgnd btn id 122 in bkgnd field KK
if the result is "not found"
then
set the name of bkgnd btn id 122 to MIN
go first card of this bkgnd
end if
click at the loc of bkgnd btn Ton
click at the loc of bkgnd btn Ton
unlock screen
end if
end mouseUp



-- part 123 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=99 top=218 right=235 bottom=143
-- 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: 10
----- HyperTalk script -----
on mouseUp
  Ask "new upper limit:" with the short name of me
  if it is not empty
  then
  global MAX
  global MIN
  if it > MAX
  then
  set the name of bkgnd btn id 123 to MAX
else
  if it < the short name of bkgnd btn id 122
  then
  set the name of bkgnd btn id 123 to the short name of bkgnd btn id 122
else
  set the name of bkgnd btn id 123 to it
end if
end if
lock screen
find word the short name of bkgnd btn id 123 in bkgnd field KK
if the result is "not found"
then
set the name of bkgnd btn id 123 to Max
go last card of this bkgnd
end if
click at the loc of bkgnd btn Ton
click at the loc of bkgnd btn Ton
unlock screen
end if
end mouseUp



-- part 124 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=85 top=218 right=235 bottom=100
-- 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: -


-- part 130 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=324 right=340 bottom=304
-- 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: Auswahl
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false
  then
  set cursor to watch
  show bkgnd btn id 131
  set the hilite of me to true
  global Maxauswahl
  global AktAuswahl
  lock screen
  go card 2
  get the number of lines of bkgnd field GEmerkteZeichen
  put it into Maxauswahl
  go back
  unlock screen
  if Maxauswahl=0
  then
  play boing
  answer "You have no characters selected." with "OK"
  hide bkgnd btn id 131
  set the hilite of me to false
else
  put 1 into Aktauswahl
  global NOAuswahl
  put the id of this card into NOAuswahl
  lock screen
  go card 2
  get line AktAuswahl of bkgnd field GemerkteZeichen
  go next
  find word word 1 of it in bkgnd field KK
  click at  200,200
  click at  200,200
  unlock screen
end if
else
  hide Bkgnd btn id 131
  set the hilite of me to false
end if
global Maxauswahl
if Maxauswahl=1
then
show bkgnd btn "Zeichen wählen"
hide Bkgnd btn id 131
set the hilite of me to false
if Bkgnd field KK < the short name of bkgnd btn id 122 or bkgnd field KK > the short name of bkgnd btn id 123
then
find word the short name of bkgnd btn id 122 in bkgnd field KK
end if
end if
end mouseUp



-- part 131 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=49 top=218 right=234 bottom=143
-- 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: selected


-- part 132 (button)
-- low flags: 80
-- high flags: C002
-- rect: left=347 top=323 right=341 bottom=381
-- 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: Ton
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true
  then
  set the hilite of me to false
else
  set the hilite of me to true
end if
end mouseUp



-- part 133 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=8 top=43 right=200 bottom=171
-- 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:
----- HyperTalk script -----
on mouseUp
  push card
  go first
end mouseUp



-- part 134 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=306 top=324 right=340 bottom=349
-- 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: Zufall
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true
  then
  set the hilite of me to false
else
  set the hilite of me to true
end if
end mouseUp



-- part 135 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=70 top=323 right=341 bottom=183
-- 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: deselect char
----- HyperTalk script -----
on mouseUp
  click at the loc of bkgnd btn Umschalter
  set cursor to watch
  lock screen
  push card
  get bkgnd field KK
  put it into NeuesZeichen
  go card 2
  find word Neueszeichen in bkgnd field GemerkteZeichen
  if the Result is not "not found"
  then
  delete the foundline
  global MaxAuswahl
  global Aktauswahl
  put Maxauswahl -1 into Maxauswahl
else
  play boing
  Answer "This character was not choosen." with "ok"
end if
pop card
global Maxauswahl
if Maxauswahl =0
then
if the hilite of bkgnd btn Auswahl is true
then
click at the loc of bkgnd btn Auswahl
end if
else
  if the hilite of bkgnd btn Auswahl is true
  then
  click at the loc of bkgnd btn "nächstes Kanji"
  click at the loc of bkgnd btn Umschalter
end if
end if
unlock screen
end mouseUp



-- part 136 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=187 top=323 right=341 bottom=350
-- 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: selected characters
----- HyperTalk script -----
on mouseUp
  click at the loc of bkgnd btn Umschalter
  push card
  go card 2
end mouseUp



-- part 138 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=387 top=323 right=341 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 3584 / 3584
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Umschalter
----- HyperTalk script -----
on mouseUp
  lock screen
  if the visible of bkgnd btn "deselect char" is false
  then
  show bkgnd btn "deselect char"
  show bkgnd btn "selected characters"
  set the icon of me to "sml UP Arrow"
else
  hide bkgnd btn "deselect char"
  hide bkgnd btn "selected characters"
  set the icon of me to "sml DOWN Arrow"
end if
unlock screen
end mouseUp



-- part 139 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=49 top=251 right=268 bottom=91
-- 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: K&K
----- HyperTalk script -----
on mouseUp
  hide me
  hide bkgnd field KK
  show bkgnd btn JIS
  show bkgnd field JIS
end mouseUp



-- part 140 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=49 top=251 right=268 bottom=91
-- 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: JIS
----- HyperTalk script -----
on mouseUp
  hide me
  hide bkgnd field JIS
  show bkgnd btn "K&K"
  show Bkgnd field KK
end mouseUp



-- part 147 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=117 top=4 right=20 bottom=170
-- 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: 17:24
----- HyperTalk script -----
on mouseUp
  set the name of me to char 1 to 5 of the long time
  if char 5 of the short name of bkgnd btn id 147 = ":"
  then
  set the name of me to char 1 to 4 of the long time
end if
global Startzeit
put the seconds into Startzeit
end mouseUp



-- part 148 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=298 top=4 right=20 bottom=342
-- 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: 00:02


-- part 157 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=187 top=61 right=253 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Bedeutung


-- part 158 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=444 top=61 right=254 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Verzweig
----- HyperTalk script -----
on mouseup
  lock screen
  set the locktext of me to false
  click at the mouseloc
  click at the mouseloc
  put the selection into GehKanji
  if Gehkanji is not empty
  then
  set the locktext of me to true
  push card
  Kompositaaus
  go card 4 + Gehkanji
  unlock screen with visual dissolve
  show bkgnd btn "letztes Kompositum"
else
  set the locktext of me to true
end if
end mouseup



-- part 169 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=187 top=42 right=61 bottom=505
-- 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: Komposita
----- HyperTalk script -----
on mouseUp
  Kompositaaus
end mouseUp



-- part 159 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=230 top=60 right=77 bottom=445
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 512
-- line height: 16
-- part name: Lesung1


-- part 160 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=229 top=93 right=110 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 512
-- line height: 16
-- part name: Lesung2


-- part 161 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=229 top=126 right=143 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 512
-- line height: 16
-- part name: Lesung3


-- part 162 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=229 top=157 right=174 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 512
-- line height: 16
-- part name: Lesung4


-- part 163 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=187 top=189 right=222 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 512
-- line height: 16
-- part name: Lesung5


-- part 164 (button)
-- low flags: 00
-- high flags: 6005
-- rect: left=187 top=256 right=275 bottom=505
-- 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: Notiz zu Komposita
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then show bkgnd field "Notiz zu Komposita"
  else
    hide bkgnd field "Notiz zu Komposita"
  end if
end mouseUp



-- part 165 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=436 top=4 right=20 bottom=461
-- 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: 1
----- HyperTalk script -----
on mouseUp
  put false into Geschw
  repeat until Geschw is true
    ask "Speed of browsing (0-60 s delay)" with the short name of me
    if it is empty then exit mouseup
    if it > -1 and it < 61
    then
    put true into Geschw
    set the name of me to it
  end if
end repeat
end mouseUp


-- part 166 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=348 top=4 right=20 bottom=447
-- 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:
----- HyperTalk script -----
on mouseUp
  put false into Geschw
  repeat until Geschw is true
    ask "Speed of browsing (0-60 s delay)" with the short name of bkgnd btn id 165
    if it is empty then exit mouseup
    if it > -1 and it < 61
    then
    put true into Geschw
    set the name of bkgnd btn id 165 to it
  end if
end repeat
end mouseUp



-- part 167 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=466 top=4 right=20 bottom=505
-- 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:
----- HyperTalk script -----
on mouseUp
  put false into Geschw
  repeat until Geschw is true
    ask "Speed of browsing (0-60 s delay)" with the short name of bkgnd btn id 165
    if it is empty then exit mouseup
    if it > -1 and it < 61
    then
    put true into Geschw
    set the name of bkgnd btn id 165 to it
  end if
end repeat
end mouseUp


-- part 168 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=187 top=276 right=320 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Notiz zu Komposita


-- part 170 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=448 top=323 right=342 bottom=512
-- 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: Beenden
----- HyperTalk script -----
on mouseUp
  Kompositaaus
  click at the loc of bkgnd btn "beenden"
end mouseUp



-- part 171 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=403 top=323 right=341 bottom=439
-- 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: Hilfe
----- HyperTalk script -----
on mouseUp
  set the hilite of me to true
  repeat until the mouse is down
    set cursor to plus
  end repeat
  set the hilite of me to false
end mouseUp



-- part 156 (button)
-- low flags: 00
-- high flags: 4005
-- rect: left=187 top=42 right=59 bottom=268
-- 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: Kompclose
----- HyperTalk script -----
on mouseUp
  Kompositaaus
end mouseUp




-- part 174 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=408 top=324 right=340 bottom=442
-- 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: Hilfe
----- HyperTalk script -----
on mouseUp
  push card
  Kompositaaus
  send KOMP to bkgnd btn Hilfe
end mouseUp