From ee2b94b1d62e515e7591a07103e5f6267e4c0a2c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 15 Jul 2003 16:26:17 +0000 Subject: (warn_dialog, err_dialog) fix passing dialog options to create_dialog() when they get no options --- perl-install/ugtk2.pm | 2 ++ 1 file changed, 2 insertions(+) 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); } -- cgit v1.2.1