On Monday, February 10, 2003, Craig Hoyt wrote:

> I can't seem to get the statement DEF OPEN to work on Carbon/Appearance
> compiles. Does anybody know how to set the type/creator on newly 
> created
> files. My same code works with PPC compiles but not with Carbon. I also
> tried the PramBlock get/set method without success. Any ideas.

Both files saved with this code end up with the custom type and 
creators specified (Appearance/Carbon compile, run as OS X native). I 
used ResEdit's command Get File/Folder Info... to check.

dim as str255  f
dim as short   wdRefNum
def open "ZZzzAAaa"
f = files$( _fSave,,, wdRefNum )
long if f[0]
open "O", 1, f,, wdRefNum
close 1
end if

dim as str255  ff
dim as FSSpec  fSpec
def open "BBbbxxXX"
ff = files$( _fSSpecSave,,,fSpec )
long if ff[0]
open "O", 1,@fSpec
close 1
end if

Can you explain what you mean by "can't ... get the statement DEF OPEN 
to work"?

Robert P.