diff options
| author | lecoanet | 2000-06-21 13:50:05 +0000 |
|---|---|---|
| committer | lecoanet | 2000-06-21 13:50:05 +0000 |
| commit | 63cac955e941894fe2e705db1bb98bfbc786a8a5 (patch) | |
| tree | 61c603334c679c6c15aaba2150d0632e83360750 /sandbox/testzinc.pl | |
| parent | a3f8b8bf667fbd6d7ea9e74e26c4e561b02ddafc (diff) | |
| download | tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.zip tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.gz tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.bz2 tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox/testzinc.pl')
| -rw-r--r-- | sandbox/testzinc.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/sandbox/testzinc.pl b/sandbox/testzinc.pl index 37dc558..8c318e3 100644 --- a/sandbox/testzinc.pl +++ b/sandbox/testzinc.pl @@ -113,7 +113,7 @@ $zinc->itemconfigure($wp, $zinc->itemconfigure($wp, 0 ,-filled => 1 ,-backcolor => "tan",-text => "TO"); $zinc->itemconfigure($wp, 1 ,-filled => 1 ,-backcolor => "wheat",-text => "TO"); $zinc->itemconfigure($wp, 2 ,-border => "contour"); -$zinc->bind($wp, "<Enter>", [ \&borders, "on"]); +$zinc->bind($wp, "<Enter>", \&borders); $zinc->bind($wp, "<Leave>", [ \&borders, "off"]); ################################################### @@ -230,6 +230,7 @@ MainLoop; sub borders { my($widget, $onoff) = @_; + $onoff = "on" unless $onoff; my $part = $zinc->currentpart; my $contour = "noborder"; $contour = "contour" if ($onoff eq 'on'); |