Tools__ViewTreeApplication.st
changeset 2770 9322aee00ea0
parent 2762 0c66aa3bfdff
child 2779 10fef360ad85
equal deleted inserted replaced
2769:a63d3048fc9c 2770:9322aee00ea0
    13 
    13 
    14 "{ NameSpace: Tools }"
    14 "{ NameSpace: Tools }"
    15 
    15 
    16 ToolApplicationModel subclass:#ViewTreeInspectorApplication
    16 ToolApplicationModel subclass:#ViewTreeInspectorApplication
    17 	instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint
    17 	instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint
    18 		motionAction process followFocusChannel showNamesHolder'
    18 		motionAction process followFocusChannel showNamesHolder
       
    19 		inspectorView'
    19 	classVariableNames:''
    20 	classVariableNames:''
    20 	poolDictionaries:''
    21 	poolDictionaries:''
    21 	category:'Interface-Smalltalk'
    22 	category:'Interface-Smalltalk'
    22 !
    23 !
    23 
    24 
   270               name: 'toolbarMenu'
   271               name: 'toolbarMenu'
   271               layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
   272               layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
   272               menu: toolbarMenu
   273               menu: toolbarMenu
   273               textDefault: true
   274               textDefault: true
   274             )
   275             )
   275            (HierarchicalListViewSpec
   276        (VariableVerticalPanelSpec
   276               name: 'List'
   277               name: 'VariableVerticalPanel1'
   277               layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0)
   278               layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0)
   278               level: 1
   279               component: 
   279               model: model
   280              (SpecCollection
   280               menu: middleButtonMenu
   281                 collection: (
   281               hasHorizontalScrollBar: true
   282                  (HierarchicalListViewSpec
   282               hasVerticalScrollBar: true
   283                     name: 'List'
   283               miniScrollerHorizontal: true
   284                     level: 1
   284               miniScrollerVertical: false
   285                     model: model
   285               listModel: listOfItems
   286                     menu: middleButtonMenu
   286               multipleSelectOk: true
   287                     hasHorizontalScrollBar: true
   287               useIndex: false
   288                     hasVerticalScrollBar: true
   288               highlightMode: label
   289                     miniScrollerHorizontal: true
   289               showLeftIndicators: false
   290                     miniScrollerVertical: false
   290               indicatorSelector: indicatorClicked:
   291                     listModel: listOfItems
   291               useDefaultIcons: false
   292                     multipleSelectOk: true
   292               postBuildCallback: postBuildTree:
   293                     useIndex: false
       
   294                     highlightMode: label
       
   295                     showLeftIndicators: false
       
   296                     indicatorSelector: indicatorClicked:
       
   297                     useDefaultIcons: false
       
   298                     postBuildCallback: postBuildTree:
       
   299                   )
       
   300                  (ViewSpec
       
   301                     name: 'Box1'
       
   302                     viewClassName: 'InspectorView'
       
   303                     postBuildCallback: postBuildInspectorView:
       
   304                   )
       
   305                  )
       
   306                
       
   307               )
       
   308               handles: (Any 0.5 1.0)
   293             )
   309             )
   294            )
   310            )
   295          
   311          
   296         )
   312         )
   297       )
   313       )
   820 
   836 
   821     ] ifFalse:[
   837     ] ifFalse:[
   822         info := ''
   838         info := ''
   823     ].
   839     ].
   824     hasSingleSelectionHolder value:(view notNil).
   840     hasSingleSelectionHolder value:(view notNil).
       
   841     inspectorView inspect:view.
   825 !
   842 !
   826 
   843 
   827 update:something with:someArgument from:aModel
   844 update:something with:someArgument from:aModel
   828     |oldSelection|
   845     |oldSelection|
   829 
   846 
  1079 
  1096 
  1080     showNamesHolder := false asValue.
  1097     showNamesHolder := false asValue.
  1081     showNamesHolder addDependent:self.
  1098     showNamesHolder addDependent:self.
  1082 !
  1099 !
  1083 
  1100 
       
  1101 postBuildInspectorView:anInspector
       
  1102     inspectorView := anInspector.
       
  1103 !
       
  1104 
  1084 postBuildTree:aTree
  1105 postBuildTree:aTree
  1085     treeView := aTree scrolledView.
  1106     treeView := aTree scrolledView.
  1086     treeView hasConstantHeight:true.
  1107     treeView hasConstantHeight:true.
  1087 ! !
  1108 ! !
  1088 
  1109