Part of the Samples Website. 8/16/97.


«Reads a picture file into Frontier.root
«it prompts you for a file to open
«and then creates the picture at scratchpad.picture
«and opens the window
local (f, picturedata)
if not file.getFileDialog ("Choose a picture file", @f, 'PICT')
return (f) (f, 512) «skip the first 512 bytes of the file
picturedata = (f, infinity) «read the rest of the file into local
file.close (f)
setBinaryType (picturedata, 'PICT')
pict.PICTToPicture (@picturedata, @scratchpad.picture)
edit (@scratchpad.picture)

This page was last built on Sat, Aug 16, 1997 at 6:39:20 PM. You can download the current set of sample scripts from our FTP site. Dave