[PD-cvs] pd/src desire.tk,1.1.2.532,1.1.2.533

chunlee chunlee at users.sourceforge.net
Sun Oct 29 20:52:54 CET 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
small fixes to the commit yesterday


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.532
retrieving revision 1.1.2.533
diff -C2 -d -r1.1.2.532 -r1.1.2.533
*** desire.tk	27 Oct 2006 16:28:15 -0000	1.1.2.532
--- desire.tk	29 Oct 2006 19:52:51 -0000	1.1.2.533
***************
*** 1402,1408 ****
--- 1402,1410 ----
      set @keynav_iosel_o {} ;# list of objects that has outlet selected
      set @keynav_iosel_i {} ;# list of objects that has inlet selected
+     set @iosel_deselect 0  ;# if selected should be deselected by clicking at empty space
      set @keynav_current 0
      set @keynav_last 0
      set @keynav_tab_sel "wire"
+     set @keynav_shift 0
      set @copy_count 0
      set @visible_children {}
***************
*** 3041,3045 ****
  def Canvas click_on_nothing {f target x y} {
  	$self deselect_all
! 	$self dehilite_io
  	switch $@action {
  		edit {}
--- 3043,3047 ----
  def Canvas click_on_nothing {f target x y} {
  	$self deselect_all
! 	$self click_deselect_io
  	switch $@action {
  		edit {}
***************
*** 3206,3210 ****
  	#puts "		selection_wire::: $@selection_wire"
  	#puts "		selection::: $@selection"
! 	puts "	keynav::: $@keynav"
  	if {!$@keynav} {$self tab_jump}
  	switch $@keynav_tab_sel {
--- 3208,3221 ----
  	#puts "		selection_wire::: $@selection_wire"
  	#puts "		selection::: $@selection"
! 	if {$@keynav_shift && !$shift} {
! 		puts "                           SOMETHING HAPPENED..............."
! 		#$self deselect_all
! 	}
! 	set @keynav_shift $shift
! 	if {[llength $@selection] > 1} {
! 		if {[llength $@keynav_iosel_i] > 0 || [llength $@keynav_iosel_o] > 0} {
! 			#$self deselect_all
! 		}
! 	}
  	if {!$@keynav} {$self tab_jump}
  	switch $@keynav_tab_sel {
***************
*** 3297,3300 ****
--- 3308,3312 ----
  
  def Canvas key_nav_ioselect {} {
+ 	if {![llength $@selection]} {return}
  	set var [lindex $@selection end end]
  	if {$@keynav_iosel != $var} {set @keynav_iocount 0}
***************
*** 3339,3343 ****
  	# @keynav_iosel_o stores the selected outlets
  	foreach object $@selection {
! 		if {$@keynav_iosel != $var} {set @keynav_iosel $object}
  		if {$@keynav_iosel == $var} {
  			switch $type {
--- 3351,3355 ----
  	# @keynav_iosel_o stores the selected outlets
  	foreach object $@selection {
! 		if {$@keynav_iosel != $var} {set @keynav_iosel $var}
  		if {$@keynav_iosel == $var} {
  			switch $type {
***************
*** 3371,3374 ****
--- 3383,3395 ----
  }
  
+ def Canvas click_deselect_io {} {
+ 	if {[llength $@keynav_iosel_i] || [llength $@keynav_iosel_o]} {
+ 		if {!$@iosel_deselect} {set @iosel_deselect 1} else {$self dehilite_io; set @iosel_deselect 0}
+ 	} else {
+ 		$self dehilite_io
+ 	}
+ 
+ }
+ 
  def Canvas dehilite_io {} {
  	#if {![llength $@keynav_iosel_i] || ![llength $@keynav_iosel_o]} {return}
***************
*** 3560,3563 ****
--- 3581,3587 ----
  			#}
  		}
+ 		F1 {
+ 			$self deselect_all
+ 		}
  		default {}
  	}





More information about the Pd-cvs mailing list