From d6654de7b609f614efa1833e340b3f6009eb017b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 29 Sep 2008 10:55:18 +0000 Subject: - ask_deselect_media__copy_on_disk: replace scrolled window around everything with a scrolled window around the list of checkboxes --- perl-install/install/NEWS | 2 ++ perl-install/install/steps_gtk.pm | 11 ++++++----- 2 files changed, 8 insertions(+), 5 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index fc5d27b5b..4aeed59bb 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- ask_deselect_media__copy_on_disk: replace scrolled window around everything + with a scrolled window around the list of checkboxes - adapt to fonts-ttf-gurmukhi => fonts-ttf-lohit switch - add spacing between radio buttons for readability (#44332) - better positionning of sidepanel's selection bar diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 555a0b47a..91967bccd 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -708,19 +708,20 @@ sub ask_deselect_media__copy_on_disk { $w->sync; ugtk2::gtkadd( $w->{window}, - create_scrolled_window(gtkpack_( - Gtk2::VBox->new(0, 5), + gtknew('VBox', children => [ @names > 1 ? ( 0, gtknew('Label_Left', padding => [ 0, 0 ], # workaround infamous 6 years old gnome bug #101968: width => mygtk2::get_label_width(), text => formatAlaTeX(N("The following installation media have been found. If you want to skip some of them, you can unselect them now."))), - (map { + 1, gtknew('ScrolledWindow', child => gtknew('VBox', children => [ + map { my $b = gtknew('CheckButton', text => $_, active_ref => \$selection{$_}); $b->set_sensitive(0) if $_ eq $names[0]; (0, $b); - } @names), + } @names + ])), if_(@names <= 8, 1, ''), 0, gtknew('HSeparator'), ) : (), @@ -736,7 +737,7 @@ It will then continue from the hard drive and the packages will remain available 0, gtknew('HButtonBox', layout => 'end', children_tight => [ gtknew('Button', text => N("Next"), clicked => sub { Gtk2->main_quit }), ]), - )), + ]), ); $w->main; } -- cgit v1.2.1