Tools__ViewTreeApplication.st
author Claus Gittinger <cg@exept.de>
Mon, 05 Feb 2018 11:54:07 +0100
changeset 3532 12b7b904b5e1
parent 3525 5df4da794cd2
child 3551 94a23bbd725b
permissions -rw-r--r--
#REFACTORING by cg class: Tools::ViewTreeInspectorApplication::ViewTreeItem changed: #updateChildren
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3532
12b7b904b5e1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3525
diff changeset
     1
"{ Encoding: utf8 }"
12b7b904b5e1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3525
diff changeset
     2
2748
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     3
"
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     4
 COPYRIGHT (c) 2007 by eXept Software AG
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
     5
	      All Rights Reserved
2748
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     6
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     7
 This software is furnished under a license and may be used
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     8
 only in accordance with the terms of that license and with the
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     9
 inclusion of the above copyright notice.   This software may not
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    10
 be provided or otherwise made available to, or used by, any
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    11
 other person.  No title to or ownership of the software is
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    12
 hereby transferred.
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    13
"
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    14
"{ Package: 'stx:libtool2' }"
87bb1815460b initial checkin
ca
parents:
diff changeset
    15
87bb1815460b initial checkin
ca
parents:
diff changeset
    16
"{ NameSpace: Tools }"
87bb1815460b initial checkin
ca
parents:
diff changeset
    17
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    18
ToolApplicationModel subclass:#ViewTreeInspectorApplication
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    19
	instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint
2770
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
    20
		motionAction process followFocusChannel showNamesHolder
3124
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
    21
		inspectorView inspectorModeIndexHolder path
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
    22
		isCatchingEventsChannel browser'
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    23
	classVariableNames:''
87bb1815460b initial checkin
ca
parents:
diff changeset
    24
	poolDictionaries:''
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    25
	category:'Interface-Smalltalk'
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    26
!
87bb1815460b initial checkin
ca
parents:
diff changeset
    27
87bb1815460b initial checkin
ca
parents:
diff changeset
    28
Object subclass:#MenuDesc
87bb1815460b initial checkin
ca
parents:
diff changeset
    29
	instanceVariableNames:'title value action'
87bb1815460b initial checkin
ca
parents:
diff changeset
    30
	classVariableNames:''
87bb1815460b initial checkin
ca
parents:
diff changeset
    31
	poolDictionaries:''
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    32
	privateIn:ViewTreeInspectorApplication
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    33
!
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    34
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    35
HierarchicalItem subclass:#ViewTreeItem
3456
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
    36
	instanceVariableNames:'widget menuItem isDrawnShown exists xOffsetAdditionalName'
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    37
	classVariableNames:'HandleExtent'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    38
	poolDictionaries:''
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    39
	privateIn:ViewTreeInspectorApplication
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    40
!
87bb1815460b initial checkin
ca
parents:
diff changeset
    41
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    42
ValueModel subclass:#ViewTreeModel
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    43
	instanceVariableNames:'lockSema selectedSuperItems selection hiddenLevel listOfItems
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    44
		inputEventAction mappedViewAction beforeSelectionChangedAction
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    45
		icons timedUpdateTask selectOnClickHolder testModeChannel
2978
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2888
diff changeset
    46
		hasTargetWidgetChannel catchEvents'
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    47
	classVariableNames:''
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    48
	poolDictionaries:''
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    49
	privateIn:ViewTreeInspectorApplication
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    50
!
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    51
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    52
HierarchicalList subclass:#ItemList
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    53
	instanceVariableNames:'treeModel eventHook eventHookInitialized showWidgetNames'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    54
	classVariableNames:''
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    55
	poolDictionaries:''
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    56
	privateIn:ViewTreeInspectorApplication::ViewTreeModel
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    57
!
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    58
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    59
!ViewTreeInspectorApplication class methodsFor:'documentation'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    60
2748
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    61
copyright
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    62
"
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    63
 COPYRIGHT (c) 2007 by eXept Software AG
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
    64
	      All Rights Reserved
2748
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    65
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    66
 This software is furnished under a license and may be used
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    67
 only in accordance with the terms of that license and with the
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    68
 inclusion of the above copyright notice.   This software may not
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    69
 be provided or otherwise made available to, or used by, any
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    70
 other person.  No title to or ownership of the software is
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    71
 hereby transferred.
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    72
"
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    73
!
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    74
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    75
documentation
87bb1815460b initial checkin
ca
parents:
diff changeset
    76
"
87bb1815460b initial checkin
ca
parents:
diff changeset
    77
     Small application showing a ViewTreeModel use.
87bb1815460b initial checkin
ca
parents:
diff changeset
    78
87bb1815460b initial checkin
ca
parents:
diff changeset
    79
     It displays a hierarchical list of a selected TopView and
87bb1815460b initial checkin
ca
parents:
diff changeset
    80
     all its contained subViews.
87bb1815460b initial checkin
ca
parents:
diff changeset
    81
     Useful to have a look at subcomponents - to see how views
87bb1815460b initial checkin
ca
parents:
diff changeset
    82
     are structured.
87bb1815460b initial checkin
ca
parents:
diff changeset
    83
87bb1815460b initial checkin
ca
parents:
diff changeset
    84
87bb1815460b initial checkin
ca
parents:
diff changeset
    85
    [Instance variables:]
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
    86
	model           <ViewTreeModel>      the used ViewTreeModel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
    87
	clickedItem     <ViewTreeItem>       item under the clickedPoint (motion action)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
    88
	clickedPoint    <Point>              point where the motion action started from.
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
    89
	motionAction    <Action>             (oneArg-) action called durring buttonMotion.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    90
87bb1815460b initial checkin
ca
parents:
diff changeset
    91
87bb1815460b initial checkin
ca
parents:
diff changeset
    92
    [author:]
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
    93
	Claus Atzkern
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    94
87bb1815460b initial checkin
ca
parents:
diff changeset
    95
    [see also:]
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
    96
	ViewTreeModel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
    97
	ViewTreeItem
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    98
"
87bb1815460b initial checkin
ca
parents:
diff changeset
    99
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
   100
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   101
!ViewTreeInspectorApplication class methodsFor:'initialization'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   102
87bb1815460b initial checkin
ca
parents:
diff changeset
   103
initialize
87bb1815460b initial checkin
ca
parents:
diff changeset
   104
    "add myself to the launcher menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   105
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   106
    self installInLauncher.
87bb1815460b initial checkin
ca
parents:
diff changeset
   107
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   108
87bb1815460b initial checkin
ca
parents:
diff changeset
   109
installInLauncher
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   110
    "add myself to the launcher menu"
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   111
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   112
    |menuItem icon|
87bb1815460b initial checkin
ca
parents:
diff changeset
   113
87bb1815460b initial checkin
ca
parents:
diff changeset
   114
    NewLauncher isNil ifTrue:[^ self].
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   115
    "/ cg - disabled. the icon is too ugly.
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   116
    ^ self.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   117
