home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Otherware
/
Otherware_1_SB_Development.iso
/
mac
/
hypercar
/
xcmd
/
shutdown.sit
/
shutdown_stack
/
card_3595.txt
< prev
next >
Wrap
Text File
|
1992-11-05
|
2KB
|
85 lines
-- card: 3595 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2564
-- name: Demo
-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=47 top=261 right=283 bottom=147
-- 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: Shutdown
----- HyperTalk script -----
on mouseUp
DOSHUTDOWN -- This patches ExitToShell
domenu "quit hypercard" -- This now shuts down the Mac
end mouseUp
-- part 2 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=364 top=261 right=283 bottom=464
-- 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: Restart
----- HyperTalk script -----
on mouseUp
DORESTART -- This patches the ExitToShell trap
domenu "quit hypercard" -- This does the restart
end mouseUp
-- part 3 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=0 top=53 right=206 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name:
-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=77 top=223 right=258 bottom=440
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part contents for card part 3
----- text -----
WARNING!
This is a live demo. Both buttons will do what they say if used.
-- part contents for card part 4
----- text -----
Please use the button scripts provided with these. Thank you.