diff options
| -rw-r--r-- | tcl_class.cxx | 7 | ||||
| -rw-r--r-- | tcl_extras.h | 1 |
2 files changed, 7 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) { diff --git a/tcl_extras.h b/tcl_extras.h index 3fb3bf7..9c5ee84 100644 --- a/tcl_extras.h +++ b/tcl_extras.h @@ -60,6 +60,7 @@ t_tcl* tclpd_new(t_symbol* classsym, int ac, t_atom* at); void tclpd_free (t_tcl* self); void tclpd_anything(t_tcl* self, t_symbol* s, int ac, t_atom* at); void tclpd_inlet_anything(t_tcl *self, int inlet, t_symbol *s, int ac, t_atom *at); +void tclpd_loadbang(t_tcl* x); t_proxyinlet* tclpd_add_proxyinlet(t_tcl* x); t_tcl* tclpd_get_instance(const char* objectSequentialId); t_pd* tclpd_get_instance_pd(const char* objectSequentialId); |