- ask_deselect_media__copy_on_disk: replace scrolled window around everything

  with a scrolled window around the list of checkboxes

1 files changed, 6 insertions, 5 deletions

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;
     }