diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/Zetris.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/Zetris.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl index f6c9df0..565c173 100644 --- a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl +++ b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl @@ -4,7 +4,7 @@ # # Zetris - A Zinc Toy-Appli based on cool TkTetris from Slaven Rezic # -# $Id$ +# $Id: Zetris.pl 1277 2003-11-28 09:43:10Z mertz $ # # Copyright (C) 2002 Centre d'Etudes de la Navigation Aérienne # Author: Marcellin Buisson <buisson@cena.fr> @@ -75,7 +75,7 @@ use Getopt::Long; use vars qw($VERSION); -$VERSION = sprintf("%d.%00d", q$Revision$ =~ /(\d+)\.(\d+)/); +$VERSION = sprintf("%d.%00d", q$Revision: 1277 $ =~ /(\d+)\.(\d+)/); my $max_size = 4; my $nmbr_blks = 7; @@ -369,6 +369,7 @@ sub resize_calc sub make_key_bindings { my $top = shift; + $top->bind('<Enter>' => sub { $top->focus }); # $top->bind('<Escape>' => \&quit_game); # $top->bind('<q>' => \&quit_game); # $top->bind('<Control-c>' => \&quit_game); |