* tkcon.tcl: make check for actual tkcon root existence to allow

	for setting the var ($::tkcon::PRIV(root)) in controlling apps to
	better control the root window.

diff --git a/ChangeLog b/ChangeLog
index 367774f22236d42e4c53391a4f2a3f8c49a6e1b6..a73553ff6ee559fff2218e8c7287a165310f20bd 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-05-17  Jeff Hobbs  <jeffh@ActiveState.com>
+
+       * tkcon.tcl: make check for actual tkcon root existence to allow
+       for setting the var ($::tkcon::PRIV(root)) in controlling apps to
+       better control the root window.
+
 2001-05-04  Jeff Hobbs  <jeffh@ActiveState.com>
 
        * docs/style.css: new file for html files to use.

diff --git a/tkcon.tcl b/tkcon.tcl
index 1d86859943602b5f53b3f6a7bbaff62d297ee363..787086684736a820cb74e889f43295a94fc4e552 100755 (executable)
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -4902,4 +4902,6 @@ proc ::tkcon::Resource {} {
 
 ## Initialize only if we haven't yet
 ##
-if {[catch {winfo exists $::tkcon::PRIV(root)}]} { ::tkcon::Init }
+if {[catch {winfo exists $::tkcon::PRIV(root)} exists] || !$exists} {
+    ::tkcon::Init
+}