# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1520258009 -3600
# Node ID cd5f0602a8634f76e7352983e50985f8dd913edb
# Parent  2657d849761eb9a656b5610bd88375e2c22f3e68
#FEATURE by cg
class: ReadEvalPrintLoop
changed: #cmd_show:

diff -r 2657d849761e -r cd5f0602a863 ReadEvalPrintLoop.st
--- a/ReadEvalPrintLoop.st	Mon Mar 05 14:48:43 2018 +0100
+++ b/ReadEvalPrintLoop.st	Mon Mar 05 14:53:29 2018 +0100
@@ -521,6 +521,14 @@
 !
 
 cmd_show:lineStream
+    "show directive:
+        show packages
+        show modules (= loaded packages)
+        show variables 
+        etc.
+        
+    "
+
     |errStream what showAll ok|
 
     errStream := self errorStream.
@@ -533,25 +541,25 @@
         showAll := (what startsWith:'all').
         
         (showAll or:[ what startsWith:'var' ]) ifTrue:[                      
-            showAll ifTrue:[ errStream showCR:'Variables:'; showCR:'----------' ].
+            errStream showCR:'Variables:'; showCR:'----------'.
             self showVariables.
             ok := true.
         ].
         
         (showAll or:[ what startsWith:'proc' ]) ifTrue:[                    
-            showAll ifTrue:[ errStream cr; showCR:'Threads:'; showCR:'--------' ].
+            errStream cr; showCR:'Threads:'; showCR:'--------'.
             MiniDebugger basicNew showProcesses.
             ok := true.
         ].
         
         ("showAll or:[" what startsWith:'pack' "]") ifTrue:[                    
-            showAll ifTrue:[ errStream cr; showCR:'Available Packages:'; showCR:'--------' ].
+            errStream cr; showCR:'Available Packages:'; showCR:'--------'.
             self showPackages.
             ok := true.
         ].
 
         (showAll or:[ what startsWith:'mod' ]) ifTrue:[
-            showAll ifTrue:[ errStream cr; showCR:'Modules:'; showCR:'--------' ].
+            errStream cr; showCR:'Modules:'; showCR:'--------'.
             self showModules.
 
             ok := true.
@@ -560,7 +568,7 @@
         (showAll or:[ what startsWith:'mem' ]) ifTrue:[
             |allMem|
             
-            showAll ifTrue:[ errStream cr; showCR:'Memory:'; showCR:'-------' ].
+            errStream cr; showCR:'Memory:'; showCR:'-------'.
             "/ allMem := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed
             "/                                     + ObjectMemory newSpaceUsed.
             errStream
@@ -573,7 +581,7 @@
         ].
         
         (showAll or:[ what startsWith:'flag' ]) ifTrue:[
-            showAll ifTrue:[ errStream cr; showCR:'Flags:'; showCR:'------' ].
+            errStream cr; showCR:'Flags:'; showCR:'------'.
             errStream
                 showCR:('trace :      ',(traceFlag ? false) printString);
                 showCR:('timing:      ',(timingFlag ? false) printString);
@@ -586,6 +594,7 @@
 
     ok ifFalse:[
         errStream showCR:'? show what ?'.
+        errStream showCR:'? (argument must be one of: packages, modules, variables, flags, memory, processes)'.
     ].
     
     "