Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22543
Modified Files: Tag: devel_0_39 desire.tk Log Message: few more fixes on bang and nbx
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.207 retrieving revision 1.1.2.208 diff -C2 -d -r1.1.2.207 -r1.1.2.208 *** desire.tk 17 May 2006 15:17:35 -0000 1.1.2.207 --- desire.tk 18 May 2006 01:06:22 -0000 1.1.2.208 *************** *** 2040,2044 ****
def* Canvas unclickrun {x y b} { ! [$self focus] unclick }
--- 2040,2044 ----
def* Canvas unclickrun {x y b} { ! if {[$self focus] != $self} {[$self focus] unclick $x $y $b} }
*************** *** 2103,2106 **** --- 2103,2107 ---- if {$iso != ""} {scan $iso %c key} #puts "focus = $@focus" + if {$key == 8} { if {[llength $@selection] > 0} { *************** *** 2126,2133 **** } } ! if {[string length $@focus] > 0} { ! if {$@editmode} {set event keyedit} {set event key} ! $@focus $event $self $key $shift ! } }
--- 2127,2135 ---- } } ! ! #if {[string length $@focus] > 0} { ! # if {$@editmode} {set event keyedit} {set event key} ! # $@focus $event $self $key $shift ! #} }
*************** *** 2137,2144 **** set canvas .$self.c if {$iso != ""} {scan $iso %c key} ! if {[string length $@focus] > 0} { ! if {$@editmode} {set action keyreleaseedit} {set action keyrelease} ! $@focus $event $key $shift ! } }
--- 2139,2146 ---- set canvas .$self.c if {$iso != ""} {scan $iso %c key} ! # if {[string length $@focus] > 0} { ! # if {$@editmode} {set action keyreleaseedit} {set action keyrelease} ! # $@focus $event $key $shift ! # } }
*************** *** 2658,2662 **** def* NumBox unfocus {} {set @buf ""; $self changed}
! def* NumBox unclick {} { global look set @clicking 0 --- 2660,2664 ---- def* NumBox unfocus {} {set @buf ""; $self changed}
! def* NumBox unclick {x y b} { global look set @clicking 0 *************** *** 2880,2884 **** .$@canvas.c itemconfigure ${self}BUT -fill [bluify [parse_color $@fcol]] after 100 [list .$@canvas.c itemconfigure ${self}BUT -fill [bluify [parse_color $@bcol]]] ! set $flash 0 } else { set colour [parse_color $@bcol] --- 2882,2886 ---- .$@canvas.c itemconfigure ${self}BUT -fill [bluify [parse_color $@fcol]] after 100 [list .$@canvas.c itemconfigure ${self}BUT -fill [bluify [parse_color $@bcol]]] ! set $@flash 0 } else { set colour [parse_color $@bcol] *************** *** 2889,2894 **** }
def Bang click {x y b f} { ! pd .$self bang #$self bang } --- 2891,2899 ---- }
+ def Bang unclick {x y b} {} + def Bang click {x y b f} { ! $@canvas focus= $self ! pd .$self bang #$self bang }