pass inlet number around instead of binding it to the selector - this time for real

svn path=/trunk/externals/tclpd/; revision=12173

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