# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 865683931 -7200
# Node ID 5c5ddf5dcac11b7709b829fc9b3d1c941673bbc5
# Parent  86abfa062da3d3864fdeae698e57ea10b642ffff
checkin from browser

diff -r 86abfa062da3 -r 5c5ddf5dcac1 BrowserView.st
--- 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!
diff -r 86abfa062da3 -r 5c5ddf5dcac1 BrwsrView.st
--- 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!