From 964ccc647e67d21c223365d69dd6bebb691679a0 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Wed, 2 Sep 2009 00:12:26 +0000
Subject: implemented all widgetbehavior functions (Tcl wrappers)

svn path=/trunk/externals/tclpd/; revision=12177
---
 pdlib.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'pdlib.tcl')

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
-- 
cgit v1.2.1