From f8444e7394237833706a89daf140b69376ee6095 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Tue, 1 Sep 2009 21:02:11 +0000
Subject: pass inlet number around instead of binding it to the selector - this
 time for real

svn path=/trunk/externals/tclpd/; revision=12173
---
 pdlib.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pdlib.tcl')

diff --git a/pdlib.tcl b/pdlib.tcl
index 0a22957..c20f822 100644
--- a/pdlib.tcl
+++ b/pdlib.tcl
@@ -110,7 +110,7 @@ namespace eval ::pd {
         # class level dispatcher (sort of class constructor)
         proc ::$classname {self args} "
             if \$::verbose {::pd::post \[info level 0\]}
-            ::pd::call_classmethod $classname \$self 0 constructor {*}\$args
+            ::${classname}_constructor \$self {*}\$args
             # object dispatcher
             proc ::\$self {inlet selector args} \"
              if \\\$::verbose {::pd::post \\\[info level 0\\\]}
-- 
cgit v1.2.1