Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5831

Modified Files: Tag: devel_0_39 desire.c Log Message: .

Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.138 retrieving revision 1.1.2.139 diff -C2 -d -r1.1.2.138 -r1.1.2.139 *** desire.c 2 Sep 2006 18:00:43 -0000 1.1.2.138 --- desire.c 2 Sep 2006 19:00:37 -0000 1.1.2.139 *************** *** 488,493 **** its parent will be a "text" object in another window... we don't know which yet. */ ! t_canvas *canvas_new(void *dummy, t_symbol *sel, int argc, t_atom *argv) ! { t_canvas *x = (t_canvas *)pd_new(canvas_class); t_canvas *owner = canvas_getcurrent(); --- 488,492 ---- its parent will be a "text" object in another window... we don't know which yet. */ ! t_canvas *canvas_new(void *dummy, t_symbol *sel, int argc, t_atom *argv) { [...5137 lines suppressed...] ! /* try to reduce size by dropping decimal digits */ int wantreduce = bufsize - text->te_width; ! char *decimal = 0, *nextchar, *ebuf = x->x_buf + bufsize, ! *s1, *s2; ! for (decimal = x->x_buf; decimal < ebuf; decimal++) ! if (*decimal == '.') break; ! if (decimal >= ebuf) ! goto giveup; for (nextchar = decimal + 1; nextchar < ebuf; nextchar++) if (*nextchar < '0' || *nextchar > '9') break; --- 9205,9213 ---- int bufsize = x->x_bufsize; if (natom == 1 && atomp->a_type == A_FLOAT) { ! /* try to reduce size by dropping decimal digits */ int wantreduce = bufsize - text->te_width; ! char *decimal = 0, *nextchar, *ebuf = x->x_buf + bufsize, *s1, *s2; ! for (decimal = x->x_buf; decimal < ebuf; decimal++) if (*decimal == '.') break; ! if (decimal >= ebuf) goto giveup; for (nextchar = decimal + 1; nextchar < ebuf; nextchar++) if (*nextchar < '0' || *nextchar > '9') break;