implemented all widgetbehavior functions (Tcl wrappers)

svn path=/trunk/externals/tclpd/; revision=12177

1 files changed, 3 insertions, 3 deletions

diff --git a/pdlib.tcl b/pdlib.tcl
index c20f822..82f8133 100644
--- a/pdlib.tcl
+++ b/pdlib.tcl
@@ -62,7 +62,7 @@ namespace eval ::pd {
         }
     }
 
-    # add a class method (that is: a proc named <class>_<sel>)
+    # used internally (from dispatcher) to call a class method
     proc call_classmethod {classname self inlet sel args} {
         if $::verbose {post [info level 0]}
         set m_sel "::${classname}_${inlet}_${sel}"
@@ -71,9 +71,9 @@ namespace eval ::pd {
         }
         set m_any "::${classname}_${inlet}_anything"
         if {[llength [info commands $m_any]] > 0} {
-            return [$m_any $self $sel {*}$args]
+            return [$m_any $self [list symbol $sel] {*}$args]
         }
-        post "class $classname: inlet $inlet: no such selector: $sel"
+        post "Tcl class $classname: inlet $inlet: no such method: $sel"
     }
 
     # this handles the pd::class definition