--- a/Tools__ViewTreeApplication.st Thu Jan 29 10:04:06 2009 +0100
+++ b/Tools__ViewTreeApplication.st Sat Feb 07 17:11:33 2009 +0100
@@ -4,8 +4,7 @@
ApplicationModel subclass:#ViewTreeApplication
instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint
- motionAction infoChannel process followFocusChannel
- showNamesHolder'
+ motionAction process followFocusChannel showNamesHolder'
classVariableNames:''
poolDictionaries:''
category:'A-Views-Support'
@@ -150,7 +149,7 @@
)
(HierarchicalListViewSpec
name: 'List'
- layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0)
+ layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
level: 1
model: model
menu: middleButtonMenu
@@ -162,21 +161,11 @@
multipleSelectOk: true
useIndex: false
highlightMode: label
- doubleClickSelector: doubleClicked:
- valueChangeSelector: selectionChanged
showLeftIndicators: false
indicatorSelector: indicatorClicked:
useDefaultIcons: false
postBuildCallback: postBuildTree:
)
- (LabelSpec
- name: 'infoChannel'
- layout: (LayoutFrame 0 0.0 -24 1.0 0 1.0 0 1.0)
- level: 1
- translateLabel: true
- labelChannel: infoChannel
- adjust: left
- )
)
)
@@ -516,10 +505,6 @@
!ViewTreeApplication methodsFor:'actions'!
-doubleClicked:anIndex
- self doInspect:#view.
-!
-
indicatorClicked:anIndex
|item sensor|
@@ -556,12 +541,6 @@
^ model hasTargetWidgetChannel
!
-infoChannel
- "channel, which keeps a printable information"
-
- ^ infoChannel
-!
-
listOfItems
"returns the hierarchical list of items"
@@ -625,7 +604,6 @@
info := ''
].
hasSingleSelectionHolder value:(view notNil).
- infoChannel value:info.
!
update:something with:someArgument from:aModel
@@ -638,6 +616,12 @@
model selectedItem:oldSelection.
^ self
].
+
+ aModel == model ifTrue:[
+ self selectionChanged.
+ ^ self
+ ].
+
super update:something with:someArgument from:aModel.
! !
@@ -876,7 +860,6 @@
super initialize.
- infoChannel := '' asValue.
hasSingleSelectionHolder := false asValue.
followFocusChannel := false asValue.
@@ -884,6 +867,8 @@
model inputEventAction:[:ev| self processEvent:ev ].
model mappedViewAction:[:vw| self processMappedView:vw ].
model application:self.
+ model addDependent:self.
+
showNamesHolder := false asValue.
showNamesHolder addDependent:self.