3341
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   118
"/    icon := ToolbarIconLibrary inspectLocals20x20Icon magnifiedTo:28@28.
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   119
"/
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   120
"/    menuItem := MenuItem new
3341
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   121
"/                    label: 'View Tree Inspector';
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   122
"/                    value: [ ViewTreeInspectorApplication open];
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   123
"/                    isButton: true;
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   124
"/                    icon: icon;
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   125
"/                    nameKey: #viewInspect.
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   126
"/
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   127
"/    menuItem startGroup:#right.
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   128
"/    NewLauncher addMenuItem:menuItem in:'toolbar'
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   129
"/                   position:#( #before #help)
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   130
"/                      space:false.
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   131
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   132
    "
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   133
     self installInLauncher
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   134
     self removeFromLauncher
2089a2debb66 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3319
diff changeset
   135
    "
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   136
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   137
87bb1815460b initial checkin
ca
parents:
diff changeset
   138
postAutoload
87bb1815460b initial checkin
ca
parents:
diff changeset
   139
    "add myself to the launcher menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   140
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   141
    self installInLauncher.
87bb1815460b initial checkin
ca
parents:
diff changeset
   142
"
87bb1815460b initial checkin
ca
parents:
diff changeset
   143
self installInLauncher
87bb1815460b initial checkin
ca
parents:
diff changeset
   144
self removeFromLauncher
87bb1815460b initial checkin
ca
parents:
diff changeset
   145
"
87bb1815460b initial checkin
ca
parents:
diff changeset
   146
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   147
87bb1815460b initial checkin
ca
parents:
diff changeset
   148
removeFromLauncher
87bb1815460b initial checkin
ca
parents:
diff changeset
   149
    "remove myself from the launcher menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   150
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   151
    NewLauncher isNil ifTrue:[^ self].
87bb1815460b initial checkin
ca
parents:
diff changeset
   152
    NewLauncher removeUserTool:#viewInspect
87bb1815460b initial checkin
ca
parents:
diff changeset
   153
87bb1815460b initial checkin
ca
parents:
diff changeset
   154
"
87bb1815460b initial checkin
ca
parents:
diff changeset
   155
self installInLauncher
87bb1815460b initial checkin
ca
parents:
diff changeset
   156
self removeFromLauncher
87bb1815460b initial checkin
ca
parents:
diff changeset
   157
"
87bb1815460b initial checkin
ca
parents:
diff changeset
   158
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   159
87bb1815460b initial checkin
ca
parents:
diff changeset
   160
unload
87bb1815460b initial checkin
ca
parents:
diff changeset
   161
    "class is about to be unloaded - remove myself from the launcher menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   162
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   163
    self removeFromLauncher.
87bb1815460b initial checkin
ca
parents:
diff changeset
   164
    super unload.
87bb1815460b initial checkin
ca
parents:
diff changeset
   165
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
   166
3070
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   167
!ViewTreeInspectorApplication class methodsFor:'help specs'!
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   168
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   169
helpSpec
3070
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   170
    <resource: #help>
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   171
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   172
    ^super helpSpec addPairsFrom:#(
3070
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   173
3186
80a20e5881a5 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3185
diff changeset
   174
#doRedraw
80a20e5881a5 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3185
diff changeset
   175
'Force the application to redraw its windows'
80a20e5881a5 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3185
diff changeset
   176
3070
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   177
#doUncatchEvents
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   178
'Release picked view and uncatch events\(currently locked for widget selection)'
3070
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   179
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   180
#doCatchEvents
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   181
'Lock view and catch events for widget selection\(currently unlocked)'
3070
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   182
3186
80a20e5881a5 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3185
diff changeset
   183
#doInspectApplication
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   184
'Inspect the selected view''s application'
3186
80a20e5881a5 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3185
diff changeset
   185
80a20e5881a5 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3185
diff changeset
   186
#doBrowseApplication
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   187
'Browse the selected view''s application'
3186
80a20e5881a5 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3185
diff changeset
   188
80a20e5881a5 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3185
diff changeset
   189
#doPickView
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   190
'Pick a widget with the mouse and inspect its view hierarchy'
3186
80a20e5881a5 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3185
diff changeset
   191
3070
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   192
)
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   193
! !
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   194
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   195
!ViewTreeInspectorApplication class methodsFor:'image specs'!
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   196
2759
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   197
crossHairIcon
3185
3592ea3afb9e class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3184
diff changeset
   198
    ^ ToolbarIconLibrary bigCrossHairIcon
