diff options
-rw-r--r-- | debian/changelog | 11 | ||||
-rw-r--r-- | patchlvl.h | 4 | ||||
-rw-r--r-- | sandbox/testzinc.pl | 19 |
3 files changed, 27 insertions, 7 deletions
diff --git a/debian/changelog b/debian/changelog index 945532c..5a61f94 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,14 @@ +zinc-tk (3.1.25) unstable; urgency=low + + * Retour arrière sur le traitement du grab lors d'un buttonpress. + + * Correction du bug bloquant l'appel des callbacks d'enter lors du + dans l'item de grab (buttonpress actif). + + * Correction de doc. + + -- Patrick Lecoanet <lecoanet@cena.dgac.fr> Tue, 20 Mar 2001 10:49:46 +0100 + zinc-tk (3.1.24) unstable; urgency=low * Un début de scripts de démo en Perl. @@ -11,6 +11,6 @@ #ifndef ZINCVERSION #define ZINCVER 3 #define ZINCREV 1 -#define ZINCPLVL 24 -#define ZINCVERSION "zinc-version-3124" +#define ZINCPLVL 25 +#define ZINCVERSION "zinc-version-3125" #endif 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) = @_; |