--- a/InspectorView.st	Sun Nov 02 18:29:12 1997 +0100
+++ b/InspectorView.st	Sun Nov 02 18:37:29 1997 +0100
@@ -288,6 +288,7 @@
                 miniScrollerH:true
                 miniScrollerV:false
                 in:helpView.
+    v autoHideScrollBars:true.
     v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
     v topInset:(labelView preferredExtent y).
 
@@ -307,8 +308,9 @@
     v := HVScrollableView 
                 for:CodeView 
                 miniScrollerH:true
-                miniScrollerV:false
+                miniScrollerV:true
                 in:helpView.
+    v autoHideScrollBars:true.
     v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
     v topInset:(labelView2 preferredExtent y).
     workspace := v scrolledView.
@@ -318,7 +320,7 @@
     nShown := 100.
     hasMore := false.
 
-    "Modified: 28.6.1996 / 16:04:45 / cg"
+    "Modified: / 31.10.1997 / 03:03:10 / cg"
 !
 
 realize
@@ -354,6 +356,7 @@
         labels := #(
                       'inspect'
                       'basicInspect'
+                      'inspect hierarchical'
                       '-'
                       'browse'
                       'browse class hierarchy'
@@ -370,6 +373,7 @@
         selectors := #(
                       doInspect 
                       doBasicInspect 
+                      doNewInspect 
                       nil 
                       browse
                       browseClassHierarchy
@@ -386,6 +390,7 @@
         labels := #(
                       'inspect'
                       'basicInspect'
+                      'inspect hierarchical'
                       '-'
                       'browse'
                       'browse class hierarchy'
@@ -400,6 +405,7 @@
         selectors := #(
                       doInspect 
                       doBasicInspect 
+                      doNewInspect
                       nil 
                       browse
                       browseClassHierarchy
@@ -428,14 +434,14 @@
           selectors:selectors.
 
     selectedLine isNil ifTrue:[
-        m disableAll:#(doInspect doBasicInspect 
+        m disableAll:#(doInspect doBasicInspect doInspectNew
                        browse browseClassHierarchy browseFullClassProtocol
                        doStartMonitor)
     ].
 
     ^ m
 
-    "Modified: 3.7.1997 / 13:54:22 / cg"
+    "Modified: / 31.10.1997 / 12:49:39 / cg"
 ! !
 
 !InspectorView methodsFor:'menu actions'!
@@ -509,6 +515,13 @@
     self doInspect:false
 !
 
+doNewInspect
+    self doInspect:#new
+
+    "Created: / 31.10.1997 / 12:45:38 / cg"
+    "Modified: / 31.10.1997 / 12:47:11 / cg"
+!
+
 doStartMonitor
     "start a monitoring process"
 
@@ -763,13 +776,19 @@
     |objectToInspect|
 
     selectedLine notNil ifTrue:[
-	objectToInspect := self valueAtLine:selectedLine.
-	basic ifTrue:[
-	    objectToInspect basicInspect
-	] ifFalse:[
-	    objectToInspect inspect
-	]
+        objectToInspect := self valueAtLine:selectedLine.
+        basic == #new ifTrue:[
+            NewInspector::InspectorView inspect:objectToInspect
+        ] ifFalse:[
+            basic ifTrue:[
+                objectToInspect basicInspect
+            ] ifFalse:[
+                objectToInspect inspect
+            ]
+        ]
     ]
+
+    "Modified: / 31.10.1997 / 12:46:53 / cg"
 !
 
 keyPress:aKey x:x y:y
@@ -884,5 +903,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.69 1997-08-01 19:49:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.70 1997-11-02 17:37:29 cg Exp $'
 ! !