More progress on implementing IME

1 files changed, 13 insertions, 0 deletions

diff --git a/library/text.tcl b/library/text.tcl
index f43366b..7525588 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -397,6 +397,19 @@ bind Text <Meta-Delete> {
     }
 }
 
+# Bindings for IME text input.
+
+bind Text <<TkStartIMEMarkedText>> {
+    dict set ::tk::Priv(IMETextMark) "%W" [%W index insert]
+}
+bind Text <<TkEndIMEMarkedText>> {
+    %W tag add IMEmarkedtext [dict get $::tk::Priv(IMETextMark) "%W"] insert 
+    %W tag configure IMEmarkedtext -underline on
+}
+bind Text <<TkClearIMEMarkedText>> {
+    %W delete IMEmarkedtext.first IMEmarkedtext.last    
+}
+
 # Macintosh only bindings:
 
 if {[tk windowingsystem] eq "aqua"} {