--- a/BrowserView.st Mon May 26 20:28:50 1997 +0200
+++ b/BrowserView.st Sat Jun 07 13:45:31 1997 +0200
@@ -7402,11 +7402,15 @@
self checkMethodSelected ifFalse:[^ self].
prev := Compiler stcCompilation:#always.
- [
- codeView accept.
- ] valueNowOrOnUnwindDo:[
- Compiler stcCompilation:prev
- ].
+ self withWaitCursorDo:[
+ [
+ codeView accept.
+ ] valueNowOrOnUnwindDo:[
+ Compiler stcCompilation:prev
+ ]
+ ].
+
+ "Modified: 7.6.1997 / 13:44:13 / cg"
!
methodSenders
@@ -10103,6 +10107,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.299 1997-04-29 19:19:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.300 1997-06-07 11:45:31 cg Exp $'
! !
BrowserView initialize!