2759
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   199
!
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   200
3070
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   201
lockViewIcon
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   202
    "This resource specification was automatically generated
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   203
     by the ImageEditor of ST/X."
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   204
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   205
    "Do not manually edit this!! If it is corrupted,
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   206
     the ImageEditor may not be able to read the specification."
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   207
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   208
    "
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   209
     self lockViewIcon inspect
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   210
     ImageEditor openOnClass:self andSelector:#lockViewIcon
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   211
     Icon flushCachedIcons
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   212
    "
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   213
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   214
    <resource: #image>
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   215
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   216
    ^Icon
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   217
	constantNamed:'Tools::ViewTreeInspectorApplication lockViewIcon'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   218
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3070
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   219
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   220
@@@@@@@@@@@@@@A8^G!!7O3ACP5*P@@A8^G @@@@@@@@@@@A8^@@@OE0/!!P0S#0@@^G @@@@@@@@@@@B (@D''D#48"1.CX5H@(J@@@@@@@@@@@@B (B(>SAT"
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   221
''%!!/P7,@(J@@@@@@@@@@@@@%IB0#M"H%IRTQV5P@IRT@@@@@@@@@@@ANSX:U]PANS$8:T80@S$8@@@@@@@@@@@AN&UYWK(EYQ@\FUPQHXT8@@@@@@@@@@@AN
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   222
HC2!!TVY:Y#-%I*IKMD8@@@@@@@@@@@A$\@83XBEG%).GGX _!!&P@@@@@@@@@@@AO[P5+ &(WPYN@["!!E\$<@@@@@@@@@@@B_F''FQPAXX_!!&TGH4HB9<@@@@@
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   223
@@@@@@B_%3HCJ7=BKPU,Q)01B9<@@@@@@@@@@@@PBP8T_F!!''JPI)_Y"D&!!@@@@@@@@@@@@@$B)I9TGXO''WQIWQ93W0@@@@@@@@@@@@@$"U=JR$)JR$)JR$)_
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   224
"P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   225
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[132 141 152 147 150 154 250 223 1 246 214 0 205 172 133 238 195 0 213 180 146 217 186 150 188 136 0 206 151 0 183 125 9 208 208 202 196 204 214 255 255 210 255 255 219 210 178 65 242 242 235 106 112 117 96 107 126 250 255 255 255 241 0 154 154 151 255 227 0 67 35 0 52 17 0 253 211 0 208 159 0 167 178 193 222 168 0 248 231 45 208 174 26 199 152 26 225 184 36 255 249 75 220 220 215 77 88 108 241 241 235 245 245 239 255 250 109 242 249 255 255 255 142 255 237 1 142 148 162 242 212 1 143 154 176 174 133 0 222 189 144 169 179 192 177 184 193 184 129 0 255 255 194 253 241 60 210 210 205 214 214 209 77 83 92 230 230 225 98 106 114 243 243 238 117 117 114 255 252 115 255 255 255 115 123 147 130 140 156 152 156 159 241 210 0 53 18 0 151 116 0 162 170 184 218 187 150 193 143 4 220 165 0 206 188 46 181 130 21 204 173 44 206 206 201 208 167 44 72 84 108 240 240 234 244 244 238 243 243 237 212 182 79 255 255 126 131 135 141 119 133 159 132 141 163 195 162 126 219 188 133 218 185 135 180 180 176 221 190 150 175 181 191 176 183 196 181 189 201 202 170 38 209 209 204 207 207 202 251 241 74 229 229 224 238 238 233 226 234 245 244 244 237 255 251 113 255 255 124 255 241 2 255 234 3 249 219 0 255 249 29 252 243 30 227 181 0 212 165 5 222 170 0 173 179 194 216 171 19 255 255 198 208 208 203 156 90 7 206 175 50 91 91 95 211 180 71 242 242 237 246 246 241 212 182 80 255 255 123 129 137 152 255 239 8 251 223 0 59 25 0 251 215 0 228 183 0 222 191 149 249 238 43 177 186 197 187 129 0 186 194 206 209 209 203 249 238 67 255 255 211 226 226 221 235 235 229 100 103 111 76 93 127 255 255 112 88 104 139 130 135 148 149 155 158 247 218 0 224 194 126 255 217 0 228 184 0 13 30 68 161 138 32 204 152 0 255 255 53 206 155 18 207 207 201 255 250 72 255 255 82 209 176 59 232 232 227 243 243 236 245 245 240 255 255 115 255 255 251]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@G8@@O<@@_>@@^^@@\N@@\N@@?? @?? @?? @?? @?? @?? @?? @?? @_?@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   226
!
648aad0e3777 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3049
diff changeset
   227
3000
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   228
releaseViewIcon
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   229
    "This resource specification was automatically generated
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   230
     by the ImageEditor of ST/X."
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   231
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   232
    "Do not manually edit this!! If it is corrupted,
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   233
     the ImageEditor may not be able to read the specification."
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   234
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   235
    "
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   236
     self releaseViewIcon inspect
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   237
     ImageEditor openOnClass:self andSelector:#releaseViewIcon
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   238
     Icon flushCachedIcons
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   239
    "
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   240
    <resource: #image>
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   241
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   242
    ^Icon
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   243
	constantNamed:'Tools::ViewTreeInspectorApplication releaseViewIcon'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   244
	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3000
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   245
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   246
@@@@@@@@@@@@@@A8^G!!7O3ACP5*P@@A8^G @@@@@@@@@@@A8^@@@OE0/!!P0S#0@@^G @@@@@@@@@@@B (@@''D#48"1.CX5H@(J@@@@@@@@@@@@B (@@@@@@"
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   247
''%!!/P7,@(J@@@@@@@@@@@@@%I@@@@BH%IRTQV5P@IRT@@@@@@@@@@@ANSP@@@@ANS$8:T80@S$8@@@@@@@@@@@AN&UYWK(EYQ@\FUPQHXT8@@@@@@@@@@@AN
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   248
HC2!!TVY:Y#-%I*IKMD8@@@@@@@@@@@A$\@83XBEG%).GGX _!!&P@@@@@@@@@@@AO[P5+ &(WPYN@["!!E\$<@@@@@@@@@@@B_F''FQPAXX_!!&TGH4HB9<@@@@@
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   249
@@@@@@B_%3HCJ7=BKPU,Q)01B9<@@@@@@@@@@@@PBP8T_F!!''JPI)_Y"D&!!@@@@@@@@@@@@@$B)I9TGXO''WQIWQ93W0@@@@@@@@@@@@@$"U=JR$)JR$)JR$)_
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   250
"P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
7b530cc76688 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2978
diff changeset
   251
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[132 141 152 147 150 154 250 223 1 246 214 0 205 172 133 238 195 0 213 180 146 217 186 150 188 136 0 206 151 0 183 125 9 208 208 202 196 204 214 255 255 210 255 255 219 210 178 65 242 242 235 106 112 117 96 107 126 250 255 255 255 241 0 154 154 151 255 227 0 67 35 0 52 17 0 253 211 0 208 159 0 167 178 193 222 168 0 248 231 45 208 174 26 199 152 26 225 184 36 255 249 75 220 220 215 77 88 108 241 241 235 245 245 239 255 250 109 242 249 255 255 255 142 255 237 1 142 148 162 242 212 1 143 154 176 174 133 0 222 189 144 169 179 192 177 184 193 184 129 0 255 255 194 253 241 60 210 210 205 214 214 209 77 83 92 230 230 225 98 106 114 243 243 238 117 117 114 255 252 115 255 255 255 115 123 147 130 140 156 152 156 159 241 210 0 53 18 0 151 116 0 162 170 184 218 187 150 193 143 4 220 165 0 206 188 46 181 130 21 204 173 44 206 206 201 208 167 44 72 84 108 240 240 234 244 244 238 243 243 237 212 182 79 255 255 126 131 135 141 119 133 159 132 141 163 195 162 126 219 188 133 218 185 135 180 180 176 221 190 150 175 181 191 176 183 196 181 189 201 202 170 38 209 209 204 207 207 202 251 241 74 229 229 224 238 238 233 226 234 245 244 244 237 255 251 113 255 255 124 255 241 2 255 234 3 249 219 0 255 249 29 252 243 30 227 181 0 212 165 5 222 170 0 173 179 194 216 171 19 255 255 198 208 208 203 156 90 7 206 175 50 91 91 95 211 180 71 242 242 237 246 246 241 212 182 80 255 255 123 129 137 152 255 239 8 251 223 0 59 25 0 251 215 0 228 183 0 222 191 149 249 238 43 177 186 197 187 129 0 186 194 206 209 209 203 249 238 67 255 255 211 226 226 221 235 235 229 100 103 111 76 93 127 255 255 112 88 104 139 130 135 148 149 155 158 247 218 0 224 194 126 255 217 0 228 184 0 13 30 68 161 138 32 204 152 0 255 255 53 206 155 18 207 207 201 255 250 72 255 255 82 209 176 59 232 232 227 243 243 236 245 245 240 255 255 115 255 255 251]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@G8@@O<@@O>@@@^@@@N@@@N@@?? @?? @?? @?? @?? @?? @?? @?? @_?@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   252
! !
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   253
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   254
!ViewTreeInspectorApplication class methodsFor:'interface specs'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   255
87bb1815460b initial checkin
ca
parents:
diff changeset
   256
