From 57e484f42691210f45a0b500303275f118c90873 Mon Sep 17 00:00:00 2001
From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Tue, 14 Jan 2003 04:59:45 +0000
Subject: [PATCH] add tk appname alias in WWW plugin case

---
 tkcon.tcl | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tkcon.tcl b/tkcon.tcl
index 82874f7..a996f82 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -5307,6 +5307,17 @@ if {!$::tkcon::PRIV(WWW) && [string compare $::tkcon::PRIV(SCRIPT) {}]} {
     }
 }
 
+if {$::tkcon::PRIV(WWW)} {
+    rename tk ::tkcon::_tk
+    proc tk {cmd args} {
+	if {$cmd == "appname"} {
+	    return "tkcon/WWW"
+	} else {
+	    return [uplevel 1 ::tkcon::_tk [list $cmd] $args]
+	}
+    }
+}
+
 proc ::tkcon::Resource {} {
     uplevel \#0 {
 	if {[catch {source -rsrc tkcon}]} { source $::tkcon::PRIV(SCRIPT) }
-- 
2.23.0