From: Jean-Claude Wippler <jcw@equi4.com>
Date: Sun, 9 Feb 2003 18:45:51 +0000 (+0000)
Subject: tweak
X-Git-Tag: vfs-1-3~56
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=128eaa9a6f2d6e596e5e3edb0a28718f87da6c50;p=tclvfs

tweak
---

diff --git a/ChangeLog b/ChangeLog
index dd2558d..18930a0 100644
--- 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 d6304ab..7265c99 100644
--- 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
     }