windowSpec
87bb1815460b initial checkin
ca
parents:
diff changeset
   257
    "This resource specification was automatically generated
87bb1815460b initial checkin
ca
parents:
diff changeset
   258
     by the UIPainter of ST/X."
87bb1815460b initial checkin
ca
parents:
diff changeset
   259
87bb1815460b initial checkin
ca
parents:
diff changeset
   260
    "Do not manually edit this!! If it is corrupted,
87bb1815460b initial checkin
ca
parents:
diff changeset
   261
     the UIPainter may not be able to read the specification."
87bb1815460b initial checkin
ca
parents:
diff changeset
   262
87bb1815460b initial checkin
ca
parents:
diff changeset
   263
    "
2757
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   264
     UIPainter new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#windowSpec
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   265
     Tools::ViewTreeInspectorApplication new openInterface:#windowSpec
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   266
     Tools::ViewTreeInspectorApplication open
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   267
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   268
87bb1815460b initial checkin
ca
parents:
diff changeset
   269
    <resource: #canvas>
87bb1815460b initial checkin
ca
parents:
diff changeset
   270
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   271
    ^
3037
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
   272
    #(FullSpec
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
   273
       name: windowSpec
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   274
       window:
3037
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
   275
      (WindowSpec
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   276
	 label: 'View Tree Inspector'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   277
	 name: 'View Tree Inspector'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   278
	 min: (Point 10 10)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   279
	 max: (Point 1024 9999)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   280
	 bounds: (Rectangle 0 0 693 643)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   281
	 menu: menu
3037
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
   282
       )
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   283
       component:
3037
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
   284
      (SpecCollection
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   285
	 collection: (
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   286
	  (MenuPanelSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   287
	     name: 'toolbarMenu'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   288
	     layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   289
	     menu: toolbarMenu
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   290
	     textDefault: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   291
	   )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   292
	  (VariableVerticalPanelSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   293
	     name: 'VariableVerticalPanel1'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   294
	     layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   295
	     component:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   296
	    (SpecCollection
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   297
	       collection: (
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   298
		(ViewSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   299
		   name: 'PathAndListPane'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   300
		   component:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   301
		  (SpecCollection
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   302
		     collection: (
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   303
		      (ViewSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   304
			 name: 'PathPane'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   305
			 layout: (LayoutFrame 0 0 0 0 0 1 25 0)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   306
			 component:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   307
			(SpecCollection
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   308
			   collection: (
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   309
			    (InputFieldSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   310
			       name: 'Path'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   311
			       layout: (LayoutFrame 0 0 0 0 0 1 0 1)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   312
			       model: path
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   313
			       acceptOnReturn: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   314
			       acceptOnTab: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   315
			       acceptOnPointerLeave: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   316
			       emptyFieldReplacementText: 'No View Selected'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   317
			     )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   318
			    )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   319
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   320
			 )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   321
		       )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   322
		      (HierarchicalListViewSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   323
			 name: 'List'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   324
			 layout: (LayoutFrame 0 0 25 0 0 1 0 1)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   325
			 level: 1
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   326
			 model: model
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   327
			 menu: middleButtonMenu
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   328
			 hasHorizontalScrollBar: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   329
			 hasVerticalScrollBar: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   330
			 miniScrollerHorizontal: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   331
			 miniScrollerVertical: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   332
			 listModel: listOfItems
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   333
			 multipleSelectOk: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   334
			 useIndex: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   335
			 highlightMode: label
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   336
			 showLeftIndicators: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   337
			 indicatorSelector: indicatorClicked:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   338
			 useDefaultIcons: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   339
			 postBuildCallback: postBuildTree:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   340
		       )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   341
		      )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   342
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   343
		   )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   344
		 )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   345
		(ViewSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   346
		   name: 'Box2'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   347
		   component:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   348
		  (SpecCollection
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   349
		     collection: (
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   350
		      (TabViewSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   351
			 name: 'TabHeader1'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   352
			 layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   353
			 model: inspectorModeIndexHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   354
			 menu: inspectorModes
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   355
			 useIndex: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   356
			 translateLabel: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   357
		       )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   358
		      (SubCanvasSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   359
			 name: 'Browser'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   360
			 layout: (LayoutFrame 0 0 26 0 0 1 0 1)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   361
			 visibilityChannel: browserVisibleHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   362
			 hasHorizontalScrollBar: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   363
			 hasVerticalScrollBar: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   364
			 majorKey: #'Tools::NewSystemBrowser'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   365
			 minorKey: singleClassWithoutVariableListBrowserSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   366
			 createNewApplication: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   367
			 createNewBuilder: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   368
			 postBuildCallback: postBuildBrowserCanvas:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   369
		       )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   370
		      (ViewSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   371
			 name: 'Inspector'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   372
			 layout: (LayoutFrame 0 0 26 0 0 1 0 1)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   373
			 visibilityChannel: inspectorVisibleHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   374
			 postBuildCallback: postBuildInspectorView:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   375
			 viewClassName: 'InspectorView'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   376
		       )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   377
		      )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   378
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   379
		   )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   380
		 )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   381
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   382
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   383
	     )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   384
	     handles: (Any 0.5 1.0)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   385
	   )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   386
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   387
3037
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
   388
       )
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
   389
     )
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   390
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
   391
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   392
!ViewTreeInspectorApplication class methodsFor:'menu specs'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   393
87bb1815460b initial checkin
ca
parents:
diff changeset
   394
menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   395
    "This resource specification was automatically generated
87bb1815460b initial checkin
ca
parents:
diff changeset
   396
     by the MenuEditor of ST/X."
87bb1815460b initial checkin
ca
parents:
diff changeset
   397
87bb1815460b initial checkin
ca
parents:
diff changeset
   398
    "Do not manually edit this!! If it is corrupted,
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   399
     the MenuEditor may not be able to read the specification."
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   400
2978
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2888
diff changeset
   401
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   402
    "
2978
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2888
diff changeset
   403
     MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#menu
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2888
diff changeset
   404
     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication menu)) startUp
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   405
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   406
87bb1815460b initial checkin
ca
parents:
diff changeset
   407
    <resource: #menu>
