# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1268256092 -3600
# Node ID 9322aee00ea0fe3b90c80da8232e2400c4883a32
# Parent  a63d3048fc9cb4bd8ca45ae1e2e4f3f8d7d23ede
*** empty log message ***

diff -r a63d3048fc9c -r 9322aee00ea0 Tools__ViewTreeApplication.st
--- a/Tools__ViewTreeApplication.st	Tue Mar 09 13:10:54 2010 +0100
+++ b/Tools__ViewTreeApplication.st	Wed Mar 10 22:21:32 2010 +0100
@@ -15,7 +15,8 @@
 
 ToolApplicationModel subclass:#ViewTreeInspectorApplication
 	instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint
-		motionAction process followFocusChannel showNamesHolder'
+		motionAction process followFocusChannel showNamesHolder
+		inspectorView'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Smalltalk'
@@ -272,24 +273,39 @@
               menu: toolbarMenu
               textDefault: true
             )
-           (HierarchicalListViewSpec
-              name: 'List'
+       (VariableVerticalPanelSpec
+              name: 'VariableVerticalPanel1'
               layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0)
-              level: 1
-              model: model
-              menu: middleButtonMenu
-              hasHorizontalScrollBar: true
-              hasVerticalScrollBar: true
-              miniScrollerHorizontal: true
-              miniScrollerVertical: false
-              listModel: listOfItems
-              multipleSelectOk: true
-              useIndex: false
-              highlightMode: label
-              showLeftIndicators: false
-              indicatorSelector: indicatorClicked:
-              useDefaultIcons: false
-              postBuildCallback: postBuildTree:
+              component: 
+             (SpecCollection
+                collection: (
+                 (HierarchicalListViewSpec
+                    name: 'List'
+                    level: 1
+                    model: model
+                    menu: middleButtonMenu
+                    hasHorizontalScrollBar: true
+                    hasVerticalScrollBar: true
+                    miniScrollerHorizontal: true
+                    miniScrollerVertical: false
+                    listModel: listOfItems
+                    multipleSelectOk: true
+                    useIndex: false
+                    highlightMode: label
+                    showLeftIndicators: false
+                    indicatorSelector: indicatorClicked:
+                    useDefaultIcons: false
+                    postBuildCallback: postBuildTree:
+                  )
+                 (ViewSpec
+                    name: 'Box1'
+                    viewClassName: 'InspectorView'
+                    postBuildCallback: postBuildInspectorView:
+                  )
+                 )
+               
+              )
+              handles: (Any 0.5 1.0)
             )
            )
          
@@ -822,6 +838,7 @@
         info := ''
     ].
     hasSingleSelectionHolder value:(view notNil).
+    inspectorView inspect:view.
 !
 
 update:something with:someArgument from:aModel
@@ -1081,6 +1098,10 @@
     showNamesHolder addDependent:self.
 !
 
+postBuildInspectorView:anInspector
+    inspectorView := anInspector.
+!
+
 postBuildTree:aTree
     treeView := aTree scrolledView.
     treeView hasConstantHeight:true.