RE: [MacPerl] Two-pass droplet?

["Brian L. Matthews" <blm@halcyon.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.

Brian



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