[PD-cvs] pd/src desire.tk,1.1.2.207,1.1.2.208

[chunlee]

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
  }