From cd21067ce794ec83c374e9fccd3f595f69045677 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 26 Jul 2012 10:35:23 +0000
Subject: (reallyChooseGroups) add a scrollbar (due to Oxygen theme eating more
 space than Ia Ora one)

---
 perl-install/install/NEWS         | 4 ++++
 perl-install/install/steps_gtk.pm | 2 ++
 2 files changed, 6 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index e0440f620..237b68e74 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,7 @@
+- package group selection:
+  o add a scrollbar
+    (due to Oxygen theme eating more space than Ia Ora one)
+
 Version 14.31 - 24 July 2012
 
 - adapt to latest GDB
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 33ddae6fe..2ed26ac34 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -333,6 +333,7 @@ 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) }
     ugtk2::gtkadd($w->{window},
+       gtknew('ScrolledWindow', child =>
 	   gtknew('VBox', children => [
 		    1, $o->{gtk_display_compssUsers}->($entry),
 		    1, '',
@@ -347,6 +348,7 @@ sub reallyChooseGroups {
 			  gtknew('Button', text => N("Next"), clicked => sub { Gtk2->main_quit }),
 			 ]),
 		  ]),
+          )
 	  );
     $w->main;
     1;
-- 
cgit v1.2.1