From 128eaa9a6f2d6e596e5e3edb0a28718f87da6c50 Mon Sep 17 00:00:00 2001 From: Jean-Claude Wippler Date: Sun, 9 Feb 2003 18:45:51 +0000 Subject: [PATCH] tweak --- ChangeLog | 1 + library/starkit.tcl | 3 +++ 2 files changed, 4 insertions(+) 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 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 } -- 2.23.0