[PD-cvs] pd/src desire.tk,1.1.2.600.2.13,1.1.2.600.2.14

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
removed a coupld of calls to proc pd, and started with getting rid of msg_isnew


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.13
retrieving revision 1.1.2.600.2.14
diff -C2 -d -r1.1.2.600.2.13 -r1.1.2.600.2.14
*** desire.tk	5 Dec 2006 03:15:51 -0000	1.1.2.600.2.13
--- desire.tk	5 Dec 2006 03:29:14 -0000	1.1.2.600.2.14
***************
*** 1763,1772 ****
  	set x1 [expr $x/$@zoom]
  	set y1 [expr $y/$@zoom]
! 	netsend [join [concat [list .$self $sel $x $y] $args]] [list $self new_object_callback]
  }
  
! def Canvas new_object_callback {obj} {
! 	...
! }
  
  def Canvas insertxy {} {return [list $@insert_x $@insert_y]}
--- 1763,1776 ----
  	set x1 [expr $x/$@zoom]
  	set y1 [expr $y/$@zoom]
! 	switch $sel {
! 		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]}
! 	}
! 	
  }
  
! def Canvas new_object_callback {obj} {}
! 
! def Canvas new_object_edit {obj} {}
  
  def Canvas insertxy {} {return [list $@insert_x $@insert_y]}
***************
*** 2190,2194 ****
  	set l {}
  	foreach char [split $@text ""] {lappend l [scan $char %c]}
! 	pd .$@canvas text_setto !$self $l
  	$self changed
  	if {[$@canvas action] == "insert"} {
--- 2194,2200 ----
  	set l {}
  	foreach char [split $@text ""] {lappend l [scan $char %c]}
! 	#pd .$@canvas text_setto !$self $l
! 	#netsend [join [list .$@canvas text_setto !$self $l]] [list $self new_object_callback]
! 	netsend [join [list .$@canvas text_setto !$self $l]]
  	$self changed
  	if {[$@canvas action] == "insert"} {
***************
*** 3988,3994 ****
  def Box moveto {x1 y1} {
  	if {[info exists @isnew]} {
! 		if {!$@isnew} { pd .$@canvas object_moveto !$self $x1 $y1}
  	} else {
! 		pd .$@canvas object_moveto !$self $x1 $y1
  	}
  	[$@canvas history] add [list $self moveto $@x1 $@y1]
--- 3994,4000 ----
  def Box moveto {x1 y1} {
  	if {[info exists @isnew]} {
! 		if {!$@isnew} {netsend [join [list .$@canvas object_moveto !$self $x1 $y1]]}
  	} else {
! 		netsend [join [list .$@canvas object_moveto !$self $x1 $y1]]
  	}
  	[$@canvas history] add [list $self moveto $@x1 $@y1]
***************
*** 4337,4346 ****
  			$self pdclass= $class
  			#!@#$ goes with the request tracking feature to be impl in the server
! 			if {[info exists canvas(msg_isnew)]} {
! 				set _($self:isnew) 1
! 				puts "   put $self in edit mode....."
  				#$self edit
! 				unset canvas(msg_isnew)
! 			}
  		}
  		"#A" {
--- 4343,4352 ----
  			$self pdclass= $class
  			#!@#$ goes with the request tracking feature to be impl in the server
! 			#if {[info exists canvas(msg_isnew)]} {
! 			#	set _($self:isnew) 1
! 			#	puts "   put $self in edit mode....."
  				#$self edit
! 			#	unset canvas(msg_isnew)
! 			#}
  		}
  		"#A" {