--- a/NewInspectorListView.st	Wed Sep 08 12:00:12 1999 +0200
+++ b/NewInspectorListView.st	Wed Sep 08 19:40:37 1999 +0200
@@ -14,14 +14,14 @@
 
 "{ NameSpace: NewInspector }"
 
-SelectionInListView subclass:#InspectorListView
+SelectionInListView subclass:#NewInspectorListView
 	instanceVariableNames:'actionHolder inspectorList includesSelf'
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Interface-Inspector'
+	category:'Interface-NewInspector'
 !
 
-!InspectorListView class methodsFor:'documentation'!
+!NewInspectorListView class methodsFor:'documentation'!
 
 copyright
 "
@@ -62,7 +62,7 @@
 "
 ! !
 
-!InspectorListView methodsFor:'accessing'!
+!NewInspectorListView methodsFor:'accessing'!
 
 includesSelf:aBool
     includesSelf := aBool
@@ -76,7 +76,7 @@
     "set the lists contents from another list
     "
     aList notNil ifTrue:[inspectorList := aList list]
-                ifFalse:[inspectorList := InspectorList new].
+                ifFalse:[inspectorList := NewInspectorList new].
 
     inspectorList includesSelf:includesSelf.
     super list:(inspectorList instanceNames).
@@ -90,7 +90,7 @@
 
 ! !
 
-!InspectorListView methodsFor:'accessing actions'!
+!NewInspectorListView methodsFor:'accessing actions'!
 
 action:aOneArgAction
     "set the single click action block. If non-nil, that one is evaluated on single
@@ -99,7 +99,7 @@
     actionHolder := aOneArgAction
 ! !
 
-!InspectorListView methodsFor:'drawing'!
+!NewInspectorListView methodsFor:'drawing'!
 
 drawVisibleLineSelected:visLineNr with:fg and:bg
     "redraw a single line as selected.
@@ -167,7 +167,7 @@
 
 ! !
 
-!InspectorListView methodsFor:'event handling'!
+!NewInspectorListView methodsFor:'event handling'!
 
 sizeChanged:how
     "redraw marks
@@ -177,7 +177,7 @@
 
 ! !
 
-!InspectorListView methodsFor:'initialization'!
+!NewInspectorListView methodsFor:'initialization'!
 
 initialize
     "initialization
@@ -187,7 +187,7 @@
     ignoreReselect := false.
     includesSelf   := false.
     actionHolder   := [:el|].
-    inspectorList  := InspectorList new.
+    inspectorList  := NewInspectorList new.
 
     actionBlock := [:dummy|
         self setSelection:selection.
@@ -195,7 +195,7 @@
     ].
 ! !
 
-!InspectorListView methodsFor:'private'!
+!NewInspectorListView methodsFor:'private'!
 
 doesNotUnderstand:aMessage
     "forward a message to the inspectorList
@@ -232,7 +232,7 @@
 
 ! !
 
-!InspectorListView methodsFor:'selections'!
+!NewInspectorListView methodsFor:'selections'!
 
 setSelection:aNumberOrNil
     "select line, aNumber or deselect if argument is nil
@@ -245,7 +245,7 @@
                                  ifFalse:[super list:(inspectorList instanceNames)].
 ! !
 
-!InspectorListView methodsFor:'user interaction'!
+!NewInspectorListView methodsFor:'user interaction'!
 
 accept:aText notifying:aView
     "evaluating aText on the selected instance var; if an error occurs #Error
@@ -290,7 +290,7 @@
     super list:(inspectorList instanceNames).
 ! !
 
-!InspectorListView class methodsFor:'documentation'!
+!NewInspectorListView class methodsFor:'documentation'!
 
 version
     ^ '$Header$'