[PD-cvs] SF.net SVN: pure-data:[10177] branches/pd-extended/v0-40/externals/bbogart/ entry/entry.c

eighthave at users.sourceforge.net eighthave at users.sourceforge.net
Fri Jul 18 21:33:22 CEST 2008


Revision: 10177
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10177&view=rev
Author:   eighthave
Date:     2008-07-18 19:33:21 +0000 (Fri, 18 Jul 2008)

Log Message:
-----------
removed extraneous post()s and fixed entry_append() so it works, it was trying to add text to the canvas rather than the text widget

Modified Paths:
--------------
    branches/pd-extended/v0-40/externals/bbogart/entry/entry.c

Modified: branches/pd-extended/v0-40/externals/bbogart/entry/entry.c
===================================================================
--- branches/pd-extended/v0-40/externals/bbogart/entry/entry.c	2008-07-18 18:34:58 UTC (rev 10176)
+++ branches/pd-extended/v0-40/externals/bbogart/entry/entry.c	2008-07-18 19:33:21 UTC (rev 10177)
@@ -49,6 +49,7 @@
 #define TOTAL_OUTLETS           2
 
 #define DEBUG(x)
+//#define DEBUG(x) x
 
 typedef struct _entry
 {
@@ -148,7 +149,6 @@
     sprintf(buf,"%s.window%lx", x->canvas_id, (long unsigned int)x);
     x->window_tag = getbytes(strlen(buf));
     strcpy(x->window_tag, buf);    /* Tk ID for the resizing "window" */
-    post("");
 
     sprintf(buf,"%s.handle%lx", x->canvas_id, (long unsigned int)x);
     x->handle_id = getbytes(strlen(buf));
@@ -166,7 +166,7 @@
 static int calculate_onset(t_entry *x, t_glist *glist, 
                            int current_iolet, int total_iolets)
 {
-    post("calculate_onset");
+    DEBUG(post("calculate_onset"););
     return(text_xpix(&x->x_obj, glist) + (x->x_width - IOWIDTH)    \
            * current_iolet / (total_iolets == 1 ? 1 : total_iolets - 1));
 }
@@ -476,7 +476,7 @@
     }
     sys_vgui("append ::%s::list \" \"\n", x->tcl_namespace);
     sys_vgui("%s insert end $::%s::list ; unset ::%s::list \n", 
-               x->canvas_id, x->tcl_namespace, x->tcl_namespace );
+               x->text_id, x->tcl_namespace, x->tcl_namespace );
     sys_vgui("%s yview end-2char \n", x->text_id );
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.




More information about the Pd-cvs mailing list