[PD-cvs] pd/src desire.tk,1.1.2.600.2.390,1.1.2.600.2.391

chunlee chunlee at users.sourceforge.net
Fri Aug 17 19:51:01 CEST 2007


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix to netsend and completion box


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.390
retrieving revision 1.1.2.600.2.391
diff -C2 -d -r1.1.2.600.2.390 -r1.1.2.600.2.391
*** desire.tk	17 Aug 2007 16:14:04 -0000	1.1.2.600.2.390
--- desire.tk	17 Aug 2007 17:50:56 -0000	1.1.2.600.2.391
***************
*** 284,288 ****
  		incr ::serial
  	}
! 	set text "[join $message];"
  	if {$::debug} {puts "[VTcyan]<- $text[VTgrey]"}
  	puts $::sock $text
--- 284,288 ----
  		incr ::serial
  	}
! 	set text "[philtre $message];"
  	if {$::debug} {puts "[VTcyan]<- $text[VTgrey]"}
  	puts $::sock $text
***************
*** 3760,3766 ****
  		set y2 [expr [lindex $mess 3] - [lindex $ycoords $ref] + $vy1 + $yoff]
  		return [lreplace $mess 2 3 $x2 $y2]
! 	} else {
! 		return [lreplace $mess 2 3 [expr $x+$offset] [expr $y+$offset]]
! 	}
  }
  
--- 3760,3764 ----
  		set y2 [expr [lindex $mess 3] - [lindex $ycoords $ref] + $vy1 + $yoff]
  		return [lreplace $mess 2 3 $x2 $y2]
! 	} else {return [lreplace $mess 2 3 [expr $x+$offset] [expr $y+$offset]]}
  }
  
***************
*** 4063,4067 ****
  	foreach in $ins {mset {idx p} $in; lappend iolist [list i [$self idx_map $idx] $p]}
  	foreach out $outs {mset {idx p} $out; lappend iolist [list o [$self idx_map $idx] $p]}
- 
  	puts "\t \t Cutting..............."
  	$self cut
--- 4061,4064 ----
***************
*** 4071,4074 ****
--- 4068,4072 ----
  	puts "\t \t Push clipboard........"
  	foreach mess [pd_mess_split [$::clipboard value]] {netsend $mess}
+ 
  	#creating in/outlets
  	$self subpatcherize_mkio $center $iolist $rewire_off
***************
*** 6918,6922 ****
  
  def Completion cancel {} {
! 	bind $@textbox <Key>            "$@textself resize %K; $@textself key_input %W %x %y %K %A 0"
  	bind $@textbox <Control-Return> "$@textself key_input %W %x %y 10 %A 0"
  	bind $@textbox <Return>         "$@textself unedit"
--- 6916,6920 ----
  
  def Completion cancel {} {
! 	bind $@textbox <Key>            "$@textself key_input %W %x %y %K %A 0"
  	bind $@textbox <Control-Return> "$@textself key_input %W %x %y 10 %A 0"
  	bind $@textbox <Return>         "$@textself unedit"
***************
*** 7162,7166 ****
  	if {[focus] == $@textbox & $key != "Tab"} {
  		$self adjust_box
! 		$@textself resize none
  		#hum, no idea why i need after 1 for it to work...
  		after 1 $@textself after_key $@textbox
--- 7160,7164 ----
  	if {[focus] == $@textbox & $key != "Tab"} {
  		$self adjust_box
! 		$@textself resize
  		#hum, no idea why i need after 1 for it to work...
  		after 1 $@textself after_key $@textbox
***************
*** 8699,8703 ****
  
  proc philtre {atoms} {
! 	regsub -all ";" [join $atoms " "] "\\;" atoms
  	return $atoms
  }
--- 8697,8701 ----
  
  proc philtre {atoms} {
! 	regsub -all {([;,\\])} [join $atoms " "] {\\\1} atoms
  	return $atoms
  }





More information about the Pd-cvs mailing list