From e777c67121cbfa8b0c385a9a489b0c95bd13d18a Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 10 May 2004 15:54:34 +0000
Subject: Fixed a typo in variable naming

---
 demos/groupsInAtcStrips.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'demos')

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
 	}
-- 
cgit v1.1