At 11:12 -0600 2002.09.23, Keary Suska wrote:
>It seems the MacPerl-specific pod doesn't talk about AppleScript anymore,
>but you can still find it by looking at the pod for MacPerl.pm.
Yes, I moved the description of the specifics of the MacPerl package to
MacPerl.pm.
>MacPerl::DoAppleScript('tell application "Finder" to open
>"full:or:rel:file:path"');
>
>My AS is a little rusty, but you can test the script in the script editor
>before pasting to this function. If you set the type and creator properly,
>there should be no problem for the Finder to open the file in the right app.
That should work. It'd probably be 'open file "path"' or something, but yes.
Or 'open file "path" using "application path"'.
Or to avoid DoAppleScript:
use Mac::Glue;
my $finder = new Mac::Glue 'Finder';
# optional :-)
my $app_path = $Mac::MoreFiles::Application{$app_sign};
my $file = $finder->obj(file => $file_path);
my $app = $finder->obj(file => $app_path);
$finder->open($file, using => $app);
--
Chris Nandor [EMAIL PROTECTED] http://pudge.net/
Open Source Development Network [EMAIL PROTECTED] http://osdn.com/
