diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-17 19:06:30 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-17 19:06:30 +0000 |
| commit | 12ed6429ee5831beabd8e938ce26978a744d5446 (patch) | |
| tree | 30fc8868c0a5029c29bf8a53ea621ac0d662be1a /perl-install | |
| parent | 04dee177fa057726c04b3956812a8fc4dd4d8e88 (diff) | |
| download | drakx-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.pm | 6 |
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}))); |