--- a/BrowserView.st	Mon Oct 14 18:15:58 2002 +0200
+++ b/BrowserView.st	Mon Oct 14 18:17:50 2002 +0200
@@ -3053,7 +3053,7 @@
                                         Smalltalk systemPath:oldPath.
                                     ]
                                 ] ifFalse:[
-                                    self halt:'unimplemented: project-loading'.
+                                    self error:'unimplemented: project-loading' mayProceed:true.
                                 ]
                             ]
                     ] ifFalse:[
@@ -13334,11 +13334,6 @@
     "Created: / 17.6.1998 / 12:42:12 / cg"
 !
 
-withBusyCursorDo:aBlock
-    self halt:'obsolete'.
-    ^ self withWaitCursorDo:aBlock
-!
-
 withSearchCursorDo:aBlock
     ^ self topView withCursor:(Cursor questionMark) do:aBlock
 
@@ -14663,6 +14658,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.737 2002-08-02 17:27:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.738 2002-10-14 16:17:50 stefan Exp $'
 ! !
+
 BrowserView initialize!