diff options
| author | culler <culler> | 2019-10-24 23:56:43 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-10-24 23:56:43 (GMT) |
| commit | c9c3c73d09cd696f710a5c6bfd731d9cdb243276 (patch) | |
| tree | 97fe5c8f77496aea79aedaaf8585bfc7946269e6 /library/entry.tcl | |
| parent | 2b66c3ae4d05b4f4c64b795fb6e276c24c44f37e (diff) | |
| download | tk-c9c3c73d09cd696f710a5c6bfd731d9cdb243276.zip tk-c9c3c73d09cd696f710a5c6bfd731d9cdb243276.tar.gz tk-c9c3c73d09cd696f710a5c6bfd731d9cdb243276.tar.bz2 | |
Make Apple's press-and-hold accent menu work with Tk entry and text widgets.
Diffstat (limited to 'library/entry.tcl')
| -rw-r--r-- | library/entry.tcl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/library/entry.tcl b/library/entry.tcl index 36c331d..2c72fee 100644 --- a/library/entry.tcl +++ b/library/entry.tcl @@ -272,7 +272,7 @@ bind Entry <Meta-Delete> { } } -# Bindings for IME text input. +# Bindings for IME text input and accents. bind Entry <<TkStartIMEMarkedText>> { dict set ::tk::Priv(IMETextMark) "%W" [%W index insert] @@ -283,6 +283,9 @@ bind Entry <<TkEndIMEMarkedText>> { bind Entry <<TkClearIMEMarkedText>> { %W delete [dict get $::tk::Priv(IMETextMark) "%W"] [%W index insert] } +bind Entry <<TkAccentBackspace>> { + tk::EntryBackspace %W +} # A few additional bindings of my own. |