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

Text File | 1990-07-20 | 15KB | 718 lines

-- 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