#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Tue, 12 Mar 2019 22:39:49 +0100
changeset 23882 4ff5dd3eda16
parent 23881 6a516cb11eba
child 23883 df08efe904d5
#UI_ENHANCEMENT by cg class: MiniInspector changed: #commandLoop
MiniInspector.st
--- a/MiniInspector.st	Tue Mar 12 22:36:41 2019 +0100
+++ b/MiniInspector.st	Tue Mar 12 22:39:49 2019 +0100
@@ -132,13 +132,13 @@
             valid := true.
             ObjectMemory dumpObject:inspectedObject class
         ].
-        ((cmd == $e) or:[ cmd == $E or:[ cmd == $? ]]) ifTrue:[
+        ((cmd == $e) or:[ cmd == $E or:[ cmd == $Q ]]) ifTrue:[
             valid := true.
             lastValue := Parser evaluate:commandArg receiver:inspectedObject.
             (cmd == $e) ifTrue:[
                 lastValue _errorPrintCR.
             ].
-            (cmd == $?) ifTrue:[
+            (cmd == $Q) ifTrue:[
                 inspectedObject := lastValue.
                 'inspecting ' _errorPrint.
                 inspectedObject displayString _errorPrintCR. '' _errorPrintCR.
@@ -183,7 +183,7 @@
 
  I ...... interpreter
  e expr   evaluate expression & print result ("E" to not print)
- ? expr   evaluate expression & inspect result
+ Q expr   evaluate expression & inspect result
  $        inspect the value of the last evaluated expression
 
  C ...... inspect class
@@ -197,7 +197,7 @@
     ].
 
     "Modified: / 03-02-2014 / 10:19:46 / cg"
-    "Modified: / 12-03-2019 / 22:16:45 / Claus Gittinger"
+    "Modified: / 12-03-2019 / 22:39:34 / Claus Gittinger"
 !
 
 enter