summaryrefslogtreecommitdiffstats
path: root/tools/genWinImage.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tools/genWinImage.tcl')
-rw-r--r--tools/genWinImage.tcl13
1 files changed, 8 insertions, 5 deletions
diff --git a/tools/genWinImage.tcl b/tools/genWinImage.tcl
index da7241e..e57d018 100644
--- a/tools/genWinImage.tcl
+++ b/tools/genWinImage.tcl
@@ -5,7 +5,7 @@
# Copyright (c) 1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: genWinImage.tcl,v 1.4 1999/05/26 02:39:13 stanton Exp $
+# RCS: @(#) $Id: genWinImage.tcl,v 1.5 2000/04/25 22:29:21 hobbs Exp $
# This file is insensitive to the directory from which it is invoked.
@@ -28,6 +28,9 @@ namespace eval genWinImage {
# This variable points to the directory containing the Tk built tree.
variable tkBuildDir
+
+ # our script name at runtime
+ variable script [info script]
}
# genWinImage::init --
@@ -45,8 +48,9 @@ proc genWinImage::init {} {
variable tclBuildDir
variable tkBuildDir
variable toolsDir
+ variable script
- puts "\n--- genWiImage.tcl started: \
+ puts "\n--- $script started: \
[clock format [clock seconds] -format "%Y%m%d-%H:%M"] --\n"
if {$tcl_platform(platform) != "windows"} {
@@ -65,7 +69,7 @@ proc genWinImage::init {} {
generateInstallers
- puts "\n--- genWiImage.tcl finished: \
+ puts "\n--- $script finished: \
[clock format [clock seconds] -format "%Y%m%d-%H:%M"] --\n\n"
}
@@ -141,8 +145,7 @@ proc genWinImage::generateInstallers {} {
# Run the Wise installer to create the Windows install images.
- if {[catch {exec [file native $wise32ProgFilePath] \
- /c tcl.wse} errMsg]} {
+ if {[catch {exec [file native $wise32ProgFilePath] /c tcl.wse} errMsg]} {
puts stderr "ERROR: $errMsg"
} else {
puts "\"TCL.EXE\" created."