perl-win32-gui-users

[perl-win32-gui-users] SaveAsDialog

[Erick J. B. <er...@e-...>]

Has anyone had success using the SaveAsDialog?

I'm using the SaveAsDialog in the following way:

             my %param = (title => "SaveAs",
filters=>{'Filter 1' => '*.txt;*.doc', 'Filter 2'
=>'*.pl;*.pm'});
             my $file = SaveAsDialog %param, "foo.txt";

 However, this, and other variants I have tried cause "...an
invalid page fault in module PERL56.DLL at 017f:2804feea."
Either there is something wrong with the function or I don't
have the right syntax. Either way, any help would be greatly
appreciated.

erick
never stop questioning
www.jeb.ca

Re: [perl-win32-gui-users] SaveAsDialog

[Aldo C. <da...@pe...>]

Erick J. Bourgeois wrote:
> Has anyone had success using the SaveAsDialog?
>
> I'm using the SaveAsDialog in the following way:
>
>              my %param = (title => "SaveAs",
> filters=>{'Filter 1' => '*.txt;*.doc', 'Filter 2'
> =>'*.pl;*.pm'});
>              my $file = SaveAsDialog %param, "foo.txt";

sorry, but where did you got this syntax?

try this:

    my $file = Win32::GUI::GetSaveFileName(
        -title => "SaveAs",
        -filter => [
            "Filter 1" => "*.txt;*.doc",
            "Filter 2" => "*.pl;*.pm",
        ],
        -file => "foo.txt",
    );


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Re: [perl-win32-gui-users] SaveAsDialog

[Erick J. B. <er...@e-...>]

> sorry, but where did you got this syntax?

From the documentation in FileOp module.

erick
never stop questioning
www.jeb.ca
----- Original Message -----
From: Aldo Calpini <da...@pe...>
To: Erick J. Bourgeois
<per...@li...>
Sent: Monday, February 12, 2001 10:47 AM
Subject: Re: [perl-win32-gui-users] SaveAsDialog


> Erick J. Bourgeois wrote:
> > Has anyone had success using the SaveAsDialog?
> >
> > I'm using the SaveAsDialog in the following way:
> >
> >              my %param = (title => "SaveAs",
> > filters=>{'Filter 1' => '*.txt;*.doc', 'Filter 2'
> > =>'*.pl;*.pm'});
> >              my $file = SaveAsDialog %param, "foo.txt";
>
> sorry, but where did you got this syntax?
>
> try this:
>
>     my $file = Win32::GUI::GetSaveFileName(
>         -title => "SaveAs",
>         -filter => [
>             "Filter 1" => "*.txt;*.doc",
>             "Filter 2" => "*.pl;*.pm",
>         ],
>         -file => "foo.txt",
>     );
>
>
> cheers,
> Aldo
>
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u
sers
>

Re: [perl-win32-gui-users] SaveAsDialog

[Aldo C. <da...@pe...>]

Erick J. Bourgeois wrote:
>> sorry, but where did you got this syntax?
>
> From the documentation in FileOp module.

oh, well, FileOp != Win32::GUI :-)

cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;