diff options
| author | hobbs <hobbs@noemail.net> | 2000-04-08 06:59:27 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2000-04-08 06:59:27 (GMT) |
| commit | e6880f6ac92e47929e2657bc460392d24d7d1390 (patch) | |
| tree | b66b4a994059e6ce1c4115f7f1e5afde35e24f2b /library/safetk.tcl | |
| parent | 1fc9ee7a96fb2c26044ad56d74a2ef300c64312c (diff) | |
| download | tk-e6880f6ac92e47929e2657bc460392d24d7d1390.zip tk-e6880f6ac92e47929e2657bc460392d24d7d1390.tar.gz tk-e6880f6ac92e47929e2657bc460392d24d7d1390.tar.bz2 | |
* library/safetk.tcl (disallowTk): made disallowTk work in the
simple case.
* library/comdlg.tcl (tkFocusGroup_In): fixed key navigation
problems in dialogs under CDE [Bug: 2960]
FossilOrigin-Name: d9ae0d4cfe65ccbf27da302ab30a41374e3dfd42
Diffstat (limited to 'library/safetk.tcl')
| -rw-r--r-- | library/safetk.tcl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/library/safetk.tcl b/library/safetk.tcl index e732932..b2e0c02 100644 --- a/library/safetk.tcl +++ b/library/safetk.tcl @@ -2,7 +2,7 @@ # # Support procs to use Tk in safe interpreters. # -# RCS: @(#) $Id: safetk.tcl,v 1.5 1999/09/02 17:02:53 hobbs Exp $ +# RCS: @(#) $Id: safetk.tcl,v 1.6 2000/04/08 06:59:28 hobbs Exp $ # # Copyright (c) 1997 Sun Microsystems, Inc. # @@ -185,12 +185,15 @@ proc ::safe::allowTk {interpPath argv} { proc ::safe::disallowTk {interpPath} { variable tkInit - unset tkInit($interpPath) - none + # This can already be deleted by the DeleteHook of the interp + if {[info exists tkInit($interpPath)]} { + unset tkInit($interpPath) + } + return } -# safe::disallowTk -- +# safe::tkDelete -- # # Clean up the window associated with the interp being deleted. # |