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");