diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-30 18:43:16 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-30 18:43:35 +0200 |
| commit | 22cbea04d59796977a865cfee7f8428e1abf09da (patch) | |
| tree | 4ba4a8b77e468a1fb303c6da1726150ef73b66a0 /perl-install/interactive/gtk.pm | |
| parent | 293a7498b3d4e653a60c3ea8138692540396a2b9 (diff) | |
| download | drakx-22cbea04d59796977a865cfee7f8428e1abf09da.tar drakx-22cbea04d59796977a865cfee7f8428e1abf09da.tar.gz drakx-22cbea04d59796977a865cfee7f8428e1abf09da.tar.bz2 drakx-22cbea04d59796977a865cfee7f8428e1abf09da.tar.xz drakx-22cbea04d59796977a865cfee7f8428e1abf09da.zip | |
2.19
Diffstat (limited to 'perl-install/interactive/gtk.pm')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 3 |
1 files changed, 3 insertions, 0 deletions
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); |