Garbo/Garbo.cdr/mac/hypercrd/hc2_x/sundial.sit/Sundial/card_2854.txt

Text File | 1991-04-15 | 6KB | 254 lines

-- card: 2854 from stack: in
-- bmap block id: 4049
-- flags: 0000
-- background id: 2783
-- name: Calculate


-- part 1 (field)
-- low flags: 04
-- high flags: 0002
-- rect: left=81 top=64 right=84 bottom=128
-- 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: LatDeg


-- part 2 (field)
-- low flags: 04
-- high flags: 0002
-- rect: left=183 top=64 right=84 bottom=230
-- 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: LatMin


-- part 3 (field)
-- low flags: 04
-- high flags: 0002
-- rect: left=289 top=64 right=84 bottom=336
-- 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: LatSec


-- part 4 (field)
-- low flags: 04
-- high flags: 0002
-- rect: left=81 top=115 right=135 bottom=128
-- 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: LonDeg


-- part 5 (field)
-- low flags: 04
-- high flags: 0002
-- rect: left=184 top=115 right=135 bottom=231
-- 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: LonMin


-- part 6 (field)
-- low flags: 04
-- high flags: 0002
-- rect: left=289 top=116 right=136 bottom=336
-- 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: LonSec


-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=214 top=258 right=324 bottom=292
-- title width / last selected line: 65535
-- icon id / first selected line: -15872 / 49664
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Calculate
----- HyperTalk script -----
on mouseUp
  calculate
end mouseUp


-- part 9 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=52 top=166 right=188 bottom=152
-- 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: Eastern
----- HyperTalk script -----
on mouseUp
  if hilite of card button 7 is true then exit mouseUp
  repeat with a = 2 to 5
    set the hilite of card button a to false
  end repeat
  set the hilite of card button 2 to true
end mouseUp


-- part 10 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=52 top=198 right=220 bottom=152
-- 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: Central
----- HyperTalk script -----
on mouseUp
  if hilite of card button 7 is true then exit mouseUp
  repeat with a = 2 to 5
    set the hilite of card button a to false
  end repeat
  set the hilite of card button 3 to true
end mouseUp


-- part 11 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=52 top=229 right=251 bottom=152
-- 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: Mountain
----- HyperTalk script -----
on mouseUp
  if hilite of card button 7 is true then exit mouseUp
  repeat with a = 2 to 5
    set the hilite of card button a to false
  end repeat
  set the hilite of card button 4 to true
end mouseUp


-- part 12 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=52 top=259 right=281 bottom=152
-- 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: Pacific
----- HyperTalk script -----
on mouseUp
  if hilite of card button 7 is true then exit mouseUp
  repeat with a = 2 to 5
    set the hilite of card button a to false
  end repeat
  set the hilite of card button 5 to true
end mouseUp


-- part 14 (field)
-- low flags: 04
-- high flags: 0002
-- rect: left=400 top=64 right=242 bottom=497
-- 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: Angles


-- part 17 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=163 top=198 right=220 bottom=295
-- 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: Local Mean Time
----- HyperTalk script -----
on mouseUp
  if hilite of me is true then exit mouseUp
  repeat with a = 2 to 7
    set the hilite of card button a to false
  end repeat
  set the hilite of card button 2 to true
  set the hilite of card button 6 to true
end mouseUp


-- part 18 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=163 top=229 right=250 bottom=316
-- 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: Local Apparent Time
----- HyperTalk script -----
on mouseUp
  repeat with a = 2 to 7
    set the hilite of card button a to false
  end repeat
  set the hilite of card button 7 to true
end mouseUp