diff options
author | hobbs <hobbs@noemail.net> | 2000-04-25 22:29:21 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2000-04-25 22:29:21 (GMT) |
commit | bcd65f838bd3d7e994dd174c9ff0bca77b97e768 (patch) | |
tree | 00e21bb2e8b517a53b32f5dce5fc46e8d448f91c /tools | |
parent | 2efe7899822f43bd703192c1f5525ac9a0dbb8d8 (diff) | |
download | tcl-bcd65f838bd3d7e994dd174c9ff0bca77b97e768.zip tcl-bcd65f838bd3d7e994dd174c9ff0bca77b97e768.tar.gz tcl-bcd65f838bd3d7e994dd174c9ff0bca77b97e768.tar.bz2 |
version cleanup
FossilOrigin-Name: 26d383863dc7aaf5c8c12ee137b74e2f971a5a90
Diffstat (limited to 'tools')
-rw-r--r-- | tools/genWinImage.tcl | 13 | ||||
-rw-r--r-- | tools/tcl.wse.in | 8 |
2 files changed, 12 insertions, 9 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." diff --git a/tools/tcl.wse.in b/tools/tcl.wse.in index bf6ec5e..1f3d316 100644 --- a/tools/tcl.wse.in +++ b/tools/tcl.wse.in @@ -1427,13 +1427,13 @@ item: Install File Flags=0000000000000010 end item: Install File - Source=${__TCLBASEDIR__}\library\http2.1\pkgIndex.tcl - Destination=%MAINDIR%\lib\tcl%VER%\http2.1\pkgIndex.tcl + Source=${__TCLBASEDIR__}\library\http2.3\pkgIndex.tcl + Destination=%MAINDIR%\lib\tcl%VER%\http2.3\pkgIndex.tcl Flags=0000000000000010 end item: Install File - Source=${__TCLBASEDIR__}\library\http2.1\http.tcl - Destination=%MAINDIR%\lib\tcl%VER%\http2.1\http.tcl + Source=${__TCLBASEDIR__}\library\http2.3\http.tcl + Destination=%MAINDIR%\lib\tcl%VER%\http2.3\http.tcl Flags=0000000000000010 end item: Install File |