[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] Prompt for folder?



At 12.51 1998.04.03, Josh Gemmell wrote:
>I've been busy building some utility modules and I have a question: How do you
>prompt for a folder rather than a file?

Well, you can use this somewhat-deprecated code:

sub get_folder {
  require 'GUSI.ph';
  my($prompt, $default) = @_;
  MacPerl::Choose(
    GUSI::AF_FILE(), 0, $prompt, '',
    GUSI::CHOOSE_DIR() + ($default ? &GUSI::CHOOSE_DEFAULT : 0),
    $default
  );
}
print get_folder();

It works fine out of the box.  You'll need to append a ':' on what it
returns, probably.  I have not played around enough to know its behavior
well.

Eventually, there will probably be a direct toolbox call in the toolbox modules.

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10  1FF7 7F13 8180 B6B6'])
#==               New Book:  MacPerl: Power and Ease               ==#
#==    Publishing Date: Early 1998. http://www.ptf.com/macperl/    ==#



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch