#UI_ENHANCEMENT by cg
class: ReadEvalPrintLoop
changed:
#basicReadEvalPrintLoopWithInput:output:error:compiler:prompt:print:
#cmd_setOrClear:to:
--- a/ReadEvalPrintLoop.st Mon May 07 08:12:12 2018 +0200
+++ b/ReadEvalPrintLoop.st Mon May 07 08:17:02 2018 +0200
@@ -685,29 +685,39 @@
cmd_setOrClear:lineStream to:aBoolean
"set/clear one of my internal flags"
- |what|
+ |what param flag|
+
+ flag := aBoolean.
lineStream skipSeparators.
what := lineStream nextAlphaNumericWord.
+ flag ifTrue:[
+ lineStream atEnd ifFalse:[
+ lineStream skipSeparators.
+ param := lineStream nextAlphaNumericWord.
+ flag := (param startsWith: 'f') not.
+ ].
+ ].
+
what notNil ifTrue:[
(what startsWith:'tra') ifTrue:[
- traceFlag := aBoolean.
+ traceFlag := flag.
^ self.
].
(what startsWith:'tim') ifTrue:[
- timingFlag := aBoolean.
+ timingFlag := flag.
^ self.
].
(what startsWith:'pro') ifTrue:[
- profilingFlag := aBoolean.
+ profilingFlag := flag.
^ self.
].
(what startsWith:'chunk') ifTrue:[
- doChunkFormat := aBoolean.
+ doChunkFormat := flag.
^ self.
].
(what startsWith:'edi') ifTrue:[
- aBoolean ifTrue:[
+ flag ifTrue:[
"/ set editor cmd
lineStream skipSeparators.
editorCommand := lineStream upToEnd.
@@ -717,15 +727,15 @@
^ self.
].
(what startsWith:'con') ifTrue:[
- confirmDebugger := aBoolean.
+ confirmDebugger := flag.
^ self.
].
(what startsWith:'node') ifTrue:[
- noDebugger := aBoolean.
+ noDebugger := flag.
^ self.
].
(what startsWith:'pri') ifTrue:[
- printFlag := aBoolean.
+ printFlag := flag.
^ self.
].
].
@@ -1065,7 +1075,7 @@
) ifTrue:[
"abortAll is handled, but not asked for here!!"
AbortAllOperationRequest handle:[:ex |
- error nextPutLine:('Evaluation aborted: ', ex description)
+ error nextPutLine:('Evaluation aborted.')
] do:[
(Error, ControlInterrupt) handle:[:ex |
prompt isNil ifTrue:[