diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-28 10:39:48 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-28 10:39:48 (GMT) |
commit | 64ef8f9af569b1fd6d2dc992851976042391fa72 (patch) | |
tree | ea93e2bffc68bd502b3b5df10b9781593f09f74c /library/entry.tcl | |
parent | 748f5f9a656f5a308c1296c9217e47cb4fbe9db7 (diff) | |
parent | 51207189cfe8425541a9fd8eb18ca2aaf96b5e2e (diff) | |
download | tk-64ef8f9af569b1fd6d2dc992851976042391fa72.zip tk-64ef8f9af569b1fd6d2dc992851976042391fa72.tar.gz tk-64ef8f9af569b1fd6d2dc992851976042391fa72.tar.bz2 |
Merge 8.6
Diffstat (limited to 'library/entry.tcl')
-rw-r--r-- | library/entry.tcl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/library/entry.tcl b/library/entry.tcl index e8f260b..0509063 100644 --- a/library/entry.tcl +++ b/library/entry.tcl @@ -599,7 +599,8 @@ proc ::tk::EntryTranspose w { if {[tk windowingsystem] eq "win32"} { proc ::tk::EntryNextWord {w start} { - if {[$w cget -show] ne ""} { + # the check on [winfo class] is because the spinbox also uses this proc + if {[winfo class $w] eq "Entry" && [$w cget -show] ne ""} { return end } set pos [tk::endOfWord [$w get] [$w index $start]] @@ -613,7 +614,8 @@ if {[tk windowingsystem] eq "win32"} { } } else { proc ::tk::EntryNextWord {w start} { - if {[$w cget -show] ne ""} { + # the check on [winfo class] is because the spinbox also uses this proc + if {[winfo class $w] eq "Entry" && [$w cget -show] ne ""} { return end } set pos [tk::endOfWord [$w get] [$w index $start]] @@ -634,7 +636,8 @@ if {[tk windowingsystem] eq "win32"} { # start - Position at which to start search. proc ::tk::EntryPreviousWord {w start} { - if {[$w cget -show] ne ""} { + # the check on [winfo class] is because the spinbox also uses this proc + if {[winfo class $w] eq "Entry" && [$w cget -show] ne ""} { return 0 } set pos [tk::startOfPreviousWord [$w get] [$w index $start]] |