diff options
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/entry.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl index 383eebd..8f21ecc 100644 --- a/library/ttk/entry.tcl +++ b/library/ttk/entry.tcl @@ -152,6 +152,18 @@ bind TEntry <Control-Key-d> { ttk::entry::Delete %W } bind TEntry <Control-Key-h> { ttk::entry::Backspace %W } bind TEntry <Control-Key-k> { %W delete insert end } +# Bindings for IME text input. + +bind TEntry <<TkStartIMEMarkedText>> { + dict set ::tk::Priv(IMETextMark) "%W" [%W index insert] +} +bind TEntry <<TkEndIMEMarkedText>> { + %W selection range [dict get $::tk::Priv(IMETextMark) "%W"] insert +} +bind TEntry <<TkClearIMEMarkedText>> { + %W delete [dict get $::tk::Priv(IMETextMark) "%W"] [%W index insert] +} + ### Clipboard procedures. # |