pd/src desire.tk,1.1.2.600.2.21,1.1.2.600.2.22 - Pd-cvs

5 Dec 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5434
Modified Files:
      Tag: desiredata
    desire.tk 
Log Message:
remove isnew stuff in update_object2
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.21
retrieving revision 1.1.2.600.2.22
diff -C2 -d -r1.1.2.600.2.21 -r1.1.2.600.2.22
*** desire.tk	5 Dec 2006 17:41:35 -0000	1.1.2.600.2.21
--- desire.tk	5 Dec 2006 18:45:17 -0000	1.1.2.600.2.22
***************
*** 1769,1772 ****
--- 1769,1773 ----
    set y1 [expr $y/$@zoom]
    switch $sel {
+ 		obj {netsend [join [concat [list .$self $sel $x $y] $args]] [list $self new_object_edit]}
    	msg {netsend [join [concat [list .$self $sel $x $y] $args]] [list $self new_object_edit]}
    	default {netsend [join [concat [list .$self $sel $x $y] $args]] [list $self new_object_callback]}
***************
*** 2130,2133 ****
--- 2131,2135 ----
    set @noutlets 0
    set @pdclass ""
+ 	set @isnew 0
  }
***************
*** 2202,2206 ****
    set l {}
    foreach char [split $@text ""] {lappend l [scan $char %c]}
! 	netsend [join [list .$@canvas text_setto !$self $l]]
    $self changed
    if {[$@canvas action] == "insert"} {
--- 2204,2208 ----
    set l {}
    foreach char [split $@text ""] {lappend l [scan $char %c]}
! 	netsend [join [list .$@canvas text_setto !$self $l]] [list $@canvas new_object_callback]
    $self changed
    if {[$@canvas action] == "insert"} {
***************
*** 4339,4343 ****
    			# this is not the same @isnew as $isnew !
    			# in the future, @isnew should go elsewhere or disappear
! 				set _($self:isnew) [expr [llength $mess] == 4]
    		}
    		if {$isnew} {$_class new_as $self $mess} else {$self reinit $mess}
--- 4341,4345 ----
    			# this is not the same @isnew as $isnew !
    			# in the future, @isnew should go elsewhere or disappear
! 			#	set _($self:isnew) [expr [llength $mess] == 4]
    		}
    		if {$isnew} {$_class new_as $self $mess} else {$self reinit $mess}