some fixes

svn path=/trunk/externals/loaders/tclpd/; revision=15573

1 files changed, 4 insertions, 1 deletions

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} {