From 78d4337a04f5fc5f20a5774393e467de19176f00 Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Thu, 17 May 2001 21:05:48 +0000 Subject: [PATCH] * 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. --- ChangeLog | 6 ++++++ tkcon.tcl | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 367774f..a73553f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2001-05-17 Jeff Hobbs + + * 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 * 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 +} -- 2.23.0