aboutsummaryrefslogtreecommitdiff
path: root/pdlib.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'pdlib.tcl')
-rw-r--r--pdlib.tcl5
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} {