* tkcon.tcl (::tkcon::InitUI): corrected plugin handling, as 'wm

	withdraw' worked, but 'wm deiconify' was disallowed.

diff --git a/ChangeLog b/ChangeLog
index b6d7baf3e29a54c5dd3d6088a6be6f3ebc096f9c..a6b5431792bf632ad384f202a07dcfa56dc23aac 100644 (file)
--- 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 fe68d5dccfdf129720c1e0f4b60e7696f3782246..5e965e5ef7bb4a2ee07e128d748f5b4363d6a521 100755 (executable)
--- 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