add tk appname alias in WWW plugin case

diff --git a/tkcon.tcl b/tkcon.tcl
index 82874f76efcf231a9c4461947df0525dbfa4c6a2..a996f82da56dd29a9049cf20538e60fdda363306 100755 (executable)
--- 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) }