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