diff options
| author | fvogel <fvogelnew1@free.fr> | 2024-01-28 09:03:07 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2024-01-28 09:03:07 (GMT) |
| commit | c3b21bba760c1c47f0ac5c7a139b21e4980e8058 (patch) | |
| tree | 6fe81400ce6d97a471eca10f5f5daaad64ba750a /library/entry.tcl | |
| parent | 3b0766a0c0ae34bf03ac660bb06d9c35fb8eb1b7 (diff) | |
| download | tk-c3b21bba760c1c47f0ac5c7a139b21e4980e8058.zip tk-c3b21bba760c1c47f0ac5c7a139b21e4980e8058.tar.gz tk-c3b21bba760c1c47f0ac5c7a139b21e4980e8058.tar.bz2 | |
Fix [9fa3e08243]: Ctrl-Arrow binding for spinbox: unknown option '-show'.
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 e16fba4..5cb5ab9 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 [tcl_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 [tcl_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 [tcl_startOfPreviousWord [$w get] [$w index $start]] |