diff options
author | lecoanet | 2004-05-10 15:54:34 +0000 |
---|---|---|
committer | lecoanet | 2004-05-10 15:54:34 +0000 |
commit | e777c67121cbfa8b0c385a9a489b0c95bd13d18a (patch) | |
tree | 45accfb9398ee2852337372e66c54865dd48ba39 | |
parent | fad230827c3293da9fb99540e88d50b990abc8c9 (diff) | |
download | tkzinc-e777c67121cbfa8b0c385a9a489b0c95bd13d18a.zip tkzinc-e777c67121cbfa8b0c385a9a489b0c95bd13d18a.tar.gz tkzinc-e777c67121cbfa8b0c385a9a489b0c95bd13d18a.tar.bz2 tkzinc-e777c67121cbfa8b0c385a9a489b0c95bd13d18a.tar.xz |
Fixed a typo in variable naming
-rw-r--r-- | demos/groupsInAtcStrips.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/groupsInAtcStrips.tcl b/demos/groupsInAtcStrips.tcl index 87e140c..5092ae0 100644 --- a/demos/groupsInAtcStrips.tcl +++ b/demos/groupsInAtcStrips.tcl @@ -784,7 +784,7 @@ namespace eval groupsInAtcStrips { # button Up if { $funcUp != 0 } { $w.zinc itemconfigure "btnup$index" -visible 1 - $w.zinc bind "btnup$index" <1> $::groupsInAtcStrips::funcUp + $w.zinc bind "btnup$index" <1> ::groupsInAtcStrips::$funcUp } { $w.zinc itemconfigure "btnup$index" -visible 0 } @@ -792,7 +792,7 @@ namespace eval groupsInAtcStrips { # button Down if { $funcDown != 0 } { $w.zinc itemconfigure "btndn$index" -visible 1 - $w.zinc bind "btndn$index" <1> $::groupsInAtcStrips::funcDown + $w.zinc bind "btndn$index" <1> ::groupsInAtcStrips::$funcDown } { $w.zinc itemconfigure "btndn$index" -visible 0 } |