-- background: 8025 from stack: in.1
-- bmap block id: 8721
-- flags: 0000
-- background id: 0
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=396 top=42 right=64 bottom=496
-- 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: Do it
----- HyperTalk script -----
on mouseUp
  get FileName()
  -- name of a file the user picks goes into "it"
  put "You chose…" & return into bkgnd field 1
  if it is not empty then
    put it after bkgnd field 1
  else
    -- we return a null string if user hits Cancel
    put "to click the Cancel button" after bkgnd field 1
  end if
end mouseUp



-- part 2 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=30 top=35 right=199 bottom=355
-- 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: 12
-- part name: 


-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=431 top=313 right=331 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go card filename
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=396 top=66 right=113 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 4895 / 4895
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Look at this script
----- HyperTalk script -----
on mouseUp
  set the highlight of bkgnd button "do it" to true
  waitasec
  set the highlight of bkgnd button "do it" to false
  play "Boing" c5e
  put the script of bkgnd button "do it" into bkgnd field 1
  wait until the sound is "done"
  set the highlight of bkgnd button "do it" to true
  waitasec
  set the highlight of bkgnd button "do it" to false
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=396 top=139 right=161 bottom=496
-- 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: Read a file
----- HyperTalk script -----
on mouseUp
  put FileName("TEXT") into theFile
  if theFile is not empty then
    open file theFile
    read from file theFile for 1000
    put it into bkgnd field 1
    close file theFile
  end if
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=396 top=229 right=251 bottom=496
-- 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: LaunchÉ
----- HyperTalk script -----
on mouseUp
  put FileName("APPL") into theFile
  if theFile is not empty then
    open theFile
  end if
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=396 top=163 right=210 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 4895 / 4895
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Look at this script
----- HyperTalk script -----
on mouseUp
  set the highlight of bkgnd button "read a file" to true
  waitasec
  set the highlight of bkgnd button "read a file" to false
  play "Boing" c5e
  put the script of bkgnd button "read a file" into bkgnd field 1
  wait until the sound is "done"
  set the highlight of bkgnd button "read a file" to true
  waitasec
  set the highlight of bkgnd button "read a file" to false
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=396 top=253 right=300 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 4895 / 4895
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Look at this script
----- HyperTalk script -----
on mouseUp
  set the highlight of bkgnd button "launch…" to true
  waitasec
  set the highlight of bkgnd button "launch…" to false
  play "Boing" c5e
  put the script of bkgnd button "launch…" into bkgnd field 1
  wait until the sound is "done"
  set the highlight of bkgnd button "launch…" to true
  waitasec
  set the highlight of bkgnd button "launch…" to false
end mouseUp