diff -r e65674cad5e5 -r ee75546c6820 STXInstaller.st
--- a/STXInstaller.st	Thu Oct 18 18:50:46 2001 +0200
+++ b/STXInstaller.st	Tue Oct 23 12:01:51 2001 +0200
@@ -453,7 +453,7 @@
         commandTraceView endEntry.
         cmd := cmd , ' 2>&1' .
 
-        self executeCommandAndShowOutput:cmd.
+        self executeCommandAndShowOutput:cmd emphasize:false.
 
         ^ true
     ].
@@ -659,32 +659,32 @@
     installWhat == #full ifTrue:[
         commandTraceView showCR:(resources string:'setting up symbolic links in doc ...'); endEntry.
         OperatingSystem executeCommand:('(cd ' , fullDir , '/doc/online ; make links)').
-    ] ifFalse:[
+        ^ self.
+    ].
 "/        OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)').
 
-        commandTraceView showCR:(resources string:'setting up symbolic links in lib ...'); endEntry.
+    commandTraceView showCR:(resources string:'setting up symbolic links in lib ...'); endEntry.
 
-        #(
-            'libbasic/libbasic.so'
-            'libbasic2/libbasic2.so'
-            'libbasic3/libbasic3.so'
-            'libcomp/libcomp.so'
-            'libboss/libboss.so'
-            'libview/*.so'
-            'libview2/libview2.so'
-            'libwidg/libwidg.so'
-            'libwidg2/libwidg2.so'
-            'libwidg3/libwidg3.so'
-            'libhtml/libhtml.so'
-            'libui/libui.so'
-            'libtool/libtool.so'
-            'libtool2/libtool2.so'
-            'goodies/persistency/libdbase.so'
-        ) do:[:src |  |cmd|
-            cmd := '(cd ' , stxLibDir , '/lib ; ln -s ../../packages/stx/' , src , ' . )'.
-            commandTraceView showCR:cmd; endEntry.
-            OperatingSystem executeCommand:cmd.
-        ].
+    #(
+        'libbasic/libbasic.so'
+        'libbasic2/libbasic2.so'
+        'libbasic3/libbasic3.so'
+        'libcomp/libcomp.so'
+        'libboss/libboss.so'
+        'libview/*.so'
+        'libview2/libview2.so'
+        'libwidg/libwidg.so'
+        'libwidg2/libwidg2.so'
+        'libwidg3/libwidg3.so'
+        'libhtml/libhtml.so'
+        'libui/libui.so'
+        'libtool/libtool.so'
+        'libtool2/libtool2.so'
+        'goodies/persistency/libdbase.so'
+    ) do:[:src |  |cmd|
+        cmd := '(cd ' , stxLibDir , '/lib ; ln -s ../../packages/stx/' , src , ' . )'.
+        commandTraceView showCR:cmd; endEntry.
+        OperatingSystem executeCommand:cmd.
     ].
 
     installDocFiles ifTrue:[
@@ -730,6 +730,10 @@
 !
 
 executeCommandAndShowOutput:cmd
+    ^ self executeCommandAndShowOutput:cmd emphasize:true
+!
+
+executeCommandAndShowOutput:cmd emphasize:doEmphasize
     |doneSemaphore line p|
 
     OperatingSystem isMSWINDOWSlike ifTrue:[
@@ -749,7 +753,10 @@
                     (p readWaitWithTimeout:0.1) ifFalse:[
                         line := p nextLine.
                         (line notNil and:[line notEmpty]) ifTrue:[
-                            commandTraceView showCR:(('  ' , line) asText emphasizeAllWith:(#color->Color red)).
+                            doEmphasize ifTrue:[
+                                line := line asText emphasizeAllWith:(#color->Color red).
+                            ].
+                            commandTraceView showCR:('  ' , line).
                             commandTraceView endEntry.
                         ]
                     ]
@@ -1028,6 +1035,10 @@
 
     l := d addTextLabel:(resources string:'Smalltalk/X CD installation (full).').
     l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
+
+    l := d addTextLabel:(resources string:'\Notice: this simply copies all of the CD to the destination directory below.\If any problem is encountered, manually copy the CD to your harddisk.') withCRs.
+    l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
+
     d addVerticalSpace.
     d addVerticalSpace.
 
@@ -1296,7 +1307,8 @@
 !
 
 askForFullInstallation
-    "open a dialog to enter destination directories"
+    "open a dialog to ask if a full installation is wanted;
+     Leave the result in installWhat (a symbol, either #full or #partial)."
 
     |d cm l green dark img|