-- background: 2710 from stack: in
-- bmap block id: 3172
-- flags: 0000
-- background id: 0
-- name: page
----- HyperTalk script -----
-- no longer used:
--function getdest
set cursor to watch
select empty
set lockScreen to true
push card
go card "Main"
select card field "Cards"
doMenu "Copy field"
pop card
doMenu "Paste field"
set lockText of card field "Cards" to true
push card
go card "Main"
select card button "Click on page name"
doMenu "Copy button"
pop card
doMenu "Paste button"
choose browse tool
set lockScreen to false
put card field "Cards" of card "Main" into card field "Cards"
click at topLeft of card button "Click on page name"
put false into done
repeat until done
  repeat until the mouseClick
  end repeat
  if (the clickH > the left of card field "Cards") and (the clickH < the right of card field "Cards") and (the clickV > the top of card field "Cards") and (the clickV < the bottom of card field "Cards") then
    set lockScreen to true
    set lockText of card field "Cards" to false
    click at the clickLoc
    click at the clickLoc
    put the selection into result
    set lockText of card field "Cards" to true
    set lockScreen to false
    if result is not "" then
      put true into done
    else
      select empty
    end if
  else
    beep
    select empty
  end if
end repeat
set lockScreen to true
select card button "Click on page name"
doMenu "Cut button"
select card field "Cards"
doMenu "Cut field"
choose browse tool
set lockScreen to false
return result
end getdest



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=6 top=310 right=334 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home Stack
----- HyperTalk script -----
on mouseUp
  visual dissolve
  go "home"
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=243 top=308 right=327 bottom=329
-- 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: Add Button
----- HyperTalk script -----
on mouseUp
  global done
  global cancel
  if the visible of background button "Hide Tools" is true then
    send mouseUp to background button "Hide Tools"
    put true into showlater
  else
    put false into showlater
  end if
  push card
  go card "button options"
  put false into done
  put false into cancel
  repeat while not done and not cancel
    send resetSelection
    repeat until the mouseClick
    end repeat
    click at the clickLoc
  end repeat
  if not cancel then
    put "on mouseUp" & numToChar(13) into temp
    if the hilite of card button "Sound effect" is true then
      put chosenSound() after temp
    end if
    if the hilite of card button "Visual effect" is true then
      put chosenEffect() after temp
    end if
    if the hilite of card button "Link to page" is true then
      put chosenPage() after temp
    end if
    put "end mouseUp" & numToChar(13) after temp
    pop card
    send mouseUp to background button "Show Tools"
    doMenu "New Button"
    get the number of buttons
    put the id of button it into newButton
    set the style of button id newButton to transparent
    set the showName of button id newButton to false
    set the script of button id newButton to temp
  else
    pop card
    if showlater then
      send mouseUp to background button "Show Tools"
    end if
  end if
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=331 top=308 right=327 bottom=417
-- 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: Add Field
----- HyperTalk script -----
on mouseUp
  doMenu "New Field"
  send mouseUp to background button "Show Tools"
end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=155 top=308 right=327 bottom=241
-- 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: Add Page
----- HyperTalk script -----
on mouseUp
  put false into done
  repeat until done
    ask "Name of new page"
    put it into cardname
    put true into done
    repeat with x = 1 to the number of lines of (card field "cards" of card "Main")
      get line x of card field "cards" of card "Main"
      if it is cardname and it is not "" then
        put false into done
        beep
        answer "Name already used!"
      end if
    end repeat
  end repeat
  if cardname is not "" then
    doMenu "New Card"
    put "(Press command-tab if you lose the Tools.)" into field "notes"
    set the name of this card to cardname
    put numToChar(13) & cardname after card field "Cards" of card "Main"
  end if
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=67 top=308 right=327 bottom=153
-- 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: Show Tools
----- HyperTalk script -----
on mouseUp
  show tool window at 400,50
  show background button "Hide Tools"
  show background field "notes"
end mouseUp



-- part 39 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=67 top=308 right=327 bottom=153
-- 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: Hide Tools
----- HyperTalk script -----
on mouseUp
  hide tool window
  hide background button "Hide Tools"
  hide background field "notes"
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=419 top=308 right=327 bottom=505
-- 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: Go To Page
----- HyperTalk script -----
on mouseUp
  global done
  global cancel
  if the visible of background button "Hide Tools" is true then
    send mouseUp to background button "Hide Tools"
    put true into showlater
  else
    put false into showlater
  end if
  push card
  go card "main"
  put false into done
  put false into cancel
  repeat while not done and not cancel
    repeat until the mouseClick
    end repeat
    click at the clickLoc
  end repeat
  if not cancel then
    do chosenPage()
  else
    pop card
  end if
  if showlater then
    send mouseUp to background button "Show Tools"
  end if
end mouseUp



-- part 45 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=150 top=328 right=341 bottom=410
-- 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: notes


-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=40 top=309 right=336 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 25002 / 25002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseUp
  push card
  go card "about storybook"
  repeat until the mouseClick
  end repeat
  pop card
end mouseUp