More progress on implementing IME

3 files changed, 28 insertions, 0 deletions

diff --git a/library/entry.tcl b/library/entry.tcl
index 0cc9ffb..8d1b1b3 100644
--- a/library/entry.tcl
+++ b/library/entry.tcl
@@ -277,6 +277,18 @@ bind Entry <Meta-Delete> {
     }
 }
 
+# Bindings for IME text input.
+
+bind Entry <<TkStartIMEMarkedText>> {
+    dict set ::tk::Priv(IMETextMark) "%W" [%W index insert]
+}
+bind Entry <<TkEndIMEMarkedText>> {
+    %W selection range [dict get $::tk::Priv(IMETextMark) "%W"] insert
+}
+bind Entry <<TkClearIMEMarkedText>> {
+    %W delete [dict get $::tk::Priv(IMETextMark) "%W"] [%W index insert]
+}
+
 # A few additional bindings of my own.
 
 bind Entry <2> {
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"} {
diff --git a/library/tk.tcl b/library/tk.tcl
index 35433e8..572c1f0 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -701,7 +701,10 @@ if {[tk windowingsystem] eq "aqua"} {
     }
 }
 
+# Create a dictionary to store the starting index of the IME marked
+# text in an Entry or Text widget.
 
+set ::tk::Priv(IMETextMark) [dict create]
 
 # Run the Ttk themed widget set initialization
 if {$::ttk::library ne ""} {