checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 21 May 1998 01:47:53 +0200
changeset 1661 ba0ed1c5e137
parent 1660 d50fd38af6ef
child 1662 fff1561497ba
checkin from browser
DebugView.st
--- a/DebugView.st	Wed May 20 18:22:09 1998 +0200
+++ b/DebugView.st	Thu May 21 01:47:53 1998 +0200
@@ -2428,10 +2428,12 @@
     "remove all trace & breakpoints - if any"
 
     (MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
-        MessageTracer unwrapAllMethods
+        self withExecuteCursorDo:[
+            MessageTracer unwrapAllMethods
+        ]
     ]
 
-    "Modified: 21.9.1997 / 11:38:23 / cg"
+    "Modified: / 21.5.1998 / 01:44:43 / cg"
 !
 
 removeBreakpoint
@@ -2566,7 +2568,7 @@
     |oldSelection oldContext con idx|
 
     contextArray notNil ifTrue:[
-        self withWaitCursorDo:[
+        self withExecuteCursorDo:[
             oldSelection := contextView selection.
             oldSelection notNil ifTrue:[
                 oldContext := contextArray at:oldSelection ifAbsent:nil.
@@ -2593,7 +2595,7 @@
     ]
 
     "Created: / 10.1.1997 / 21:36:46 / cg"
-    "Modified: / 15.1.1998 / 19:45:09 / cg"
+    "Modified: / 21.5.1998 / 01:47:07 / cg"
 !
 
 setContext:aContext
@@ -3463,7 +3465,7 @@
             m enableAll:#(implementors senders inspectContext)
         ].
 
-        self withWaitCursorDo:[
+        self withExecuteCursorDo:[
             codeSet := false.
 
             "
@@ -3751,12 +3753,12 @@
     ]
 
     "Created: / 14.8.1997 / 20:15:00 / cg"
-    "Modified: / 27.4.1998 / 15:43:38 / cg"
+    "Modified: / 21.5.1998 / 01:47:13 / cg"
 ! !
 
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.200 1998-05-16 15:41:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.201 1998-05-20 23:47:53 cg Exp $'
 ! !
 DebugView initialize!