--- a/DictionaryInspectorView.st	Tue Jan 14 18:26:58 1997 +0100
+++ b/DictionaryInspectorView.st	Tue Jan 14 18:29:05 1997 +0100
@@ -17,7 +17,7 @@
 	category:'Interface-Inspector'
 !
 
-!DictionaryInspectorView  class methodsFor:'documentation'!
+!DictionaryInspectorView class methodsFor:'documentation'!
 
 copyright
 "
@@ -177,19 +177,21 @@
 
     inspectedObject isNil ifTrue:[^ #()].
 
-    keys := inspectedObject keys asSortedCollection:[:a :b | a displayString < b displayString].
-    aList := keys collect:[:k | k isSymbol ifTrue:[
-                                                k printString
-                                               ] ifFalse:[
-                                                k displayString
-                                               ]
-                                         ].
-    aList := aList asOrderedCollection.
-    hideReceiver ifFalse:[aList addFirst:'self'].
+    self topView withWaitCursorDo:[
+        keys := inspectedObject keys asSortedCollection:[:a :b | a displayString < b displayString].
+        aList := keys collect:[:k | k isSymbol ifTrue:[
+                                                    k printString
+                                                   ] ifFalse:[
+                                                    k displayString
+                                                   ]
+                                             ].
+        aList := aList asOrderedCollection.
+        hideReceiver ifFalse:[aList addFirst:'self'].
+    ].
     ^ aList
 
     "Modified: 8.5.1996 / 14:16:35 / stefan"
-    "Modified: 28.6.1996 / 15:09:15 / cg"
+    "Modified: 14.2.1997 / 18:26:29 / cg"
 !
 
 release 
@@ -235,8 +237,8 @@
     "Modified: 30.7.1996 / 17:44:50 / cg"
 ! !
 
-!DictionaryInspectorView  class methodsFor:'documentation'!
+!DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.26 1996-07-30 15:44:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.27 1997-01-14 17:29:05 cg Exp $'
 ! !