summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm15
1 files changed, 10 insertions, 5 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index fe940e3d7..e09d700ab 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -321,12 +321,17 @@ sub _create_window($$) {
$w->set_uposition(@{$my_gtk::force_position || $o->{force_position}}) if $my_gtk::force_position || $o->{force_position};
$w->signal_connect("key_press_event" => sub {
- my $d = ${{ 65481 => 'next',
+ my $d = ${{ 65470 => 'help',
+ 65481 => 'next',
65480 => 'previous' }}{$_[1]->{keyval}} or return;
- my $s = $::o->{step};
- do { $s = $::o->{steps}{$s}{$d} } until !$s || $::o->{steps}{$s}{reachable};
- $::setstep && $s and die "setstep $s\n";
- });
+ if ($d eq "help") {
+ install_steps_gtk::create_big_help();
+ } else {
+ my $s = $::o->{step};
+ do { $s = $::o->{steps}{$s}{$d} } until !$s || $::o->{steps}{$s}{reachable};
+ $::setstep && $s and die "setstep $s\n";
+ }
+ }) unless $::isStandalone;
$w->signal_connect(size_allocate => sub {
my ($wi, $he) = @{$_[1]}[2,3];