diff options
| author | das <das> | 2001-11-23 02:04:08 (GMT) |
|---|---|---|
| committer | das <das> | 2001-11-23 02:04:08 (GMT) |
| commit | aa409cc42da819e8ab1d081e7a1f175b33c1c2cf (patch) | |
| tree | 0d0864ac4fc0b0ff178f5869f1600d2c584109c8 /library/button.tcl | |
| parent | 5efa25f6e1ad2a687cac8c1caab6d8c10f978269 (diff) | |
| download | tk-aa409cc42da819e8ab1d081e7a1f175b33c1c2cf.zip tk-aa409cc42da819e8ab1d081e7a1f175b33c1c2cf.tar.gz tk-aa409cc42da819e8ab1d081e7a1f175b33c1c2cf.tar.bz2 | |
** upport to 8.4 of mac code changes for 8.3.3 & various new
** changes for 8.4, some already backported to 8.3.4 (patch #435660)
see ChangeLog for details
Diffstat (limited to 'library/button.tcl')
| -rw-r--r-- | library/button.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/library/button.tcl b/library/button.tcl index 763c67e..fe32659 100644 --- a/library/button.tcl +++ b/library/button.tcl @@ -4,7 +4,7 @@ # checkbutton, and radiobutton widgets and provides procedures # that help in implementing those bindings. # -# RCS: @(#) $Id: button.tcl,v 1.11 2001/08/01 16:21:11 dgp Exp $ +# RCS: @(#) $Id: button.tcl,v 1.12 2001/11/23 02:04:08 das Exp $ # # Copyright (c) 1992-1994 The Regents of the University of California. # Copyright (c) 1994-1996 Sun Microsystems, Inc. @@ -504,9 +504,8 @@ proc ::tk::ButtonDown w { # If this button has a repeatdelay set up, get it going with an after after cancel $Priv(afterId) + set Priv(repeated) 0 if { ![catch {$w cget -repeatdelay} delay] } { - set delay [$w cget -repeatdelay] - set Priv(repeated) 0 if {$delay > 0} { set Priv(afterId) [after $delay [list tk::ButtonAutoInvoke $w]] } |