diff options
| author | lecoanet | 2000-08-31 12:10:04 +0000 |
|---|---|---|
| committer | lecoanet | 2000-08-31 12:10:04 +0000 |
| commit | 7f0a88dddb948404b2a29f5fd5ffe3e243c1ca26 (patch) | |
| tree | 59f156471f5158ff5a2d557210417ee31418df95 /sandbox/testzinc.pl | |
| parent | 5ebfe37da09d852e0ec8fccf71081209c0ccc590 (diff) | |
| download | tkzinc-7f0a88dddb948404b2a29f5fd5ffe3e243c1ca26.zip tkzinc-7f0a88dddb948404b2a29f5fd5ffe3e243c1ca26.tar.gz tkzinc-7f0a88dddb948404b2a29f5fd5ffe3e243c1ca26.tar.bz2 tkzinc-7f0a88dddb948404b2a29f5fd5ffe3e243c1ca26.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox/testzinc.pl')
| -rw-r--r-- | sandbox/testzinc.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sandbox/testzinc.pl b/sandbox/testzinc.pl index 8c318e3..fa031f3 100644 --- a/sandbox/testzinc.pl +++ b/sandbox/testzinc.pl @@ -94,9 +94,9 @@ $zinc->itemconfigure($track, 2, -image => $logo , -alignment => "center"); $zinc->itemconfigure($track, 0, -reliefthickness => 2, -relief => "sunken", -bordercolor => "red", -border => "noborder"); -$zinc->bind($track.":-3", "<Enter>", +$zinc->bind($track.":speedvector", "<Enter>", sub {$zinc->itemconfigure($track, -speedvectorcolor => 'red')}); -$zinc->bind($track.":-3", "<Leave>", +$zinc->bind($track.":speedvector", "<Leave>", sub {$zinc->itemconfigure($track, -speedvectorcolor => 'black')}); |