From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Thu, 17 May 2001 21:05:48 +0000 (+0000)
Subject: 	* tkcon.tcl: make check for actual tkcon root existence to allow
X-Git-Tag: tkcon-2-2~11
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=78d4337a04f5fc5f20a5774393e467de19176f00;p=tkcon

	* 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 367774f..a73553f 100644
--- 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 1d86859..7870866 100755
--- 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
+}