diff -r 04459d76932e -r 64d8f3c973b3 Tools__ViewTreeApplication.st
--- 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.