-- card: 10883 from stack: in.Komposita
-- bmap block id: 0
-- flags: 0000
-- background id: 11036
-- name: Suchkarte
----- HyperTalk script -----
on opencard
end opencard

on closecard
end closecard

on returnkey
  click at the loc of card btn zurück
end returnkey



-- part 4 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=17 top=252 right=272 bottom=172
-- 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
  set hilite of button Bedeutungen to false
  set hilite of button Lesungen to false
  set hilite of button "K&K" to false
  set hilite of btn Komposita to false
  set hilite of btn Bedeutung to false
  set hilite of btn Lesung to false
  set hilite of btn " Notiz zu Lesungen" to false
  set hilite of btn "  Notiz zu Bedeut." to false
  set hilite of btn "notiz zu Komposita" to false
  set hilite of me to true
  global Suchbegriff
  put "JIS" into Suchbegriff
  click at the loc of btn Suchen
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=17 top=212 right=231 bottom=172
-- 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
  set hilite of button Bedeutungen to false
  set hilite of button Lesungen to false
  set hilite of button JIS to false
  set hilite of btn Komposita to false
  set hilite of btn Bedeutung to false
  set hilite of btn Lesung to false
  set hilite of btn " Notiz zu Lesungen" to false
  set hilite of btn "  Notiz zu Bedeut." to false
  set hilite of btn "notiz zu Komposita" to false
  set hilite of me to true
  global Suchbegriff
  put "KK" into Suchbegriff
  click at the loc of btn Suchen
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2003
-- rect: left=7 top=40 right=208 bottom=178
-- 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
  unlock screen
  set the hilite of me to true
  set the hilite of me to false
  global Suchbegriff
  global findwort
  if the hilite of btn "Notiz zu Komposita" is true
  then
  put "Notiz zu Komposita" into Suchbegriff
  put "note / compounds" into Fragebegriff
end if
if the hilite of btn "Lesung" is true
then
put "Lesung" into Suchbegriff
put "compound readings" into Fragebegriff
end if
if the hilite of btn "Bedeutung" is true
then
put "Bedeutung" into Suchbegriff
put "compound meanings" into Fragebegriff
end if
if the hilite of btn "K&K" is true
then
put "KK" into Suchbegriff
put "K&K" into Fragebegriff
end if
if the hilite of btn "JIS" is true
then
put "JIS" into Suchbegriff
put "JIS" into Fragebegriff
end if
Ask "Word to search for in '" & Fragebegriff&"'" with findwort
if it is not empty
then
global Findwort
put it into findwort
set cursor to watch
lock screen
pop card
put the id of this card into Istcard
push card
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
  if the id of this card is Istcard
  then
  pop card
else
  pop card
  go back
end if
unlock screen
exit mouseup
end if
end repeat
play boing
go card Suchkarte
unlock screen
else
  find word findwort in bkgnd field Suchbegriff
  if the result = "not found"
  then
  play boing
  go card Suchkarte
  unlock screen
else
  if the id of this card is Istcard
  then
  pop card
else
  pop card
  go back
end if
global Suchbegriff
if (Suchbegriff <> "JIS") and (Suchbegriff <> "KK") then
  if Suchbegriff="Notiz zu Komposita" and the hilite of bkgnd btn "Notiz zu Komposita" is false
  then
  click at the loc of bkgnd btn "Notiz zu Komposita"
else
  if (Suchbegriff = "JIS") and (the visible of bkgnd btn "JIS" is false)
  then
  click at the loc of bkgnd btn "JIS"
end if
if (Suchbegriff = "KK") and (the visible of bkgnd btn "K&K" is false)
then
click at the loc of bkgnd btn "K&K"
end if
end if
end if
unlock screen
end if
end if
end if
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=187 top=256 right=275 bottom=340
-- 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 Lesungen
----- HyperTalk script -----
on mouseUp
  set the hilite of me to true
  global Locken
  put false into Locken
  lock screen
  pop card
  Kompositaaus
  click at the loc of bkgnd btn Suchen
  unlock screen
  click at the loc of btn " notiz zu Lesungen"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=349 top=256 right=275 bottom=507
