[PD-cvs] pd/src desire.c, 1.1.2.217.2.51, 1.1.2.217.2.52 desire.tk, 1.1.2.600.2.48, 1.1.2.600.2.49

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.c desire.tk 
Log Message:
removed those exclamation marks that were used to make hex pointers never look like valid floats


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.48
retrieving revision 1.1.2.600.2.49
diff -C2 -d -r1.1.2.600.2.48 -r1.1.2.600.2.49
*** desire.tk	8 Dec 2006 23:41:32 -0000	1.1.2.600.2.48
--- desire.tk	9 Dec 2006 03:04:08 -0000	1.1.2.600.2.49
***************
*** 2201,2205 ****
  	set l {}
  	foreach char [split $@text ""] {lappend l [scan $char %c]}
! 	netsend [list .$@canvas text_setto !$self $l] [list $@canvas new_object_callback]
  	$self changed
  	if {[$@canvas action] == "insert"} {
--- 2201,2205 ----
  	set l {}
  	foreach char [split $@text ""] {lappend l [scan $char %c]}
! 	netsend [list .$@canvas text_setto $self $l] [list $@canvas new_object_callback]
  	$self changed
  	if {[$@canvas action] == "insert"} {
***************
*** 2364,2368 ****
  		$@history add [list $self ins $i [$o deconstruct]]
  	}
! 	netsend [list .$self object_delete !$o]
  }
  
--- 2364,2368 ----
  		$@history add [list $self ins $i [$o deconstruct]]
  	}
! 	netsend [list .$self object_delete $o]
  }
  
***************
*** 3705,3709 ****
  		$child position= [list $x1 $y1]
  		$child changed
! 		pd .$self object_moveto !$child $x1 $y1
  	}
  	foreach child $children {$child changed_wires}
--- 3705,3709 ----
  		$child position= [list $x1 $y1]
  		$child changed
! 		pd .$self object_moveto $child $x1 $y1
  	}
  	foreach child $children {$child changed_wires}
***************
*** 4012,4016 ****
  # View xy is virtual (for GOP)
  def Box moveto {x1 y1} {
! 	netsend [list .$@canvas object_moveto !$self $x1 $y1]
  	[$@canvas history] add [list $self moveto $@x1 $@y1]
  	if {[$self class] == "Canvas"} {
--- 4012,4016 ----
  # View xy is virtual (for GOP)
  def Box moveto {x1 y1} {
! 	netsend [list .$@canvas object_moveto $self $x1 $y1]
  	[$@canvas history] add [list $self moveto $@x1 $@y1]
  	if {[$self class] == "Canvas"} {

Index: desire.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v
retrieving revision 1.1.2.217.2.51
retrieving revision 1.1.2.217.2.52
diff -C2 -d -r1.1.2.217.2.51 -r1.1.2.217.2.52
*** desire.c	8 Dec 2006 21:28:35 -0000	1.1.2.217.2.51
--- desire.c	9 Dec 2006 03:04:06 -0000	1.1.2.217.2.52
***************
*** 6396,6400 ****
  	t_text *o;
  	t_symbol *name = atom_getsymbol(argv);
! 	if (sscanf(name->s_name,"!x%lx",(long*)&o)<1) {pd_error(x,"gargamel was here"); return;}
  	for (int i=0; i<argc-1; i++) str[i] = atom_getint(argv+i+1);
  	str[argc-1]=0;
--- 6396,6400 ----
  	t_text *o;
  	t_symbol *name = atom_getsymbol(argv);
! 	if (sscanf(name->s_name,"x%lx",(long*)&o)<1) {pd_error(x,"gargamel was here"); return;}
  	for (int i=0; i<argc-1; i++) str[i] = atom_getint(argv+i+1);
  	str[argc-1]=0;
***************
*** 6404,6408 ****
  static void canvas_object_moveto(t_canvas *x, t_symbol *name, t_floatarg px, t_floatarg py) {
  	t_text *o;
! 	if (sscanf(name->s_name,"!x%lx",(long*)&o)<1) {pd_error(x,"gargamel was here"); return;}
  	o->x=(int)px; gobj_changed(o,"x");
  	o->y=(int)py; gobj_changed(o,"y");
--- 6404,6408 ----
  static void canvas_object_moveto(t_canvas *x, t_symbol *name, t_floatarg px, t_floatarg py) {
  	t_text *o;
! 	if (sscanf(name->s_name,"x%lx",(long*)&o)<1) {pd_error(x,"gargamel was here"); return;}
  	o->x=(int)px; gobj_changed(o,"x");
  	o->y=(int)py; gobj_changed(o,"y");
***************
*** 6410,6414 ****
  static void canvas_object_delete(t_canvas *x, t_symbol *name) {
  	t_text *o;
! 	if (sscanf(name->s_name,"!x%lx",(long*)&o)<1) {pd_error(x,"gargamel was here"); return;}
  	canvas_delete(x,o);
  	gobj_changed(x,"children");
--- 6410,6414 ----
  static void canvas_object_delete(t_canvas *x, t_symbol *name) {
  	t_text *o;
! 	if (sscanf(name->s_name,"x%lx",(long*)&o)<1) {pd_error(x,"gargamel was here"); return;}
  	canvas_delete(x,o);
  	gobj_changed(x,"children");