blob: 47dcdff2bb000bd1901e96bf0921253c933e18f7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
--- ../library/entry.tcl.orig Thu Jan 6 02:22:24 2000
+++ ../library/entry.tcl Wed Feb 21 21:27:44 2001
@@ -214,6 +214,13 @@
}
}
+# input method configuration binding (unix only)
+if {![string compare $tcl_platform(platform) "unix"]} {
+ if {[string compare [info commands imconfigure] {}]} {
+ bind Entry <FocusIn> {catch {imconfigure %W}}
+ }
+}
+
# Additional emacs-like bindings:
bind Entry <Control-a> {
|
