home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
drdobbs
/
1988
/
04
/
krute
/
krute-3.lst
next >
Wrap
File List
|
1979-12-31
|
18KB
|
679 lines
KRUTE LISTING ONE APRIL ISSUE
-------------------------------------------------------------
Scouting Toolkit¬
A Hypercard Project
Programmed and ⌐1988 by Stan Krute
All rights reserved
-------------------------------------------------------------
Description Of Objects
-------------------------------------------------------------
The Stack
Description
The stack's name is "Scouting Toolkit¬"
It contains 1 background
It contains 1 card
The size of the stack is 20K
Script
The stack has no script
-------------------------------------------------------------
Background 1
Description
The background has no name
It's used by 1 card
Script
The background has no script
-------------------------------------------------------------
Card 1
Description
The card's name is "Scouting Toolkit"
It contains 17 buttons
It contains 2 fields
Script
---------------------------- openCard --------------------------
on openCard
-- hide the menubar, and initialize a state variable for it
global menubarState
hide menubar
put "hidden" into menubarState
-- hide some windows
hide message box
hide tool window
hide pattern window
end openCard
---------------------------- mouseUp --------------------------
on mouseUp
-- redraw the toolkit buttons, in case some are hidden
repeat with buttonNumber = 2 to 13
show button buttonNumber
end repeat
end mouseUp
-------------------------------------------------------------
Button 1
Description
The button's name is "Delete Scouting Toolkit"
Its Show name property is false
Its Auto hilite property is true
Its style is shadow
It has an icon, ID# 30010
Its rectangle is 42 units wide, 42 unitshigh
The button's located at card location (36,292)
Its text properties are: System Font 12, Height 16, Align center
Script
------------------------------ mouseUp ------------------------------
on mouseUp
-- make sure we don't mess up the supply card
if short name of this card is not "Scouting Toolkit" then
-- save and set the user level
get userLevel
put it into entryUserLevel
set userLevel to 5
-- show the watch cursor
set cursor to 4
-- make sure the kit buttons are showing
show button "Scouting Toolkit Icon"
click at loc of button "Scouting Toolkit Icon"
-- set the tool
choose button tool
-- get rid of our toolkit
click at loc of button "Home"
doMenu "Clear Button"
click at loc of button "Back"
doMenu "Clear Button"
click at loc of button "Next"
doMenu "Clear Button"
click at loc of button "Previous"
doMenu "Clear Button"
click at loc of button "Toggle Pattern Window"
doMenu "Clear Button"
click at loc of button "Toggle Tool Window"
doMenu "Clear Button"
click at loc of button "Toggle Message Box"
doMenu "Clear Button"
click at loc of button "Toggle Menubar"
doMenu "Clear Button"
choose field tool
show card field "Copyright"
click at loc of card field "Copyright"
doMenu "Clear Field"
choose button tool
click at loc of button "Scouting Toolkit About"
doMenu "Clear Button"
click at loc of button "Scouting Toolkit¬"
doMenu "Clear Button"
click at loc of button "Scouting Toolkit Window"
doMenu "Clear Button"
show button "Scouting Toolkit Icon"
click at loc of button "Scouting Toolkit Icon"
doMenu "Clear Button"
-- snake swallows tail
click at loc of button "Delete Scouting Toolkit"
doMenu "Clear Button"
-- set the tool
choose browse tool
-- restore the cursor
set cursor to 0
-- restore the user level
set userLevel to entryUserLevel
else
-- we're on the supply card, so it would be bad form to delete
-- send a signal
show card field "No Delete Here"
-- wait a moment
wait 1 seconds
-- hide the signal
hide card field "No Delete Here"
end if
end mouseUp
-------------------------------------------------------------
Button 2
Description
The button's name is "Scouting Toolkit Window"
Its Show name property is false
Its Auto hilite property is true
Its style is shadow
It has no icon
Its rectangle is 300 units wide, 182 units high
The button's located at card location (197,144)
Its text properties are: System Font 12, Height 16, Align center
Script
---------------------------- mouseUp ----------------------------
on mouseUp
-- make a noise
play "boing" "c"
-- close the kit
hideScoutingToolkit
-- show the trigger
show button "Scouting Toolkit Icon"
end mouseUp
----------------------- hideScoutingToolkit -----------------------
on hideScoutingToolkit
-- hide the kit's buttons
hide button "Home"
hide button "Back"
hide button "Next"
hide button "Previous"
hide button "Toggle Pattern Window"
hide button "Toggle Tool Window"
hide button "Toggle Message Box"
hide button "Toggle Menubar"
hide button "Scouting Toolkit About"
hide button "Scouting Toolkit¬"
hide button "Scouting Toolkit Window"
end hideScoutingToolkit
-------------------------------------------------------------
Button 3
Description
The button's name is "Scouting Toolkit¬"
Its Show name property is true
Its Auto hilite property is true
Its style is opaque
It has no icon
Its rectangle is 120 units wide, 20 units high
The button's located at card location (296,160)
Its text properties are: System Font 12, Height 16, Align center
Script
------------------------------ mouseUp ------------------------------
on mouseUp
-- pass the message through
send mouseUp to button "Scouting Toolkit Window"
end mouseUp
-------------------------------------------------------------
Button 4
Description
The button's name is "Scouting Toolkit About"
Its Show name property is false
Its Auto hilite property is true
Its style is transparent
It has an icon, ID# 30011
Its rectangle is 24 units wide, 22 units high
The button's located at card location (466,150)
Its text properties are: System Font 12, Height 16, Align center
Script
------------------------------- mouseUp -------------------------------
on mouseUp
-- show the copyright notice
show card field "Copyright"
-- a little sound effect
play "harpsichord" "c e g"
-- wait for a mouse click
wait until the mouseClick
-- a little sound effect
play "harpsichord" "g e c"
-- hide the copyright notice
hide card field "Copyright"
end mouseUp
-------------------------------------------------------------
Button 5
Description
The button's name is "Toggle Menubar"
Its Show name property is false
Its Auto hilite property is true
Its style is shadow
It has an icon, ID# 30009
Its rectangle is 42 units wide, 42 units high
The button's located at card location (225,193)
Its text properties are: System Font 12, Height 16, Align center
Script
---------------------------- mouseUp ----------------------------
on mouseUp
-- no built-in check for visibility, so╔
global menubarState
-- toggle the menubar's visibility
if menubarState is "hidden" then
show menubar
put "showing" into menubarState
else
hide menubar
put "hidden" into menubarState
end if
end mouseUp
-------------------------------------------------------------
Button 6
Description
The button's name is "Toggle Message Box"
Its Show name property is false
Its Auto hilite property is true
Its style is shadow
It has an icon, ID# 30008
Its rectangle is 42 units wide, 42 units high
The button's located at card location (292,193)
Its text properties are: System Font 12, Height 16, Align center
Script
---------------------------- mouseUp ----------------------------
on mouseUp
-- toggle the message window's visibility
if the visible of message box is true then
hide the message box
else
show the message box
end if
end mouseUp
-------------------------------------------------------------
Button 7
Description
The button's name is "Toggle Tool Window"
Its Show name property is false
Its Auto hilite property is true
Its style is shadow
It has an icon, ID# 30007
Its rectangle is 42 units wide, 42 units high
The button's located at card location (359,193)
Its text properties are: System Font 12, Height 16, Align center
Script
---------------------------- mouseUp ----------------------------
on mouseUp
-- toggle the tool palette window's visibility
if the visible of tool window is true then
hide tool window
else
show tool window
end if
end mouseUp
-------------------------------------------------------------
Button 8
Description
The button's name is "Toggle Pattern Window"
Its Show name property is false
Its Auto hilite property is true
Its style is shadow
It has an icon, ID# 30006
Its rectangle is 42 units wide, 42 units high
The button's located at card location (426,193)
Its text properties are: System Font 12, Height 16, Align center
Script
---------------------------- mouseUp ----------------------------
on mouseUp
-- toggle the pattern palette's window's visibility
if the visible of pattern window is true then
hide pattern window
else
show pattern window
end if
end mouseUp
-------------------------------------------------------------
Button 9
Description
The button's name is "Previous"
Its Show name property is false
Its Auto hilite property is true
Its style is shadow
It has an icon, ID# 30001
Its rectangle is 42 units wide, 42 units high
The button's located at card location (225,259)
Its text properties are: System Font 12, Height 16, Align center
Script
---------------------------- mouseUp ----------------------------
on mouseUp
-- move to the previous card
doMenu "Prev"
end mouseUp
-------------------------------------------------------------
Button 10
Description
The button's name is "Next"
Its Show name property is false
Its Auto hilite property is true
Its style is shadow
It has an icon, ID# 30002
Its rectangle is 42 units wide, 42 units high
The button's located at card location (292,259)
Its text properties are: System Font 12, Height 16, Align center
Script
---------------------------- mouseUp ----------------------------
on mouseUp
-- move to the next card
doMenu "Next"
end mouseUp
-------------------------------------------------------------
Button 11
Description
The button's name is "Back"
Its Show name property is false
Its Auto hilite property is true
Its style is shadow
It has an icon, ID# 30003
Its rectangle is 42 units wide, 42 units high
The button's located at card location (359,259)
Its text properties are: System Font 12, Height 16, Align center
Script
---------------------------- mouseUp ----------------------------
on mouseUp
-- go to the last card visited
doMenu "Back"
end mouseUp
-------------------------------------------------------------
Button 12
Description
The button's name is "Home"
Its Show name property is false
Its Auto hilite property is true
Its style is shadow
It has an icon, ID# 30005
Its rectangle is 42 units wide, 42 units high
The button's located at card location (426,259)
Its text properties are: System Font 12, Height 16, Align center
Script
---------------------------- mouseUp ----------------------------
on mouseUp
-- go home
visual effect iris close
doMenu "Home"
end mouseUp
-------------------------------------------------------------
Button 13
Description
The button's name is "Scouting Toolkit Icon"
Its Show name property is false
Its Auto hilite property is true
Its style is shadow
It has an icon, ID# 30004
Its rectangle is 42 units wide, 42 units high
The button's located at card location (178,83)
Its text properties are: System Font 12, Height 16, Align center
Script
------------------------------- mouseUp -------------------------------
on mouseUp
-- make a noise
play "boing" "e"
-- hide this button
hide button "Scouting Toolkit Icon"
-- show the toolkit
showScoutingToolkit
end mouseUp
------------------------- showScoutingToolkit -------------------------
on showScoutingToolkit
-- show the toolkit's buttons
show button "Toggle Menubar"
show button "Scouting Toolkit Window"
show button "Scouting Toolkit About"
show button "Scouting Toolkit¬"
show button "Toggle Message Box"
show button "Toggle Tool Window"
show button "Toggle Pattern Window"
show button "Previous"
show button "Next"
show button "Back"
show button "Home"
end showScoutingToolkit
-------------------------------------------------------------
Button 14
Description
The button's name is "Duplicate Scouting Toolkit"
Its Show name property is false
Its Auto hilite property is true
Its style is shadow
It has an icon, ID# 30000
Its rectangle is 42 units wide, 42 units high
The button's located at card location (460,12)
Its text properties are: System Font 12, Height 16, Align center
Script
------------------------------ newButton ------------------------------
on newButton
-- make sure we don't mess up the supply card
if short name of this card is not "Scouting Toolkit" then
-- save and set the user level
get userLevel
put it into entryUserLevel
set userLevel to 5
-- set the cursor to the watch
set cursor to 4
-- set the tool
choose button tool
-- for all the buttons in the set
repeat with buttonNumber = 1 to 13
-- remember where we are (the target card)
push card
-- hide screen commotion
set lockScreen to true
-- go to the supply card
go to card "Scouting Toolkit" of stack "Scouting Toolkit¬"
-- select the button
click at loc of button buttonNumber
-- copy the button
doMenu "Copy Button"
-- return to the target card
pop card
-- show screen commotion
set lockScreen to false
-- paste the button
doMenu "Paste Button"
end repeat
-- copy the copyright notice
copyCopyrightField
-- get rid of this duplication button
choose button tool
click at loc of button "Duplicate Scouting Toolkit"
doMenu "Cut Button"
-- move two buttons
drag from loc of button "Scouting Toolkit Icon" to loc of button "Back"
hide button "Scouting Toolkit Icon"
drag from loc of button "Delete Scouting Toolkit" to loc of button "Home"
-- hide the toolkit
choose browse tool
click at loc of button "Scouting Toolkit Window"
-- restore the user level
set userLevel to entryUserLevel
end if
end newButton
-------------------------- copyCopyrightField --------------------------
on copyCopyrightField
-- save our location
push card
-- hide screen commotion
set lockScreen to true
-- go to the supply card
go to card "Scouting Toolkit" of stack "Scouting Toolkit¬"
-- set tool
choose field tool
-- select the field
show card field "Copyright"
click at loc of card field "Copyright"
-- copy the button
doMenu "Copy Field"
-- hide the field
hide card field "Copyright"
-- and get the field's contents
get card field "Copyright"
-- return to the target card
pop card
-- show screen commotion
set lockScreen to false
-- paste the field, fill it up, and hide it
doMenu "Paste Field"
put It into card field "Copyright"
hide card field "Copyright"
end copyCopyrightField
-------------------------------- mouseUp --------------------------------
on mouseUp
-- make sure we're at the supply card
if short name of this card is "Scouting Toolkit" then
-- show the watch cursor
set cursor to 4
-- copy the button
choose button tool
click at loc of button "Duplicate Scouting Toolkit"
doMenu "Copy Button"
-- restore tool
choose browse tool
end if
end mouseUp
-------------------------------------------------------------
Button 15
Description
The button's name is "Copyright"
Its Show name property is false
Its Auto hilite property is true
Its style is transparent
It has an icon, ID# 30000
Its rectangle is 70 units wide, 13 units high
The button's located at card location (0,52)
Its text properties are: System Font 12, Height 16, Align center
Script
------------------------------- mouseUp -------------------------------
on mouseUp
-- pass message on to the toolkit's About button
send mouseUp to button "Scouting Toolkit About"
end mouseUp
-------------------------------------------------------------
Card Field 1
Description
The field's name is "Copyright"
It's hiddden
Its Lock text property is true
Its Show lines property is false
Its Wide margins property is false
Its style is rectangle
Its rectangle is 286 units wide, 129 units high
The field's located at card location (204,190)
Its text properties are: Geneva 12, Height 16, Align center
Contents
"⌐1987 by Stan Krute's Camp Creek Institute.
All rights reserved.
Call or write for details:
18617 Camp Creek Road
Hornbrook, California96044
[916] 475-3428"
Script
The field has no script
-------------------------------------------------------------
Card Field 2
Description
The field's name is "No Delete Here"
It's hiddden
Its Lock text property is true
Its Show lines property is false
Its Wide margins property is false
Its style is opaque
Its rectangle is 39 units wide, 39 units high
The field's located at card location (37,293)
Its text properties are: Geneva 9, Height 12, Align center
Contents
"Not Here,
Though."
Script
The field has no script
-------------------------------------------------------------