Re: [MacPerl] choose folder

[Thomas Wegner <toms_email@gmx.de>]

>what is the MacPerl equivalent to the following without using AppleScript?
>
>$f = MacPerl::DoAppleScript("(choose folder) as string");
>print "$f\n";   # print folder path as string
>
>
>-- hcir

Hi Rich | hciR,

try
________
#! perl -w

require "StandardFile.pl";

print "Current Folder: ", `pwd`;
$dirname = &StandardFile::GetFolder("Select a folder");
print ($dirname ? "You chose:\n$dirname\n" : "You cancelled\n");

__END__

See MacPerl Ÿ:lib: StandardFile.pl and  MacPerl Ÿ:t:mac: 
StandardFile.t for details.

HTH.

Best regards,

Thomas


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