diff options
Diffstat (limited to 'tcl_class.cxx')
| -rw-r--r-- | tcl_class.cxx | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tcl_class.cxx b/tcl_class.cxx index 81d5c98..16c7564 100644 --- a/tcl_class.cxx +++ b/tcl_class.cxx @@ -16,7 +16,8 @@ t_class* tclpd_class_new(const char* name, int flags) { class_table[string(name)] = c; class_addanything(c, tclpd_anything); - + class_addmethod(c, (t_method)tclpd_loadbang, gensym("loadbang"), A_NULL); + // always set save function. it will call the default if // none exists in tcl space. class_setsavefn(c, tclpd_save); @@ -188,6 +189,10 @@ error: return; } +void tclpd_loadbang(t_tcl* x) { + tclpd_inlet_anything(x, 0, gensym("loadbang"), 0, NULL); +} + /* Tcl glue: */ t_proxyinlet* tclpd_add_proxyinlet(t_tcl* x) { |