[PD-cvs] pd/src desire.tk,1.1.2.510,1.1.2.511

chunlee chunlee at users.sourceforge.net
Tue Oct 17 00:11:13 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixs to auto object chaining


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.510
retrieving revision 1.1.2.511
diff -C2 -d -r1.1.2.510 -r1.1.2.511
*** desire.tk	16 Oct 2006 13:39:07 -0000	1.1.2.510
--- desire.tk	16 Oct 2006 22:11:10 -0000	1.1.2.511
***************
*** 1946,1949 ****
--- 1946,1954 ----
  	foreach o $@selection {$o selected?= 1}
  }
+ def Canvas selection2= {idx} {
+ 	foreach o $@selection {$o selected?= 0}
+ 	set @selection [lindex $@children $idx]
+ 	foreach o $@selection {$o selected?= 1}
+ }
  def Canvas selection+= {objs} {
  	foreach o $objs {switch $_($o:_class) {Wire {error "selection error"}}}
***************
*** 1991,1998 ****
  	super
          $self draw_io
- 	#set c [$@canvas widget]
- 	#if {$@valid} {set dash {8 8 8 8}} {set dash {}} ;# isn't this backwards?
- 	#$c itemconfigure ${self}BASE -dash $dash
- 	#this is here to allow editing the newly created objectbox
  	if {$@isnew} {$self edit} ;# why this here ?
  }
--- 1996,1999 ----
***************
*** 2022,2026 ****
--- 2023,2030 ----
  		set obj2_idx [$@canvas children_idx $self]
  		$@canvas connect [list $obj1_idx 0 $obj2_idx 0]
+ 		$@canvas deselect_all
+ 		
  		$@canvas action= none
+ 		after 100 $@canvas selection2= $obj2_idx
  		#puts "   [lindex [$@canvas children] $obj2_idx]"
  		#$@canvas selection= [lindex [$@canvas children] $obj2_idx]
***************
*** 3325,3335 ****
  def Box connect_in {} {}
  
! def Box draw {} {
! 	#if {[$@canvas action] == "chain_obj"} {
! 	#	$@canvas deselect_all
! 	#	$@canvas selection= $self 
! 	#}
! 	$self draw_box
! }
  def Box draw_box {} {}
  def Box edit {} {}
--- 3329,3333 ----
  def Box connect_in {} {}
  
! def Box draw {} {$self draw_box}
  def Box draw_box {} {}
  def Box edit {} {}





More information about the Pd-cvs mailing list