pd/src desire.tk,1.1.2.600.2.13,1.1.2.600.2.14 - Pd-cvs

5 Dec 2006


      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" {