From 22cbea04d59796977a865cfee7f8428e1abf09da Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 30 Jun 2016 18:43:16 +0200 Subject: 2.19 --- perl-install/interactive/gtk.pm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'perl-install/interactive/gtk.pm') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index c37143fc3..56c8a358b 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -435,6 +435,7 @@ sub create_widget { $w->signal_connect(key_press_event => $e->{may_go_to_next}); $set = sub { $adj->set_value($_[0]) }; } elsif ($e->{type} eq 'expander') { + # FIXME: we handle advanced here: $e->{grow} = 'fill'; my $children = [ if_($e->{message}, { type => 'only_label', no_indent => 1, val => \$e->{message} }), @{$e->{children}} ]; create_widgets_block($o, $common, $children, $update, $ignore_ref); @@ -668,6 +669,7 @@ sub create_widgets_block { my $eater = if_($e->{alignment} eq 'right' && !$label_w, gtknew('Label')); + # FIXME: we should not pack advanced button here $e->{real_w} = gtkpack_(Gtk3::HBox->new, if_($e->{icon}, 0, eval { gtkcreate_img($e->{icon}) }), if_($eater, 1, $eater), @@ -862,6 +864,7 @@ sub ask_fromW { [ gtknew('Install_Button', text => N("Help"), clicked => sub { display_help($o, $common) }), undef, 1 ]), if_($common->{more_buttons}, @{$common->{more_buttons}}), + # FIXME: we should pack advanced button here ); my $buttons_pack = ($common->{ok} || !exists $common->{ok}) && $mainw->create_okcancel($common->{ok}, $common->{cancel}, '', @more_buttons); -- cgit v1.2.1