-- card: 24476 from stack: in.Hiragana
-- bmap block id: 0
-- flags: 0000
-- background id: 24715
-- name: Suchkarte
----- HyperTalk script -----
on opencard
end opencard

on closecard
end closecard



-- 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 Lesungen to false
  set hilite of btn " Notiz zu Lesungen" to false
  set hilite of me to true
  global Suchbegriff
  put "JIS" 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
  set the hilite of me to true
  set the hilite of me to false
  global Suchbegriff
  global findwort
  if the hilite of btn "Lesungen" is true then put "Lesungen" into Suchbegriff
  if the hilite of btn " Notiz zu Lesungen" is true then put "Notiz zu Lesungen" into Suchbegriff
  if the hilite of btn "JIS" is true then put "JIS" into Suchbegriff
  put Suchbegriff into Fragebegriff
  if fragebegriff ="Lesungen" then put "readings" into Fragebegriff
  if Fragebegriff ="Notiz zu Lesungen" then put "note / readings" into Fragebegriff
  Ask "what to search for in   " & Fragebegriff with findwort
  if it is not empty
  then
  global Findwort
  put it into findwort
  set cursor to Lupe
  lock screen
  go next card
  find word findwort in bkgnd field Suchbegriff
  if the result = "not found"
  then
  play boing
  go card Suchkarte
else
  pop card into Banane
  unlock screen
  click at 200,200
end if
unlock screen
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 hilite of button Lesungen to false
  set hilite of button JIS to false
  set hilite of me to true
  global Suchbegriff
  put "Notiz zu Lesungen" into Suchbegriff
  click at the loc of btn Suchen
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 4006
-- 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 hilite of button JIS to false
  set hilite of btn " Notiz zu Lesungen" to false
  set hilite of me to true
  global Suchbegriff
  put "Lesungen" into Suchbegriff
  click at the loc of btn Suchen
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=121 top=4 right=20 bottom=164
-- 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: 19:33


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


-- part 20 (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
  pop card
  Kompositaaus
  domenu quit hypercard
end mouseUp