diff -r ede256dd19a1 -r cbda60900ced Tools__ViewTreeApplication.st
--- a/Tools__ViewTreeApplication.st	Thu Dec 18 02:54:58 2008 +0100
+++ b/Tools__ViewTreeApplication.st	Wed Jan 21 13:36:56 2009 +0100
@@ -5,7 +5,7 @@
 ApplicationModel subclass:#ViewTreeApplication
 	instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint
 		motionAction infoChannel testModeChannel process
-		followFocusChannel'
+		followFocusChannel showNamesHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'A-Views-Support'
@@ -120,9 +120,9 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:ViewTreeApplication andSelector:#windowSpec
-     ViewTreeApplication new openInterface:#windowSpec
-     ViewTreeApplication open
+     UIPainter new openOnClass:Tools::ViewTreeApplication andSelector:#windowSpec
+     Tools::ViewTreeApplication new openInterface:#windowSpec
+     Tools::ViewTreeApplication open
     "
 
     <resource: #canvas>
@@ -136,7 +136,7 @@
           name: 'ViewTreeInspector'
           min: (Point 10 10)
           max: (Point 1024 9999)
-          bounds: (Rectangle 0 0 325 654)
+          bounds: (Rectangle 0 0 381 654)
           menu: menu
         )
         component: 
@@ -421,8 +421,8 @@
      the MenuEditor may not be able to read the specification."
 
     "
-     MenuEditor new openOnClass:ViewTreeApplication andSelector:#toolbarMenu
-     (Menu new fromLiteralArrayEncoding:(ViewTreeApplication toolbarMenu)) startUp
+     MenuEditor new openOnClass:Tools::ViewTreeApplication andSelector:#toolbarMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeApplication toolbarMenu)) startUp
     "
 
     <resource: #menu>
@@ -446,6 +446,11 @@
             translateLabel: true
             indication: selectOnClickHolder
           )
+         (MenuItem
+            label: 'Show Names'
+            translateLabel: true
+            indication: showNamesHolder
+          )
          )
         nil
         nil
@@ -512,6 +517,13 @@
     ^ model selectOnClickHolder
 !
 
+showNamesHolder
+    "boolean holder, which indicates whether application names or widget names
+     as additional text are shown for the items
+    "
+    ^ showNamesHolder
+!
+
 testModeChannel
     "boolean holder, which indicates whether running in test or edit mode (eat input events)
     "
@@ -555,6 +567,11 @@
         model testMode:(testModeChannel value).
         ^ self
     ].
+
+    aModel == showNamesHolder ifTrue:[
+        self listOfItems showWidgetNames:(aModel value).
+        ^ self
+    ].
     super update:something with:someArgument from:aModel.
 ! !
 
@@ -789,6 +806,9 @@
 
     testModeChannel := model testMode asValue.
     testModeChannel addDependent:self.
+
+    showNamesHolder := false asValue.
+    showNamesHolder addDependent:self.
 !
 
 postBuildTree:aTree
@@ -796,6 +816,21 @@
     treeView hasConstantHeight:true.
 ! !
 
+!ViewTreeApplication methodsFor:'menu actions'!
+
+doShowNames
+    "automatically generated by UIEditor ..."
+
+    "*** the code below performs no action"
+    "*** (except for some feedback on the Transcript)"
+    "*** Please change as required and accept in the browser."
+    "*** (and replace this comment by something more useful ;-)"
+
+    "action to be added ..."
+
+    Transcript showCR:self class name, ': action for #doShowNames ...'.
+! !
+
 !ViewTreeApplication methodsFor:'menu queries'!
 
 hasApplication