Again I need help. I'm trying to make an app that makes startup
screens. Here is my code (the picture is in picturewindow.backdrop):

Dim file As FolderItem
Dim rf as ResourceFork
chasingarrows1.visible=true
statusbar.text="Creating File..."
file=getsavefolderitem("resedit/startupscreen","StartupScreen")
if file<>nil then
statusbar.text="Writing Picture Data..."
rf=file.CreateResourceFork("resedit/startupscreen")
rf=file.OpenResourceFork
rf.addpicture(picturewindow.backdrop,0,"StartupScreen")
statusbar.text="Done. Idle."
chasingarrows1.visible=false
end if

When I run it and open it in ResEdit (to check for the PICT that is the
picture and has ID 0) it's empty!

Any help would be appreciated.

BTW, this is why I asked  for the CreateRescourceFork syntax.

--
--
Prog III