diff -r 92fe48284264 -r ce8d50491138 ReadEvalPrintLoop.st --- a/ReadEvalPrintLoop.st Sat Nov 05 12:52:56 2016 +0100 +++ b/ReadEvalPrintLoop.st Sat Nov 05 12:55:54 2016 +0100 @@ -328,7 +328,8 @@ what notNil ifTrue:[ showAll := (what startsWith:'all'). - (showAll or:[ what startsWith:'var' ]) ifTrue:[ + (showAll or:[ what startsWith:'var' ]) ifTrue:[ + showAll ifTrue:[ errStream nextPutLine:'Variables:'; nextPutLine:'----------' ]. Workspace notNil ifTrue:[ Workspace workspaceVariables keys asOrderedCollection sort do:[:nm | |holder| @@ -337,10 +338,12 @@ ]. ]. ]. - (showAll or:[ what startsWith:'proc' ]) ifTrue:[ + (showAll or:[ what startsWith:'proc' ]) ifTrue:[ + showAll ifTrue:[ errStream nextPutLine:'Threads:'; nextPutLine:'--------' ]. MiniDebugger basicNew showProcesses. ]. (showAll or:[ what startsWith:'mod' ]) ifTrue:[ + showAll ifTrue:[ errStream nextPutLine:'Modules:'; nextPutLine:'--------' ]. printModule := [:mod | errStream @@ -363,6 +366,7 @@ (showAll or:[ what startsWith:'mem' ]) ifTrue:[ |allMem| + showAll ifTrue:[ errStream nextPutLine:'Memory:'; nextPutLine:'-------' ]. allMem := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed + ObjectMemory newSpaceUsed. errStream @@ -373,6 +377,7 @@ nextPutLine:('majorGC: ',(ObjectMemory garbageCollectCount) printString). ]. (showAll or:[ what startsWith:'flag' ]) ifTrue:[ + showAll ifTrue:[ errStream nextPutLine:'Flags:'; nextPutLine:'------' ]. errStream nextPutLine:('trace : ',traceFlag printString); nextPutLine:('timing: ',timingFlag printString);