summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rw-r--r--tools/genWinImage.tcl8
-rw-r--r--tools/tcl.wse.in2
2 files changed, 8 insertions, 2 deletions
diff --git a/tools/genWinImage.tcl b/tools/genWinImage.tcl
index cecca62..da7241e 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.3 1999/04/30 22:45:03 stanton Exp $
+# RCS: @(#) $Id: genWinImage.tcl,v 1.4 1999/05/26 02:39:13 stanton Exp $
# This file is insensitive to the directory from which it is invoked.
@@ -116,6 +116,12 @@ proc genWinImage::generateInstallers {} {
set __TCLBASEDIR__ [file native $tclBuildDir]
set __TKBASEDIR__ [file native $tkBuildDir]
set __WISE__ [file native [file join $toolsDir wise]]
+
+ set f [open [file join $__TCLBASEDIR__ generic/tcl.h] r]
+ set s [read $f]
+ close $f
+ regexp {TCL_PATCH_LEVEL\s*\"([^\"]*)\"} $s dummy __TCL_PATCH_LEVEL__
+
set f [open tcl.wse.in r]
set s [read $f]
close $f
diff --git a/tools/tcl.wse.in b/tools/tcl.wse.in
index 1703b73..8378667 100644
--- a/tools/tcl.wse.in
+++ b/tools/tcl.wse.in
@@ -46,7 +46,7 @@ item: Set Variable
end
item: Set Variable
Variable=PATCHLEVEL
- Value=8.1
+ Value=${__TCL_PATCH_LEVEL__}
end
item: Set Variable
Variable=APPTITLE