summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-22 10:37:37 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-22 10:37:37 +0000
commitcc40d0b56dba6d1af838a86d4fbbb14ac90ef97f (patch)
treec74c75b8a1794605816ab2c2650b4fd5ae655b35 /perl-install/my_gtk.pm
parent21ec7acaaa990d72f79771535985e3c33f17069c (diff)
downloaddrakx-cc40d0b56dba6d1af838a86d4fbbb14ac90ef97f.tar
drakx-cc40d0b56dba6d1af838a86d4fbbb14ac90ef97f.tar.gz
drakx-cc40d0b56dba6d1af838a86d4fbbb14ac90ef97f.tar.bz2
drakx-cc40d0b56dba6d1af838a86d4fbbb14ac90ef97f.tar.xz
drakx-cc40d0b56dba6d1af838a86d4fbbb14ac90ef97f.zip
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 46fab9f25..f349599f5 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -324,6 +324,14 @@ sub _create_window($$) {
$w->signal_connect("delete_event" => sub { $o->{retval} = undef; Gtk->main_quit });
$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',
+ 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";
+ });
+
$w->signal_connect(size_allocate => sub {
my ($wi, $he) = @{$_[1]}[2,3];
my ($X, $Y, $Wi, $He) = @{$my_gtk::force_center || $o->{force_center}};