--- 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 $'
! !