changed:
authorClaus Gittinger <cg@exept.de>
Thu, 04 Feb 2010 11:18:16 +0100
changeset 27576c83d6b487b2
parent 2756 c3b2615d734d
child 2758 c61fe917957a
changed:
#toolbarMenu
#windowSpec
Tools__ViewTreeApplication.st
     1.1 --- a/Tools__ViewTreeApplication.st	Wed Feb 03 16:25:16 2010 +0100
     1.2 +++ b/Tools__ViewTreeApplication.st	Thu Feb 04 11:18:16 2010 +0100
     1.3 @@ -198,9 +198,9 @@
     1.4       the UIPainter may not be able to read the specification."
     1.5  
     1.6      "
     1.7 -     UIPainter new openOnClass:Tools::ViewTreeApplication andSelector:#windowSpec
     1.8 -     Tools::ViewTreeApplication new openInterface:#windowSpec
     1.9 -     Tools::ViewTreeApplication open
    1.10 +     UIPainter new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#windowSpec
    1.11 +     Tools::ViewTreeInspectorApplication new openInterface:#windowSpec
    1.12 +     Tools::ViewTreeInspectorApplication open
    1.13      "
    1.14  
    1.15      <resource: #canvas>
    1.16 @@ -211,7 +211,7 @@
    1.17          window: 
    1.18         (WindowSpec
    1.19            label: 'View Tree Inspector'
    1.20 -          name: 'ViewTreeInspector'
    1.21 +          name: 'View Tree Inspector'
    1.22            min: (Point 10 10)
    1.23            max: (Point 1024 9999)
    1.24            bounds: (Rectangle 0 0 381 654)
    1.25 @@ -222,13 +222,13 @@
    1.26            collection: (
    1.27             (MenuPanelSpec
    1.28                name: 'toolbarMenu'
    1.29 -              layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
    1.30 +              layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
    1.31                menu: toolbarMenu
    1.32                textDefault: true
    1.33              )
    1.34             (HierarchicalListViewSpec
    1.35                name: 'List'
    1.36 -              layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)
    1.37 +              layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0)
    1.38                level: 1
    1.39                model: model
    1.40                menu: middleButtonMenu
    1.41 @@ -613,8 +613,8 @@
    1.42       the MenuEditor may not be able to read the specification."
    1.43  
    1.44      "
    1.45 -     MenuEditor new openOnClass:Tools::ViewTreeApplication andSelector:#toolbarMenu
    1.46 -     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeApplication toolbarMenu)) startUp
    1.47 +     MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#toolbarMenu
    1.48 +     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication toolbarMenu)) startUp
    1.49      "
    1.50  
    1.51      <resource: #menu>
    1.52 @@ -631,6 +631,17 @@
    1.53              labelImage: (ResourceRetriever #'Tools::ViewTreeInspectorApplication' pickWindowIcon)
    1.54            )
    1.55           (MenuItem
    1.56 +            enabled: hasTargetWidgetChannel
    1.57 +            label: 'Release Picked View'
    1.58 +            isButton: true
    1.59 +            itemValue: doUnpick
    1.60 +            translateLabel: true
    1.61 +            labelImage: (ResourceRetriever ToolbarIconLibrary undoIcon)
    1.62 +          )
    1.63 +         (MenuItem
    1.64 +            label: '-'
    1.65 +          )
    1.66 +         (MenuItem
    1.67              enabled: hasSingleSelectionHolder
    1.68              label: 'Browse Application'
    1.69              itemValue: doBrowse:
    1.70 @@ -2937,13 +2948,14 @@
    1.71  
    1.72  processEvent:anEvent
    1.73      "catch and process all WindowEvents for the rootComponent and its contained
    1.74 -     widgets; redraw selection in case of damage ....
    1.75 -    "
    1.76 +     widgets; redraw selection in case of damage...
    1.77 +     return true, if the event was eaten"
    1.78 +
    1.79      |evView item rootView testMode|
    1.80  
    1.81      evView := anEvent view.
    1.82      evView isNil ifTrue:[
    1.83 -        (anEvent isMessageSendEvent and:[anEvent receiver == self]) ifFalse:[
    1.84 +        (anEvent isMessageSendEvent not or:[anEvent receiver ~~ self]) ifTrue:[
    1.85              ^ false
    1.86          ].
    1.87          anEvent value.