diff options
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'); |