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.pm16
1 files changed, 7 insertions, 9 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 253ea2541..eeaa3b42f 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -252,7 +252,6 @@ sub reallyChooseDesktop {
KDE => N("Install %s KDE Desktop", N("Mageia")),
GNOME => N("Install %s GNOME Desktop", N("Mageia")),
MATE => N("Install %s MATE Desktop", N("Mageia")),
- CINNAMON => N("Install %s Cinnamon Desktop", N("Mageia")),
XFCE => N("Install %s XFCE Desktop", N("Mageia")),
LXDE => N("Install %s LXDE Desktop", N("Mageia")),
RAZOR => N("Install %s RazorQT Desktop", N("Mageia")),
@@ -260,16 +259,18 @@ sub reallyChooseDesktop {
Custom => N("Custom install"),
);
my $prev;
+ my $default_set = 0;
my @l = map {
my $val = $_;
my $sensitive = grep { $_->[0] =~ /$val->[0]/ or $val->[0] eq 'Custom' } map { $_->{flags} } grep { $_->{path} eq 'Graphical Environment' } map { @$_ } $o->{compssUsers};
+ $default_set++ if $sensitive;
$choice{$val->[0]} = '0';
$prev = gtknew('CheckButton',
text => $val->[1],
tip => $tips{$val->[0]},
sensitive => $sensitive ? '1' : '0',
toggled => sub { $choice{$val->[0]} = $_[0]->get_active },
- active => $sensitive ? ($default_choice == $_) : '0',
+ active => $default_set == 1 && $sensitive ? ($choice{$val->[0]} = '1') : '0',
);
@@ -280,13 +281,12 @@ sub reallyChooseDesktop {
}
});
my $img = gtksignal_connect(
- gtkadd(Gtk2::EventBox->new, gtknew('Image', sensitive => $sensitive ? '1' : '0', file => $val->[0] eq 'Custom' ? "" : "desktop-$val->[0]")),
+ gtkadd(Gtk2::EventBox->new, gtknew('Image', sensitive => $sensitive ? '1' : '0', file => "desktop-$val->[0]")),
'button-press-event' => sub {
my %title = (
KDE => N("KDE Desktop"),
GNOME => N("GNOME Desktop"),
MATE => N("MATE Desktop"),
- CINNAMON => N("Cinnamon Desktop"),
XFCE => N("XFCE Desktop"),
LXDE => N("LXDE Desktop"),
RAZOR => N("RazorQT Desktop"),
@@ -313,14 +313,13 @@ sub reallyChooseDesktop {
$wp->{real_window}->show_all;
$wp->main;
});
- gtknew('VBox', border_width => 5, spacing => 5, children_tight => [
+ gtknew('VBox', border_width => 5, spacing => 10, children_tight => [
$img,
$prev,
]);
} @$choices;
-my @l1 = @l[0..3];
-my @l2 = @l[4..7];
-my @l3 = @l[8];
+my @l1 = grep { !($n++ % 2) } @l;
+my @l2 = grep { !(++$n % 2) } @l;
ugtk2::gtkadd($w->{window},
gtknew('VBox', children => [
0, gtknew('Title2',
@@ -331,7 +330,6 @@ my @l3 = @l[8];
gtknew('VBox', children => [
1, gtknew('HButtonBox', spacing => 5, layout => 'edge', children_loose => \@l1),
1, gtknew('HButtonBox', spacing => 5, layout => 'edge', children_loose => \@l2),
- 1, gtknew('HButtonBox', spacing => 5, layout => 'edge', children_loose => \@l3),
]
),
),