-- card: 9890 from stack: in.1
-- bmap block id: 0
-- flags: 0000
-- background id: 3468
-- name: 


-- part contents for background part 9
----- text -----
XCMD

-- part contents for background part 2
----- text -----
ImportPict

-- part contents for background part 8
----- text -----
Andy Hertzfeld

-- part contents for background part 1
----- text -----

This XCMD imports pictures from resource files by turning PICT resources into new cards in the current stack. A dialog box is presented if no file name is given. A hypercard userlevel of at least 3 must be used.

ex. ImportPict
      ImportPict "ScrapBook File"

on mouseUp
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Painting"
  if the userLevel < 3 then exit mouseUp
  ImportPict
  set userLevel to saveLevel
end mouseUp


-- part contents for background part 4
----- text -----

ImportPict [<filename>]