aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/Zetris.pl9
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";