diff -r a13dafe6f9fe -r 6cf7a4c2dfce NewInspectorPanelView.st
--- a/NewInspectorPanelView.st	Wed Sep 08 12:00:12 1999 +0200
+++ b/NewInspectorPanelView.st	Wed Sep 08 19:40:37 1999 +0200
@@ -14,15 +14,15 @@
 
 "{ NameSpace: NewInspector }"
 
-SimpleView subclass:#InspectorPanelView
+SimpleView subclass:#NewInspectorPanelView
 	instanceVariableNames:'frames labelViews listViews scrollBar maxDepth leftHistory
 		rightHistory hzpView actionBlock valueChangedAction'
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Interface-Inspector'
+	category:'Interface-NewInspector'
 !
 
-!InspectorPanelView class methodsFor:'documentation'!
+!NewInspectorPanelView class methodsFor:'documentation'!
 
 copyright
 "
@@ -49,7 +49,7 @@
     |top slv|
 
     top := StandardSystemView new extent:600@400.
-    slv := NewInspector::InspectorPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
+    slv := NewInspector::NewInspectorPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
     slv inspect:top.
     slv action:[:el|Transcript showCR:el].
     top open.
@@ -67,7 +67,7 @@
     top := StandardSystemView new extent:600@400.
     vvp := VariableVerticalPanel origin:0.0@0.0  corner:1.0@1.0 in:top.
 
-    slv := NewInspector::InspectorPanelView origin:0.0@0.0 corner:1.0@0.5 in:vvp.
+    slv := NewInspector::NewInspectorPanelView origin:0.0@0.0 corner:1.0@0.5 in:vvp.
     edt := Workspace origin:0.0 @ 0.5 corner:1.0 @ 1.0 in:vvp.
     edt acceptAction:[:theText|slv accept:theText notifying:edt].
     edt   doItAction:[:theCode|slv doIt:theCode   notifying:edt].
@@ -80,7 +80,7 @@
 "
 ! !
 
-!InspectorPanelView class methodsFor:'constants'!
+!NewInspectorPanelView class methodsFor:'constants'!
 
 minDepth
     "returns the minimum of views assigned to a panel
@@ -88,7 +88,7 @@
     ^ 4
 ! !
 
-!InspectorPanelView methodsFor:'accessing'!
+!NewInspectorPanelView methodsFor:'accessing'!
 
 depth
     "returns number of listViews
@@ -144,7 +144,7 @@
     ]
 ! !
 
-!InspectorPanelView methodsFor:'accessing actions'!
+!NewInspectorPanelView methodsFor:'accessing actions'!
 
 action:aOneArgBlock
     "set the single click action block.
@@ -163,7 +163,7 @@
     valueChangedAction := aOneArgBlock
 ! !
 
-!InspectorPanelView methodsFor:'accessing selections'!
+!NewInspectorPanelView methodsFor:'accessing selections'!
 
 inspectedObject
     "returns the current inspected object
@@ -177,7 +177,7 @@
     ^ self findLastValidListWithSelection selectedInstanceVar
 ! !
 
-!InspectorPanelView methodsFor:'actions'!
+!NewInspectorPanelView methodsFor:'actions'!
 
 accept:aText notifying:aView
     "evaluating aText on the last selected instance var. on success the views
@@ -207,7 +207,7 @@
     self update.
 ! !
 
-!InspectorPanelView methodsFor:'event handling'!
+!NewInspectorPanelView methodsFor:'event handling'!
 
 handlesKeyPress:key inView:someView
     "all keys are handled by this instance itself
@@ -256,7 +256,7 @@
     actionBlock value:sivar.
 ! !
 
-!InspectorPanelView methodsFor:'initializing'!
+!NewInspectorPanelView methodsFor:'initializing'!
 
 initialize
     "initialize instance
@@ -287,7 +287,7 @@
     self depth:maxDepth.
 ! !
 
-!InspectorPanelView methodsFor:'menu - labels & actions'!
+!NewInspectorPanelView methodsFor:'menu - labels & actions'!
 
 browse:anIndex
     self classAtLabel:anIndex do:[:cls| cls browserClass openInClass:cls selector:nil ]
@@ -357,7 +357,7 @@
 
 ! !
 
-!InspectorPanelView methodsFor:'menu - views & actions'!
+!NewInspectorPanelView methodsFor:'menu - views & actions'!
 
 doTrace:anInstance
     "place a trace on messages sent to the instance
@@ -527,7 +527,7 @@
         self update
     ].
 
-    (InspectorList isTraceable:inst) ifFalse:[
+    (NewInspectorList isTraceable:inst) ifFalse:[
         ^ menu
     ].
 
@@ -563,7 +563,7 @@
 
 ! !
 
-!InspectorPanelView methodsFor:'private'!
+!NewInspectorPanelView methodsFor:'private'!
 
 doItOrAccept:aBlock
     "handle a doIt or accept action; on success all the folloed views are
@@ -657,7 +657,7 @@
 
 ! !
 
-!InspectorPanelView methodsFor:'private frames'!
+!NewInspectorPanelView methodsFor:'private frames'!
 
 computeExtentOfFrames
     "compute the extent of all frames (origin/corner)
@@ -691,7 +691,7 @@
     label  leftInset:15.
     label rightInset:2.
 
-    view  := ScrollableView for:InspectorListView miniScroller:true origin:0.0@20 
+    view  := ScrollableView for:NewInspectorListView miniScroller:true origin:0.0@20 
                          corner:1.0@1.0 in:frame.
 
     view := view scrolledView.
@@ -718,7 +718,7 @@
 
 ! !
 
-!InspectorPanelView methodsFor:'scrolling-basic'!
+!NewInspectorPanelView methodsFor:'scrolling-basic'!
 
 moveContentsLeft:nTimes
     "move the contents of all views one position left
@@ -808,7 +808,7 @@
           ifFalse:[self moveContentsRight:no]
 ! !
 
-!InspectorPanelView class methodsFor:'documentation'!
+!NewInspectorPanelView class methodsFor:'documentation'!
 
 version
     ^ '$Header$'