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

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
removed more old calls to proc pd


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.22
retrieving revision 1.1.2.600.2.23
diff -C2 -d -r1.1.2.600.2.22 -r1.1.2.600.2.23
*** desire.tk	5 Dec 2006 18:45:17 -0000	1.1.2.600.2.22
--- desire.tk	5 Dec 2006 22:00:32 -0000	1.1.2.600.2.23
***************
*** 2361,2365 ****
  		$@history add [list $self ins $i [$o deconstruct]]
  	}
! 	pd .$self object_delete !$o
  }
  
--- 2361,2365 ----
  		$@history add [list $self ins $i [$o deconstruct]]
  	}
! 	netsend [join [list .$self "object_delete" !$o]]
  }
  
***************
*** 2881,2895 ****
  
  	set ref [lsearch $ycoords [lindex [lsort -increasing $ycoords] 0]]
! 	pd .$self push
  	set paste(state) $self
  	foreach mess [pd_mess_split [$::clipboard value]] {
  		set type [lindex $mess 1]
  		switch $type {
! 			canvas {set in 1; pd $mess} "" {}
  			connect {
  				mset {from outlet to inlet} [lrange $mess 2 end]
  				set count [llength $@children]
  				set mess2 [list #X connect [expr $from+$count] $outlet [expr $to+$count] $inlet]
! 				if {$in} {pd $mess} else {pd $mess2; incr @wire_count}
  			}
  			default {
--- 2881,2896 ----
  
  	set ref [lsearch $ycoords [lindex [lsort -increasing $ycoords] 0]]
! 	#pd .$self push
! 	netsend [join [list .$self "push"]]
  	set paste(state) $self
  	foreach mess [pd_mess_split [$::clipboard value]] {
  		set type [lindex $mess 1]
  		switch $type {
! 			canvas {set in 1; netsend $mess} "" {}
  			connect {
  				mset {from outlet to inlet} [lrange $mess 2 end]
  				set count [llength $@children]
  				set mess2 [list #X connect [expr $from+$count] $outlet [expr $to+$count] $inlet]
! 				if {$in} {netsend $mess} else {netsend $mess2; incr @wire_count}
  			}
  			default {
***************
*** 2898,2902 ****
  				set mess2 [lreplace $mess 2 3 $x $y]
  				if {$in} {
! 					pd $mess
  				} else {
  					if {!$visible} {
--- 2899,2903 ----
  				set mess2 [lreplace $mess 2 3 $x $y]
  				if {$in} {
! 					netsend $mess [list $self new_object_callback]
  				} else {
  					if {!$visible} {
***************
*** 2907,2911 ****
  						set mess2 [lreplace $mess 2 3 $x2 $y2]
  					}
! 					pd [join $mess2]
  					incr @obj_count
  				}
--- 2908,2912 ----
  						set mess2 [lreplace $mess 2 3 $x2 $y2]
  					}
! 					netsend [join $mess2] [list $self new_object_callback]
  					incr @obj_count
  				}
***************
*** 2913,2917 ****
  		}
  	}
! 	pd #X pop 1
  }
  
--- 2914,2918 ----
  		}
  	}
! 	netsend "#X pop 1" [list $self new_object_callback]
  }
  
***************
*** 2995,3003 ****
  	set @keynav_tab_sel "wire"
  	$self selection_wire-= [lindex $@wires_pair [expr [lsearch $@wires_pair $wire]+1]]
! 	mset {from outlet to inlet} $wire; pd .$self disconnect $from $outlet $to $inlet
  	$@history add [list $self    connect $wire]
  }
  def Canvas connect {wire} {
! 	mset {from outlet to inlet} $wire; pd .$self    connect $from $outlet $to $inlet
  	$@history add [list $self disconnect $wire]
  }
--- 2996,3006 ----
  	set @keynav_tab_sel "wire"
  	$self selection_wire-= [lindex $@wires_pair [expr [lsearch $@wires_pair $wire]+1]]
! 	mset {from outlet to inlet} $wire
! 	netsend [join [list .$self disconnect $from $outlet $to $inlet]]
  	$@history add [list $self    connect $wire]
  }
  def Canvas connect {wire} {
! 	mset {from outlet to inlet} $wire
! 	netsend [join [list .$self connect $from $outlet $to $inlet]]
  	$@history add [list $self disconnect $wire]
  }