Carousel Volume 2 #1/carousel.iso/mactosh/hc/hyperlau.sit/HyperLaunch!/card_2972.txt

Text File | 1987-09-01 | 10.6 KB | 541 lines

-- card: 2972 from stack: in
-- bmap block id: 3567
-- flags: 4000
-- background id: 2652
-- name: Main card
----- HyperTalk script -----
on OpenCard
  hide card field 1
  get the name of this card
  put it into card field "Which"
end OpenCard



-- part 1 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=167 top=29 right=64 bottom=209
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go "Home"
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=217 top=27 right=67 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 1017 / 1017
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect barn door open
  go "Phone"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=255 top=22 right=66 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 20965 / 20965
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to card id 16690 of stack "Datebook"
end mouseUp




-- part 4 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=302 top=26 right=68 bottom=353
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to stack "Datebook"
end mouseUp




-- part 5 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=361 top=29 right=67 bottom=388
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to card id 3076 of stack "Address"
end mouseUp




-- part 8 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=124 top=132 right=182 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 22269 / 22269
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MS-Excel
----- HyperTalk script -----
on mouseUp
  open"Excel"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=67 top=186 right=236 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 5280 / 5280
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Word 3.01
----- HyperTalk script -----
on mouseUp
  open"Microsoft Word"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=238 top=77 right=127 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 15402 / 15402
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Illustrator
----- HyperTalk script -----
on mouseUp
  open"IllustratorΓäó"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=238 top=132 right=182 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 22430 / 22430
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RSG3!
----- HyperTalk script -----
on mouseUp
  open"RSG3!"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=124 top=186 right=236 bottom=174
-- title width / last selected line: 0
-- icon id / first selected line: 17335 / 17335
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: XPress!
----- HyperTalk script -----
on mouseUp
  open"Xpress"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=67 top=132 right=182 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 20600 / 20600
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: More
----- HyperTalk script -----
on mouseUp
  open"MoreΓäó 1.1"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=180 top=77 right=127 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 15154 / 15154
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FullPaint
----- HyperTalk script -----
on mouseUp
  open"FullPaint"
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=327 top=320 right=333 bottom=478
-- 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: About Fairgate...
----- HyperTalk script -----
on mouseUp
  visual effect dissolve slow to gray
  go to card "About Fairgate"
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=67 top=77 right=127 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 23289 / 23289
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: C-Draw
----- HyperTalk script -----
on mouseUp
  open"Cricket Draw"
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=123 top=77 right=127 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 24492 / 24492
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: C-Graph
----- HyperTalk script -----
on mouseUp
  open"Cricket Graph"
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=295 top=77 right=127 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 27803 / 27803
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MacDraw
----- HyperTalk script -----
on mouseUp
  open"MacDraw"
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=352 top=77 right=127 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 1003 / 1003
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MacPaint
----- HyperTalk script -----
on mouseUp
  open"MacPaint"
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=408 top=77 right=127 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 1005 / 1005
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MacWrite
----- HyperTalk script -----
on mouseUp
  open"MacWrite"
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=180 top=132 right=182 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 22566 / 22566
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PageMaker
----- HyperTalk script -----
on mouseUp
  open"PageMaker"
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=261 top=296 right=322 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go to Utilities screen
----- HyperTalk script -----
on mouseUp
  go to card "Utilities"
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=295 top=133 right=183 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 29096 / 29096
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SuperPaint
----- HyperTalk script -----
on mouseUp
  open"SuperPaint"
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=353 top=133 right=183 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 6892 / 6892
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: T-Scan
----- HyperTalk script -----
on mouseUp
  open"Thunderscan"
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=408 top=133 right=183 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 30060 / 30060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Viewer
----- HyperTalk script -----
on mouseUp
  open"Viewer"
end mouseUp



-- part 37 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=202 top=204 right=263 bottom=388
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Paths info╔
----- HyperTalk script -----
hide card field 1



-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=122 top=8 right=67 bottom=167
-- 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: HyperCard help
----- HyperTalk script -----
on mouseUp
  push recent card
  go to stack "Help"
end mouseUp



-- part 42 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=311 top=317 right=337 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Which


-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=7 top=178 right=225 bottom=53
-- 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 an application
----- HyperTalk script -----
on mouseUp
  Ask "Create button for the application named:"
  if length(it) <> 0 then
    DoMenu New Button
    Set name of button "New Button" to it
    Set style of button it to "opaque"
    Set textfont of button it to "Geneva"
    Set textsize of button it to "9"
    DoMenu Send Farther
  end if
end mouseUp



-- part contents for card part 37
----- text -----
When you're done selecting a path, use the '~' or 'Esc' keys to return to this screen.

-- part contents for card part 42
----- text -----
card "Main card"