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

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

-- card: 8549 from stack: in
-- bmap block id: 58123
-- flags: 2000
-- background id: 8392
-- name: Druck Layout
----- HyperTalk script -----
on opencard
end opencard

on closecard
end closecard



-- part 4 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=396 top=41 right=111 bottom=486
-- 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
----- HyperTalk script -----
on mouseUp
  if the showPict of this card is true
  then
  if the visible of card btn id 16 is false
  then
  set the hilite of me to true
  show card btn id 16
  hide card btn id 7
else
  hide card btn id 16
  show card btn id 7
  set the hilite of me to false
end if
else
  if the visible of card btn id 18 is false
  then
  set the hilite of me to true
  show card btn id 18
  hide card btn id 7
else
  hide card btn id 18
  show card btn id 7
  set the hilite of me to false
end if
end if
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=302 top=41 right=111 bottom=391
-- 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: Strichfolge
----- HyperTalk script -----
on mouseUp
  if the showPict of this card is true
  then
  if the visible of card btn id 11 is false
  then
  set the hilite of me to true
  show card btn id 11
  hide card btn id 4
else
  hide card btn id 11
  show card btn id 4
  set the hilite of me to false
end if
else
  if the visible of card btn id 17 is false
  then
  set the hilite of me to true
  show card btn id 17
  hide card btn id 4
else
  hide card btn id 17
  show card btn id 4
  set the hilite of me to false
end if
end if
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=302 top=115 right=185 bottom=391
-- 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
  if the showPict of this card is true
  then
  if the visible of card btn id 12 is false
  then
  set the hilite of me to true
  show card btn id 12
  hide card btn id 10
else
  hide card btn id 12
  if the visible of card btn id 14 is false then show card btn id 10
  set the hilite of me to false
end if
else
  if the visible of card btn id 19 is false
  then
  set the hilite of me to true
  show card btn id 19
  hide card btn id 10
else
  hide card btn id 19
  if the visible of card btn id 20 is false then show card btn id 10
  set the hilite of me to false
end if
end if
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: C004
-- rect: left=396 top=115 right=185 bottom=486
-- 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
  if the showPict of this card is true
  then
  if the visible of card btn id 14 is false
  then
  set the hilite of me to true
  show card btn id 14
  hide card btn id 10
else
  hide card btn id 14
  if the visible of card btn id 12 is false then show card btn id 10
  set the hilite of me to false
end if
else
  if the visible of card btn id 20 is false
  then
  set the hilite of me to true
  show card btn id 20
  hide card btn id 10
else
  hide card btn id 20
  if the visible of card btn id 19 is false then show card btn id 10
  set the hilite of me to false
end if
end if
end mouseUp



-- part 10 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=302 top=189 right=259 bottom=486
-- 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
  if the showPict of this card is true
  then
  if the visible of card btn id 15 is false
  then
  set the hilite of me to true
  show card btn id 15
  hide card btn id 8
  hide card btn id 9
else
  hide card btn id 15
  show card btn id 8
  show card btn id 9
  set the hilite of me to false
end if
else
  if the visible of card btn id 21 is false
  then
  set the hilite of me to true
  show card btn id 21
  hide card btn id 8
  hide card btn id 9
else
  hide card btn id 21
  show card btn id 8
  show card btn id 9
  set the hilite of me to false
end if
end if
end mouseUp



-- part 11 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=8 top=21 right=111 bottom=103
-- 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: Strichfolge


-- part 12 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=117 top=21 right=139 bottom=195
-- 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


-- part 14 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=199 top=21 right=139 bottom=277
-- 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: Bedeut.


-- part 15 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=117 top=30 right=139 bottom=277
-- 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


-- part 16 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=8 top=21 right=111 bottom=103
-- 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


-- part 17 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=8 top=193 right=283 bottom=103
-- 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: Strichfolge


-- part 18 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=8 top=193 right=283 bottom=103
-- 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


-- part 19 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=117 top=193 right=311 bottom=195
-- 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


-- part 20 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=199 top=193 right=311 bottom=277
-- 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: Bedeut.


-- part 21 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=117 top=202 right=311 bottom=277
-- 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


-- part 26 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=302 top=7 right=29 bottom=485
-- 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: Rƒckseite
----- HyperTalk script -----
on mouseUp
  set the hilite of me to true
  if the short name of me is "R├╝ckseite"
  then
  click at the loc of card btn id 23
else
  click at the loc of card btn id 25
end if
set the hilite of me to false
end mouseUp



