DebugView.st
changeset 1281 21d1a15c13da
parent 1279 84ec8d33eba8
child 1284 091454814297
--- a/DebugView.st	Tue Aug 12 02:26:49 1997 +0200
+++ b/DebugView.st	Tue Aug 12 02:29:47 1997 +0200
@@ -3222,6 +3222,7 @@
         Context invalidReturnSignal handle:[:ex |
             'DebugView [info]: OOPS - non regular debugView closing(1)' infoPrintCR.
             self uncacheMyself.
+            Debugger newDebugger.
             ex return.
         ] do:[
             canAbort ifTrue:[
@@ -3232,6 +3233,7 @@
         ].
         "/ We don't reach this point normally
         'DebugView [info]: OOPS - non regular debugView closing(2)' infoPrintCR.
+        Debugger newDebugger.
         self uncacheMyself.
     ].
 
@@ -3240,8 +3242,8 @@
     self uncacheMyself.
     super destroy.
 
-    "Modified: 11.1.1997 / 13:55:09 / cg"
     "Modified: 10.7.1997 / 17:15:41 / stefan"
+    "Modified: 12.8.1997 / 02:07:19 / cg"
 !
 
 showSelection:lineNr
@@ -3542,6 +3544,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.167 1997-08-11 14:06:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.168 1997-08-12 00:29:47 cg Exp $'
 ! !
 DebugView initialize!