tweak

diff --git a/ChangeLog b/ChangeLog
index dd2558da578f2df17a968a81fdaf2ca0ec9285ae..18930a07fbca58f970bf886bcc05087964b30288 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
 
        * library/vfslib.tcl: fixed bug in new vfs::zstream code,
        preventing forward seeking from working properly
+       * library/starkit.tcl: recognize if launched as NT service
 
 2003-02-08  Vince Darley <vincentdarley@sourceforge.net>
 

diff --git a/library/starkit.tcl b/library/starkit.tcl
index d6304abed80bc56dbcb7260806d25b82ddb5617d..7265c99777abd535cecc37b7d6ebc8ebff408f83 100644 (file)
--- a/library/starkit.tcl
+++ b/library/starkit.tcl
@@ -66,6 +66,9 @@ namespace eval starkit {
        # detect when sourced from the plugin (tentative)
        if {[info exists ::embed_args]} { return plugin }
 
+       # detect when run as an NT service
+       if {[info exists ::tcl_service]} { return service }
+
        return sourced
     }