From adb7dc9f4414e23bad1815fe592f74cfe7ff956e Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Wed, 12 Oct 2011 10:13:10 +0000
Subject: some fixes

svn path=/trunk/externals/loaders/tclpd/; revision=15573
---
 pdlib.tcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'pdlib.tcl')

diff --git a/pdlib.tcl b/pdlib.tcl
index b50479b..f490289 100644
--- a/pdlib.tcl
+++ b/pdlib.tcl
@@ -84,7 +84,10 @@ namespace eval ::pd {
         if {[llength [info commands $m_any]] > 0} {
             return [$m_any $self [list symbol $sel] {*}$args]
         }
-        post "Tcl class $classname: inlet $inlet: no such method: $sel"
+	# don't notify if a loadbang method does not exists
+	if {$sel != "loadbang"} {
+		post "Tcl class $classname: inlet $inlet: no such method: $sel"
+	}
     }
 
     proc read_class_definition {classname def} {
-- 
cgit v1.2.1