diff options
| -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); } |