--- a/NewInspectorList.st	Wed Sep 08 12:00:12 1999 +0200
+++ b/NewInspectorList.st	Wed Sep 08 19:40:37 1999 +0200
@@ -13,14 +13,14 @@
 
 "{ NameSpace: NewInspector }"
 
-Object subclass:#InspectorList
+Object subclass:#NewInspectorList
 	instanceVariableNames:'inspectedObject instanceNames instanceTypes selection'
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Interface-Inspector'
+	category:'Interface-NewInspector'
 !
 
-!InspectorList class methodsFor:'documentation'!
+!NewInspectorList class methodsFor:'documentation'!
 
 copyright
 "
@@ -37,7 +37,7 @@
 
 ! !
 
-!InspectorList class methodsFor:'instance creation'!
+!NewInspectorList class methodsFor:'instance creation'!
 
 for:anObject
     "create a new list for an instance
@@ -54,7 +54,7 @@
 
 ! !
 
-!InspectorList class methodsFor:'helpers'!
+!NewInspectorList class methodsFor:'helpers'!
 
 asString:aCollection
     "converts any collection to a string seperated by spaces. If
@@ -83,7 +83,7 @@
 
 ! !
 
-!InspectorList class methodsFor:'testing'!
+!NewInspectorList class methodsFor:'testing'!
 
 isDirectory:anInstance
     "returns true if the instance is a directory
@@ -129,7 +129,7 @@
 
 ! !
 
-!InspectorList methodsFor:'accessing'!
+!NewInspectorList methodsFor:'accessing'!
 
 includesSelf:aBoolean
     "includes 'self' dependant on the boolean
@@ -194,7 +194,7 @@
     "Modified: / 4.2.1999 / 20:00:38 / cg"
 ! !
 
-!InspectorList methodsFor:'accessing contents'!
+!NewInspectorList methodsFor:'accessing contents'!
 
 inspectedObject
     "returns current inspected object
@@ -253,7 +253,7 @@
 
 ! !
 
-!InspectorList methodsFor:'initialization'!
+!NewInspectorList methodsFor:'initialization'!
 
 initialize
     "initialize instance attributes
@@ -265,7 +265,7 @@
 
 ! !
 
-!InspectorList methodsFor:'private'!
+!NewInspectorList methodsFor:'private'!
 
 resizeTo:aNumber
     "resize list to minimum aNumber
@@ -316,7 +316,7 @@
     ].
 ! !
 
-!InspectorList methodsFor:'selections'!
+!NewInspectorList methodsFor:'selections'!
 
 selectedInstanceType
     "returns type assigned to the selected list entry (#directory #normal #self #grow).
@@ -357,7 +357,7 @@
     ]    
 ! !
 
-!InspectorList methodsFor:'testing'!
+!NewInspectorList methodsFor:'testing'!
 
 includesSelf
     "returns true if 'self' is included in the list
@@ -381,7 +381,7 @@
 
 ! !
 
-!InspectorList methodsFor:'user interaction'!
+!NewInspectorList methodsFor:'user interaction'!
 
 accept:aText notifying:aView
     "evaluating aText on the selected instance var; if an error occurs #Error
@@ -488,7 +488,7 @@
     self update
 ! !
 
-!InspectorList class methodsFor:'documentation'!
+!NewInspectorList class methodsFor:'documentation'!
 
 version
     ^ '$Header$'