From 13aa88a3f2d12b0c94886c33e717f252b6031c82 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 23 Mar 2001 15:28:30 +0000
Subject: *** empty log message ***

---
 sandbox/testzinc.pl | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/testzinc.pl b/sandbox/testzinc.pl
index 3d0b1c1..4d0a6f7 100644
--- a/sandbox/testzinc.pl
+++ b/sandbox/testzinc.pl
@@ -160,9 +160,11 @@ sub create_tracks {
 			     -filled => 0,
 			     -backcolor => 'gray65',
 			     -text => "Balise");
-	my $b_on = sub { $zinc->itemconfigure('current', $zinc->currentpart(),
+	my $b_on = sub { print_current($zinc);
+			 $zinc->itemconfigure('current', $zinc->currentpart(),
 					      -border => 'contour')};
-	my $b_off = sub { $zinc->itemconfigure('current', $zinc->currentpart(),
+	my $b_off = sub { print_current($zinc);
+			  $zinc->itemconfigure('current', $zinc->currentpart(),
 					       -border => 'noborder')};
 	my $tog_b = sub { my $current = $zinc->find('withtag', 'current');
 			  my $curpart = $zinc->currentpart();
@@ -179,7 +181,8 @@ sub create_tracks {
             $zinc->bind($item, '<Shift-1>', sub {});
         }
 	$zinc->bind($item, '<Enter>',
-		    sub {$zinc->itemconfigure('current',
+		    sub {print_current($zinc);
+			 $zinc->itemconfigure('current',
 					      -historycolor => 'red',
 					      -symbolcolor => 'red',
 					      -markercolor => 'red',
@@ -188,7 +191,8 @@ sub create_tracks {
 					      -speedvectorwidth => 2,
 					      -speedvectorcolor => 'red')});
         $zinc->bind($item, '<Leave>',
-                    sub {$zinc->itemconfigure('current',
+                    sub {print_current($zinc);
+			 $zinc->itemconfigure('current',
 					      -historycolor => 'black',
 					      -symbolcolor => 'black',
 					      -markercolor => 'black',
@@ -204,6 +208,11 @@ sub create_tracks {
 
 create_tracks();
 
+sub print_current {
+    my ($zinc) = @_;
+    print join(' ', $zinc->find('withtag', 'current')), "\n";
+}
+
 ###################################################
 # creation way point
 ###################################################
@@ -427,7 +436,7 @@ new Controls($zinc);
 ###################################################
 # Rafraichissement des pistes
 ###################################################
-$zinc->repeat($delay, [\&refresh, $zinc]);
+#$zinc->repeat($delay, [\&refresh, $zinc]);
 
 sub refresh {
     my ($zinc) = @_;
-- 
cgit v1.1