pd/src desire.tk,1.1.2.600.2.382,1.1.2.600.2.383 - Pd-cvs

16 Aug 2007


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32162
Modified Files:
      Tag: desiredata
    desire.tk 
Log Message:
small fixes
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.382
retrieving revision 1.1.2.600.2.383
diff -C2 -d -r1.1.2.600.2.382 -r1.1.2.600.2.383
*** desire.tk	16 Aug 2007 16:21:02 -0000	1.1.2.600.2.382
--- desire.tk	16 Aug 2007 19:51:15 -0000	1.1.2.600.2.383
***************
*** 2212,2216 ****
    set o [$@objectsel values]
    mset {x1 y1 x2 y2} [$o bbox]
! 	netsend [list .$self obj $x1 [expr $y2+10]] [list $self new_object_edit]
    set @action chain_obj
  }
--- 2212,2218 ----
    set o [$@objectsel values]
    mset {x1 y1 x2 y2} [$o bbox]
! 	set grid [$self look grid_size]
! 	if {[$self look snap_grid]} {set y [expr floor(($y2+$grid)/$grid)*$grid]} {set y [expr $y2+10]}
! 	netsend [list .$self obj $x1 $y] [list $self new_object_edit]
    set @action chain_obj
  }
***************
*** 3989,3992 ****
--- 3991,3995 ----
def Canvas subpatcherize_iopos {orig io} {
+ 	set tab {}; set result {}
    for {set x 0} {$x < [llength $orig]} {incr x} {
    	mset {from k1 io1} [lindex $orig $x]; mset {k2 io2} [lindex $io $x]
***************
*** 4003,4007 ****
    set center [$self selection_center]
    set rewire_off [llength [$@objectsel values]]
! 	set ins {}; set outs {}
    foreach obj [$@objectsel values] {
    	for {set i 0} {$i < [$obj ninlets]} {incr i} {
--- 4006,4010 ----
    set center [$self selection_center]
    set rewire_off [llength [$@objectsel values]]
! 	set ins {}; set outs {}; set toins {}; set fromouts {}
    foreach obj [$@objectsel values] {
    	for {set i 0} {$i < [$obj ninlets]} {incr i} {