-- 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 Bedeut.
----- HyperTalk script -----
on mouseUp
  set the hilite of me to true
  global Locken
  put false into Locken
  lock screen
  pop card
  Kompositaaus
  click at the loc of bkgnd btn Suchen
  unlock screen
  click at the loc of btn "  notiz zu Bedeut."
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=187 top=22 right=41 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: Lesungen
----- HyperTalk script -----
on mouseUp
  set the hilite of me to true
  global Locken
  put false into Locken
  lock screen
  pop card
  Kompositaaus
  click at the loc of bkgnd btn Suchen
  unlock screen
  click at the loc of btn Lesungen
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=349 top=22 right=41 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: Bedeutungen
----- HyperTalk script -----
on mouseUp
  set the hilite of me to true
  global Locken
  put false into Locken
  lock screen
  pop card
  Kompositaaus
  click at the loc of bkgnd btn Suchen
  unlock screen
  click at the loc of btn Bedeutungen
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2003
-- rect: left=12 top=276 right=320 bottom=178
-- 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
  pop card
end mouseUp




-- part 17 (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


-- part 18 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=295 top=4 right=20 bottom=346
-- 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:01


-- part 19 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=348 top=3 right=19 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: 20.7.1990


-- part 20 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=187 top=42 right=61 bottom=506
-- 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: compounds
----- HyperTalk script -----
on mouseUp

end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=348 top=59 right=78 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: comp. readings


-- part 21 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=349 top=59 right=78 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: Lesung
----- HyperTalk script -----
on mouseUp
  set hilite of button Lesungen to false
  set hilite of button JIS to false
  set hilite of button "K&K" to false
  set hilite of btn Komposita to false
  set hilite of btn Bedeutung to false
  set hilite of btn "  Notiz zu Bedeut." to false
  set hilite of btn " Notiz zu Lesungen" to false
  set hilite of  btn "notiz zu Komposita" to false
  set hilite of me to true
  global Suchbegriff
  put "Lesung" into Suchbegriff
  click at the loc of btn Suchen
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=348 top=76 right=95 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: comp. meanings


-- part 23 (button)
-- low flags: 00
-- high flags: 4006
-- rect: left=349 top=76 right=95 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: Bedeutung
----- HyperTalk script -----
on mouseUp
  set hilite of button Lesungen to false
  set hilite of button JIS to false
  set hilite of button "K&K" to false
  set hilite of btn Komposita to false
  set hilite of btn Lesung to false
  set hilite of btn "  Notiz zu Bedeut." to false
  set hilite of btn " Notiz zu Lesungen" to false
  set hilite of  btn "notiz zu Komposita" to false
  set hilite of me to true
  global Suchbegriff
  put "Bedeutung" into Suchbegriff
  click at the loc of btn Suchen
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=187 top=276 right=295 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: note / compounds
----- HyperTalk script -----
on mouseUp
  Kompositaaus
end mouseUp


-- part 25 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=187 top=276 right=295 bottom=506
-- 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
  set hilite of button Bedeutungen to false
  set hilite of button JIS to false
  set hilite of button "K&K" to false
  set hilite of  btn Lesungen to false
  set hilite of  btn "Komposita" to false
  set hilite of btn Bedeutung to false
  set hilite of btn Lesung to false
  set hilite of btn "  Notiz zu Bedeut." to false
  set hilite of btn " Notiz zu Lesungen" to false
  set hilite of me to true
  global Suchbegriff
  put "Notiz zu Komposita" into Suchbegriff
  click at the loc of btn Suchen
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: A003
-- 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: quit
----- HyperTalk script -----
on mouseUp
  pop card
  Kompositaaus
  domenu quit hypercard
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=187 top=42 right=60 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