summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
-rw-r--r--perl-install/install/steps_gtk.pm11
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;
}