Re: [MacPerl] MacPerl::SetFileInfo Help

[pudge@pobox.com (Chris Nandor)]

At 13.53 6/27/97, Russell Aminzade wrote:
>This creates the expected file, but doesn't set it's creator to BBEdit file.

>$x = &StandardFile'GetNewFile("Select New File", "foo");
>open (MYFILE,">$x")|| die "could not open $x";

>MacPerl::SetFileInfo ("R*ch" , "TEXT" , MYFILE);
                                         ^^^^^^

I think the third arg should be a path to a file (i.e., $x), not a filehandle.


require "StandardFile.pl";

$x = &StandardFile::GetNewFile("Select New File", "foo");
open (MYFILE,">$x")|| die "could not open $x";
print MYFILE "hello world.\nI'm a BBEDIT file.\n";
MacPerl::SetFileInfo ("R*ch" , "TEXT" , $x);
close (MYFILE);


(BTW, the ' delimiter is old-school Perl; :: can be used instead.)

--
Chris Nandor                 pudge@pobox.com                 http://pudge.net/
%PGPKey=('B76E72AD',[1024,'08 24 09 0B CE 73 CA 10  1F F7 7F 13 81 80 B6 B6'])



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch