From ca217c467bbedda643bd2c49455aaa3826d2f934 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 30 Mar 2001 12:19:59 +0000
Subject: *** empty log message ***

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

(limited to 'sandbox')

diff --git a/sandbox/testzinc.pl b/sandbox/testzinc.pl
index 4d0a6f7..1e4bf90 100644
--- a/sandbox/testzinc.pl
+++ b/sandbox/testzinc.pl
@@ -160,10 +160,10 @@ sub create_tracks {
 			     -filled => 0,
 			     -backcolor => 'gray65',
 			     -text => "Balise");
-	my $b_on = sub { print_current($zinc);
+	my $b_on = sub { #print_current($zinc);
 			 $zinc->itemconfigure('current', $zinc->currentpart(),
 					      -border => 'contour')};
-	my $b_off = sub { print_current($zinc);
+	my $b_off = sub { #print_current($zinc);
 			  $zinc->itemconfigure('current', $zinc->currentpart(),
 					       -border => 'noborder')};
 	my $tog_b = sub { my $current = $zinc->find('withtag', 'current');
@@ -181,7 +181,7 @@ sub create_tracks {
             $zinc->bind($item, '<Shift-1>', sub {});
         }
 	$zinc->bind($item, '<Enter>',
-		    sub {print_current($zinc);
+		    sub { #print_current($zinc);
 			 $zinc->itemconfigure('current',
 					      -historycolor => 'red',
 					      -symbolcolor => 'red',
@@ -191,7 +191,7 @@ sub create_tracks {
 					      -speedvectorwidth => 2,
 					      -speedvectorcolor => 'red')});
         $zinc->bind($item, '<Leave>',
-                    sub {print_current($zinc);
+                    sub { #print_current($zinc);
 			 $zinc->itemconfigure('current',
 					      -historycolor => 'black',
 					      -symbolcolor => 'black',
@@ -210,7 +210,17 @@ create_tracks();
 
 sub print_current {
     my ($zinc) = @_;
-    print join(' ', $zinc->find('withtag', 'current')), "\n";
+    my $current;
+
+    $current = $zinc->find('withtag', 'current');
+    print join(' ', $current), "\n";
+#    print ref($zinc->itemcget($current, -position)) ? 'ref' : 'pas ref', "\n";
+#    print 'tout ';
+#    for $attr ($zinc->itemconfigure($current)) {
+#	print (join(',', @$attr));
+#    }
+#    print "\n\n";
+#    print '-position ', join(',', $zinc->itemconfigure($current, -position)), "\n\n";
 }
 
 ###################################################
-- 
cgit v1.1