Tools__ViewTreeApplication.st
changeset 2770 9322aee00ea0
parent 2762 0c66aa3bfdff
child 2779 10fef360ad85
     1.1 --- a/Tools__ViewTreeApplication.st	Tue Mar 09 13:10:54 2010 +0100
     1.2 +++ b/Tools__ViewTreeApplication.st	Wed Mar 10 22:21:32 2010 +0100
     1.3 @@ -15,7 +15,8 @@
     1.4  
     1.5  ToolApplicationModel subclass:#ViewTreeInspectorApplication
     1.6  	instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint
     1.7 -		motionAction process followFocusChannel showNamesHolder'
     1.8 +		motionAction process followFocusChannel showNamesHolder
     1.9 +		inspectorView'
    1.10  	classVariableNames:''
    1.11  	poolDictionaries:''
    1.12  	category:'Interface-Smalltalk'
    1.13 @@ -272,24 +273,39 @@
    1.14                menu: toolbarMenu
    1.15                textDefault: true
    1.16              )
    1.17 -           (HierarchicalListViewSpec
    1.18 -              name: 'List'
    1.19 +       (VariableVerticalPanelSpec
    1.20 +              name: 'VariableVerticalPanel1'
    1.21                layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0)
    1.22 -              level: 1
    1.23 -              model: model
    1.24 -              menu: middleButtonMenu
    1.25 -              hasHorizontalScrollBar: true
    1.26 -              hasVerticalScrollBar: true
    1.27 -              miniScrollerHorizontal: true
    1.28 -              miniScrollerVertical: false
    1.29 -              listModel: listOfItems
    1.30 -              multipleSelectOk: true
    1.31 -              useIndex: false
    1.32 -              highlightMode: label
    1.33 -              showLeftIndicators: false
    1.34 -              indicatorSelector: indicatorClicked:
    1.35 -              useDefaultIcons: false
    1.36 -              postBuildCallback: postBuildTree:
    1.37 +              component: 
    1.38 +             (SpecCollection
    1.39 +                collection: (
    1.40 +                 (HierarchicalListViewSpec
    1.41 +                    name: 'List'
    1.42 +                    level: 1
    1.43 +                    model: model
    1.44 +                    menu: middleButtonMenu
    1.45 +                    hasHorizontalScrollBar: true
    1.46 +                    hasVerticalScrollBar: true
    1.47 +                    miniScrollerHorizontal: true
    1.48 +                    miniScrollerVertical: false
    1.49 +                    listModel: listOfItems
    1.50 +                    multipleSelectOk: true
    1.51 +                    useIndex: false
    1.52 +                    highlightMode: label
    1.53 +                    showLeftIndicators: false
    1.54 +                    indicatorSelector: indicatorClicked:
    1.55 +                    useDefaultIcons: false
    1.56 +                    postBuildCallback: postBuildTree:
    1.57 +                  )
    1.58 +                 (ViewSpec
    1.59 +                    name: 'Box1'
    1.60 +                    viewClassName: 'InspectorView'
    1.61 +                    postBuildCallback: postBuildInspectorView:
    1.62 +                  )
    1.63 +                 )
    1.64 +               
    1.65 +              )
    1.66 +              handles: (Any 0.5 1.0)
    1.67              )
    1.68             )
    1.69           
    1.70 @@ -822,6 +838,7 @@
    1.71          info := ''
    1.72      ].
    1.73      hasSingleSelectionHolder value:(view notNil).
    1.74 +    inspectorView inspect:view.
    1.75  !
    1.76  
    1.77  update:something with:someArgument from:aModel
    1.78 @@ -1081,6 +1098,10 @@
    1.79      showNamesHolder addDependent:self.
    1.80  !
    1.81  
    1.82 +postBuildInspectorView:anInspector
    1.83 +    inspectorView := anInspector.
    1.84 +!
    1.85 +
    1.86  postBuildTree:aTree
    1.87      treeView := aTree scrolledView.
    1.88      treeView hasConstantHeight:true.