--- a/STXInstaller.st Tue Nov 12 18:31:34 1996 +0100
+++ b/STXInstaller.st Thu Jan 09 03:10:15 1997 +0100
@@ -271,10 +271,11 @@
self warn:('command error. Could not execute:\\' , cmd) withCRs.
] ifFalse:[
[p atEnd] whileFalse:[
- [p readWaitWithTimeout:0.1] whileTrue:[].
- line := p nextLine.
- (line notNil and:[line notEmpty]) ifTrue:[
- commandTraceView showCR:((' ' , line) asText emphasizeAllWith:(#color->Color red)).
+ (p readWaitWithTimeout:0.1) ifFalse:[
+ line := p nextLine.
+ (line notNil and:[line notEmpty]) ifTrue:[
+ commandTraceView showCR:((' ' , line) asText emphasizeAllWith:(#color->Color red)).
+ ]
]
].
p close.
@@ -292,7 +293,7 @@
^ true
"Created: 17.7.1996 / 15:16:20 / cg"
- "Modified: 18.7.1996 / 22:20:24 / cg"
+ "Modified: 9.1.1997 / 03:07:28 / cg"
!
createDirectories