diff options
| author | fvogel <fvogelnew1@free.fr> | 2020-09-21 20:26:45 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2020-09-21 20:26:45 (GMT) |
| commit | dc531495173c58fcb29b5677be43fd89ac15ece1 (patch) | |
| tree | ecc8a2d284943260eb3c81c516ffe3e139583fb9 | |
| parent | 57354234e74f25a654c0ff2eaa75cf88677ce88f (diff) | |
| parent | 3d52135c3200fb2ac393404e0b106839fdac97c7 (diff) | |
| download | tk-dc531495173c58fcb29b5677be43fd89ac15ece1.zip tk-dc531495173c58fcb29b5677be43fd89ac15ece1.tar.gz tk-dc531495173c58fcb29b5677be43fd89ac15ece1.tar.bz2 | |
Fix [d91e05bf20]: text widget will not process a <<copy>> when disabled (macOS and Linux)
| -rw-r--r-- | library/text.tcl | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/library/text.tcl b/library/text.tcl index 0fa37e7..ec8f3d3 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -571,12 +571,7 @@ proc ::tk::TextButton1 {w x y} { } else { $w mark gravity $anchorname left } - # Allow focus in any case on Windows, because that will let the - # selection be displayed even for state disabled text widgets. - if {[tk windowingsystem] eq "win32" \ - || [$w cget -state] eq "normal"} { - focus $w - } + focus $w if {[$w cget -autoseparators]} { $w edit separator } |