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