-- part 27 (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
  global VKomp
  global VLes
  global VBed
  global VZei
  global VStr
  global HKomp
  global HLes
  global HBed
  global HZei
  global HStr
  put the visible of card btn id 11 into VStr
  put the visible of card btn id 12 into VLes
  put the visible of card btn id 14 into VBed
  put the visible of card btn id 15 into VKomp
  put the visible of card btn id 16 into Vzei
  put the visible of card btn id 17 into HStr
  put the visible of card btn id 19 into HLes
  put the visible of card btn id 20 into HBed
  put the visible of card btn id 21 into HKomp
  put the visible of card btn id 18 into Hzei
  pop card
  put Vstr&return&VLes&return&VBed&return&VKomp&return&VZei&return& HStr&return&HLes&return&HBed&return&HKomp&return&HZei&return into card field "Layout"
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=1 right=167 bottom=279
-- 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
  show card pict
  lock screen
  if the visible of card btn id 11 is true
  then
  set the hilite of card btn id 7 to true
  set the hilite of card btn id 4 to false
  hide card btn id 4
  show card btn id 7
else
  if the visible of card btn id 16 is true
  then
  set the hilite of card btn id 7 to false
  set the hilite of card btn id 4 to true
  hide card btn id 7
  show card btn id 4
else
  set the hilite of card btn id 7 to false
  set the hilite of card btn id 4 to false
  show card btn id 7
  show card btn id 4
end if
end if
if the visible of card btn id 12 is false and the visible of card btn id 14 is false and the visible of card btn id 15 is false
then
set the hilite of card btn id 8 to false
set the hilite of card btn id 9 to false
set the hilite of card btn id 10 to false
show card btn id 8
show card btn id 9
show card btn id 10
else
  if the visible of card btn id 12 is true
  then
  set the hilite of card btn id 8 to true
  show card btn id 8
  set the hilite of card btn id 10 to false
  hide card btn id 10
else
  set the hilite of card btn id 8 to false
end if
if the visible of card btn id 14 is true
then
set the hilite of card btn id 9 to true
show card btn id 9
set the hilite of card btn id 10 to false
hide card btn id 10
else
  set the hilite of card btn id 9 to false
end if
if the visible of card btn id 15 is true
then
set the hilite of card btn id 8 to false
hide card btn id 8
set the hilite of card btn id 9 to false
hide card btn id 9
set the hilite of card btn id 10 to true
show card btn id 10
end if
end if
if the visible of card btn id 10 is false
then
set the visible of card btn id 8 to true
set the visible of card btn id 9 to true
end if
set the name of card btn id 26 to "Vorderseite"
unlock screen
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=173 right=339 bottom=279
-- 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
  hide card pict
  lock screen
  if the visible of card btn id 17 is true
  then
  set the hilite of card btn id 7 to true
  set the hilite of card btn id 4 to false
  hide card btn id 4
  show card btn id 7
else
  if the visible of card btn id 18 is true
  then
  set the hilite of card btn id 7 to false
  set the hilite of card btn id 4 to true
  hide card btn id 7
  show card btn id 4
else
  set the hilite of card btn id 7 to false
  set the hilite of card btn id 4 to false
  show card btn id 7
  show card btn id 4
end if
end if
if the visible of card btn id 19 is false and the visible of card btn id 20 is false and the visible of card btn id 21 is false
then
set the hilite of card btn id 8 to false
set the hilite of card btn id 9 to false
set the hilite of card btn id 10 to false
show card btn id 8
show card btn id 9
show card btn id 10
else
  if the visible of card btn id 19 is true
  then
  set the hilite of card btn id 8 to true
  show card btn id 8
  set the hilite of card btn id 10 to false
  hide card btn id 10
else
  set the hilite of card btn id 8 to false
end if
if the visible of card btn id 20 is true
then
set the hilite of card btn id 9 to true
show card btn id 9
set the hilite of card btn id 10 to false
hide card btn id 10
else
  set the hilite of card btn id 9 to false
end if
if the visible of card btn id 21 is true
then
set the hilite of card btn id 8 to false
hide card btn id 8
set the hilite of card btn id 9 to false
hide card btn id 9
set the hilite of card btn id 10 to true
show card btn id 10
end if
end if
if the visible of card btn id 10 is false
then
set the visible of card btn id 8 to true
set the visible of card btn id 9 to true
end if
set the name of card btn id 26 to "R├╝ckseite"
unlock screen
end mouseUp