diff options
| author | dgp@users.sourceforge.net <dgp> | 2006-01-25 18:22:04 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2006-01-25 18:22:04 (GMT) |
| commit | fb317687e86fa51b5ff08e1d5d65fb1b13372c3b (patch) | |
| tree | 80bb0c008e169df663722d227f5f24bc18665bac /library/focus.tcl | |
| parent | d343e98cb46bfdb54fb1b982b1327a063fb98408 (diff) | |
| download | tk-fb317687e86fa51b5ff08e1d5d65fb1b13372c3b.zip tk-fb317687e86fa51b5ff08e1d5d65fb1b13372c3b.tar.gz tk-fb317687e86fa51b5ff08e1d5d65fb1b13372c3b.tar.bz2 | |
* library/bgerror.tcl: Updates to use Tcl 8.4 features. [Patch 1237759] * library/choosedir.tcl:
* library/comdlg.tcl:
* library/console.tcl:
* library/dialog.tcl:
* library/focus.tcl:
* library/msgbox.tcl:
* library/palette.tcl:
* library/tk.tcl:
* library/tkfbox.tcl:
* library/xmfbox.tcl:
Diffstat (limited to 'library/focus.tcl')
| -rw-r--r-- | library/focus.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/focus.tcl b/library/focus.tcl index 5894e94..609a803 100644 --- a/library/focus.tcl +++ b/library/focus.tcl @@ -3,7 +3,7 @@ # This file defines several procedures for managing the input # focus. # -# RCS: @(#) $Id: focus.tcl,v 1.10 2005/07/25 09:06:00 dkf Exp $ +# RCS: @(#) $Id: focus.tcl,v 1.11 2006/01/25 18:22:04 dgp Exp $ # # Copyright (c) 1994-1995 Sun Microsystems, Inc. # @@ -130,14 +130,14 @@ proc ::tk_focusPrev w { proc ::tk::FocusOK w { set code [catch {$w cget -takefocus} value] - if {($code == 0) && ($value != "")} { + if {($code == 0) && ($value ne "")} { if {$value == 0} { return 0 } elseif {$value == 1} { return [winfo viewable $w] } else { set value [uplevel #0 $value [list $w]] - if {$value != ""} { + if {$value ne ""} { return $value } } |