In article <[EMAIL PROTECTED]>,
 [EMAIL PROTECTED] (Rick Measham) wrote:

> I need some help with a perl on OS-X problem. I need to pop up a 'Save 
> As' dialog. Basically the same as the one AppleScript gives you when 
> you:
>       choose file name with prompt "Select a location to save this file" 
> default name "Name"
> 
> But I figure that somewhere in all this there must be a way to pop up 
> such a dialog directly from perl.


#!/usr/local/bin/perl
use Mac::Glue;

my $glue = new Mac::Glue 'Finder';  # or whatever app you want
my $file = $glue->choose_file_name(
   with_prompt   => 'test1',
   default_name  => 'test2'
);

-- 
Chris Nandor                      [EMAIL PROTECTED]    http://pudge.net/
Open Source Development Network    [EMAIL PROTECTED]     http://osdn.com/

Reply via email to