1 files changed, 9 insertions, 9 deletions

diff --git a/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl b/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl
index e7f872d..968bd01 100644
--- a/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: groups_priority.pl 1156 2003-09-15 12:25:06Z mertz $
 # This simple demo has been developped by C. Mertz <mertz@cena.fr>
 
 package groups_priority;  # for avoiding symbol sharing between different demos
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
@@ -141,13 +141,13 @@ sub updateLabel {
     my ($group) = @_;
     my $priority = $zinc->itemcget($group, -priority);
     # we get the text item from this group:
-    my $textitem = $zinc->find('withtype', 'text', ".$group.");
+    my ($textitem) = $zinc->find('withtype', 'text', ".$group.");
     $zinc->itemconfigure($textitem, -text => "pri=$priority");
 }
 
 sub setPriorrity {
     my ($zinc, $priority) = @_;
-    my $item = $zinc->find('withtag', 'current');
+    my ($item) = $zinc->find('withtag', 'current');
     return unless $item;
     $zinc->itemconfigure ($item, -priority => $priority);
     &updateLabel($item);
@@ -158,7 +158,7 @@ sub setPriorrity {
 sub lower {
     my ($zinc) = @_;
     # to get the item under the cursor!
-    my $item = $zinc->find('withtag', 'current');
+    my ($item) = $zinc->find('withtag', 'current');
     return unless $item;
     $zinc->lower($item);
     &updateLabel($item);
@@ -168,7 +168,7 @@ sub lower {
 sub raise {
     my ($zinc) = @_;
     # to get the item under the cursor!
-    my $item = $zinc->find('withtag', 'current');
+    my ($item) = $zinc->find('withtag', 'current');
     return unless $item;
     $zinc->raise($item);
     &updateLabel($item);
@@ -178,7 +178,7 @@ sub raise {
 sub lowerGroup {
     my ($zinc) = @_;
     # to get the item under the cursor!
-    my $item = $zinc->find('withtag', 'current');
+    my ($item) = $zinc->find('withtag', 'current');
     return unless $item;
     my $coloredGroup = $zinc->group($item);
     $zinc->lower($coloredGroup);
@@ -188,7 +188,7 @@ sub lowerGroup {
 sub raiseGroup {
     my ($zinc) = @_;
     # to get the item under the cursor!
-    my $item = $zinc->find('withtag', 'current');
+    my ($item) = $zinc->find('withtag', 'current');
     return unless $item;
     my $coloredGroup = $zinc->group($item);
     $zinc->raise($coloredGroup);
@@ -199,7 +199,7 @@ sub raiseGroup {
 sub toggleItemGroup {
     my ($zinc) = @_;
     # to get the item under the cursor!
-    my $item = $zinc->find('withtag', 'current');
+    my ($item) = $zinc->find('withtag', 'current');
     return unless $item;
     my $newgroup;
     if ($group1 == $zinc->group($item)) {