pd/src desire.tk,1.1.2.600.2.247,1.1.2.600.2.248 - Pd-cvs

28 Jul 2007


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29989
Modified Files:
      Tag: desiredata
    desire.tk 
Log Message:
keyboard navigation fix
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.247
retrieving revision 1.1.2.600.2.248
diff -C2 -d -r1.1.2.600.2.247 -r1.1.2.600.2.248
*** desire.tk	20 Jul 2007 01:03:18 -0000	1.1.2.600.2.247
--- desire.tk	28 Jul 2007 14:52:39 -0000	1.1.2.600.2.248
***************
*** 1976,1980 ****
  }
  def Canvas new_wire_callback {wire} {}
! def Canvas new_object_callback {obj} {}
  def Canvas new_object_select {obj} {$self selection+= $obj}
  def Canvas new_wire_select {wire} {$self selection_wire+= $wire}
--- 1976,1980 ----
  }
  def Canvas new_wire_callback {wire} {}
! def Canvas new_object_callback {obj} {if {$@keynav} {$self update_Active $obj}}
  def Canvas new_object_select {obj} {$self selection+= $obj}
  def Canvas new_wire_select {wire} {$self selection_wire+= $wire}
***************
*** 4498,4502 ****
    if {![llength $@keynav_iosel_i] && ![llength $@keynav_iosel_o]} {
    	if {[llength $@selection] == 1} {
! 			mset {x1 y1} [$@selection xy]
    		$self click_wrap $x1 $y1 1 $f
    		$self unclick_wrap $x1 $y1 1 $f
--- 4498,4503 ----
    if {![llength $@keynav_iosel_i] && ![llength $@keynav_iosel_o]} {
    	if {[llength $@selection] == 1} {
! 			mset {bx1 by1 bx2 by2} [$@selection bbox]
! 			set x1 [expr ($bx1+$bx2)/2]; set y1 [expr ($by1+$by2)/2]
    		$self click_wrap $x1 $y1 1 $f
    		$self unclick_wrap $x1 $y1 1 $f
***************
*** 4617,4620 ****
--- 4618,4623 ----
  }
+ def Canvas update_Active {item} {$self keynav_current= $item}
+ 
  #-----------------------------------------------------------------------------------#
  class_new Box {View}