MiniDebugger.st
changeset 22256 8ceb4fec6903
parent 20908 f7abc669164a
child 22733 088282c8f9f2
--- a/MiniDebugger.st	Fri Sep 15 08:39:38 2017 +0200
+++ b/MiniDebugger.st	Fri Sep 15 14:31:21 2017 +0200
@@ -897,11 +897,20 @@
         ^ true
     ].
 
-    (cmd == $.) ifTrue:[self printDot. ^ false ].
     (cmd == $l) ifTrue:[self printDotsMethodSource:false. ^ false ].
     (cmd == $L) ifTrue:[self printDotsMethodSource:true. ^ false ].
-    (cmd == $-) ifTrue:[self moveDotUp. self printDot. ^ false ].
-    (cmd == $+) ifTrue:[self moveDotDown. self printDot. ^ false ].
+
+    ('.+-' includes:cmd) ifTrue:[
+        (id ? 1) timesRepeat:[
+            (cmd == $-) ifTrue:[
+                self moveDotUp].
+            (cmd == $+) ifTrue:[
+                self moveDotDown].
+        ].        
+        self printDot. 
+        ^ false.
+    ].
+    
     (cmd == $?) ifTrue:[
         commandArg notEmpty ifTrue:[
             self helpOn:commandArg. ^ false
@@ -916,6 +925,7 @@
     ^ false.
 
     "Created: / 29-09-2011 / 08:58:47 / cg"
+    "Modified: / 15-09-2017 / 14:30:48 / cg"
 !
 
 getCommand:prompt