[PD-cvs] externals/miXed/shared/common port.c,1.5,1.6

krzyszcz at users.sourceforge.net krzyszcz at users.sourceforge.net
Wed Feb 25 11:54:44 CET 2004


Update of /cvsroot/pure-data/externals/miXed/shared/common
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21748/shared/common

Modified Files:
	port.c 
Log Message:
widget tracing backward compatible to tcl8.3

Index: port.c
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/shared/common/port.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** port.c	19 Sep 2003 12:19:32 -0000	1.5
--- port.c	25 Feb 2004 10:54:42 -0000	1.6
***************
*** 163,170 ****
  {
      int ndx = (x->x_inmess[1].a_w.w_symbol == gensym("user") ? 3 : 2);
!     if (x->x_inatoms > 6)
      {
! 	t_atom *in = x->x_inmess + 7;
! 	t_atom *out = x->x_outmess;
  	SETSYMBOL(out, gensym("#X")); out++;
  	SETSYMBOL(out, gensym("obj")); out++;
--- 163,171 ----
  {
      int ndx = (x->x_inmess[1].a_w.w_symbol == gensym("user") ? 3 : 2);
!     if (x->x_inatoms > 6
! 	|| (ndx == 3 && x->x_inatoms > 4))
      {
! 	int nextra;
! 	t_atom *in, *out = x->x_outmess;
  	SETSYMBOL(out, gensym("#X")); out++;
  	SETSYMBOL(out, gensym("obj")); out++;
***************
*** 173,180 ****
  	import_addclassname(x, name, &x->x_inmess[ndx == 2 ? 6 : 2]);
  	out = x->x_outmess;
! 	for (ndx = 7; ndx < x->x_inatoms; ndx++)
  	    *out++ = *in++;
  	SETSEMI(out);
! 	binbuf_add(x->x_newbb, x->x_inatoms - 6, x->x_outmess);
  	x->x_nobj++;
  	return (PORT_NEXT);
--- 174,182 ----
  	import_addclassname(x, name, &x->x_inmess[ndx == 2 ? 6 : 2]);
  	out = x->x_outmess;
! 	for (ndx = 7, nextra = 1, in = x->x_inmess + 7;
! 	     ndx < x->x_inatoms; ndx++, nextra++)
  	    *out++ = *in++;
  	SETSEMI(out);
! 	binbuf_add(x->x_newbb, nextra, x->x_outmess);
  	x->x_nobj++;
  	return (PORT_NEXT);





More information about the Pd-cvs mailing list