From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Tue, 19 Sep 2000 23:26:35 +0000 (+0000)
Subject: 	* tkcon.tcl (::tkcon::InitUI): corrected plugin handling, as 'wm
X-Git-Tag: tkcon-2-1~12
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=ec3d9c880f05bfc24ea772a0181eab7c6988f8a1;p=tkcon

	* tkcon.tcl (::tkcon::InitUI): corrected plugin handling, as 'wm
	withdraw' worked, but 'wm deiconify' was disallowed.
---

diff --git a/ChangeLog b/ChangeLog
index b6d7baf..a6b5431 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,13 @@
 2000-09-19  Jeff Hobbs  <hobbs@scriptics.com>
 
+	* tkcon.tcl (::tkcon::InitUI): corrected plugin handling, as 'wm
+	withdraw' worked, but 'wm deiconify' was disallowed.
+
+	* docs/plugin.html: updated link to plugin source
+	* docs/changes.txt: noted that changes.txt is no longer updated in
+	favor of this ChangeLog
+
+	* index.html: updated page with sourceforge links
 	* index.html: added toplevel html index doc
 
 	* tkcon.tcl: updated v2.0 to v2.1 alpha version
diff --git a/tkcon.tcl b/tkcon.tcl
index fe68d5d..5e965e5 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -296,7 +296,7 @@ proc ::tkcon::Init {} {
 	# Source history file only for the main console, as all slave
 	# consoles will adopt from the main's history, but still
 	# keep separate histories
-	if {[file exists $PRIV(histfile)]} {
+	if {!$PRIV(WWW) && [file exists $PRIV(histfile)]} {
 	    puts -nonewline "loading history file ... "
 	    # The history file is built to be loaded in and
 	    # understood by tkcon
@@ -482,7 +482,9 @@ proc ::tkcon::InitUI {title} {
 
     set root $PRIV(root)
     if {[string match . $root]} { set w {} } else { set w [toplevel $root] }
-    catch {wm withdraw $root}
+    if {!$PRIV(WWW)} {
+	wm withdraw $root
+    }
     set PRIV(base) $w
 
     ## Text Console
@@ -538,13 +540,14 @@ proc ::tkcon::InitUI {title} {
     $con tag configure blink -background $COLOR(blink)
     $con tag configure find -background $COLOR(blink)
 
-    if {![catch {wm title $root "TkCon $PRIV(version) $title"}]} {
+    if {!$PRIV(WWW)} {
+	wm title $root "TkCon $PRIV(version) $title"
 	bind $con <Configure> {
 	    scan [wm geometry [winfo toplevel %W]] "%%dx%%d" \
 		    OPT(cols) OPT(rows)
 	}
+	wm deiconify $root
     }
-    catch {wm deiconify $root}
     focus -force $PRIV(console)
     if {$OPT(gc-delay)} {
 	after $OPT(gc-delay) ::tkcon::GarbageCollect