-- background: 2785 from stack: in
-- bmap block id: 3094
-- flags: 0000
-- background id: 0
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=72 top=311 right=325 bottom=215
-- 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: Watch here...
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  ZoomRect the rect of bkgnd button "Open Button", the rect of bkgnd field "NewField 1"
  set lockscreen to true
  show bkgnd button "Close Button"
  show bkgnd field "NewField 1"
  show bkgnd field "NewField 2"
  hide bkgnd button "Hider 2"
  show bkgnd button "Hider 1"
  hide bkgnd button "Open Button"
  set the name of bkgnd button "Push this button!" to "Watch here..."
  set the name of bkgnd button "This space reserved." to "Click here..."
  set lockscreen to false
  set hilite of me to false
end mouseUp



-- part 3 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=23 top=301 right=335 bottom=55
-- title width / last selected line: 0
-- icon id / first selected line: 23270 / 23270
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Button
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  ZoomRect the rect of me, the rect of bkgnd field "NewField 1"
  set lockscreen to true
  show bkgnd button "Close Button"
  show bkgnd field "NewField 1"
  show bkgnd field "NewField 2"
  hide bkgnd button "Hider 2"
  show bkgnd button "Hider 1"
  hide bkgnd button "Open Button"
  set the name of bkgnd button "Push this button!" to "Watch here..."
  set the name of bkgnd button "This space reserved." to "Click here..."
  set lockscreen to false
  set hilite of me to false
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=51 top=302 right=333 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 902 / 902
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  ZoomRect the rect of bkgnd button "Open Button", the rect of bkgnd field "NewField 1"
  set lockscreen to true
  show bkgnd button "Close Button"
  show bkgnd field "NewField 1"
  show bkgnd field "NewField 2"
  hide bkgnd button "Hider 2"
  show bkgnd button "Hider 1"
  hide bkgnd button "Open Button"
  set the name of bkgnd button "Push this button!" to "Watch here..."
  set the name of bkgnd button "This space reserved." to "Click here..."
  set lockscreen to false
  set hilite of me to false
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=23 top=61 right=75 bottom=190
-- 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: Click here...
----- HyperTalk script -----
on mouseDown
  ZoomRect the rect of bkgnd field "NewField 1", the rect of bkgnd button "Open Button"
  set lockscreen to true
  show bkgnd button "Open Button"
  hide bkgnd field "NewField 1"
  hide bkgnd field "NewField 2"
  hide bkgnd button "Close Button"
  show bkgnd button "Hider 2"
  hide bkgnd button "Hider 1"
  set the name of bkgnd button "Watch here..." to "Push this button!"
  set the name of bkgnd button "Click here..." to "This space reserved."
  set lockscreen to false
end mouseDown




-- part 7 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=203 top=59 right=261 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: NewField 1


-- part 8 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=203 top=77 right=259 bottom=476
-- 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: NewField 2


-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=208 top=63 right=75 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 14184 / 14184
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close Button
----- HyperTalk script -----
on mouseDown
  ZoomRect the rect of bkgnd field "NewField 1", the rect of bkgnd button "Open Button"
  set lockscreen to true
  show bkgnd button "Open Button"
  hide bkgnd field "NewField 1"
  hide bkgnd field "NewField 2"
  hide bkgnd button "Close Button"
  show bkgnd button "Hider 2"
  hide bkgnd button "Hider 1"
  set the name of bkgnd button "Watch here..." to "Push this button!"
  set the name of bkgnd button "Click here..." to "This space reserved."
  set lockscreen to false
end mouseDown





-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=186 top=52 right=83 bottom=212
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseDown
  ZoomRect the rect of bkgnd field "NewField 1", the rect of bkgnd button "Open Button"
  set lockscreen to true
  show bkgnd button "Open Button"
  hide bkgnd field "NewField 1"
  hide bkgnd field "NewField 2"
  hide bkgnd button "Close Button"
  show bkgnd button "Hider 2"
  hide bkgnd button "Hider 1"
  set the name of bkgnd button "Watch here..." to "Push this button!"
  set the name of bkgnd button "Click here..." to "This space reserved."
  set lockscreen to false
end mouseDown




-- part 10 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=20 top=52 right=83 bottom=212
-- 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: Hider 2


-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=51 top=302 right=333 bottom=217
-- 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: Hider 1


-- part 12 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=62 top=147 right=189 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 32644 / 32644
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  put installres(XCMD,ZoomRect) into it
  if it is empty then play boing
  else answer it
end mouseUp

--
--this function is used by the 'install' button
--It then attempts to install the resource into
--a target stack & returns the result.
--
function installres type, resname
--
--Original script by Steve Drazga, ART Incorpoated
--XFCNs used: fileName,
--XCMDs used: modResCopy,
--HANDLERS used: none
--FUNCTIONS used: none
--
put (long name of this stack) into sourceStack
delete first word of sourceStack
delete first character of sourceStack
delete last character of sourceStack
put "Select a stack to copy this resource into."
put filename("STAK") into fname
if fname is empty then exit installres
if sourcestack=fname then
  play "Boing"
  return "Get real.  You can't install it in this stack"
  exit installres
end if
hide the message window
--
ModResCopy sourceStack,fname,type,resname
--
get the result
if first char of it is "E" then
  play "Boing"
  return "Attempt to install resource has failed."
else
  return "Resource installation successful"
end if
end installres




-- part 13 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=105 top=147 right=189 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect barn door close to black
  visual effect barn door open to inverse
  go home
end mouseUp