From 2556ded9037c05534a9bbeb17ed953d81a7f0934 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Tue, 8 Feb 2000 10:00:55 +0000
Subject: 	* library/tk.tcl: wrapped check for tcl_platform(os) around
 info 	exists because it won't in safe interpreters

FossilOrigin-Name: a9cb74b7832ba63e25ea302ec4d5c8f18b934ef4
---
 library/tk.tcl | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/library/tk.tcl b/library/tk.tcl
index be7b23e..4f1b378 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.18 2000/02/01 23:23:21 ericm Exp $
+# RCS: @(#) $Id: tk.tcl,v 1.19 2000/02/08 10:00:55 hobbs Exp $
 #
 # Copyright (c) 1992-1994 The Regents of the University of California.
 # Copyright (c) 1994-1996 Sun Microsystems, Inc.
-# Copyright (c) 1998-1999 Scriptics Corporation.
+# Copyright (c) 1998-2000 Scriptics Corporation.
 #
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
@@ -274,13 +274,13 @@ switch $tcl_platform(platform) {
 	# that is returned when the user presses <Shift-Tab>.  In order for
 	# tab traversal to work, we have to add these keysyms to the 
 	# PrevWindow event.
-	switch $tcl_platform(os) {
-	    "IRIX"  -
-	    "Linux" {
-		event add <<PrevWindow>> <ISO_Left_Tab>
-	    }
-	    "HP-UX" {
-		event add <<PrevWindow>> <hpBackTab>
+	# The info exists is necessary, because tcl_platform(os) doesn't
+	# exist in safe interpreters.
+	if {[info exists tcl_platform(os)]} {
+	    switch $tcl_platform(os) {
+		"IRIX"  -
+		"Linux" { event add <<PrevWindow>> <ISO_Left_Tab> }
+		"HP-UX" { event add <<PrevWindow>> <hpBackTab> }
 	    }
 	}
 	trace variable tk_strictMotif w tkEventMotifBindings
-- 
cgit v0.12