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

--- a/BrwsrView.st	Mon May 26 20:28:50 1997 +0200
+++ b/BrwsrView.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/Attic/BrwsrView.st,v 1.299 1997-04-29 19:19:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.300 1997-06-07 11:45:31 cg Exp $'
 ! !
 BrowserView initialize!