From 15768bb58de861fab57e8053d1b810fb50b469ff Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 22 Nov 2013 15:20:44 +0100 Subject: fix calling Gtk3::Image->new_from_stock() --- perl-install/ugtk3.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/ugtk3.pm') diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm index 67b0b6880..59d8fae49 100644 --- a/perl-install/ugtk3.pm +++ b/perl-install/ugtk3.pm @@ -404,7 +404,7 @@ sub create_dialog { gtkpack($dialog->get_child, gtknew('HBox', children => [ if_($o_options->{stock}, - 0, Gtk3::Image->new_from_stock($o_options->{stock}, 'dialog'), + 0, Gtk3::Image->new_from_stock($o_options->{stock} || '', 'dialog'), 0, gtknew('Label', text => " "), ), 1, $o_options->{scroll} ? create_scrolled_window($text, [ 'never', 'automatic' ]) : $text, -- cgit v1.2.1