Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/macsunrs.sit/MacSUNRISE/card_10882.txt

Text File | 1990-07-20 | 13KB | 542 lines

-- card: 10882 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 11035
-- 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

-on domenu menu
if menu is "New Stack..."or menu is "save a Copy..." or menu is "quit hypercard" or menu is "Protect Stack..."or menu is "delete Stack..." or menu is "Background" or menu is "new card" or menu is "delete card" or Menu is "Cut 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..."
then
if menu is "quit hypercard" and the short name of this card is "Suchkarte"
then
click at the loc of card btn beenden
end if
if menu is "New Stack..."or menu is "save a Copy..." or menu is "delete Stack..."
then
play boing
end if
if menu is "Protect Stack..." or menu is "Background"
then
answer "ooops!" with "'sorry"
end if
if menu is "delete card" or Menu is "Cut Card"
then
play boing
end if
if menu is "new card"
then
play boing
end if
if menu is "Back" or Menu is "Recent"
then
play boing
end if
if menu is "Help"
then
pop card
click at the loc of bkgnd btn Hilfe
end if
if menu is "First"
then
go first card of this background
end if
if menu is "Last"
then
go last card of this background
end if
if menu is "next"
then
beep
end if
if menu is "prev"
then
beep
end if
if menu is "find..."
then
click at the loc of card btn Suchen
end if
else
  pass domenu
end if
end domenu



-- 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 " 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 " 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
  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 "readings" into Suchbegriff
  if the hilite of btn "Bedeutungen" is true then put "meanings" into Suchbegriff
  if the hilite of btn " Notiz zu Lesungen" is true then put "note / readings" into Suchbegriff
  if the hilite of btn "  Notiz zu Bedeut." is true then put "note / meanings" into Suchbegriff
  if the hilite of btn "K&K" is true then put "KK" into Suchbegriff
  if the hilite of btn "JIS" is true then put "JIS" into Suchbegriff
  put Suchbegriff into Fragebegriff
  if Fragebegriff="KK"
  then
  put"K&K"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
set the cursor to Lupe
if Suchbegriff is "readings" then put "Lesungen" into Suche
if Suchbegriff is "meanings" then put "Bedeutungen" into Suche
if Suchbegriff is "note / readings" then put "Notiz zu Lesungen" into Suche
if Suchbegriff is "note / meanings" then put "Notiz zu Bedeut." into Suche
find word findwort in bkgnd field Suche
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 is "readings"
  then
  if the hilite of bkgnd btn "Lesungen" is false then click at the loc of bkgnd btn "Lesungen"
end if
if Suchbegriff is "meanings"
then
if the hilite of bkgnd btn "Bedeutungen" is false then click at the loc of bkgnd btn "Bedeutungen"
end if
if Suchbegriff is "note / readings"
then
if the hilite of bkgnd btn "Notiz zu Lesungen" is false then click at the loc of bkgnd btn "Notiz zu Lesungen"
end if
if Suchbegriff is "note / meanings"
then
if the hilite of bkgnd btn "Notiz zu Bedeut." is false then click at the loc of bkgnd btn "Notiz zu Bedeut."
end if
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
unlock screen
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 hilite of button Bedeutungen to false
  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 "  Notiz zu Bedeut." to false
  set hilite of btn "Notiz zu Komposita" to false
  set hilite of me to true
  global Suchbegriff
  put "note / readings" into Suchbegriff
  click at the loc of btn Suchen
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 hilite of button Bedeutungen to false
  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 " Notiz zu Lesungen" to false
  set hilite of btn "Notiz zu Komposita" to false
  set hilite of me to true
  global Suchbegriff
  put "  Notiz zu Bedeut." into Suchbegriff
  click at the loc of btn Suchen
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 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 "  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 "Lesungen" into Suchbegriff
  click at the loc of btn Suchen
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 4006
-- 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 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 "  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 "Bedeutungen" 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=96 top=4 right=20 bottom=191
-- 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: 15:56


-- part 18 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=289 top=4 right=20 bottom=352
-- 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: 26.6.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: readings


-- part 21 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=348 top=58 right=77 bottom=504
-- 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
  global Locken
  put false into Locken
  lock screen
  pop card
  Kompositaan
  click at the loc of bkgnd btn Suchen
  unlock screen
  click at the loc of btn Lesung
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: meanings


-- part 23 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=348 top=76 right=95 bottom=504
-- 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
  global Locken
  put false into Locken
  lock screen
  pop card
  Kompositaan
  click at the loc of bkgnd btn Suchen
  unlock screen
  click at the loc of btn Bedeutung
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
  global Locken
  put false into Locken
  lock screen
  pop card
  Kompositaan
  click at the loc of bkgnd btn Suchen
  unlock screen
  click at the loc of btn "Notiz zu Komposita"
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
  domenu quit hypercard
end mouseUp