[PD-cvs] pd/src desire.tk,1.1.2.355,1.1.2.356
Mathieu Bouchard
matju at users.sourceforge.net
Thu Aug 17 01:28:35 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6234
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
an idea about keyboard navigation: yellow arrow
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.355
retrieving revision 1.1.2.356
diff -C2 -d -r1.1.2.355 -r1.1.2.356
*** desire.tk 16 Aug 2006 22:54:57 -0000 1.1.2.355
--- desire.tk 16 Aug 2006 23:28:33 -0000 1.1.2.356
***************
*** 2292,2298 ****
set @click_at [list $x $y]
mset {type id detail} $target
- if {!$@editmode} {if {[llength $id]} {$id click $x $y $f $target}; return}
-
if {$f&8} {$self popup $id [winfo pointerx $c] [winfo pointery $c]; return}
if {[llength $@obj_in_edit]} {$@obj_in_edit unedit; set @obj_in_edit {}}
set in_selection [expr [lsearch $@selection $id]>=0]
--- 2292,2297 ----
set @click_at [list $x $y]
mset {type id detail} $target
if {$f&8} {$self popup $id [winfo pointerx $c] [winfo pointery $c]; return}
+ if {!$@editmode} {if {[llength $id]} {$id click $x $y $f $target}; return}
if {[llength $@obj_in_edit]} {$@obj_in_edit unedit; set @obj_in_edit {}}
set in_selection [expr [lsearch $@selection $id]>=0]
***************
*** 2352,2356 ****
if {$@editmode} {
switch $@action {
! edit {set @obj_in_edit $id; $id edit}
move {
foreach obj $@selection {pd .$self object_moveto !$obj [$obj xy]}
--- 2351,2355 ----
if {$@editmode} {
switch $@action {
! edit {set @obj_in_edit $id; $id edit; set @action none}
move {
foreach obj $@selection {pd .$self object_moveto !$obj [$obj xy]}
***************
*** 2714,2717 ****
--- 2713,2726 ----
# $@focus $event $key $shift
# }
+ $self draw_active
+ }
+
+ def Canvas draw_active {} {
+ if {![string compare $@keynav_current 0]} {return}
+ mset {x y} [$@keynav_current xy]
+ set line1 [l+ [list -16 -16 0 0] [list $x $y $x $y]]
+ set line2 [l+ [list -15 -15 -1 -1] [list $x $y $x $y]]
+ $self item ACTIVE1 line $line1 -fill "#000000" -width 5 -arrow last -arrowshape {12 14 8}
+ $self item ACTIVE2 line $line2 -fill "#ffcc00" -width 2 -arrow last -arrowshape {6 12 6}
}
More information about the Pd-cvs
mailing list