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 }