home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Electronic Whole Earth Catalog
/
ElectronicWholeEarthCatalog.img
/
INTRODUCTION
/
card_66833.txt
< prev
next >
Wrap
Text File
|
1989-02-08
|
3KB
|
152 lines
-- card: 66833 from stack: in
-- bmap block id: 3530
-- flags: 0000
-- background id: 85999
-- name:
-- part 11 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=55 top=97 right=140 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: sMap
----- HyperTalk script -----
on mouseUp
lookup "card id 64901", "iris open"
end mouseUp
-- part 13 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=153 top=258 right=297 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: sMap
----- HyperTalk script -----
on mouseUp
lookup "card id 63588", "iris open"
end mouseUp
-- part 23 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=254 top=44 right=90 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: install
----- HyperTalk script -----
on mouseUp
installWEButton
end mouseUp
on installWEButton
answer "Install Whole Earth Button in Home Stack?" with "Yes" or "No"
if it = "yes" then
set lockscreen to true
choose button tool
select btn "Whole Earth"
domenu "Copy Button"
go Home
repeat with i = 1 to the number of buttons
if the short name of button i is "Whole Earth" then
choose browse tool
go back
answer "Whole Earth is already installed."
unlock screen with iris close
exit installWEButton
end if
end repeat
domenu "paste button"
put "on mouseUp" & Return & " go to stack" && Quote & "Whole Earth" & Quote & Return & "end mouseUp" & Return into weBtnScript
set the script of btn "Whole Earth" to weBtnScript
set the showName of btn "Whole Earth" to true
set the rect of btn "Whole Earth" to "216,83,276,130"
set lockscreen to false
put "Click and slowly drag the button to the correct position."
wait until the mouse is down
repeat until the mouse is up
set the loc of card btn "Whole Earth" to the mouseLoc
end repeat
else
choose browse tool
exit installWEButton
end if
choose browse tool
answer "Return to Whole Earth Introduction?" with "No" or "Yes"
hide the message box
if it = "Yes" then
go back
end if
end installWEButton
-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=406 top=50 right=84 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 13297 / 13297
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Whole Earth
----- HyperTalk script -----
on mouseUp
send mouseUp to card field "install"
end mouseUp
-- part contents for background part 1
----- text -----
Section Map
-- part contents for background part 2
----- text -----
INTRODUCTION
-- part contents for card part 11
----- text -----
ABOUT THE
DISC
-- part contents for card part 13
----- text -----
HELP
-- part contents for background part 3
----- text -----
12115519
-- part contents for card part 23
----- text -----
INSTALL BUTTON
IN HOME STACK