checkin from browser
authorClaus Gittinger <cg@exept.de>
Sat, 31 Jul 1999 14:37:36 +0200
changeset 4470 8b5faec7deef
parent 4469 8719f53c8151
child 4471 f5ca98d3a5d9
checkin from browser
MiniDebug.st
MiniDebugger.st
--- a/MiniDebug.st	Sat Jul 31 11:41:48 1999 +0200
+++ b/MiniDebug.st	Sat Jul 31 14:37:36 1999 +0200
@@ -512,6 +512,10 @@
         (cmd == $X) ifTrue:[valid := true. Smalltalk fatalAbort].
         (cmd == $x) ifTrue:[valid := true. OperatingSystem exit].
 
+        "/ avoid usage print if return was typed ...
+        ((cmd == Character return)
+        or:[cmd == Character linefeed]) ifTrue:[valid := true.].
+
         valid ifFalse: [
             'valid commands:
    c ..... continue
@@ -696,5 +700,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/MiniDebug.st,v 1.42 1999-07-27 14:54:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/MiniDebug.st,v 1.43 1999-07-31 12:37:36 cg Exp $'
 ! !
--- a/MiniDebugger.st	Sat Jul 31 11:41:48 1999 +0200
+++ b/MiniDebugger.st	Sat Jul 31 14:37:36 1999 +0200
@@ -512,6 +512,10 @@
         (cmd == $X) ifTrue:[valid := true. Smalltalk fatalAbort].
         (cmd == $x) ifTrue:[valid := true. OperatingSystem exit].
 
+        "/ avoid usage print if return was typed ...
+        ((cmd == Character return)
+        or:[cmd == Character linefeed]) ifTrue:[valid := true.].
+
         valid ifFalse: [
             'valid commands:
    c ..... continue
@@ -696,5 +700,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.42 1999-07-27 14:54:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.43 1999-07-31 12:37:36 cg Exp $'
 ! !