--- a/NewInspectorView.st	Wed Sep 08 12:00:12 1999 +0200
+++ b/NewInspectorView.st	Wed Sep 08 19:40:37 1999 +0200
@@ -14,14 +14,14 @@
 
 "{ NameSpace: NewInspector }"
 
-VariableVerticalPanel subclass:#InspectorView
+VariableVerticalPanel subclass:#NewInspectorView
 	instanceVariableNames:'inspectorView userSpace workSpace inspectedObject'
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Interface-Inspector'
+	category:'Interface-NewInspector'
 !
 
-!InspectorView class methodsFor:'documentation'!
+!NewInspectorView class methodsFor:'documentation'!
 
 copyright
 "
@@ -43,13 +43,13 @@
 "
     a new (multipane) inspector;
     open with:
-        NewInspector::InspectorView inspect:someObject
+        NewInspector::NewInspectorView inspect:someObject
 
     install as standard inspector:
-        Smalltalk at:#Inspector put:(NewInspector::InspectorView)
+        Smalltalk at:#Inspector put:(NewInspector::NewInspectorView)
 
     [open with:]
-        NewInspector::InspectorView 
+        NewInspector::NewInspectorView 
                 inspect:(Array with:#hello with:'hello' with:#(1 2 3) asSortedCollection with:Display)
 
     [author:]
@@ -66,12 +66,12 @@
 
     array := Array new:5.
     array at:1 put:(Array new:400).
-    NewInspector::InspectorView inspect:array
+    NewInspector::NewInspectorView inspect:array
                                                                         [exEnd]
 "
 ! !
 
-!InspectorView class methodsFor:'instance creation'!
+!NewInspectorView class methodsFor:'instance creation'!
 
 inspect:anObject
     "start inspector on an instance
@@ -86,14 +86,14 @@
     |top isp|
 
     top := StandardSystemView new extent:600@400.
-    isp := InspectorView origin:0.0@0.0  corner:1.0@1.0 in:top.
+    isp := NewInspectorView origin:0.0@0.0  corner:1.0@1.0 in:top.
     isp inspect:anObject.
     top open.
 
     ^ isp.
 ! !
 
-!InspectorView methodsFor:'accessing'!
+!NewInspectorView methodsFor:'accessing'!
 
 inspect:anInstance
 
@@ -104,7 +104,7 @@
 
 ! !
 
-!InspectorView methodsFor:'initialization'!
+!NewInspectorView methodsFor:'initialization'!
 
 initialize
     |view wsHeight|
@@ -113,7 +113,7 @@
 
     view := SimpleView origin:0.0 @ 0.0 corner:1.0 @ 0.5 in:self.
 
-    inspectorView := InspectorPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:view.
+    inspectorView := NewInspectorPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:view.
     workSpace     := Workspace          origin:0.0 @ 1.0 corner:1.0 @ 1.0 in:view.
     userSpace     := Workspace          origin:0.0 @ 0.5 corner:1.0 @ 1.0 in:self.
 
@@ -136,7 +136,7 @@
     "Modified: 18.3.1997 / 10:57:34 / cg"
 ! !
 
-!InspectorView methodsFor:'update'!
+!NewInspectorView methodsFor:'update'!
 
 updateWorkSpace
     "update the workSpace
@@ -144,7 +144,7 @@
     workSpace list:(Array with:(inspectorView selectedInstanceVar displayString)).
 ! !
 
-!InspectorView class methodsFor:'documentation'!
+!NewInspectorView class methodsFor:'documentation'!
 
 version
     ^ '$Header$'