[MacPerl] macperl::choose, custom dialogs, and BBEdit

[Robert Ward <r.ward@bangor.ac.uk>]

I've been using the following routine to allow the user to select a folder
of data to analyse:

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

This works fine. However, if I run the routine from bbedit, using the "Run
File With MacPerl" tool, I don't get the custom dialog box for selecting a
directory. I just get the standard dialog, and so then the routine
/doesn't/ work. I can run the routine using the "Run MacPerl Front" tool
instead -- this works (natch), but then I don't get my output sent to a
bbedit window as I would like.

Is there another way? Perhaps a way of getting a folder from a standard
file dialog which bbedit could provide?

Thanks,
Rob




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