Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ungrab all screens in case of an error
authorClaus Gittinger <cg@exept.de>
Mon, 11 Aug 1997 16:06:32 +0200
changeset 2852 b92953bbb7ef
parent 2851 856557e261a3
child 2853 0647da37ba9a
ungrab all screens in case of an error
MiniDebug.st file | annotate | diff | comparison | revisions
MiniDebugger.st file | annotate | diff | comparison | revisions 
--- a/MiniDebug.st	Mon Aug 11 16:05:28 1997 +0200
+++ b/MiniDebug.st	Mon Aug 11 16:06:32 1997 +0200
@@ -414,9 +414,15 @@
 getCommand
     |cmd c|
 
-    Display notNil ifTrue:[
-        Display ungrabPointer.
-        Display ungrabKeyboard.
+"/    Display notNil ifTrue:[
+"/        Display ungrabPointer.
+"/        Display ungrabKeyboard.
+"/    ].
+    Screen notNil ifTrue:[
+        Screen allScreens do:[:aScreen |
+            aScreen ungrabPointer.
+            aScreen ungrabKeyboard.
+        ].
     ].
 
     'MiniDebugger> ' print.
@@ -443,7 +449,7 @@
     ].
     ^ cmd
 
-    "Modified: 20.2.1996 / 20:24:13 / cg"
+    "Modified: 11.8.1997 / 16:04:39 / cg"
 !
 
 interpreterLoopWith:anObject
@@ -502,5 +508,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/MiniDebug.st,v 1.32 1997-07-24 08:01:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/MiniDebug.st,v 1.33 1997-08-11 14:06:32 cg Exp $'
 ! !
--- a/MiniDebugger.st	Mon Aug 11 16:05:28 1997 +0200
+++ b/MiniDebugger.st	Mon Aug 11 16:06:32 1997 +0200
@@ -414,9 +414,15 @@
 getCommand
     |cmd c|
 
-    Display notNil ifTrue:[
-        Display ungrabPointer.
-        Display ungrabKeyboard.
+"/    Display notNil ifTrue:[
+"/        Display ungrabPointer.
+"/        Display ungrabKeyboard.
+"/    ].
+    Screen notNil ifTrue:[
+        Screen allScreens do:[:aScreen |
+            aScreen ungrabPointer.
+            aScreen ungrabKeyboard.
+        ].
     ].
 
     'MiniDebugger> ' print.
@@ -443,7 +449,7 @@
     ].
     ^ cmd
 
-    "Modified: 20.2.1996 / 20:24:13 / cg"
+    "Modified: 11.8.1997 / 16:04:39 / cg"
 !
 
 interpreterLoopWith:anObject
@@ -502,5 +508,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.32 1997-07-24 08:01:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.33 1997-08-11 14:06:32 cg Exp $'
 ! !
hg/stx-libbasic