From 12ed6429ee5831beabd8e938ce26978a744d5446 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 17 Sep 2008 19:06:30 +0000 Subject: (create_widget) align iconlist real widget to the left when (its label is) aligned to the right :-) we should maybe just adapt that layout everytime for icons (even with normal left alignment)... --- perl-install/interactive/gtk.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index f31793980..29ccae084 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -385,7 +385,11 @@ sub create_widget { $onchange_f->(sub { next_val_in_array(${$e->{val}}, $e->{list}) }); $set->(${$e->{val}}); }); - $real_w = gtkpack_(Gtk2::HBox->new(0,10), 1, Gtk2::HBox->new(0,0), 0, $w, 1, Gtk2::HBox->new(0,0)); + if ($e->{alignment} eq 'right') { + $real_w = gtknew('HButtonBox', layout => 'start', children_tight => [ $w ]); + } else { + $real_w = gtkpack_(Gtk2::HBox->new(0,10), 1, Gtk2::HBox->new(0,0), 0, $w, 1, Gtk2::HBox->new(0,0)); + } } elsif ($e->{type} eq 'bool') { if ($e->{image}) { $w = ugtk2::gtkadd(Gtk2::CheckButton->new, gtkshow(gtkcreate_img($e->{image}))); -- cgit v1.2.1