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}