*** library/entry.tcl.orig	Sat Oct 30 11:36:08 1999
--- library/entry.tcl	Sun Jan 16 17:43:02 2000
***************
*** 214,219 ****
--- 214,226 ----
      }
  }
  
+ # 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> {
