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
