From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Tue, 14 Jan 2003 04:59:45 +0000 (+0000)
Subject: add tk appname alias in WWW plugin case
X-Git-Tag: tkcon-2-4~23
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=57e484f42691210f45a0b500303275f118c90873;p=tkcon

add tk appname alias in WWW plugin case
---

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) }