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.pm36
1 files changed, 28 insertions, 8 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index a360c9bb6..60dafbc29 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -223,16 +223,12 @@ sub reallyChooseDesktop {
my $w = ugtk2->new($title);
- my $sizegrp = Gtk2::SizeGroup->new('horizontal');
my $choice = $choices->[0];
my $prev;
my @l = map {
my $val = $_;
$prev = gtknew('RadioButton', child =>
- gtknew('HBox', border_width => 15, spacing => 10, children => [
- 0, gtknew('Image', file => "desktop-$val->[0]", size_group => $sizegrp),
- 1, gtknew('Label', text => $val->[1]),
- ]),
+ gtknew('Label', text => $val->[1]),
toggled => sub { $choice = $val if $_[0]->get_active },
$prev ? (group => $prev->get_group) : ());
$prev->signal_connect(key_press_event => sub {
@@ -241,13 +237,37 @@ sub reallyChooseDesktop {
Gtk2->main_quit;
}
});
- $prev
+ my $img = gtksignal_connect(
+ gtkadd(Gtk2::EventBox->new, gtknew('Image', file => "desktop-$val->[0]")),
+ 'button-press-event' => sub {
+ my $wp = ugtk2->new(N("Help"), transient => $w->{real_window}, modal => 1,
+ );
+ gtkadd($wp->{rwindow},
+ gtkpack_(Gtk2::VBox->new,
+ 0, N("Here's a preview of the '%s' desktop.", $val->[1]),
+ 1, gtknew('Image', file => "desktop-$val->[0]-big"),
+ 0, gtkpack(create_hbox('edge'),
+ gtknew('Button', text => N("Close"), clicked => sub { Gtk2->main_quit })
+ ),
+ ),
+ );
+ $wp->{real_window}->set_size_request(-1, -1);
+ $wp->{real_window}->grab_focus;
+ $wp->{real_window}->grab_focus;
+ $wp->{real_window}->show_all;
+ $wp->main;
+ });
+ gtknew('VBox', border_width => 15, spacing => 10, children_tight => [
+ $img,
+ $prev,
+ ]);
} @$choices;
ugtk2::gtkadd($w->{window},
gtknew('VBox', children => [
- 0, gtknew('WrappedLabel', text => $message),
- (map { (1, $_) } @l),
+ 0, gtknew('WrappedLabel', text => $message . "\n\n" .
+ N("Click on images in order to see a bigger preview")),
+ 1, gtknew('HButtonBox', children_loose => \@l),
0, $w->create_okcancel(N("Next"), undef),
]));
$w->main;