summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-10-31 01:12:38 (GMT)
committerhobbs <hobbs>2000-10-31 01:12:38 (GMT)
commit17a70c4d3562bee0b8d439f57cb48abb9537c86f (patch)
tree85123aab1dfa72585c207d6abb43921b30ef8ec0
parent678fe1edf87b52d01df6a6e0653f5aef06798cea (diff)
downloadtk-17a70c4d3562bee0b8d439f57cb48abb9537c86f.zip
tk-17a70c4d3562bee0b8d439f57cb48abb9537c86f.tar.gz
tk-17a70c4d3562bee0b8d439f57cb48abb9537c86f.tar.bz2
threw catch around tk useinputmethods call for safe interps
-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