87bb1815460b initial checkin
ca
parents:
diff changeset
   408
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   409
    ^
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   410
     #(Menu
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   411
	(
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   412
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   413
	    label: 'File'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   414
	    submenu:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   415
	   (Menu
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   416
	      (
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   417
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   418
		  label: 'Pick a View'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   419
		  itemValue: doPickView
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   420
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   421
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   422
		  enabled: hasTargetWidgetChannel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   423
		  label: 'Release Picked View'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   424
		  itemValue: doUnpick
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   425
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   426
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   427
		  label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   428
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   429
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   430
		  label: 'Settings'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   431
		  submenu:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   432
		 (Menu
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   433
		    (
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   434
		     (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   435
			label: 'Test Mode'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   436
			hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   437
			indication: testModeChannel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   438
		      )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   439
		     (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   440
			enabled: testModeChannel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   441
			label: 'Follow Focus'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   442
			hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   443
			indication: followFocusChannel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   444
		      )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   445
		     (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   446
			label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   447
		      )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   448
		     (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   449
			label: 'Select on Click'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   450
			hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   451
			indication: selectOnClickHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   452
		      )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   453
		     (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   454
			label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   455
		      )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   456
		     (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   457
			label: 'Show Name of Widgets'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   458
			hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   459
			indication: showNamesHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   460
		      )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   461
		     )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   462
		    nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   463
		    nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   464
		  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   465
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   466
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   467
		  label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   468
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   469
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   470
		  label: 'Exit'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   471
		  itemValue: closeRequest
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   472
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   473
	       )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   474
	      nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   475
	      nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   476
	    )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   477
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   478
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   479
	    enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   480
	    label: 'Selection'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   481
	    submenuChannel: middleButtonMenu
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   482
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   483
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   484
	    label: 'Widget'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   485
	    submenu:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   486
	   (Menu
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   487
	      (
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   488
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   489
		  enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   490
		  label: 'Browse'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   491
		  itemValue: doBrowse:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   492
		  argument: view
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   493
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   494
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   495
		  enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   496
		  label: 'Inspect'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   497
		  itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   498
		  argument: view
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   499
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   500
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   501
		  label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   502
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   503
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   504
		  enabled: hasTargetWidgetChannel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   505
		  label: 'All Components'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   506
		  startGroup: right
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   507
		  submenuChannel: submenuComponents:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   508
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   509
	       )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   510
	      nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   511
	      nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   512
	    )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   513
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   514
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   515
	    label: 'Application'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   516
	    submenu:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   517
	   (Menu
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   518
	      (
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   519
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   520
		  label: 'Redraw'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   521
		  itemValue: doRedraw
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   522
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   523
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   524
		  label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   525
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   526
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   527
		  enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   528
		  label: 'Browse'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   529
		  itemValue: doBrowse:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   530
		  argument: application
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   531
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   532
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   533
		  enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   534
		  label: 'Inspect'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   535
		  itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   536
		  argument: application
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   537
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   538
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   539
		  label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   540
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   541
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   542
		  enabled: canBrowseWindowSpecMethod
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   543
		  label: 'Browse Window Spec Method'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   544
		  itemValue: doBrowseWindowSpecMethod
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   545
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   546
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   547
		  enabled: canEditWindowSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   548
		  label: 'Edit Window Spec'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   549
		  itemValue: doEditWindowSpec
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   550
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   551
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   552
		  label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   553
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   554
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   555
		  enabled: hasTargetWidgetChannel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   556
		  label: 'All Applications'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   557
		  submenuChannel: submenuApplications:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   558
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   559
	       )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   560
	      nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   561
	      nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   562
	    )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   563
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   564
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   565
	    label: 'Process'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   566
	    submenu:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   567
	   (Menu
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   568
	      (
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   569
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   570
		  enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   571
		  label: 'Debug'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   572
		  itemValue: doDebugProcess
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   573
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   574
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   575
		  enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   576
		  label: 'Inspect'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   577
		  itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   578
		  argument: process
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   579
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   580
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   581
		  label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   582
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   583
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   584
		  label: 'Open Process Monitor'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   585
		  itemValue: doOpenProcessMonitor
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   586
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   587
	       )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   588
	      nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   589
	      nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   590
	    )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   591
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   592
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   593
	    label: 'Help'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   594
	    startGroup: conditionalRight
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   595
	    submenu:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   596
	   (Menu
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   597
	      (
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   598
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   599
		  label: 'Documentation'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   600
		  itemValue: openDocumentation
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   601
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   602
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   603
		  label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   604
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   605
	       (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   606
		  label: 'About this Application...'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   607
		  itemValue: openAboutThisApplication
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   608
		)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   609
	       )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   610
	      nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   611
	      nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   612
	    )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   613
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   614
	 )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   615
	nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   616
	nil
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   617
      )
87bb1815460b initial checkin
ca
parents:
diff changeset
   618
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   619
87bb1815460b initial checkin
ca
parents:
diff changeset
   620
middleButtonMenu
87bb1815460b initial checkin
ca
parents:
diff changeset
   621
    "This resource specification was automatically generated
87bb1815460b initial checkin
ca
parents:
diff changeset
   622
     by the MenuEditor of ST/X."
87bb1815460b initial checkin
ca
parents:
diff changeset
   623
87bb1815460b initial checkin
ca
parents:
diff changeset
   624
    "Do not manually edit this!! If it is corrupted,
87bb1815460b initial checkin
ca
parents:
diff changeset
   625
     the MenuEditor may not be able to read the specification."
87bb1815460b initial checkin
ca
parents:
diff changeset
   626
3213
33e1f779fa15 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
   627
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   628
    "
3213
33e1f779fa15 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
   629
     MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#middleButtonMenu
33e1f779fa15 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3210
diff changeset
   630
     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication middleButtonMenu)) startUp
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   631
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   632
87bb1815460b initial checkin
ca
parents:
diff changeset
   633
    <resource: #menu>
