From af70f77e2a0860fbcbf01f4b6ac28bfa6fea9c6b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 6 Dec 2013 14:35:22 +0100
Subject: (reallyChooseGroups) make bottom buttons always available

by puting the scrolling window only around the package group check boxes
---
 perl-install/install/NEWS         | 4 ++++
 perl-install/install/steps_gtk.pm | 8 +++-----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index dc73d857a..016ee9bfe 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,7 @@
+- package group selection:
+  o make bottom buttons always available
+    (by puting the scrolling window only around the package group check boxes)
+
 Version 16.9 - 6 December 2013
 
 - fix retrieving network info from stage2 after dracut migration (mga#11504)
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 3fc72b597..d5e0014d8 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -342,10 +342,8 @@ sub reallyChooseGroups {
     #- when restarting this step, it might be necessary to reload the compssUsers.pl (bug 11558). kludgy.
     if (!ref $o->{gtk_display_compssUsers}) { install::any::load_rate_files($o) }
     ugtk3::gtkadd($w->{window},
-       gtknew('ScrolledWindow', child =>
-	   gtknew('VBox', children => [
-		    1, $o->{gtk_display_compssUsers}->($entry),
-		    1, '',
+       gtknew('VBox', children => [
+		  1, gtknew('ScrolledWindow', child =>	$o->{gtk_display_compssUsers}->($entry)),
 		    if_($individual,
                         0, gtknew('CheckButton', text => N("Individual package selection"), active_ref => $individual),
                     ),
@@ -357,7 +355,7 @@ sub reallyChooseGroups {
 			  gtknew('Button', text => N("Unselect All"), clicked => sub { $_->set_active(0) foreach @entries }),
 			  gtknew('Button', text => N("Next"), clicked => sub { Gtk3->main_quit }),
                     ]),
-		  ]),
+		  ],
           )
 	  );
     $w->main;
-- 
cgit v1.2.1