--- 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