diff options
Diffstat (limited to 'Perl')
| -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"; |