blob: 823a8c5bdb08adb9ec30dfe3fdecca40593b36fb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
--- ../library/text.tcl.orig Thu Feb 10 08:52:50 2000
+++ ../library/text.tcl Wed Feb 21 21:27:44 2001
@@ -378,6 +378,13 @@
}
}
+# UNIX only bindings:
+
+if {[string equal $tcl_platform(platform) "unix"] &&
+ [string compare [info commands imconfigure] {}]} {
+ bind Text <FocusIn> {catch {imconfigure %W}}
+}
+
# Macintosh only bindings:
# if text black & highlight black -> text white, other text the same
|