87bb1815460b initial checkin
ca
parents:
diff changeset
   634
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   635
    ^
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   636
     #(Menu
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   637
	(
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   638
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   639
	    label: 'Browse View Class'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   640
	    itemValue: doBrowse:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   641
	    argument: view
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   642
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   643
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   644
	    label: 'Browse Model Class'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   645
	    itemValue: doBrowse:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   646
	    isVisible: hasModel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   647
	    argument: model
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   648
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   649
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   650
	    label: 'Browse Application Class'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   651
	    itemValue: doBrowse:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   652
	    isVisible: hasApplication
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   653
	    argument: application
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   654
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   655
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   656
	    label: 'Browse Controller Class'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   657
	    itemValue: doBrowse:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   658
	    isVisible: hasController
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   659
	    argument: controller
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   660
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   661
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   662
	    label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   663
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   664
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   665
	    label: 'Inspect View'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   666
	    itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   667
	    argument: view
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   668
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   669
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   670
	    label: 'Inspect Window Group'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   671
	    itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   672
	    argument: group
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   673
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   674
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   675
	    label: 'Inspect Model'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   676
	    itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   677
	    isVisible: hasModel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   678
	    argument: model
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   679
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   680
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   681
	    label: 'Inspect Application'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   682
	    itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   683
	    isVisible: hasApplication
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   684
	    argument: application
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   685
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   686
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   687
	    label: 'Inspect Controller'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   688
	    itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   689
	    isVisible: hasController
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   690
	    argument: controller
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   691
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   692
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   693
	    label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   694
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   695
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   696
	    label: 'Flash'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   697
	    itemValue: doFlash
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   698
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   699
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   700
	    label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   701
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   702
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   703
	    label: 'Destroy'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   704
	    itemValue: doDestroy
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   705
	    labelImage: (ResourceRetriever ToolbarIconLibrary erase16x16Icon 'Destroy')
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   706
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   707
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   708
	    label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   709
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   710
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   711
	    label: 'Geometry'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   712
	    submenuChannel: submenuGeometry:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   713
	    keepLinkedMenu: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   714
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   715
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   716
	    label: 'Interface'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   717
	    submenuChannel: submenuInterface:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   718
	    keepLinkedMenu: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   719
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   720
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   721
	    label: 'Visibility'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   722
	    submenuChannel: submenuVisibility:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   723
	    keepLinkedMenu: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   724
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   725
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   726
	    label: 'Instance Variables'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   727
	    submenuChannel: submenuInspector:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   728
	    keepLinkedMenu: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   729
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   730
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   731
	    label: '='
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   732
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   733
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   734
	    label: ''
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   735
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   736
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   737
	    enabled: selectedComponentHasChildren
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   738
	    label: 'Applications'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   739
	    nameKey: single
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   740
	    submenuChannel: submenuApplications:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   741
	    keepLinkedMenu: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   742
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   743
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   744
	    enabled: selectedComponentHasChildren
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   745
	    label: 'Components'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   746
	    nameKey: single
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   747
	    submenuChannel: submenuComponents:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   748
	    keepLinkedMenu: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   749
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   750
	 )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   751
	nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   752
	nil
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   753
      )
87bb1815460b initial checkin
ca
parents:
diff changeset
   754
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   755
3456
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   756
middleButtonMenuForMenuItems
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   757
    "This resource specification was automatically generated
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   758
     by the MenuEditor of ST/X."
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   759
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   760
    "Do not manually edit this!! If it is corrupted,
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   761
     the MenuEditor may not be able to read the specification."
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   762
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   763
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   764
    "
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   765
     MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#middleButtonMenu
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   766
     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication middleButtonMenu)) startUp
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   767
    "
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   768
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   769
    <resource: #menu>
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   770
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   771
    ^
3456
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   772
     #(Menu
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   773
	(
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   774
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   775
	    label: 'Browse Menu Item''s Class'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   776
	    itemValue: doBrowse:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   777
	    argument: menuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   778
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   779
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   780
	    label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   781
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   782
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   783
	    label: 'Inspect Menu Item'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   784
	    itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   785
	    argument: menuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   786
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   787
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   788
	    label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   789
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   790
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   791
	    label: 'Interface'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   792
	    submenuChannel: submenuMenuItemInterface:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   793
	    keepLinkedMenu: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   794
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   795
	 )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   796
	nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   797
	nil
3456
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   798
      )
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   799
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   800
    "Created: / 16-08-2017 / 13:48:49 / cg"
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   801
!
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
   802
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   803
toolbarMenu
87bb1815460b initial checkin
ca
parents:
diff changeset
   804
    "This resource specification was automatically generated
87bb1815460b initial checkin
ca
parents:
diff changeset
   805
     by the MenuEditor of ST/X."
87bb1815460b initial checkin
ca
parents:
diff changeset
   806
87bb1815460b initial checkin
ca
parents:
diff changeset
   807
    "Do not manually edit this!! If it is corrupted,
87bb1815460b initial checkin
ca
parents:
diff changeset
   808
     the MenuEditor may not be able to read the specification."
87bb1815460b initial checkin
ca
parents:
diff changeset
   809
2978
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 2888
diff changeset
   810
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   811
    "
2757
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   812
     MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#toolbarMenu
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   813
     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication toolbarMenu)) startUp
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   814
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   815
87bb1815460b initial checkin
ca
parents:
diff changeset
   816
    <resource: #menu>
87bb1815460b initial checkin
ca
parents:
diff changeset
   817
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   818
    ^
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   819
     #(Menu
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   820
	(
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   821
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   822
	    enabled: hasTargetWidgetChannel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   823
	    label: 'Redraw'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   824
	    itemValue: doRedraw
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   825
	    isButton: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   826
	    labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   827
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   828
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   829
	    label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   830
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   831
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   832
	    label: 'Pick a View and Catch Events'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   833
	    itemValue: doPickView
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   834
	    translateLabel: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   835
	    isButton: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   836
	    hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   837
	    labelImage: (ResourceRetriever ToolbarIconLibrary pickWindowIcon)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   838
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   839
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   840
	    enabled: hasTargetWidgetChannel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   841
	    isVisible: isNotCatchingEventsChannel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   842
	    label: 'Catch Events of Picked View'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   843
	    activeHelpKey: doCatchEvents
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   844
	    itemValue: doCatchEvents
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   845
	    nameKey: doCatchEvents
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   846
	    isButton: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   847
	    labelImage: (ResourceRetriever nil releaseViewIcon)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   848
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   849
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   850
	    enabled: hasTargetWidgetChannel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   851
	    isVisible: isCatchingEventsChannel
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   852
	    label: 'Release Picked View and Uncatch Events'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   853
	    activeHelpKey: doUncatchEvents
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   854
	    itemValue: doUncatchEvents
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   855
	    nameKey: doUncatchEvents
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   856
	    isButton: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   857
	    labelImage: (ResourceRetriever nil lockViewIcon)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   858
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   859
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   860
	    label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   861
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   862
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   863
	    activeHelpKey: doBrowseApplication
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   864
	    enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   865
	    label: 'Browse Application'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   866
	    itemValue: doBrowse:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   867
	    translateLabel: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   868
	    isButton: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   869
	    hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   870
	    labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowser24x24Icon2)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   871
	    argument: application
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   872
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   873
	 (MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   874
	    activeHelpKey: doInspectApplication
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   875
	    enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   876
	    label: 'Inspect Application'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   877
	    itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   878
	    translateLabel: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   879
	    isButton: true
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   880
	    hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   881
	    labelImage: (ResourceRetriever ToolbarIconLibrary inspect22x24Icon)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   882
	    argument: application
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   883
	  )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   884
	 )
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   885
	nil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   886
	nil
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   887
      )
87bb1815460b initial checkin
ca
parents:
diff changeset
   888
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
   889
2747
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   890
!ViewTreeInspectorApplication class methodsFor:'startup'!
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   891
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   892
openInPickMode
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   893
    |app|
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   894
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   895
    app := self new.
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   896
    app open.
2762
Claus Gittinger <cg@exept.de>
parents: 2759
diff changeset
   897
    app doPickView.
3124
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
   898
    ^ app
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
   899
!
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
   900
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
   901
