Hello all,
Is it possible to set the extended (ie: OS 8.5 =< ) Finder Info for a
file with MacPerl?
(Specifically, I want to set the routing bit for a file (found in
ioFlXFndrInfo.fdXFlags))
My script currently goes something like this:
use Mac::StandardFile;
use Mac::Files;
my($file, $finderInfo);
$file = StandardGetFile(0, '');
if ($file->sfGood()) {
printf("You chose %s, of type %s.\n", $file->sfFile(),
$file->sfType());
$finderInfo = FSpGetFInfo($file);
print $finderInfo.fdFlags;
}
else {
print "You cancelled the operation.\n";
}
the PRINT $FINDERINFO.FDFlAGS line does not work as expected (it
prints "fdFlags".
So, my two questions are:
#1: Can this _really_ be done in MacPerl?
#2: Once we get the extended finder info, we should be able
to set it using FSpSetFInfo(), right?
#3: If it can't be done in MacPerl, can someone point me to an app
that DOES allow modification of the extended finder info?
(I've tried the CW Finder Info plugin, but it doesn't seem to
be working for me with CW8)
(It IS possible I've made a goofy error. I'm a MacPerl newbie, for the
most part)
References:
TN1142: Mac OS 8.5
(http://developer.apple.com/technotes/tn/tn1142.html)
Thanks in advance,
-Ryan Wilcox
---------------------------------
Wilcox Design: Understanding Data
