From 66cd030643d6c7853f2c959a4560daa13a167ef1 Mon Sep 17 00:00:00 2001
From: mertz
Date: Wed, 22 Jan 2003 17:16:27 +0000
Subject: suppression de la sortie par 'esc', 'ctrl-c' et 'q' pour �viter de
 sortir de zinc-demos

---
 Perl/demos/Tk/demos/zinc_lib/Zetris.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl
index 19ceaa1..4c9c5e6 100644
--- a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl
@@ -355,9 +355,9 @@ sub resize_calc
 sub make_key_bindings
   {
     my $top = shift;
-    $top->bind('<Escape>' => \&quit_game);
-    $top->bind('<q>'      => \&quit_game);
-    $top->bind('<Control-c>' => \&quit_game);
+#    $top->bind('<Escape>' => \&quit_game);
+#    $top->bind('<q>'      => \&quit_game);
+#    $top->bind('<Control-c>' => \&quit_game);
     $top->bind('<Left>'   => sub { move('left')  });
     $top->bind('<Right>'  => sub { move('right') });
     $top->bind('<Up>'     => sub { move('antiturn')  });
@@ -393,7 +393,7 @@ sub inc_pause
 	my $height = $top->height;
 	$pause_w = $tetris->add('text',$pause_group,
 				   -text => "PAUSE MODE :\n Type p to continue\n
-\n\n\nHELP : \n\n- 'p' toggle pause\n\n- 'q' or 'F2' to quit game\n\n- Arrow keys to move blocks\n\n- 'n' to start a new game\n\n  ",
+\n\n\nHELP : \n\n- 'p' toggle pause\n\n- Arrow keys to move blocks\n\n- 'n' to start a new game\n\n  ",
 				   -font => $basefont->($fontheight),
 				   -position => [30,50],
 				   -anchor => 'nw',
@@ -632,6 +632,7 @@ sub stop_and_new_game {
     new_game(),
   }
 
+## no more used, because it quits zinc-demos
 sub quit_game {
 
     print "Bye!\n";
-- 
cgit v1.1