openInPickModeAndRelease
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
   902
    "release the pick-lock after picking"
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
   903
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
   904
    |app|
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
   905
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
   906
    app := self openInPickMode.
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
   907
    app doUncatchEvents.
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
   908
    ^ app
3014
05208490cea6 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3000
diff changeset
   909
!
05208490cea6 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3000
diff changeset
   910
05208490cea6 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3000
diff changeset
   911
openOn:aView
05208490cea6 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3000
diff changeset
   912
    "show a particular window's topView hierarchy,
05208490cea6 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3000
diff changeset
   913
     select the given view"
05208490cea6 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3000
diff changeset
   914
05208490cea6 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3000
diff changeset
   915
    |app|
05208490cea6 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3000
diff changeset
   916
05208490cea6 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3000
diff changeset
   917
    app := self new.
05208490cea6 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3000
diff changeset
   918
    app open.
05208490cea6 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3000
diff changeset
   919
    app showWindow:aView.
3124
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
   920
    ^ app
2747
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   921
! !
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   922
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   923
!ViewTreeInspectorApplication methodsFor:'actions'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   924
87bb1815460b initial checkin
ca
parents:
diff changeset
   925
indicatorClicked:anIndex
87bb1815460b initial checkin
ca
parents:
diff changeset
   926
    |item sensor|
87bb1815460b initial checkin
ca
parents:
diff changeset
   927
87bb1815460b initial checkin
ca
parents:
diff changeset
   928
    item := model listOfItems at:anIndex ifAbsent:nil.
87bb1815460b initial checkin
ca
parents:
diff changeset
   929
87bb1815460b initial checkin
ca
parents:
diff changeset
   930
    item notNil ifTrue:[
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   931
	(     (sensor := self window sensor) notNil
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   932
	 and:[(sensor ctrlDown or:[sensor shiftDown])]
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   933
	) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   934
	    item recursiveToggleExpand
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   935
	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   936
	    item toggleExpand
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   937
	]
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   938
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   939
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
   940
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   941
!ViewTreeInspectorApplication methodsFor:'aspects'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   942
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   943
browserVisibleHolder
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   944
    "what is shown in the inspector:
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   945
     1->Widget
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   946
     2->Application
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   947
     3->WindowGroup
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   948
     4->Sensor
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   949
     5->Model
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   950
     6->Widget Class
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   951
     7->Application Class
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   952
    "
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   953
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   954
    ^ BlockValue
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   955
	with:[:v | self inspectorMode == #widgetClass or:[self inspectorMode == #applicationClass] ]
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   956
	argument:self inspectorModeIndexHolder
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   957
!
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   958
3174
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
   959
canBrowseWindowSpecMethod
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
   960
    ^ self hasSingleSelectionHolder value and:[ self windowSpecMethodOfSelection notNil ]
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
   961
!
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
   962
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
   963
canEditWindowSpec
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
   964
    ^ self hasSingleSelectionHolder value and:[ self windowSpecMethodOfSelection notNil ]
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
   965
!
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
   966
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   967
followFocusChannel
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   968
    "boolean holder, which indicates whether selection changed dependend on the focus view"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   969
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   970
    ^ followFocusChannel
87bb1815460b initial checkin
ca
parents:
diff changeset
   971
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   972
87bb1815460b initial checkin
ca
parents:
diff changeset
   973
hasSingleSelectionHolder
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   974
    "boolean holder, true if one item is selected"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   975
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   976
    ^ hasSingleSelectionHolder
87bb1815460b initial checkin
ca
parents:
diff changeset
   977
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   978
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   979
hasTargetWidgetChannel
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   980
    "answer the channel which is set to true if a target widget exists"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   981
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   982
    ^ model hasTargetWidgetChannel
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   983
!
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   984
3037
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
   985
inspectorMode
3049
292d06e8b7ae class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3040
diff changeset
   986
    "what is shown in the inspector:
3037
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
   987
     1->widget
3049
292d06e8b7ae class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3040
diff changeset
   988
     2->application
292d06e8b7ae class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3040
diff changeset
   989
     3->WindowGroup
292d06e8b7ae class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3040
diff changeset
   990
     4->Sensor
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   991
     5->Model
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   992
     6->Widget Class
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
   993
     7->Application Class
3049
292d06e8b7ae class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3040
diff changeset
   994
    "
292d06e8b7ae class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3040
diff changeset
   995
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   996
    |mode|
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   997
    mode := inspectorModeIndexHolder value.
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
   998
    ^ #( widget application group sensor model widgetClass applicationClass) at:mode ifAbsent:#widget
3037
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
   999
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1000
    "Created: / 30-07-2013 / 07:44:59 / cg"
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1001
!
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1002
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1003
inspectorModeIndexHolder
3049
292d06e8b7ae class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3040
diff changeset
  1004
    "what is shown in the inspector:
292d06e8b7ae class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3040
diff changeset
  1005
     1->Widget
292d06e8b7ae class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3040
diff changeset
  1006
     2->Application
292d06e8b7ae class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3040
diff changeset
  1007
     3->WindowGroup
292d06e8b7ae class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3040
diff changeset
  1008
     4->Sensor
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1009
     5->Model
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1010
     6->Widget Class
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1011
     7->Application Class
3049
292d06e8b7ae class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3040
diff changeset
  1012
    "
3037
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1013
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1014
    ^ inspectorModeIndexHolder
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1015
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1016
    "Created: / 30-07-2013 / 07:44:07 / cg"
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1017
!
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1018
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1019
inspectorModes
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1020
    "/ labels of tabs
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1021
    ^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model' 'Widget Class' 'App Class')
3037
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1022
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1023
    "Created: / 30-07-2013 / 09:42:16 / cg"
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1024
!
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1025
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1026
inspectorVisibleHolder
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1027
    "what is shown in the inspector:
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1028
     1->Widget
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1029
     2->Application
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1030
     3->WindowGroup
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1031
     4->Sensor
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1032
     5->Model
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1033
     6->Widget Class
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1034
     7->Application Class
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1035
    "
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1036
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1037
    ^ BlockValue
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1038
	with:[:v | v not ]
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1039
	argument:self browserVisibleHolder
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1040
!
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1041
3124
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
  1042
isCatchingEventsChannel
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
  1043
    ^ isCatchingEventsChannel
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
  1044
!
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
  1045
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
  1046
isNotCatchingEventsChannel
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
  1047
    ^ BlockValue forLogicalNot:self isCatchingEventsChannel
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
  1048
!
1973e28a2c75 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3123
diff changeset
  1049
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1050
listOfItems
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1051
    "returns the hierarchical list of items"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1052
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1053
    ^ model listOfItems
87bb1815460b initial checkin
ca
parents:
diff changeset
  1054
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1055
87bb1815460b initial checkin
ca
parents:
diff changeset
  1056
model
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1057
    "returns my selection model, a ViewTreeModel"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1058
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1059
    ^ model
87bb1815460b initial checkin
ca
parents:
diff changeset
  1060
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1061
3112
80453ab62df9 Added field that shows XPath like path to selected widged.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3105
diff changeset
  1062
path
80453ab62df9 Added field that shows XPath like path to selected widged.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3105
diff changeset
  1063
    <resource: #uiAspect>
80453ab62df9 Added field that shows XPath like path to selected widged.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3105
diff changeset
  1064
80453ab62df9 Added field that shows XPath like path to selected widged.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3105
diff changeset
  1065
    path isNil ifTrue:[
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1066
	path := PluggableAdaptor
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1067
		    on: self model
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1068
		    getter:[ :model | model path ]
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1069
		    setter:[ :model :newValue |  ]
3112
80453ab62df9 Added field that shows XPath like path to selected widged.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3105
diff changeset
  1070
    ].
80453ab62df9 Added field that shows XPath like path to selected widged.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3105
diff changeset
  1071
    ^ path.
80453ab62df9 Added field that shows XPath like path to selected widged.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3105
diff changeset
  1072
80453ab62df9 Added field that shows XPath like path to selected widged.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3105
diff changeset
  1073
    "Modified: / 19-05-2014 / 18:40:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
80453ab62df9 Added field that shows XPath like path to selected widged.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3105
diff changeset
  1074
!
80453ab62df9 Added field that shows XPath like path to selected widged.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3105
diff changeset
  1075
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1076
selectOnClickHolder
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1077
    "boolean holder, which indicates whether the selection will change on click"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1078
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1079
    ^ model selectOnClickHolder
87bb1815460b initial checkin
ca
parents:
diff changeset
  1080
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1081
2451
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
  1082
showNamesHolder
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
  1083
    "boolean holder, which indicates whether application names or widget names
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1084
     as additional text are shown for the items"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1085
2451
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
  1086
    ^ showNamesHolder
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
  1087
!
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
  1088
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1089
testModeChannel
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1090
    "answer a boolean channel which describes the behaviour how to process
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1091
     events on the target view.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1092
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1093
     false: all input events are eaten and the selection is shown on the target view.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1094
     true:  no  input events are eaten and no  selection is shown on the target view."
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1095
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1096
    ^ model testModeChannel
3174
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1097
!
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1098
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1099
windowSpecMethodOfSelection
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1100
    |item view app nonMeta meta masterApp
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1101
     spec builder specSelector implementors|
3174
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1102
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1103
    item := model selectedItem.
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1104
    item isNil ifTrue:[^ nil].
3174
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1105
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1106
    view := item widget.
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1107
    view isNil ifTrue:[^ nil].
3174
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1108
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1109
    app := view application.
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1110
    app isNil ifTrue:[^ nil].
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1111
3174
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1112
    builder := app builder.
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1113
    builder isNil ifTrue:[^ nil].
3174
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1114
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1115
    spec := builder spec.
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1116
    spec isNil ifTrue:[^ nil].
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1117
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1118
    specSelector := spec name.
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1119
    specSelector isNil ifTrue:[^ nil].
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1120
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1121
    ((nonMeta := app class theNonMetaclass) canUnderstand:specSelector) ifTrue:[
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1122
	^ nonMeta lookupMethodFor:specSelector.
3174
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1123
    ].
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1124
    ((meta := app class theMetaclass) canUnderstand:specSelector) ifTrue:[
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1125
	^ meta lookupMethodFor:specSelector.
3174
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1126
    ].
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1127
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1128
    "/ maybe a simple dialog given a spec
3302
413a225308d1 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3217
diff changeset
  1129
    (masterApp := app masterApplication) notNil ifTrue:[
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1130
	((nonMeta := masterApp class theNonMetaclass) canUnderstand:specSelector) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1131
	    ^ nonMeta lookupMethodFor:specSelector.
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1132
	].
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1133
	((meta := masterApp class theMetaclass) canUnderstand:specSelector) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1134
	    ^ meta lookupMethodFor:specSelector.
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1135
	].
