>From GUI.xs, here is the definition:
# (@)METHOD:GetSaveFileName(%OPTIONS)
# Allowed %OPTIONS are:
# -owner => WINDOW
# [TBD]
# -title => STRING
# the title for the dialog
# -directory => STRING
# specifies the initial directory
# -file => STRING
# specifies a name that will appear on the dialog's edit field
# -filter => ARRAY REFERENCE
# [TBD]
Here is an example from sfn.pl ( included example in the source
distribution)
Add "-directory => something" to the sub arg to start in a particular
folder
I have never used the -owner flag, so I have no idea what it does.
<CODE>
use Win32::GUI;
$file = "\0" . " " x 256;
$ret = GUI::GetSaveFileName(
-title => "Win32::GUI::GetSaveFileName test",
-file => "\0" . " " x 256,
-filter => [
"Text documents (*.txt)" => "*.txt",
"Perl stuff (*.pl, *.pm)" => "*.pl;*.pm",
"All files", "*.*",
],
);
if($ret) {
print "GetSaveFileName returned: '$ret'\n";
} else {
if(GUI::CommDlgExtendedError()) {
print "ERROR. CommDlgExtendedError is: ",
GUI::CommDlgExtendedError(), "\n";
} else {
print "You cancelled.\n";
}
}
</CODE>
Basically, if $ret is defined, it is the full path to the file you want
to save. You can then perfom open, pipe, pass to constructors which take
a filename, etc. Also, for the Openfile, you may want to play with the
Win32::GUI::BrowseForFolder function AND look back on the list several
weeks for Win32::FileOp reference. It includes a better Openfilename
function in that you can specify a flag to open multiple file names
amoung other options not available(currently) in the
Win32::GUI::GetOpenFileName function.
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: Friday, October 19, 2001 1:53 PM
> To: [email protected]
> Subject: [perl-win32-gui-users] Save file window
>
>
>
> Hello,
>
> I was looking at the sample perl scripts and came accross
> ofn.pl, it uses
> Win32::GUI::GetOpenFileName. Which opens up an open file
> window. Created
> and ready to use with all the buttons. Cool. I couldn't find it
> documented any where and now I am wondering if there is a
> save file window
> (I really hope so). I'd rather not have to create one if
> it's already been
> done. Does anyone know?
>
> Thanks,
>
> Joe
>
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
