[PD-cvs] pd/src desire.tk,1.1.2.600.2.229,1.1.2.600.2.230

chunlee chunlee at users.sourceforge.net
Sat Jul 14 00:32:14 CEST 2007


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
small fix on tab selection and delete


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.229
retrieving revision 1.1.2.600.2.230
diff -C2 -d -r1.1.2.600.2.229 -r1.1.2.600.2.230
*** desire.tk	13 Jul 2007 11:06:21 -0000	1.1.2.600.2.229
--- desire.tk	13 Jul 2007 22:32:10 -0000	1.1.2.600.2.230
***************
*** 2420,2426 ****
  }
  
- def Canvas wire_id {wire} {
- 	set idx [lsearch $@wires_pare $wire]
- }
  def ObjectBox draw_box {} {
  	super
--- 2420,2423 ----
***************
*** 2574,2577 ****
--- 2571,2578 ----
  def Canvas del {i} {
  	set o [lindex $@children $i]
+ 	if {$o == $@keynav_current || $o == $@keynav_last_obj} {
+ 		set @keynav_current 0
+ 		set @keynav_last_obj 0
+ 	}
  	if {[$o class] != "Canvas"} {
  		$@history add [list $self ins $i [$o deconstruct]]
***************
*** 2607,2610 ****
--- 2608,2620 ----
  def Canvas delete_selection {} {
  	if {![llength $@selection] && ![llength $@selection_wire]} {return}
+ 	if {$@keynav} {
+ 		set @keynav 0
+ 		switch [$@keynav_current class] {
+ 			Wire {set @keynav_last_wire 0}
+ 			default {set @keynav_last_obj 0}
+ 		}
+ 		set @keynav_current 0
+ 		$@active hide
+ 	}
  	set del_wire {}
  	foreach obj $@selection {
***************
*** 2627,2631 ****
  		if {$find != -1 && $find2 < 0} {
  			$self disconnect [$x connects]
- 			#$x delete
  		}
  	}
--- 2637,2640 ----
***************
*** 2633,2645 ****
  	set @selection {}
  	set @selection_wire {}
! 	if {$@keynav} {
! 		set @keynav 0
! 		switch [$@keynav_current class] {
! 			Wire {set @keynav_last_wire 0}
! 			default {set @keynav_last_obj 0}
! 		}
! 		set @keynav_current 0
! 		$@active hide
! 	}
  }
  
--- 2642,2646 ----
  	set @selection {}
  	set @selection_wire {}
! 
  }
  
***************
*** 3529,3532 ****
--- 3530,3538 ----
  def Canvas disconnect {wire} {
  	set @keynav_tab_sel "wire"
+ 	set id [lindex $@wires [$self wire_idx $wire]]
+ 	if {$id == $@keynav_current || $id == $@keynav_last_wire} {
+ 		set @keynav_current 0
+ 		set @keynav_last_wire 0
+ 	}
  	mset {from outlet to inlet} $wire
  	netsend [list .$self disconnect $from $outlet $to $inlet]





More information about the Pd-cvs mailing list