Changeset 1506 for trunk/gui/scripts/dispatcher.tcl

Timestamp:

Jun 10, 2009, 2:40:56 PM (15 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/dispatcher.tcl (modified) (1 diff)

trunk/gui/scripts/dispatcher.tcl

@@ -232 +232 @@
     foreach event $args {
         if {![info exists _event2clients($event)]} {
-            error "bad event \"$str\": should be [join [lsort [array names _event2clients]] {, }]"
+            error "bad event \"$event\": should be [join [lsort [array names _event2clients]] {, }]"
         }
         after cancel [itcl::code $this _send $event all @extra]