# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1265278696 -3600
# Node ID 6c83d6b487b204d0678615d25b4a6f9cf8b892b7
# Parent  c3b2615d734d8bdc11b238d69e03f924942b1d18
changed:
        #toolbarMenu
        #windowSpec

diff -r c3b2615d734d -r 6c83d6b487b2 Tools__ViewTreeApplication.st
--- a/Tools__ViewTreeApplication.st	Wed Feb 03 16:25:16 2010 +0100
+++ b/Tools__ViewTreeApplication.st	Thu Feb 04 11:18:16 2010 +0100
@@ -198,9 +198,9 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:Tools::ViewTreeApplication andSelector:#windowSpec
-     Tools::ViewTreeApplication new openInterface:#windowSpec
-     Tools::ViewTreeApplication open
+     UIPainter new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#windowSpec
+     Tools::ViewTreeInspectorApplication new openInterface:#windowSpec
+     Tools::ViewTreeInspectorApplication open
     "
 
     <resource: #canvas>
@@ -211,7 +211,7 @@
         window: 
        (WindowSpec
           label: 'View Tree Inspector'
-          name: 'ViewTreeInspector'
+          name: 'View Tree Inspector'
           min: (Point 10 10)
           max: (Point 1024 9999)
           bounds: (Rectangle 0 0 381 654)
@@ -222,13 +222,13 @@
           collection: (
            (MenuPanelSpec
               name: 'toolbarMenu'
-              layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
+              layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
               menu: toolbarMenu
               textDefault: true
             )
            (HierarchicalListViewSpec
               name: 'List'
-              layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
+              layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0)
               level: 1
               model: model
               menu: middleButtonMenu
@@ -613,8 +613,8 @@
      the MenuEditor may not be able to read the specification."
 
     "
-     MenuEditor new openOnClass:Tools::ViewTreeApplication andSelector:#toolbarMenu
-     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeApplication toolbarMenu)) startUp
+     MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#toolbarMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication toolbarMenu)) startUp
     "
 
     <resource: #menu>
@@ -631,6 +631,17 @@
             labelImage: (ResourceRetriever #'Tools::ViewTreeInspectorApplication' pickWindowIcon)
           )
          (MenuItem
+            enabled: hasTargetWidgetChannel
+            label: 'Release Picked View'
+            isButton: true
+            itemValue: doUnpick
+            translateLabel: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary undoIcon)
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
             enabled: hasSingleSelectionHolder
             label: 'Browse Application'
             itemValue: doBrowse:
@@ -2937,13 +2948,14 @@
 
 processEvent:anEvent
     "catch and process all WindowEvents for the rootComponent and its contained
-     widgets; redraw selection in case of damage ....
-    "
+     widgets; redraw selection in case of damage...
+     return true, if the event was eaten"
+
     |evView item rootView testMode|
 
     evView := anEvent view.
     evView isNil ifTrue:[
-        (anEvent isMessageSendEvent and:[anEvent receiver == self]) ifFalse:[
+        (anEvent isMessageSendEvent not or:[anEvent receiver ~~ self]) ifTrue:[
             ^ false
         ].
         anEvent value.