Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Answer: How do I make Open and Save As file dialogs? (Win32)

( #15434=categorized answer: print w/ replies, xml ) Need Help??

Q&A > GUI Programming > How do I make Open and Save As file dialogs? (Win32) contributed by mdillon

In the ActivePerl FAQ: Is there a way to do GUI programming with ActivePerl?

It refers to Win32::GUI, which seems to be the module's author's page; it also has a lot of useful info about other Win32 modules, as well as links to precompiled versions for the compiler impaired.

Below is some (untested) code based on a message from the Win32::GUI mailing list:

use Cwd; # returns selected file name; undef if Cancel sub file_open_dialog { my $file_spec = "*.bmp\0" . " " x 256; # init a C-friendly buffer my $dir = cwd; GUI::GetOpenFileName( -title => 'Load/Save File', -owner => $Win, -directory => $dir, -file => $file_spec, ) }

Comment on Answer: How do I make Open and Save As file dialogs? (Win32)
Download Code
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2015-07-03 22:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls