diff options
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) = @_; |