--- a/BrowserView.st	Wed May 26 20:35:02 1999 +0200
+++ b/BrowserView.st	Fri May 28 12:29:00 1999 +0200
@@ -9948,31 +9948,37 @@
     |resources editorClass|
 
     currentMethod notNil ifTrue:[
-	resources := currentMethod resources.
-	resources notNil ifTrue:[
-	    (resources includesKey:#canvas) ifTrue:[
-		editorClass := UIPainter
-	    ].
-	    (resources includesKey:#menu) ifTrue:[
-		editorClass := MenuEditor
-	    ].
-	    ((resources includesKey:#image) or: [resources includesKey:#fileImage]) ifTrue:[
-		editorClass := ImageEditor
-	    ].
-	    (resources includesKey:#help) ifTrue:[
-		editorClass := UIHelpTool
-	    ].
-	    (resources includesKey:#tableColumns) ifTrue:[
-		editorClass := DataSetBuilder
-	    ].
-	    (resources includesKey:#tabList) ifTrue:[
-		editorClass := TabListEditor
-	    ].
-	    (resources includesKey:#hierarchicalList) ifTrue:[
-		editorClass := HierarchicalListEditor
-	    ].
-	    editorClass notNil ifTrue: [editorClass openOnClass:currentClass andSelector:currentSelector]
-	]
+        resources := currentMethod resources.
+        resources notNil ifTrue:[
+            (resources includesKey:#canvas) ifTrue:[
+                editorClass := UIPainter
+            ].
+            (resources includesKey:#menu) ifTrue:[
+                editorClass := MenuEditor
+            ].
+            ((resources includesKey:#image) or: [resources includesKey:#fileImage]) ifTrue:[
+                editorClass := ImageEditor
+            ].
+            (resources includesKey:#help) ifTrue:[
+                editorClass := UIHelpTool
+            ].
+            (resources includesKey:#tableColumns) ifTrue:[
+                editorClass := DataSetBuilder
+            ].
+            (resources includesKey:#tabList) ifTrue:[
+                editorClass := TabListEditor
+            ].
+            (resources includesKey:#hierarchicalList) ifTrue:[
+                editorClass := HierarchicalListEditor
+            ].
+            editorClass notNil ifTrue: [
+                self withWaitCursorDo:[
+                    editorClass 
+                        openOnClass:currentClass 
+                        andSelector:currentSelector
+                ]
+            ]
+        ]
     ]
 
 !
@@ -13533,6 +13539,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.506 1999-05-26 18:35:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.507 1999-05-28 10:29:00 cg Exp $'
 ! !
 BrowserView initialize!