summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk3.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-08 03:42:45 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:28:16 +0100
commita7f8805575a700e5ca8dfc962e8049eff33b71b4 (patch)
tree6bf766718203362239ad495a4bebed70cb746fd1 /perl-install/ugtk3.pm
parenta45c4e4ca33cc642f3dfac9d9b6652a0cb40485f (diff)
downloaddrakx-a7f8805575a700e5ca8dfc962e8049eff33b71b4.tar
drakx-a7f8805575a700e5ca8dfc962e8049eff33b71b4.tar.gz
drakx-a7f8805575a700e5ca8dfc962e8049eff33b71b4.tar.bz2
drakx-a7f8805575a700e5ca8dfc962e8049eff33b71b4.tar.xz
drakx-a7f8805575a700e5ca8dfc962e8049eff33b71b4.zip
perlish $dialog->vbox => $dialog->get_child
Diffstat (limited to 'perl-install/ugtk3.pm')
-rw-r--r--perl-install/ugtk3.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index 675c774db..14a2ae337 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -401,7 +401,7 @@ sub create_dialog {
my $dialog = gtkset_border_width(_create_dialog($title, $o_options), 10);
$dialog->set_border_width(10);
my $text = ref($label) ? $label : $o_options->{use_markup} ? gtknew('WrappedLabel', text_markup => $label) : gtknew('WrappedLabel', text => $label);
- gtkpack($dialog->vbox,
+ gtkpack($dialog->get_child,
gtknew('HBox', children => [
if_($o_options->{stock},
0, Gtk3::Image->new_from_stock($o_options->{stock}, 'dialog'),