pd/src desire.tk,1.1.2.355,1.1.2.356 - Pd-cvs

17 Aug 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}
  }