diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-15 16:26:17 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-15 16:26:17 +0000 |
| commit | ee2b94b1d62e515e7591a07103e5f6267e4c0a2c (patch) | |
| tree | 5545c90221b0fa8cf9a5d080c6ba2488e2b87e48 /perl-install | |
| parent | e5ea6b41ecaadfafc0001fa8ee421500da86d218 (diff) | |
| download | drakx-ee2b94b1d62e515e7591a07103e5f6267e4c0a2c.tar drakx-ee2b94b1d62e515e7591a07103e5f6267e4c0a2c.tar.gz drakx-ee2b94b1d62e515e7591a07103e5f6267e4c0a2c.tar.bz2 drakx-ee2b94b1d62e515e7591a07103e5f6267e4c0a2c.tar.xz drakx-ee2b94b1d62e515e7591a07103e5f6267e4c0a2c.zip | |
(warn_dialog, err_dialog) fix passing dialog options to
create_dialog() when they get no options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 4c70a2081..07a8d9298 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -403,12 +403,14 @@ sub create_dialog { sub warn_dialog { my ($title, $label, $o_options) = @_; + $o_options ||= { }; add2hash_($o_options, { small => 1, stock => 'gtk-dialog-warning', cancel => 1 }); create_dialog($title, $label, $o_options); } sub err_dialog { my ($title, $label, $o_options) = @_; + $o_options ||= { }; add2hash_($o_options, { small => 1, stock => 'gtk-dialog-error' }); create_dialog($title, $label, $o_options); } |