From 2db498ee242e3170dad946885815f8cb064a3cf0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 12 Dec 2001 18:48:00 +0000
Subject: enable easy screenshot'ing

---
 perl-install/my_gtk.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'perl-install/my_gtk.pm')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index b13d88a24..6679a1ba0 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -680,13 +680,16 @@ sub _create_window($$) {
 	});
     }
     $w->signal_connect(key_press_event => sub {
-	my $d = ${{ 65470 => 'help',
-	            65481 => 'next',
-		    65480 => 'previous' }}{$_[1]{keyval}};
+	my $d = ${{ 0xffbe => 'help',
+		    0xffbf => 'screenshot',
+	            0xffc9 => 'next',
+		    0xffc8 => 'previous' }}{$_[1]{keyval}};
 
 	if ($d eq "help") {
 	    require install_gtk;
 	    install_gtk::create_big_help($::o);
+	} elsif ($::isInstall && $d eq 'screenshot') {
+	    common::take_screenshot($o);
 	} elsif (chr($_[1]{keyval}) eq 'e' && $_[1]{state} & 8) {
 	    log::l("Switching to " . ($::expert ? "beginner" : "expert"));
 	    $::expert = !$::expert;
-- 
cgit v1.2.1