home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Electronic Whole Earth Catalog
/
ElectronicWholeEarthCatalog.img
/
CRAFT
/
background_5956.txt
< prev
next >
Wrap
Text File
|
1989-02-07
|
8KB
|
380 lines
-- background: 5956 from stack: in
-- bmap block id: 55494
-- flags: 0000
-- background id: 0
-- name: Picture
----- HyperTalk script -----
-- bg Picture script 1/19
-- When the user clicks the mouse outside of any active buttons or
-- fields, the caption dissolves away so the user can see more of the
-- picture. On full screen picture cards, the Earth, Map, Left, Right
-- Up, Down buttons and the Menu field also dissolve away.
--
-- These buttons/fields are restored to visibility when the user clicks
-- again or when he leaves the card.
--
-- 1/19 added fix to closeCard
on mouseUp
picCardHandler "toggle"
end mouseUp
on openCard
lock screen
picCardHandler "init"
if isFSCard() is true then
hideEMLR
end if
unlock screen
pass openCard
end openCard
on closeCard
lock screen
if isFSCard() is true then
showEMLR
end if
unlock screen
pass closeCard
end closeCard
on hideEMLR
hide bg btn "Earth"
hide bg btn "Map"
hide bg btn "Left"
hide bg btn "Right"
end hideEMLR
on showEMLR
show bg btn "Earth"
show bg btn "Map"
show bg btn "Left"
show bg btn "Right"
end showEMLR
function isFSCard
if fld "fullScreen" is empty then
return false
else
return true
end if
end isFSCard
on picCardHandler picMsg
global picToggle
if picMsg is "init" then
showPicCardObjects
put "hide" into picToggle
else if picMsg is "toggle" then
if picToggle = "hide" then
hidePicCardObjects
put "show" into picToggle
else
showPicCardObjects
put "hide" into picToggle
end if
end if
end picCardHandler
on hidePicCardObjects
if isFSCard() then
hidePicCardObjectsFS
else
hideCaption
end if
end hidePicCardObjects
on showPicCardObjects
if isFSCard() then
showPicCardObjectsFS
else
showCaption
end if
end showPicCardObjects
on hidePicCardObjectsFS
lock screen
hide cd fld "theHeading"
hide cd fld "theCaption"
hide cd fld "thePage"
hide cd btn "Up"
hide cd btn "Down"
unlock screen with "dissolve"
end hidePicCardObjectsFS
on showPicCardObjectsFS
lock screen
show cd fld "theHeading"
show cd fld "theCaption"
show cd fld "thePage"
show cd btn "Up"
show cd btn "Down"
unlock screen with "dissolve"
end showPicCardObjectsFS
on showCaption
lock screen
if hasCdField("theCaption") is true then
show cd fld "theCaption"
end if
unlock screen with dissolve
end showCaption
on hideCaption
lock screen
if hasCdField("theCaption") is true then
hide cd fld "theCaption"
end if
unlock screen with dissolve
end hideCaption
-- part 5 (field)
-- low flags: 81
-- high flags: 4002
-- rect: left=255 top=0 right=18 bottom=396
-- 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: theIdent
-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=463 top=139 right=173 bottom=508
-- 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: Map
----- HyperTalk script -----
on mouseUp
doArticleMapButton
end mouseUp
-- part 13 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=304 top=9 right=27 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 18
-- part name: theTopic
-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=463 top=88 right=130 bottom=507
-- 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: Earth
----- HyperTalk script -----
on mouseUp
goWholeEarth
end mouseUp
-- part 21 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=0 top=172 right=232 bottom=165
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Popup
-- part 12 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=28 top=40 right=64 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 768
-- line height: 16
-- part name: theTitle
-- part 22 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=0 top=0 right=18 bottom=86
-- 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: Accession
-- part 24 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=67 top=315 right=338 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: FullScreen
-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=463 top=232 right=275 bottom=488
-- 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: Left
----- HyperTalk script -----
on mouseUp
doArticleLeftButton
end mouseUp
-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=482 top=184 right=230 bottom=507
-- 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: Right
----- HyperTalk script -----
on mouseUp
doArticleRightButton
end mouseUp
-- part 27 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=410 top=128 right=143 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MapDest
-- part 28 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=410 top=272 right=287 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: LeftDest
-- part 29 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=410 top=225 right=240 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: RightDest
-- part 30 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=354 top=285 right=300 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: UpDest
-- part 31 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=354 top=301 right=316 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: DownDest
-- part 32 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=163 top=172 right=232 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: PopupDest