summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-17 19:06:30 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-17 19:06:30 +0000
commit12ed6429ee5831beabd8e938ce26978a744d5446 (patch)
tree30fc8868c0a5029c29bf8a53ea621ac0d662be1a /perl-install
parent04dee177fa057726c04b3956812a8fc4dd4d8e88 (diff)
downloaddrakx-12ed6429ee5831beabd8e938ce26978a744d5446.tar
drakx-12ed6429ee5831beabd8e938ce26978a744d5446.tar.gz
drakx-12ed6429ee5831beabd8e938ce26978a744d5446.tar.bz2
drakx-12ed6429ee5831beabd8e938ce26978a744d5446.tar.xz
drakx-12ed6429ee5831beabd8e938ce26978a744d5446.zip
(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)...
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive/gtk.pm6
1 files changed, 5 insertions, 1 deletions
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})));