RE: [MacPerl] Two-pass droplet?

["Creede Lambard (Volt Computer)" <a-creela@microsoft.com>]

> |#!perl
> |
> |if (defined($ARGV[0]))
> |{
> |    $myfile = $ARGV[0];
> |}
> |else
> |{
> |    opendir(FOO,".") or die "Can't open current folder: $!";
> |    @list = readdir(FOO);
> |    close FOO;
> |    $myfile = MacPerl::Pick("Select a file:",@list);
> |}
> |
> |MacPerl::Answer("The file you chose was $myfile.","Oh boy!");
> 
> This will work, but a friendlier solution is to use one of 
> the StandardFile
> calls instead of Pick. Then the user can navigate to wherever 
> the file is,
> plus if they're running a standard file enhancer (like ACTION Files or
> whatever it's called), they have that functionality available.

Oh, absolutely. The above was just at the top of my brain when the question
came up. :)

-- Creede


===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org