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