*** empty log message ***
authorca
Sat, 07 Feb 2009 17:11:33 +0100
changeset 245864d8f3c973b3
parent 2457 04459d76932e
child 2459 dc2cc94d9444
*** empty log message ***
Tools__ViewTreeApplication.st
     1.1 --- a/Tools__ViewTreeApplication.st	Thu Jan 29 10:04:06 2009 +0100
     1.2 +++ b/Tools__ViewTreeApplication.st	Sat Feb 07 17:11:33 2009 +0100
     1.3 @@ -4,8 +4,7 @@
     1.4  
     1.5  ApplicationModel subclass:#ViewTreeApplication
     1.6  	instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint
     1.7 -		motionAction infoChannel process followFocusChannel
     1.8 -		showNamesHolder'
     1.9 +		motionAction process followFocusChannel showNamesHolder'
    1.10  	classVariableNames:''
    1.11  	poolDictionaries:''
    1.12  	category:'A-Views-Support'
    1.13 @@ -150,7 +149,7 @@
    1.14              )
    1.15             (HierarchicalListViewSpec
    1.16                name: 'List'
    1.17 -              layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0)
    1.18 +              layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
    1.19                level: 1
    1.20                model: model
    1.21                menu: middleButtonMenu
    1.22 @@ -162,21 +161,11 @@
    1.23                multipleSelectOk: true
    1.24                useIndex: false
    1.25                highlightMode: label
    1.26 -              doubleClickSelector: doubleClicked:
    1.27 -              valueChangeSelector: selectionChanged
    1.28                showLeftIndicators: false
    1.29                indicatorSelector: indicatorClicked:
    1.30                useDefaultIcons: false
    1.31                postBuildCallback: postBuildTree:
    1.32              )
    1.33 -           (LabelSpec
    1.34 -              name: 'infoChannel'
    1.35 -              layout: (LayoutFrame 0 0.0 -24 1.0 0 1.0 0 1.0)
    1.36 -              level: 1
    1.37 -              translateLabel: true
    1.38 -              labelChannel: infoChannel
    1.39 -              adjust: left
    1.40 -            )
    1.41             )
    1.42           
    1.43          )
    1.44 @@ -516,10 +505,6 @@
    1.45  
    1.46  !ViewTreeApplication methodsFor:'actions'!
    1.47  
    1.48 -doubleClicked:anIndex
    1.49 -    self doInspect:#view.
    1.50 -!
    1.51 -
    1.52  indicatorClicked:anIndex
    1.53      |item sensor|
    1.54  
    1.55 @@ -556,12 +541,6 @@
    1.56      ^ model hasTargetWidgetChannel
    1.57  !
    1.58  
    1.59 -infoChannel
    1.60 -    "channel, which keeps a printable information"
    1.61 -
    1.62 -    ^ infoChannel
    1.63 -!
    1.64 -
    1.65  listOfItems
    1.66      "returns the hierarchical list of items"
    1.67  
    1.68 @@ -625,7 +604,6 @@
    1.69          info := ''
    1.70      ].
    1.71      hasSingleSelectionHolder value:(view notNil).
    1.72 -    infoChannel value:info.
    1.73  !
    1.74  
    1.75  update:something with:someArgument from:aModel
    1.76 @@ -638,6 +616,12 @@
    1.77          model selectedItem:oldSelection.
    1.78          ^ self
    1.79      ].
    1.80 +
    1.81 +    aModel == model ifTrue:[
    1.82 +        self selectionChanged.
    1.83 +        ^ self
    1.84 +    ].
    1.85 +
    1.86      super update:something with:someArgument from:aModel.
    1.87  ! !
    1.88  
    1.89 @@ -876,7 +860,6 @@
    1.90  
    1.91      super initialize.
    1.92  
    1.93 -    infoChannel              := ''    asValue.
    1.94      hasSingleSelectionHolder := false asValue.
    1.95      followFocusChannel       := false asValue.
    1.96  
    1.97 @@ -884,6 +867,8 @@
    1.98      model inputEventAction:[:ev| self processEvent:ev ].
    1.99      model mappedViewAction:[:vw| self processMappedView:vw ].
   1.100      model application:self.
   1.101 +    model addDependent:self.
   1.102 +
   1.103  
   1.104      showNamesHolder := false asValue.
   1.105      showNamesHolder addDependent:self.