[PD-cvs] pd/src desire.tk,1.1.2.600.2.386,1.1.2.600.2.387

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
bit more on commandline editing


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.386
retrieving revision 1.1.2.600.2.387
diff -C2 -d -r1.1.2.600.2.386 -r1.1.2.600.2.387
*** desire.tk	17 Aug 2007 04:16:04 -0000	1.1.2.600.2.386
--- desire.tk	17 Aug 2007 06:56:04 -0000	1.1.2.600.2.387
***************
*** 2079,2082 ****
--- 2079,2091 ----
  }
  
+ def Canvas s+ {selection} {
+ 	set objs [$self parse_idx $selection]; set ids {}
+ 	foreach obj $objs {
+ 		set v [$@objects get $obj]; lappend ids $v
+ 		$self selection+= $v
+ 	}
+ 	$self selection_wire= [$self implicit_wires $ids]
+ }
+ 
  def Canvas sw {from outlet to inlet} {
  	set out_objs [$self parse_idx $from]
***************
*** 3927,3933 ****
  
  def Canvas outlet_expand {k outlet} {set reconnect [$self broken_wires o $k $inlet]}
- def Canvas include_wires {} {$self find_include_wires [$@objectsel values]}
  
! def Canvas find_include_wires {objs} {
  	set l {}; set h $@objects
  	foreach obj $objs {
--- 3936,3941 ----
  
  def Canvas outlet_expand {k outlet} {set reconnect [$self broken_wires o $k $inlet]}
  
! def Canvas implicit_wires {objs} {
  	set l {}; set h $@objects
  	foreach obj $objs {
***************
*** 3940,3944 ****
  		}
  	}
! 	puts [lsort -unique $l]
  }
  
--- 3948,3952 ----
  		}
  	}
! 	return [lsort -unique $l]
  }