InspectorView.st
changeset 9651 cca26b954d45
parent 9648 bf870042cb9f
child 9672 bad886ee0f07
--- a/InspectorView.st	Sat Nov 27 19:21:08 2010 +0100
+++ b/InspectorView.st	Tue Nov 30 19:00:43 2010 +0100
@@ -307,6 +307,8 @@
 
     |aList sameObject sameClass oldSelectedField idx|
 
+    (anObject isNil and:[object isNil]) ifTrue:[^ self].
+
     sameObject := (anObject == object) and:[object notNil].
     sameClass := (anObject class == object class).
     selectionIndex notNil ifTrue:[
@@ -346,7 +348,7 @@
     ].
     self showSelection:(selectedLine ? 1).
 
-    "Modified: / 09-11-2010 / 14:39:42 / cg"
+    "Modified: / 30-11-2010 / 19:00:05 / cg"
 !
 
 isStandaloneInspector:aBoolean
@@ -2240,14 +2242,14 @@
 
     |s|
 
-    self topView withWaitCursorDo:[
+    self "topView" withWaitCursorDo:[
         s := self displayStringForValue:someValue.
         s = workspace selectionAsString ifFalse:[
             workspace replace:s.
         ].
     ].
 
-    "Modified: / 06-02-2007 / 14:26:47 / cg"
+    "Modified: / 30-11-2010 / 18:56:55 / cg"
 ! !
 
 !InspectorView methodsFor:'user interaction'!
@@ -2422,9 +2424,9 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.222 2010-11-26 09:21:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.223 2010-11-30 18:00:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.222 2010-11-26 09:21:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.223 2010-11-30 18:00:43 cg Exp $'
 ! !