-- 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