# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1478348716 -3600
# Node ID d192dae880515e2f3ff2132a1fdf31ece2c1daaa
# Parent  a1191adb52dce79d82112812a8ca0bd500237a6f
#REFACTORING by cg
class: ReadEvalPrintLoop
changed: #cmd_show:

diff -r a1191adb52dc -r d192dae88051 ReadEvalPrintLoop.st
--- a/ReadEvalPrintLoop.st	Sat Nov 05 13:25:07 2016 +0100
+++ b/ReadEvalPrintLoop.st	Sat Nov 05 13:25:16 2016 +0100
@@ -337,11 +337,15 @@
                     errStream nextPutAll:nm; nextPutAll:' -> '; nextPutLine:holder value printString.
                 ].
             ].
+            ok := true.
         ].
+        
         (showAll or:[ what startsWith:'proc' ]) ifTrue:[                    
             showAll ifTrue:[ errStream cr; nextPutLine:'Threads:'; nextPutLine:'--------' ].
             MiniDebugger basicNew showProcesses.
+            ok := true.
         ].
+        
         (showAll or:[ what startsWith:'mod' ]) ifTrue:[
             showAll ifTrue:[ errStream cr; nextPutLine:'Modules:'; nextPutLine:'--------' ].
             printModule :=
@@ -362,26 +366,31 @@
                 select:[:m | m dynamic])
                     asSortedCollection:[:a :b | a name < b name]) do:printModule.
 
+            ok := true.
         ].
+        
         (showAll or:[ what startsWith:'mem' ]) ifTrue:[
             |allMem|
             
             showAll ifTrue:[ errStream cr; nextPutLine:'Memory:'; nextPutLine:'-------' ].
             allMem := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed
-                                             + ObjectMemory newSpaceUsed.
+                                                + ObjectMemory newSpaceUsed.
             errStream
                 nextPutLine:('overall: ',(allMem // 1024) printString,' Kb');
                 nextPutLine:('in use : ',(ObjectMemory bytesUsed // 1024) printString,' Kb');
                 nextPutLine:('free   : ',(ObjectMemory freeSpace // 1024) printString,' Kb');
                 nextPutLine:('minorGC: ',(ObjectMemory scavengeCount) printString);
                 nextPutLine:('majorGC: ',(ObjectMemory garbageCollectCount) printString).
+            ok := true.
         ].
+        
         (showAll or:[ what startsWith:'flag' ]) ifTrue:[
             showAll ifTrue:[ errStream cr; nextPutLine:'Flags:'; nextPutLine:'------' ].
             errStream
                 nextPutLine:('trace :      ',traceFlag printString);
                 nextPutLine:('timing:      ',timingFlag printString);
                 nextPutLine:('chunkFormat: ',doChunkFormat printString).
+            ok := true.
         ].
     ].