summaryrefslogtreecommitdiffstats
path: root/library/tk.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/tk.tcl')
-rw-r--r--library/tk.tcl7
1 files changed, 4 insertions, 3 deletions
diff --git a/library/tk.tcl b/library/tk.tcl
index 0ad077e..1428a9d 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -3,11 +3,11 @@
# Initialization script normally executed in the interpreter for each
# Tk-based application. Arranges class bindings for widgets.
#
-# RCS: @(#) $Id: tk.tcl,v 1.26 2000/10/31 00:52:11 hobbs Exp $
+# RCS: @(#) $Id: tk.tcl,v 1.27 2000/10/31 01:12:38 hobbs Exp $
#
# Copyright (c) 1992-1994 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
-# Copyright (c) 1998-2000 Scriptics Corporation.
+# Copyright (c) 1998-2000 Ajuba Solutions.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
@@ -34,8 +34,9 @@ if {[info exists auto_path] && [string compare {} $tk_library] && \
set tk_strictMotif 0
# Turn on useinputmethods (X Input Methods) by default.
+# We catch this because safe interpreters may not allow the call.
-tk useinputmethods 1
+catch {tk useinputmethods 1}
# Create a ::tk namespace