diff options
author | mertz | 2003-01-22 17:16:27 +0000 |
---|---|---|
committer | mertz | 2003-01-22 17:16:27 +0000 |
commit | 66cd030643d6c7853f2c959a4560daa13a167ef1 (patch) | |
tree | 297588553a7290da67ddf053a0329055f2153ebb | |
parent | c787242598fc9905cc905b2519ddd3920277fb4d (diff) | |
download | tkzinc-66cd030643d6c7853f2c959a4560daa13a167ef1.zip tkzinc-66cd030643d6c7853f2c959a4560daa13a167ef1.tar.gz tkzinc-66cd030643d6c7853f2c959a4560daa13a167ef1.tar.bz2 tkzinc-66cd030643d6c7853f2c959a4560daa13a167ef1.tar.xz |
suppression de la sortie par 'esc', 'ctrl-c' et 'q' pour �viter
de sortir de zinc-demos
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/Zetris.pl | 9 |
1 files 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"; |