Friday, February 11, 2011

How do I present an open folder selection dialog in Perl?

How do I open folder selection dialog in Perl?

  • You may want to check out the GUI bindings in wxPerl.

    From Ether
  • Depends on the GUI system you're using, and perhaps the platform. For example, on Windows and using Win32::GUI, you can use GetOpenFileName:

    # $main is your main window...
    $my_file = $main->GetOpenFileName(
        -title => 'Select a file...',
        -file => 'default.file',
    );
    
  • Most portable (at least compared to others):

    use Tk;
    my $dir = Tk::MainWindow->new->chooseDirectory;
    

    Of course, if you're actually using Tk in the rest of your program, you should call chooseDirectory on a proper parent widget instead of the one constructed and destructed here.

    From ephemient

0 comments:

Post a Comment