diff options
author | lecoanet | 2001-03-23 15:28:30 +0000 |
---|---|---|
committer | lecoanet | 2001-03-23 15:28:30 +0000 |
commit | 13aa88a3f2d12b0c94886c33e717f252b6031c82 (patch) | |
tree | e33f0df2ffae9c0548253bbf9043ceb93a0bee6e /sandbox/testzinc.pl | |
parent | 07ae6c776c1a905efd6eef7d41f18a7cf92a4a3d (diff) | |
download | tkzinc-13aa88a3f2d12b0c94886c33e717f252b6031c82.zip tkzinc-13aa88a3f2d12b0c94886c33e717f252b6031c82.tar.gz tkzinc-13aa88a3f2d12b0c94886c33e717f252b6031c82.tar.bz2 tkzinc-13aa88a3f2d12b0c94886c33e717f252b6031c82.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/testzinc.pl')
-rw-r--r-- | sandbox/testzinc.pl | 19 |
1 files changed, 14 insertions, 5 deletions
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) = @_; |