diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/usedamage.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/usedamage.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/usedamage.pl b/Perl/demos/Tk/demos/zinc_lib/usedamage.pl index 2ad1496..c4ffa61 100644 --- a/Perl/demos/Tk/demos/zinc_lib/usedamage.pl +++ b/Perl/demos/Tk/demos/zinc_lib/usedamage.pl @@ -2,12 +2,12 @@ # # Use damage test # -# $Id$ +# $Id: usedamage.pl 1901 2008-01-23 16:57:52Z lemort $ # this simple test has been developped by A.Lemort lemort@intuilab.com use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1901 $ =~ /(\d+)\.(\d+)/); use strict; use Tk; @@ -77,17 +77,17 @@ $zinc->bind($circle, '<B1-Motion>', [\&motion, Ev('x'), Ev('y')]); # Add bindings to change the value of usedamage $mw->bind('<KeyPress-0>', sub { # No optimization - $zinc->configure(-usedamage => 0); + $zinc->configure(-usedamage => 0); $zinc->itemconfigure($label, -text => 'usedamage=0: Without OpenGL optimization'); }); $mw->bind('<KeyPress-1>', sub { # OpenGL optimization (best with Nvidia - $zinc->configure(-usedamage => 1); + $zinc->configure(-usedamage => 1); $zinc->itemconfigure($label, -text => 'usedamage=1: With OpenGL optimization (better performance but works only with Nvidia cards)'); }); $mw->bind('<KeyPress-2>', sub { # OpenGL optimization (best with Nvidia - $zinc->configure(-usedamage => 2); + $zinc->configure(-usedamage => 2); $zinc->itemconfigure($label, -text => 'usedamage=2: With OpenGL optimization (a bit slower but much better compatibility)'); }); @@ -102,7 +102,7 @@ my $delta = 550/$N; my $commandFrame = $mw->Frame()->pack(-expand => 1, -fill => 'both'); my $commandFrameTitle = $commandFrame->LabFrame( - -label => 'Automatic benchmark: trasnlate our circle from top-left to bottom-right ('.$N.' steps)', + -label => 'Automatic benchmark: translate our circle from top-left to bottom-right ('.$N.' steps)', )->pack( -side => 'bottom', -fill => 'both', |