3174
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1136
    ].
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1137
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1138
    implementors := Smalltalk allImplementorsOf: specSelector.
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1139
    implementors size == 1 ifTrue:[
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1140
	^ implementors first compiledMethodAt:specSelector.
3174
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1141
    ].
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1142
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
  1143
    ^ nil
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1144
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
  1145
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
  1146
!ViewTreeInspectorApplication methodsFor:'change & update'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1147
3037
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1148
inspectorModeIndexHolderChanged
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1149
    self updateInspector
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1150
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1151
    "Created: / 30-07-2013 / 09:21:51 / cg"
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1152
!
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1153
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1154
selectionChanged
87bb1815460b initial checkin
ca
parents:
diff changeset
  1155
    |info view item|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1156
87bb1815460b initial checkin
ca
parents:
diff changeset
  1157
    item := model selectedItem.
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1158
    item notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1159
	|state|
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1160
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1161
	view := item widget.
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1162
	view isNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1163
	    info := '%1 [%2]' bindWith:(item menuItem label asString)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1164
				  with:(item menuItem value asString).
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1165
	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1166
	    view id isNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1167
		state := 'no ID'.
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1168
	    ] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1169
		view shown ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1170
		    state := 'visible'.
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1171
		] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1172
		    state := 'invisible'
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1173
		].
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1174
	    ].
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1175
	    info := '%1 [%2] - %3' bindWith:(view class name)
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1176
				       with:(view name ? '') with:state allBold.
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1177
	]
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1178
    ] ifFalse:[
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1179
	info := ''
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1180
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1181
    hasSingleSelectionHolder value:(view notNil).
3037
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1182
    self updateInspector
876c28de42da class: Tools::ViewTreeInspectorApplication
Claus Gittinger <cg@exept.de>
parents: 3034
diff changeset
  1183
3456
4d4297bad4fa #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3453
diff changeset
  1184
    "Modified: / 16-08-2017 / 13:44:59 / cg"
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1185
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1186
87bb1815460b initial checkin
ca
parents:
diff changeset
  1187
update:something with:someArgument from:aModel
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
  1188
    |oldSelection|
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
  1189
2451
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
  1190
    aModel == showNamesHolder ifTrue:[
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1191
	oldSelection := model selectedItem.
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1192
	model selectedItem:nil.
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1193
	self listOfItems showWidgetNames:(aModel value).
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1194
	model selectedItem:oldSelection.
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1195
	^ self
2451
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
  1196
    ].
2458
64d8f3c973b3 *** empty log message ***
ca
parents: 2455
diff changeset
  1197
64d8f3c973b3 *** empty log message ***
ca
parents: 2455
diff changeset
  1198
    aModel == model ifTrue:[
3524
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1199
	self selectionChanged.
366f04fbfb23 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3500
diff changeset
  1200
	^ self
2458
64d8f3c973b3 *** empty log message ***
ca
parents: 2455
diff changeset
  12