--- a/MiniDebugger.st Thu Aug 10 14:14:29 1995 +0200
+++ b/MiniDebugger.st Thu Aug 10 14:32:31 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.14 1995-08-08 00:47:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.15 1995-08-10 12:29:22 claus Exp $
'!
!MiniDebugger class methodsFor: 'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.14 1995-08-08 00:47:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.15 1995-08-10 12:29:22 claus Exp $
+$Revision: 1.15 $
"
!
@@ -213,6 +214,11 @@
enter
|leaveCmd stillHere|
+ Display notNil ifTrue:[
+ Display ungrabPointer.
+ Display ungrabKeyboard.
+ ].
+
stillHere := true.
[stillHere] whileTrue:[
leaveCmd := self commandLoop.