--- 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.