diff options
author | mescalinum <mescalinum@users.sourceforge.net> | 2009-09-01 21:02:11 +0000 |
---|---|---|
committer | mescalinum <mescalinum@users.sourceforge.net> | 2009-09-01 21:02:11 +0000 |
commit | f8444e7394237833706a89daf140b69376ee6095 (patch) | |
tree | 19cdbf9acd35c4a388012e7c71258b91d3ed8823 /tcl_class.cxx | |
parent | 2f5abe3d9fdc42d3b2f2d50c1d7621487348ac10 (diff) |
pass inlet number around instead of binding it to the selector - this time for real
svn path=/trunk/externals/tclpd/; revision=12173
Diffstat (limited to 'tcl_class.cxx')
-rw-r--r-- | tcl_class.cxx | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tcl_class.cxx b/tcl_class.cxx index fb7131e..d5e9b77 100644 --- a/tcl_class.cxx +++ b/tcl_class.cxx @@ -5,7 +5,7 @@ using namespace std; -static long objectSequentialId = 0; +static unsigned long objectSequentialId = 0; map<string,t_class*> class_table; map<string,t_pd*> object_table; @@ -29,6 +29,7 @@ t_class* tclpd_guiclass_new(const char* name, int flags) { wb->w_visfn = tclpd_guiclass_vis; wb->w_clickfn = tclpd_guiclass_click; class_setwidget(c, wb); + return c; } t_tcl* tclpd_new(t_symbol* classsym, int ac, t_atom* at) { @@ -37,7 +38,7 @@ t_tcl* tclpd_new(t_symbol* classsym, int ac, t_atom* at) { t_tcl* self = (t_tcl*)pd_new(qlass); self->ninlets = 1 /* qlass->c_firstin ??? */; char s[32]; - sprintf(s, "tclpd:%s:x%x", name, objectSequentialId++); + sprintf(s, "tclpd:%s:x%lx", name, objectSequentialId++); self->self = Tcl_NewStringObj(s, -1); Tcl_IncrRefCount(self->self); object_table[string(s)] = (t_pd*)self; @@ -139,4 +140,5 @@ void tclpd_guiclass_vis(t_gobj* z, t_glist* glist, int vis) { } int tclpd_guiclass_click(t_gobj* z, t_glist* glist, int xpix, int ypix, int shift, int alt, int dbl, int doit) { + return 0; } |