[PD-cvs] pd/src desire.tk,1.1.2.600.2.18,1.1.2.600.2.19

[chunlee]

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

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


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.18
retrieving revision 1.1.2.600.2.19
diff -C2 -d -r1.1.2.600.2.18 -r1.1.2.600.2.19
*** desire.tk	5 Dec 2006 12:12:29 -0000	1.1.2.600.2.18
--- desire.tk	5 Dec 2006 13:06:03 -0000	1.1.2.600.2.19
***************
*** 800,804 ****
  		set file [lindex $ff [expr $ffl-1]]
  		set dir [join [lrange $ff 0 [expr $ffl-2]] [file separator]]
! 		pd pd open $file $dir
  	}
  }
--- 800,805 ----
  		set file [lindex $ff [expr $ffl-1]]
  		set dir [join [lrange $ff 0 [expr $ffl-2]] [file separator]]
! 		#pd pd open $file $dir
! 		netsend [join [list pd open $file $dir]]
  	}
  }
***************
*** 2199,2204 ****
  	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
--- 2200,2203 ----
***************
*** 2223,2228 ****
  		$@canvas action= none
  		after 100 $@canvas selection2= $obj2_idx
- 		#puts "   [lindex [$@canvas children] $obj2_idx]"
- 		#$@canvas selection= [lindex [$@canvas children] $obj2_idx]
  	}
  }
--- 2222,2225 ----
***************
*** 6754,6758 ****
  def ServerPrefsDialog apply {} {
  	set audio_props [$self audio_properties=?]
! 	pd pd audio-dialog $audio_props
  }
  
--- 6751,6756 ----
  def ServerPrefsDialog apply {} {
  	set audio_props [$self audio_properties=?]
! 	#pd pd audio-dialog $audio_props
! 	netsend [join [list "pd" "sudio-dialog" $audio_props]]
  }
  
***************
*** 6938,6943 ****
  
  def ServerPrefsDialog init {} {
! 	pd pd audio-properties
! 
  	$self init_reverse_hash
  	$self read
--- 6936,6940 ----
  
  def ServerPrefsDialog init {} {
! 	netsend "pd audio-properties"
  	$self init_reverse_hash
  	$self read