From cd21067ce794ec83c374e9fccd3f595f69045677 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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/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