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;