diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-01-12 18:34:14 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-01-12 18:34:14 +0000 |
| commit | b2f8950309dd68d239818636b125b4f75dde169a (patch) | |
| tree | 9437150d95ae75df0d5e9fb644467b32614143f7 /perl-install/interactive | |
| parent | c80918dccee76d2b631b4f9839ed1052b708178c (diff) | |
| download | drakx-backup-do-not-use-b2f8950309dd68d239818636b125b4f75dde169a.tar drakx-backup-do-not-use-b2f8950309dd68d239818636b125b4f75dde169a.tar.gz drakx-backup-do-not-use-b2f8950309dd68d239818636b125b4f75dde169a.tar.bz2 drakx-backup-do-not-use-b2f8950309dd68d239818636b125b4f75dde169a.tar.xz drakx-backup-do-not-use-b2f8950309dd68d239818636b125b4f75dde169a.zip | |
have separate SizeGroup's for advanced and non advanced entries
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 22242a2d9..69b43752d 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -402,8 +402,8 @@ sub ask_fromW { $set_all->(); }; - my $label_sizegrp = Gtk2::SizeGroup->new('horizontal'); - my $realw_sizegrp = Gtk2::SizeGroup->new('horizontal'); + my @label_sizegrp = map { Gtk2::SizeGroup->new('horizontal') } 0 .. 1; + my @realw_sizegrp = map { Gtk2::SizeGroup->new('horizontal') } 0 .. 1; my $create_widget = sub { my ($e, $ind) = @_; @@ -585,8 +585,8 @@ sub ask_fromW { $real_w ||= $w; $real_w = gtkpack_(Gtk2::HBox->new, if_($e->{icon}, 0, eval { gtkcreate_img($e->{icon}) }), - 0, gtkadd_widget($label_sizegrp, $e->{label}), - 1, gtkadd_widget($realw_sizegrp, $real_w), + 0, gtkadd_widget($label_sizegrp[$e->{advanced} ? 1 : 0], $e->{label}), + 1, gtkadd_widget($realw_sizegrp[$e->{advanced} ? 1 : 0], $real_w), ) if !$real_w->isa("Gtk2::CheckButton") || $e->{icon} || $e->{label}; { e => $e, w => $w, real_w => $real_w, focus_w => $focus_w || $w, |