summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-02-21 19:22:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-02-21 19:22:12 +0000
commit8abe7a7e8c29a95d8229577b5ff0afaa74589fcc (patch)
tree36deb9889d4642b0078b687dfa4ad1a234ffc644 /perl-install/my_gtk.pm
parent1a6ceb9a7e98d4f7b3aa7e398519ca6a89d852e4 (diff)
downloaddrakx-8abe7a7e8c29a95d8229577b5ff0afaa74589fcc.tar
drakx-8abe7a7e8c29a95d8229577b5ff0afaa74589fcc.tar.gz
drakx-8abe7a7e8c29a95d8229577b5ff0afaa74589fcc.tar.bz2
drakx-8abe7a7e8c29a95d8229577b5ff0afaa74589fcc.tar.xz
drakx-8abe7a7e8c29a95d8229577b5ff0afaa74589fcc.zip
no_comment
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];