From ec3d9c880f05bfc24ea772a0181eab7c6988f8a1 Mon Sep 17 00:00:00 2001
From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Tue, 19 Sep 2000 23:26:35 +0000
Subject: [PATCH] * tkcon.tcl (::tkcon::InitUI): corrected plugin
handling, as 'wm withdraw' worked, but 'wm deiconify' was disallowed.
---
ChangeLog | 8 ++++++++
tkcon.tcl | 11 +++++++----
2 files changed, 15 insertions(+), 4 deletions(-)
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
--
2.23.0