--- a/STXInstaller.st Fri Oct 26 16:46:11 2001 +0200
+++ b/STXInstaller.st Fri Oct 26 18:32:55 2001 +0200
@@ -441,8 +441,10 @@
installWhat == #full ifTrue:[
"/ MUST be under stx (for packagePath stuff)
- fullDir := fullDir asFilename constructString:'stx'.
-
+ fullDir asFilename baseName ~= 'stx' ifTrue:[
+ fullDir := fullDir asFilename constructString:'stx'.
+ ].
+
msg at:4 put:(' all from CD' asText allBold).
msg at:6 put:' ' , (fullDir asText allBold).
actionTextHolder value:nil.
@@ -450,12 +452,23 @@
actionPercentageHolder value:-1.
OperatingSystem isUNIXlike ifTrue:[
+ cmd := '(cd ' , topDir , '/doc/online ; find . -type s -exec rm {} \; )'.
+ commandTraceView showCR:'removing symbolic links ...'.
+ commandTraceView endEntry.
+ self executeCommandAndShowOutput:cmd emphasize:false.
+self halt.
cmd := '(cd ' , topDir , ' ; tar cf - .) | (cd ' , fullDir , ' ; tar xvf -)'.
commandTraceView showCR:'copying ...'.
commandTraceView endEntry.
cmd := cmd , ' 2>&1' .
self executeCommandAndShowOutput:cmd emphasize:false.
+
+ cmd := '(cd ' , fullDir , '/doc/online ; make )'.
+ commandTraceView showCR:'creating symbolic links ...'.
+ commandTraceView endEntry.
+ self executeCommandAndShowOutput:cmd emphasize:false.
+
] ifFalse:[
fullDir asFilename exists ifFalse:[
commandTraceView showCR:(resources string:'creating %1 ...' with:fullDir asFilename pathName).
@@ -1499,7 +1512,7 @@
textView := HVScrollableView for:TextCollector in:v.
textView origin:0.0@0.0 corner:1.0@1.0.
textView bottomInset:30.
- textView lineLimit:6000.
+ textView lineLimit:10000.
commandTraceView := textView scrolledView.
installWhat == #full ifTrue:[