diff options
Diffstat (limited to 'tools/genWinImage.tcl')
| -rw-r--r-- | tools/genWinImage.tcl | 13 |
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." |