diff options
| author | hobbs <hobbs> | 2000-05-29 01:43:13 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-05-29 01:43:13 (GMT) |
| commit | abcf7507cc5ab608bb75d22bbb408ee6bc5f0b1a (patch) | |
| tree | 8e72919b463211e30307b0e8eb87f7a28e578327 /library/entry.tcl | |
| parent | f78e5fa2c3172a6d7f3ee6e4d77819d9c16b48d1 (diff) | |
| download | tk-abcf7507cc5ab608bb75d22bbb408ee6bc5f0b1a.zip tk-abcf7507cc5ab608bb75d22bbb408ee6bc5f0b1a.tar.gz tk-abcf7507cc5ab608bb75d22bbb408ee6bc5f0b1a.tar.bz2 | |
* doc/spinbox.n: (new file) docs for spinbox widget
* generic/tkInt.h: added Tk_SpinboxObjCmd declaration
* generic/tkEntry.c: added 'spinbox' widget - an extension of the
entry widget type.
* generic/tkWindow.c: added 'spinbox' to core Tk commands
* library/spinbox.tcl: (new file) binding and helper procs for spinbox
* library/tk.tcl: added spinbox.tcl to list of files to source
* tests/entry.test: updated changed error messages
* tests/spinbox.test: (new file) test suite for spinbox
Diffstat (limited to 'library/entry.tcl')
| -rw-r--r-- | library/entry.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/entry.tcl b/library/entry.tcl index a46561e..b44eaad 100644 --- a/library/entry.tcl +++ b/library/entry.tcl @@ -3,7 +3,7 @@ # This file defines the default bindings for Tk entry widgets and provides # procedures that help in implementing those bindings. # -# RCS: @(#) $Id: entry.tcl,v 1.12 2000/05/14 20:45:38 ericm Exp $ +# RCS: @(#) $Id: entry.tcl,v 1.13 2000/05/29 01:43:14 hobbs Exp $ # # Copyright (c) 1992-1994 The Regents of the University of California. # Copyright (c) 1994-1997 Sun Microsystems, Inc. @@ -336,7 +336,7 @@ proc tkEntryButton1 {w x} { set tkPriv(pressX) $x $w icursor [tkEntryClosestGap $w $x] $w selection from insert - if {[string compare [$w cget -state] "disabled"]} {focus $w} + if {[string compare "disabled" [$w cget -state]]} {focus $w} } # tkEntryMouseSelect -- @@ -406,7 +406,7 @@ proc tkEntryPaste {w x} { $w icursor [tkEntryClosestGap $w $x] catch {$w insert insert [selection get -displayof $w]} - if {[string equal [$w cget -state] "normal"]} {focus $w} + if {[string compare "disabled" [$w cget -state]]} {focus $w} } # tkEntryAutoScan -- |