diff options
| author | lecoanet | 2001-03-30 12:19:59 +0000 |
|---|---|---|
| committer | lecoanet | 2001-03-30 12:19:59 +0000 |
| commit | ca217c467bbedda643bd2c49455aaa3826d2f934 (patch) | |
| tree | 9df54c2ca9d95849e04de4341d01d90201cb14ad /sandbox | |
| parent | 96295926362f1aa093d138ef25cef3505551e4fe (diff) | |
| download | tkzinc-ca217c467bbedda643bd2c49455aaa3826d2f934.zip tkzinc-ca217c467bbedda643bd2c49455aaa3826d2f934.tar.gz tkzinc-ca217c467bbedda643bd2c49455aaa3826d2f934.tar.bz2 tkzinc-ca217c467bbedda643bd2c49455aaa3826d2f934.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox')
| -rw-r--r-- | sandbox/testzinc.pl | 20 |
1 files changed, 15 insertions, 5 deletions
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"; } ################################################### |