diff options
| -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 } |