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

5 Dec 2006


      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]
  }