[PD-cvs] pd/src desire.tk,1.1.2.600.2.21,1.1.2.600.2.22

[chunlee]

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}