--- 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.