summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rw-r--r--tools/genWinImage.tcl13
-rw-r--r--tools/tcl.wse.in8
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