Tools__ViewTreeApplication.st
author Claus Gittinger <cg@exept.de>
Wed, 16 Aug 2017 13:58:23 +0200
changeset 3457 3f3ea99e8af5
parent 3456 4d4297bad4fa
child 3500 51cbdcf5b2cb
permissions -rw-r--r--
#FEATURE by cg
class: Tools::ViewTreeInspectorApplication
more menu-item menu actions
comment/format in: #selectedView
changed:
#objectToInspectOrBrowse:
#submenuMenuItemInterface:

class: Tools::ViewTreeInspectorApplication class
changed: #middleButtonMenuForMenuItems
cg@2748
     1
"
cg@2748
     2
 COPYRIGHT (c) 2007 by eXept Software AG
cg@2748
     3
              All Rights Reserved
cg@2748
     4
cg@2748
     5
 This software is furnished under a license and may be used
cg@2748
     6
 only in accordance with the terms of that license and with the
cg@2748
     7
 inclusion of the above copyright notice.   This software may not
cg@2748
     8
 be provided or otherwise made available to, or used by, any
cg@2748
     9
 other person.  No title to or ownership of the software is
cg@2748
    10
 hereby transferred.
cg@2748
    11
"
ca@2177
    12
"{ Package: 'stx:libtool2' }"
ca@2177
    13
ca@2177
    14
"{ NameSpace: Tools }"
ca@2177
    15
cg@2744
    16
ToolApplicationModel subclass:#ViewTreeInspectorApplication
ca@2177
    17
	instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint
cg@2770
    18
		motionAction process followFocusChannel showNamesHolder
cg@3124
    19
		inspectorView inspectorModeIndexHolder path
cg@3302
    20
		isCatchingEventsChannel browser'
ca@2177
    21
	classVariableNames:''
ca@2177
    22
	poolDictionaries:''
cg@2744
    23
	category:'Interface-Smalltalk'
ca@2177
    24
!
ca@2177
    25
ca@2177
    26
Object subclass:#MenuDesc
ca@2177
    27
	instanceVariableNames:'title value action'
ca@2177
    28
	classVariableNames:''
ca@2177
    29
	poolDictionaries:''
cg@2744
    30
	privateIn:ViewTreeInspectorApplication
ca@2177
    31
!
ca@2177
    32
cg@2744
    33
HierarchicalItem subclass:#ViewTreeItem
cg@3456
    34
	instanceVariableNames:'widget menuItem isDrawnShown exists xOffsetAdditionalName'
cg@2744
    35
	classVariableNames:'HandleExtent'
cg@2744
    36
	poolDictionaries:''
cg@2744
    37
	privateIn:ViewTreeInspectorApplication
cg@2744
    38
!
cg@2744
    39
cg@2744
    40
ValueModel subclass:#ViewTreeModel
cg@2744
    41
	instanceVariableNames:'lockSema selectedSuperItems selection hiddenLevel listOfItems
cg@2744
    42
		inputEventAction mappedViewAction beforeSelectionChangedAction
cg@2744
    43
		icons timedUpdateTask selectOnClickHolder testModeChannel
cg@2978
    44
		hasTargetWidgetChannel catchEvents'
cg@2744
    45
	classVariableNames:''
cg@2744
    46
	poolDictionaries:''
cg@2744
    47
	privateIn:ViewTreeInspectorApplication
cg@2744
    48
!
cg@2744
    49
cg@2744
    50
HierarchicalList subclass:#ItemList
cg@2744
    51
	instanceVariableNames:'treeModel eventHook eventHookInitialized showWidgetNames'
cg@2744
    52
	classVariableNames:''
cg@2744
    53
	poolDictionaries:''
cg@2744
    54
	privateIn:ViewTreeInspectorApplication::ViewTreeModel
cg@2744
    55
!
cg@2744
    56
cg@2744
    57
!ViewTreeInspectorApplication class methodsFor:'documentation'!
ca@2177
    58
cg@2748
    59
copyright
cg@2748
    60
"
cg@2748
    61
 COPYRIGHT (c) 2007 by eXept Software AG
cg@2748
    62
              All Rights Reserved
cg@2748
    63
cg@2748
    64
 This software is furnished under a license and may be used
cg@2748
    65
 only in accordance with the terms of that license and with the
cg@2748
    66
 inclusion of the above copyright notice.   This software may not
cg@2748
    67
 be provided or otherwise made available to, or used by, any
cg@2748
    68
 other person.  No title to or ownership of the software is
cg@2748
    69
 hereby transferred.
cg@2748
    70
"
cg@2748
    71
!
cg@2748
    72
ca@2177
    73
documentation
ca@2177
    74
"
ca@2177
    75
     Small application showing a ViewTreeModel use.
ca@2177
    76
ca@2177
    77
     It displays a hierarchical list of a selected TopView and
ca@2177
    78
     all its contained subViews.
ca@2177
    79
     Useful to have a look at subcomponents - to see how views
ca@2177
    80
     are structured.
ca@2177
    81
ca@2177
    82
ca@2177
    83
    [Instance variables:]
ca@2177
    84
        model           <ViewTreeModel>      the used ViewTreeModel
ca@2177
    85
        clickedItem     <ViewTreeItem>       item under the clickedPoint (motion action)
ca@2177
    86
        clickedPoint    <Point>              point where the motion action started from.
ca@2177
    87
        motionAction    <Action>             (oneArg-) action called durring buttonMotion.
ca@2177
    88
ca@2177
    89
ca@2177
    90
    [author:]
ca@2177
    91
        Claus Atzkern
ca@2177
    92
ca@2177
    93
    [see also:]
ca@2177
    94
        ViewTreeModel
ca@2177
    95
        ViewTreeItem
ca@2177
    96
"
ca@2177
    97
! !
ca@2177
    98
cg@2744
    99
!ViewTreeInspectorApplication class methodsFor:'initialization'!
ca@2177
   100
ca@2177
   101
initialize
ca@2177
   102
    "add myself to the launcher menu
ca@2177
   103
    "
ca@2177
   104
    self installInLauncher.
ca@2177
   105
!
ca@2177
   106
ca@2177
   107
installInLauncher
cg@2744
   108
    "add myself to the launcher menu"
cg@2744
   109
ca@2177
   110
    |menuItem icon|
ca@2177
   111
ca@2177
   112
    NewLauncher isNil ifTrue:[^ self].
cg@2744
   113
    "/ cg - disabled. the icon is too ugly.
cg@2744
   114
    ^ self.
ca@2177
   115
cg@3341
   116
"/    icon := ToolbarIconLibrary inspectLocals20x20Icon magnifiedTo:28@28.
cg@3341
   117
"/
cg@3341
   118
"/    menuItem := MenuItem new 
cg@3341
   119
"/                    label: 'View Tree Inspector';
cg@3341
   120
"/                    value: [ ViewTreeInspectorApplication open];
cg@3341
   121
"/                    isButton: true;
cg@3341
   122
"/                    icon: icon;
cg@3341
   123
"/                    nameKey: #viewInspect.
cg@3341
   124
"/
cg@3341
   125
"/    menuItem startGroup:#right.
cg@3341
   126
"/    NewLauncher addMenuItem:menuItem in:'toolbar'
cg@3341
   127
"/                   position:#( #before #help)
cg@3341
   128
"/                      space:false.
cg@3341
   129
cg@3341
   130
    "
cg@3341
   131
     self installInLauncher
cg@3341
   132
     self removeFromLauncher
cg@3341
   133
    "
ca@2177
   134
!
ca@2177
   135
ca@2177
   136
postAutoload
ca@2177
   137
    "add myself to the launcher menu
ca@2177
   138
    "
ca@2177
   139
    self installInLauncher.
ca@2177
   140
"
ca@2177
   141
self installInLauncher
ca@2177
   142
self removeFromLauncher
ca@2177
   143
"
ca@2177
   144
!
ca@2177
   145
ca@2177
   146
removeFromLauncher
ca@2177
   147
    "remove myself from the launcher menu
ca@2177
   148
    "
ca@2177
   149
    NewLauncher isNil ifTrue:[^ self].
ca@2177
   150
    NewLauncher removeUserTool:#viewInspect
ca@2177
   151
ca@2177
   152
"
ca@2177
   153
self installInLauncher
ca@2177
   154
self removeFromLauncher
ca@2177
   155
"
ca@2177
   156
!
ca@2177
   157
ca@2177
   158
unload
ca@2177
   159
    "class is about to be unloaded - remove myself from the launcher menu
ca@2177
   160
    "
ca@2177
   161
    self removeFromLauncher.
ca@2177
   162
    super unload.
ca@2177
   163
! !
ca@2177
   164
cg@3070
   165
!ViewTreeInspectorApplication class methodsFor:'help specs'!
cg@3070
   166
cg@3070
   167
flyByHelpSpec
cg@3070
   168
    <resource: #help>
cg@3070
   169
cg@3070
   170
    ^super flyByHelpSpec addPairsFrom:#(
cg@3070
   171
cg@3186
   172
#doRedraw
cg@3186
   173
'Force the application to redraw its windows'
cg@3186
   174
cg@3070
   175
#doUncatchEvents
cg@3124
   176
'Release picked view and uncatch events\(currently locked for widget selection)'  
cg@3070
   177
cg@3070
   178
#doCatchEvents
cg@3124
   179
'Lock view and catch events for widget selection\(currently unlocked)'  
cg@3070
   180
cg@3186
   181
#doInspectApplication
cg@3186
   182
'Inspect the selected view''s application'  
cg@3186
   183
cg@3186
   184
#doBrowseApplication
cg@3186
   185
'Browse the selected view''s application'  
cg@3186
   186
cg@3186
   187
#doPickView
cg@3186
   188
'Pick a widget with the mouse and inspect its view hierarchy'  
cg@3186
   189
cg@3070
   190
)
cg@3070
   191
! !
cg@3070
   192
cg@2744
   193
!ViewTreeInspectorApplication class methodsFor:'image specs'!
cg@2744
   194
cg@2759
   195
crossHairIcon
cg@3185
   196
    ^ ToolbarIconLibrary bigCrossHairIcon
cg@2759
   197
!
cg@2759
   198
cg@3070
   199
lockViewIcon
cg@3070
   200
    "This resource specification was automatically generated
cg@3070
   201
     by the ImageEditor of ST/X."
cg@3070
   202
cg@3070
   203
    "Do not manually edit this!! If it is corrupted,
cg@3070
   204
     the ImageEditor may not be able to read the specification."
cg@3070
   205
cg@3070
   206
    "
cg@3070
   207
     self lockViewIcon inspect
cg@3070
   208
     ImageEditor openOnClass:self andSelector:#lockViewIcon
cg@3070
   209
     Icon flushCachedIcons
cg@3070
   210
    "
cg@3070
   211
cg@3070
   212
    <resource: #image>
cg@3070
   213
cg@3070
   214
    ^Icon
cg@3070
   215
        constantNamed:'Tools::ViewTreeInspectorApplication lockViewIcon'
cg@3070
   216
        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@3070
   217
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cg@3070
   218
@@@@@@@@@@@@@@A8^G!!7O3ACP5*P@@A8^G @@@@@@@@@@@A8^@@@OE0/!!P0S#0@@^G @@@@@@@@@@@B (@D''D#48"1.CX5H@(J@@@@@@@@@@@@B (B(>SAT"
cg@3070
   219
''%!!/P7,@(J@@@@@@@@@@@@@%IB0#M"H%IRTQV5P@IRT@@@@@@@@@@@ANSX:U]PANS$8:T80@S$8@@@@@@@@@@@AN&UYWK(EYQ@\FUPQHXT8@@@@@@@@@@@AN
cg@3070
   220
HC2!!TVY:Y#-%I*IKMD8@@@@@@@@@@@A$\@83XBEG%).GGX _!!&P@@@@@@@@@@@AO[P5+ &(WPYN@["!!E\$<@@@@@@@@@@@B_F''FQPAXX_!!&TGH4HB9<@@@@@
cg@3070
   221
@@@@@@B_%3HCJ7=BKPU,Q)01B9<@@@@@@@@@@@@PBP8T_F!!''JPI)_Y"D&!!@@@@@@@@@@@@@$B)I9TGXO''WQIWQ93W0@@@@@@@@@@@@@$"U=JR$)JR$)JR$)_
cg@3070
   222
"P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cg@3070
   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]
cg@3070
   224
!
cg@3070
   225
cg@3000
   226
releaseViewIcon
cg@3000
   227
    "This resource specification was automatically generated
cg@3000
   228
     by the ImageEditor of ST/X."
cg@3000
   229
cg@3000
   230
    "Do not manually edit this!! If it is corrupted,
cg@3000
   231
     the ImageEditor may not be able to read the specification."
cg@3000
   232
cg@3000
   233
    "
cg@3000
   234
     self releaseViewIcon inspect
cg@3000
   235
     ImageEditor openOnClass:self andSelector:#releaseViewIcon
cg@3000
   236
     Icon flushCachedIcons
cg@3000
   237
    "
cg@3000
   238
    <resource: #image>
cg@3000
   239
cg@3000
   240
    ^Icon
cg@3000
   241
        constantNamed:'Tools::ViewTreeInspectorApplication releaseViewIcon'
cg@3000
   242
        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@3000
   243
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cg@3000
   244
@@@@@@@@@@@@@@A8^G!!7O3ACP5*P@@A8^G @@@@@@@@@@@A8^@@@OE0/!!P0S#0@@^G @@@@@@@@@@@B (@@''D#48"1.CX5H@(J@@@@@@@@@@@@B (@@@@@@"
cg@3000
   245
''%!!/P7,@(J@@@@@@@@@@@@@%I@@@@BH%IRTQV5P@IRT@@@@@@@@@@@ANSP@@@@ANS$8:T80@S$8@@@@@@@@@@@AN&UYWK(EYQ@\FUPQHXT8@@@@@@@@@@@AN
cg@3000
   246
HC2!!TVY:Y#-%I*IKMD8@@@@@@@@@@@A$\@83XBEG%).GGX _!!&P@@@@@@@@@@@AO[P5+ &(WPYN@["!!E\$<@@@@@@@@@@@B_F''FQPAXX_!!&TGH4HB9<@@@@@
cg@3000
   247
@@@@@@B_%3HCJ7=BKPU,Q)01B9<@@@@@@@@@@@@PBP8T_F!!''JPI)_Y"D&!!@@@@@@@@@@@@@$B)I9TGXO''WQIWQ93W0@@@@@@@@@@@@@$"U=JR$)JR$)JR$)_
cg@3000
   248
"P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cg@3000
   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]
cg@2744
   250
! !
cg@2744
   251
cg@2744
   252
!ViewTreeInspectorApplication class methodsFor:'interface specs'!
ca@2177
   253
ca@2177
   254
windowSpec
ca@2177
   255
    "This resource specification was automatically generated
ca@2177
   256
     by the UIPainter of ST/X."
ca@2177
   257
ca@2177
   258
    "Do not manually edit this!! If it is corrupted,
ca@2177
   259
     the UIPainter may not be able to read the specification."
ca@2177
   260
ca@2177
   261
    "
cg@2757
   262
     UIPainter new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#windowSpec
cg@2757
   263
     Tools::ViewTreeInspectorApplication new openInterface:#windowSpec
cg@2757
   264
     Tools::ViewTreeInspectorApplication open
ca@2177
   265
    "
ca@2177
   266
ca@2177
   267
    <resource: #canvas>
ca@2177
   268
ca@2177
   269
    ^ 
cg@3037
   270
    #(FullSpec
cg@3037
   271
       name: windowSpec
cg@3037
   272
       window: 
cg@3037
   273
      (WindowSpec
cg@3037
   274
         label: 'View Tree Inspector'
cg@3037
   275
         name: 'View Tree Inspector'
cg@3037
   276
         min: (Point 10 10)
cg@3037
   277
         max: (Point 1024 9999)
jan@3112
   278
         bounds: (Rectangle 0 0 693 643)
cg@3037
   279
         menu: menu
cg@3037
   280
       )
cg@3037
   281
       component: 
cg@3037
   282
      (SpecCollection
cg@3037
   283
         collection: (
cg@3037
   284
          (MenuPanelSpec
cg@3037
   285
             name: 'toolbarMenu'
cg@3037
   286
             layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
cg@3037
   287
             menu: toolbarMenu
cg@3037
   288
             textDefault: true
cg@3037
   289
           )
cg@3037
   290
          (VariableVerticalPanelSpec
cg@3037
   291
             name: 'VariableVerticalPanel1'
cg@3037
   292
             layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0)
cg@3037
   293
             component: 
cg@3037
   294
            (SpecCollection
cg@3037
   295
               collection: (
jan@3112
   296
                (ViewSpec
jan@3112
   297
                   name: 'PathAndListPane'
jan@3112
   298
                   component: 
jan@3112
   299
                  (SpecCollection
jan@3112
   300
                     collection: (
jan@3112
   301
                      (ViewSpec
jan@3112
   302
                         name: 'PathPane'
jan@3112
   303
                         layout: (LayoutFrame 0 0 0 0 0 1 25 0)
jan@3112
   304
                         component: 
jan@3112
   305
                        (SpecCollection
jan@3112
   306
                           collection: (
jan@3112
   307
                            (InputFieldSpec
jan@3112
   308
                               name: 'Path'
jan@3112
   309
                               layout: (LayoutFrame 0 0 0 0 0 1 0 1)
jan@3112
   310
                               model: path
jan@3112
   311
                               acceptOnReturn: true
jan@3112
   312
                               acceptOnTab: true
jan@3112
   313
                               acceptOnPointerLeave: true
jan@3112
   314
                               emptyFieldReplacementText: 'No View Selected'
jan@3112
   315
                             )
jan@3112
   316
                            )
jan@3112
   317
                          
jan@3112
   318
                         )
jan@3112
   319
                       )
jan@3112
   320
                      (HierarchicalListViewSpec
jan@3112
   321
                         name: 'List'
jan@3112
   322
                         layout: (LayoutFrame 0 0 25 0 0 1 0 1)
jan@3112
   323
                         level: 1
jan@3112
   324
                         model: model
jan@3112
   325
                         menu: middleButtonMenu
jan@3112
   326
                         hasHorizontalScrollBar: true
jan@3112
   327
                         hasVerticalScrollBar: true
jan@3112
   328
                         miniScrollerHorizontal: true
jan@3112
   329
                         miniScrollerVertical: false
jan@3112
   330
                         listModel: listOfItems
jan@3112
   331
                         multipleSelectOk: true
jan@3112
   332
                         useIndex: false
jan@3112
   333
                         highlightMode: label
jan@3112
   334
                         showLeftIndicators: false
jan@3112
   335
                         indicatorSelector: indicatorClicked:
jan@3112
   336
                         useDefaultIcons: false
jan@3112
   337
                         postBuildCallback: postBuildTree:
jan@3112
   338
                       )
jan@3112
   339
                      )
jan@3112
   340
                    
jan@3112
   341
                   )
cg@2770
   342
                 )
cg@3037
   343
                (ViewSpec
cg@3037
   344
                   name: 'Box2'
cg@3037
   345
                   component: 
cg@3037
   346
                  (SpecCollection
cg@3037
   347
                     collection: (
cg@3037
   348
                      (TabViewSpec
cg@3037
   349
                         name: 'TabHeader1'
cg@3037
   350
                         layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0)
cg@3037
   351
                         model: inspectorModeIndexHolder
cg@3037
   352
                         menu: inspectorModes
cg@3037
   353
                         useIndex: true
cg@3037
   354
                         translateLabel: true
cg@3037
   355
                       )
cg@3302
   356
                      (SubCanvasSpec
cg@3302
   357
                         name: 'Browser'
cg@3302
   358
                         layout: (LayoutFrame 0 0 26 0 0 1 0 1)
cg@3302
   359
                         visibilityChannel: browserVisibleHolder
cg@3302
   360
                         hasHorizontalScrollBar: true
cg@3302
   361
                         hasVerticalScrollBar: true
cg@3302
   362
                         majorKey: #'Tools::NewSystemBrowser'
cg@3302
   363
                         minorKey: singleClassWithoutVariableListBrowserSpec
cg@3302
   364
                         createNewApplication: true
cg@3302
   365
                         createNewBuilder: true
cg@3302
   366
                         postBuildCallback: postBuildBrowserCanvas:
cg@3302
   367
                       )
cg@3049
   368
                      (ViewSpec
cg@3049
   369
                         name: 'Inspector'
cg@3049
   370
                         layout: (LayoutFrame 0 0 26 0 0 1 0 1)
cg@3302
   371
                         visibilityChannel: inspectorVisibleHolder
jan@3112
   372
                         postBuildCallback: postBuildInspectorView:
cg@3049
   373
                         viewClassName: 'InspectorView'
cg@3049
   374
                       )
cg@3037
   375
                      )
cg@3037
   376
                    
cg@3037
   377
                   )
cg@3037
   378
                 )
cg@3037
   379
                )
cg@3037
   380
              
cg@3037
   381
             )
cg@3037
   382
             handles: (Any 0.5 1.0)
ca@2177
   383
           )
cg@3037
   384
          )
cg@3037
   385
        
cg@3037
   386
       )
cg@3037
   387
     )
ca@2177
   388
! !
ca@2177
   389
cg@2744
   390
!ViewTreeInspectorApplication class methodsFor:'menu specs'!
ca@2177
   391
ca@2177
   392
menu
ca@2177
   393
    "This resource specification was automatically generated
ca@2177
   394
     by the MenuEditor of ST/X."
ca@2177
   395
ca@2177
   396
    "Do not manually edit this!! If it is corrupted,
cg@3174
   397
     the MenuEditor may not be able to read the specification."      
ca@2177
   398
cg@2978
   399
ca@2177
   400
    "
cg@2978
   401
     MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#menu
cg@2978
   402
     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication menu)) startUp
ca@2177
   403
    "
ca@2177
   404
ca@2177
   405
    <resource: #menu>
ca@2177
   406
ca@2177
   407
    ^ 
ca@2177
   408
     #(Menu
ca@2177
   409
        (
ca@2177
   410
         (MenuItem
ca@2177
   411
            label: 'File'
ca@2177
   412
            submenu: 
ca@2177
   413
           (Menu
ca@2177
   414
              (
ca@2177
   415
               (MenuItem
ca@2177
   416
                  label: 'Pick a View'
cg@2762
   417
                  itemValue: doPickView
ca@2177
   418
                )
ca@2177
   419
               (MenuItem
ca@2455
   420
                  enabled: hasTargetWidgetChannel
ca@2177
   421
                  label: 'Release Picked View'
ca@2177
   422
                  itemValue: doUnpick
ca@2177
   423
                )
ca@2177
   424
               (MenuItem
ca@2177
   425
                  label: '-'
ca@2177
   426
                )
ca@2177
   427
               (MenuItem
cg@2744
   428
                  label: 'Settings'
cg@2744
   429
                  submenu: 
cg@2744
   430
                 (Menu
cg@2744
   431
                    (
cg@2744
   432
                     (MenuItem
cg@2744
   433
                        label: 'Test Mode'
cg@2744
   434
                        hideMenuOnActivated: false
cg@2744
   435
                        indication: testModeChannel
cg@2744
   436
                      )
cg@2744
   437
                     (MenuItem
cg@2744
   438
                        enabled: testModeChannel
cg@2744
   439
                        label: 'Follow Focus'
cg@2744
   440
                        hideMenuOnActivated: false
cg@2744
   441
                        indication: followFocusChannel
cg@2744
   442
                      )
cg@2744
   443
                     (MenuItem
cg@2744
   444
                        label: '-'
cg@2744
   445
                      )
cg@2744
   446
                     (MenuItem
cg@2744
   447
                        label: 'Select on Click'
cg@2744
   448
                        hideMenuOnActivated: false
cg@2744
   449
                        indication: selectOnClickHolder
cg@2744
   450
                      )
cg@2744
   451
                     (MenuItem
cg@2744
   452
                        label: '-'
cg@2744
   453
                      )
cg@2744
   454
                     (MenuItem
cg@2744
   455
                        label: 'Show Name of Widgets'
cg@2744
   456
                        hideMenuOnActivated: false
cg@2744
   457
                        indication: showNamesHolder
cg@2744
   458
                      )
cg@2744
   459
                     )
cg@2744
   460
                    nil
cg@2744
   461
                    nil
cg@2744
   462
                  )
cg@2744
   463
                )
cg@2744
   464
               (MenuItem
cg@2744
   465
                  label: '-'
cg@2744
   466
                )
cg@2744
   467
               (MenuItem
ca@2177
   468
                  label: 'Exit'
ca@2177
   469
                  itemValue: closeRequest
ca@2177
   470
                )
ca@2177
   471
               )
ca@2177
   472
              nil
ca@2177
   473
              nil
ca@2177
   474
            )
ca@2177
   475
          )
ca@2177
   476
         (MenuItem
cg@2744
   477
            enabled: hasSingleSelectionHolder
cg@2744
   478
            label: 'Selection'
cg@2744
   479
            submenuChannel: middleButtonMenu
cg@2744
   480
          )
cg@2744
   481
         (MenuItem
cg@3034
   482
            label: 'Widget'
cg@3034
   483
            submenu: 
cg@3034
   484
           (Menu
cg@3034
   485
              (
cg@3034
   486
               (MenuItem
cg@3034
   487
                  enabled: hasSingleSelectionHolder
cg@3034
   488
                  label: 'Browse'
cg@3034
   489
                  itemValue: doBrowse:
cg@3034
   490
                  argument: view
cg@3034
   491
                )
cg@3034
   492
               (MenuItem
cg@3034
   493
                  enabled: hasSingleSelectionHolder
cg@3034
   494
                  label: 'Inspect'
cg@3034
   495
                  itemValue: doInspect:
cg@3034
   496
                  argument: view
cg@3034
   497
                )
cg@3034
   498
               (MenuItem
cg@3034
   499
                  label: '-'
cg@3034
   500
                )
cg@3034
   501
               (MenuItem
cg@3034
   502
                  enabled: hasTargetWidgetChannel
cg@3034
   503
                  label: 'All Components'
cg@3034
   504
                  startGroup: right
cg@3034
   505
                  submenuChannel: submenuComponents:
cg@3034
   506
                )
cg@3034
   507
               )
cg@3034
   508
              nil
cg@3034
   509
              nil
cg@3034
   510
            )
cg@3034
   511
          )
cg@3034
   512
         (MenuItem
cg@2744
   513
            label: 'Application'
ca@2454
   514
            submenu: 
ca@2454
   515
           (Menu
ca@2454
   516
              (
ca@2454
   517
               (MenuItem
cg@2978
   518
                  label: 'Redraw'
cg@2978
   519
                  itemValue: doRedraw
cg@2978
   520
                )
cg@2978
   521
               (MenuItem
cg@2978
   522
                  label: '-'
cg@2978
   523
                )
cg@2978
   524
               (MenuItem
cg@2744
   525
                  enabled: hasSingleSelectionHolder
cg@2744
   526
                  label: 'Browse'
cg@2744
   527
                  itemValue: doBrowse:
cg@2744
   528
                  argument: application
ca@2454
   529
                )
ca@2454
   530
               (MenuItem
cg@2744
   531
                  enabled: hasSingleSelectionHolder
cg@2744
   532
                  label: 'Inspect'
cg@2744
   533
                  itemValue: doInspect:
cg@2744
   534
                  argument: application
ca@2454
   535
                )
ca@2454
   536
               (MenuItem
ca@2454
   537
                  label: '-'
ca@2454
   538
                )
ca@2454
   539
               (MenuItem
cg@3174
   540
                  enabled: canBrowseWindowSpecMethod
cg@3174
   541
                  label: 'Browse Window Spec Method'
cg@3174
   542
                  itemValue: doBrowseWindowSpecMethod
cg@3174
   543
                )
cg@3174
   544
               (MenuItem
cg@3174
   545
                  enabled: canEditWindowSpec
cg@3174
   546
                  label: 'Edit Window Spec'
cg@3174
   547
                  itemValue: doEditWindowSpec
cg@3174
   548
                )
cg@3174
   549
               (MenuItem
cg@3174
   550
                  label: '-'
cg@3174
   551
                )
cg@3174
   552
               (MenuItem
cg@2744
   553
                  enabled: hasTargetWidgetChannel
cg@2744
   554
                  label: 'All Applications'
cg@2744
   555
                  submenuChannel: submenuApplications:
cg@2744
   556
                )
cg@2744
   557
               )
cg@2744
   558
              nil
cg@2744
   559
              nil
cg@2744
   560
            )
cg@2744
   561
          )
cg@2744
   562
         (MenuItem
cg@3034
   563
            label: 'Process'
cg@2744
   564
            submenu: 
cg@2744
   565
           (Menu
cg@2744
   566
              (
cg@2744
   567
               (MenuItem
cg@2744
   568
                  enabled: hasSingleSelectionHolder
cg@3171
   569
                  label: 'Debug'
cg@3171
   570
                  itemValue: doDebugProcess
cg@3171
   571
                )
cg@3171
   572
               (MenuItem
cg@3171
   573
                  enabled: hasSingleSelectionHolder
cg@2744
   574
                  label: 'Inspect'
cg@2744
   575
                  itemValue: doInspect:
cg@3034
   576
                  argument: process
ca@2454
   577
                )
ca@2454
   578
               (MenuItem
ca@2454
   579
                  label: '-'
ca@2454
   580
                )
ca@2454
   581
               (MenuItem
cg@3034
   582
                  label: 'Open Process Monitor'
cg@3034
   583
                  itemValue: doOpenProcessMonitor
ca@2454
   584
                )
ca@2454
   585
               )
ca@2454
   586
              nil
ca@2454
   587
              nil
ca@2454
   588
            )
ca@2454
   589
          )
ca@2454
   590
         (MenuItem
cg@2744
   591
            label: 'Help'
cg@2744
   592
            startGroup: conditionalRight
cg@2744
   593
            submenu: 
cg@2744
   594
           (Menu
cg@2744
   595
              (
cg@2744
   596
               (MenuItem
cg@2744
   597
                  label: 'Documentation'
cg@2744
   598
                  itemValue: openDocumentation
cg@2744
   599
                )
cg@2744
   600
               (MenuItem
cg@2744
   601
                  label: '-'
cg@2744
   602
                )
cg@2744
   603
               (MenuItem
cg@2744
   604
                  label: 'About this Application...'
cg@2744
   605
                  itemValue: openAboutThisApplication
cg@2744
   606
                )
cg@2744
   607
               )
cg@2744
   608
              nil
cg@2744
   609
              nil
cg@2744
   610
            )
ca@2177
   611
          )
ca@2177
   612
         )
ca@2177
   613
        nil
ca@2177
   614
        nil
ca@2177
   615
      )
ca@2177
   616
!
ca@2177
   617
ca@2177
   618
middleButtonMenu
ca@2177
   619
    "This resource specification was automatically generated
ca@2177
   620
     by the MenuEditor of ST/X."
ca@2177
   621
ca@2177
   622
    "Do not manually edit this!! If it is corrupted,
ca@2177
   623
     the MenuEditor may not be able to read the specification."
ca@2177
   624
cg@3213
   625
ca@2177
   626
    "
cg@3213
   627
     MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#middleButtonMenu
cg@3213
   628
     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication middleButtonMenu)) startUp
ca@2177
   629
    "
ca@2177
   630
ca@2177
   631
    <resource: #menu>
ca@2177
   632
ca@2177
   633
    ^ 
ca@2177
   634
     #(Menu
ca@2177
   635
        (
ca@2177
   636
         (MenuItem
ca@2177
   637
            label: 'Browse View Class'
ca@2177
   638
            itemValue: doBrowse:
cg@3213
   639
            argument: view
ca@2177
   640
          )
ca@2177
   641
         (MenuItem
ca@2177
   642
            label: 'Browse Model Class'
ca@2177
   643
            itemValue: doBrowse:
ca@2177
   644
            isVisible: hasModel
cg@3213
   645
            argument: model
ca@2177
   646
          )
ca@2177
   647
         (MenuItem
ca@2177
   648
            label: 'Browse Application Class'
ca@2177
   649
            itemValue: doBrowse:
ca@2177
   650
            isVisible: hasApplication
cg@3213
   651
            argument: application
ca@2177
   652
          )
ca@2177
   653
         (MenuItem
ca@2177
   654
            label: 'Browse Controller Class'
ca@2177
   655
            itemValue: doBrowse:
ca@2177
   656
            isVisible: hasController
cg@3213
   657
            argument: controller
ca@2177
   658
          )
ca@2177
   659
         (MenuItem
ca@2177
   660
            label: '-'
ca@2177
   661
          )
ca@2177
   662
         (MenuItem
ca@2177
   663
            label: 'Inspect View'
ca@2177
   664
            itemValue: doInspect:
cg@3213
   665
            argument: view
ca@2177
   666
          )
ca@2177
   667
         (MenuItem
ca@2177
   668
            label: 'Inspect Window Group'
ca@2177
   669
            itemValue: doInspect:
cg@3213
   670
            argument: group
ca@2177
   671
          )
ca@2177
   672
         (MenuItem
ca@2177
   673
            label: 'Inspect Model'
ca@2177
   674
            itemValue: doInspect:
ca@2177
   675
            isVisible: hasModel
cg@3213
   676
            argument: model
ca@2177
   677
          )
ca@2177
   678
         (MenuItem
ca@2177
   679
            label: 'Inspect Application'
ca@2177
   680
            itemValue: doInspect:
ca@2177
   681
            isVisible: hasApplication
cg@3213
   682
            argument: application
ca@2177
   683
          )
ca@2177
   684
         (MenuItem
ca@2177
   685
            label: 'Inspect Controller'
ca@2177
   686
            itemValue: doInspect:
ca@2177
   687
            isVisible: hasController
cg@3213
   688
            argument: controller
ca@2177
   689
          )
ca@2177
   690
         (MenuItem
ca@2177
   691
            label: '-'
ca@2177
   692
          )
ca@2177
   693
         (MenuItem
ca@2177
   694
            label: 'Flash'
ca@2177
   695
            itemValue: doFlash
ca@2177
   696
          )
ca@2177
   697
         (MenuItem
ca@2177
   698
            label: '-'
ca@2177
   699
          )
ca@2177
   700
         (MenuItem
ca@2177
   701
            label: 'Destroy'
ca@2177
   702
            itemValue: doDestroy
cg@3213
   703
            labelImage: (ResourceRetriever ToolbarIconLibrary erase16x16Icon 'Destroy')
ca@2177
   704
          )
ca@2177
   705
         (MenuItem
ca@2177
   706
            label: '-'
ca@2177
   707
          )
ca@2177
   708
         (MenuItem
cg@3213
   709
            label: 'Geometry'
cg@3213
   710
            submenuChannel: submenuGeometry:
cg@3213
   711
            keepLinkedMenu: true
cg@3213
   712
          )
cg@3213
   713
         (MenuItem
cg@3213
   714
            label: 'Interface'
cg@3213
   715
            submenuChannel: submenuInterface:
cg@3213
   716
            keepLinkedMenu: true
cg@3213
   717
          )
cg@3213
   718
         (MenuItem
cg@3213
   719
            label: 'Visibility'
cg@3213
   720
            submenuChannel: submenuVisibility:
cg@3213
   721
            keepLinkedMenu: true
cg@3213
   722
          )
cg@3213
   723
         (MenuItem
ca@2177
   724
            label: 'Instance Variables'
ca@2177
   725
            submenuChannel: submenuInspector:
ca@2177
   726
            keepLinkedMenu: true
ca@2177
   727
          )
ca@2177
   728
         (MenuItem
ca@2177
   729
            label: '='
ca@2177
   730
          )
ca@2177
   731
         (MenuItem
ca@2177
   732
            label: ''
ca@2177
   733
          )
ca@2177
   734
         (MenuItem
ca@2177
   735
            enabled: selectedComponentHasChildren
ca@2177
   736
            label: 'Applications'
ca@2177
   737
            nameKey: single
ca@2177
   738
            submenuChannel: submenuApplications:
ca@2177
   739
            keepLinkedMenu: true
ca@2177
   740
          )
ca@2177
   741
         (MenuItem
ca@2177
   742
            enabled: selectedComponentHasChildren
ca@2177
   743
            label: 'Components'
ca@2177
   744
            nameKey: single
ca@2177
   745
            submenuChannel: submenuComponents:
ca@2177
   746
            keepLinkedMenu: true
ca@2177
   747
          )
ca@2177
   748
         )
ca@2177
   749
        nil
ca@2177
   750
        nil
ca@2177
   751
      )
ca@2177
   752
!
ca@2177
   753
cg@3456
   754
middleButtonMenuForMenuItems
cg@3456
   755
    "This resource specification was automatically generated
cg@3456
   756
     by the MenuEditor of ST/X."
cg@3456
   757
cg@3456
   758
    "Do not manually edit this!! If it is corrupted,
cg@3456
   759
     the MenuEditor may not be able to read the specification."
cg@3456
   760
cg@3456
   761
cg@3456
   762
    "
cg@3456
   763
     MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#middleButtonMenu
cg@3456
   764
     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication middleButtonMenu)) startUp
cg@3456
   765
    "
cg@3456
   766
cg@3456
   767
    <resource: #menu>
cg@3456
   768
cg@3456
   769
    ^ 
cg@3456
   770
     #(Menu
cg@3456
   771
        (
cg@3456
   772
         (MenuItem
cg@3456
   773
            label: 'Browse Menu Item''s Class'
cg@3457
   774
            itemValue: doBrowse:
cg@3457
   775
            argument: menuItem
cg@3456
   776
          )
cg@3456
   777
         (MenuItem
cg@3456
   778
            label: '-'
cg@3456
   779
          )
cg@3456
   780
         (MenuItem
cg@3456
   781
            label: 'Inspect Menu Item'
cg@3457
   782
            itemValue: doInspect:
cg@3457
   783
            argument: menuItem
cg@3456
   784
          )
cg@3456
   785
         (MenuItem
cg@3456
   786
            label: '-'
cg@3456
   787
          )
cg@3456
   788
         (MenuItem
cg@3456
   789
            label: 'Interface'
cg@3456
   790
            submenuChannel: submenuMenuItemInterface:
cg@3456
   791
            keepLinkedMenu: true
cg@3456
   792
          )
cg@3456
   793
         )
cg@3456
   794
        nil
cg@3456
   795
        nil
cg@3456
   796
      )
cg@3456
   797
cg@3456
   798
    "Created: / 16-08-2017 / 13:48:49 / cg"
cg@3456
   799
!
cg@3456
   800
ca@2177
   801
toolbarMenu
ca@2177
   802
    "This resource specification was automatically generated
ca@2177
   803
     by the MenuEditor of ST/X."
ca@2177
   804
ca@2177
   805
    "Do not manually edit this!! If it is corrupted,
ca@2177
   806
     the MenuEditor may not be able to read the specification."
ca@2177
   807
cg@2978
   808
ca@2177
   809
    "
cg@2757
   810
     MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#toolbarMenu
cg@2757
   811
     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication toolbarMenu)) startUp
ca@2177
   812
    "
ca@2177
   813
ca@2177
   814
    <resource: #menu>
ca@2177
   815
ca@2177
   816
    ^ 
ca@2177
   817
     #(Menu
ca@2177
   818
        (
ca@2177
   819
         (MenuItem
cg@2978
   820
            enabled: hasTargetWidgetChannel
cg@2978
   821
            label: 'Redraw'
cg@2978
   822
            itemValue: doRedraw
cg@2978
   823
            isButton: true
cg@2978
   824
            labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
cg@2978
   825
          )
cg@2978
   826
         (MenuItem
cg@2978
   827
            label: '-'
cg@2978
   828
          )
cg@2978
   829
         (MenuItem
cg@2978
   830
            label: 'Pick a View and Catch Events'
cg@2762
   831
            itemValue: doPickView
cg@2744
   832
            translateLabel: false
cg@2744
   833
            isButton: true
cg@2744
   834
            hideMenuOnActivated: false
cg@3185
   835
            labelImage: (ResourceRetriever ToolbarIconLibrary pickWindowIcon)
cg@2744
   836
          )
cg@2744
   837
         (MenuItem
cg@2757
   838
            enabled: hasTargetWidgetChannel
cg@3124
   839
            isVisible: isNotCatchingEventsChannel
cg@3124
   840
            label: 'Catch Events of Picked View'
cg@3124
   841
            activeHelpKey: doCatchEvents
cg@3124
   842
            itemValue: doCatchEvents
cg@3124
   843
            nameKey: doCatchEvents
cg@3124
   844
            isButton: true
cg@3124
   845
            labelImage: (ResourceRetriever nil releaseViewIcon)
cg@3124
   846
          )
cg@3124
   847
         (MenuItem
cg@3124
   848
            enabled: hasTargetWidgetChannel
cg@3124
   849
            isVisible: isCatchingEventsChannel
cg@2978
   850
            label: 'Release Picked View and Uncatch Events'
cg@3070
   851
            activeHelpKey: doUncatchEvents
cg@2978
   852
            itemValue: doUncatchEvents
cg@3070
   853
            nameKey: doUncatchEvents
cg@2757
   854
            isButton: true
cg@3124
   855
            labelImage: (ResourceRetriever nil lockViewIcon)
cg@2757
   856
          )
cg@2757
   857
         (MenuItem
cg@2757
   858
            label: '-'
cg@2757
   859
          )
cg@2757
   860
         (MenuItem
cg@3186
   861
            activeHelpKey: doBrowseApplication
ca@2454
   862
            enabled: hasSingleSelectionHolder
cg@2744
   863
            label: 'Browse Application'
ca@2454
   864
            itemValue: doBrowse:
ca@2454
   865
            translateLabel: false
cg@2744
   866
            isButton: true
cg@2744
   867
            hideMenuOnActivated: false
ca@2454
   868
            labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowser24x24Icon2)
ca@2454
   869
            argument: application
ca@2177
   870
          )
ca@2177
   871
         (MenuItem
cg@3186
   872
            activeHelpKey: doInspectApplication
ca@2454
   873
            enabled: hasSingleSelectionHolder
cg@2744
   874
            label: 'Inspect Application'
ca@2454
   875
            itemValue: doInspect:
ca@2454
   876
            translateLabel: false
cg@2744
   877
            isButton: true
cg@2744
   878
            hideMenuOnActivated: false
cg@2744
   879
            labelImage: (ResourceRetriever ToolbarIconLibrary inspect22x24Icon)
ca@2454
   880
            argument: application
ca@2177
   881
          )
ca@2177
   882
         )
ca@2177
   883
        nil
ca@2177
   884
        nil
ca@2177
   885
      )
ca@2177
   886
! !
ca@2177
   887
cg@2747
   888
!ViewTreeInspectorApplication class methodsFor:'startup'!
cg@2747
   889
cg@2747
   890
openInPickMode
cg@2747
   891
    |app|
cg@2747
   892
cg@2747
   893
    app := self new.
cg@2747
   894
    app open.
cg@2762
   895
    app doPickView.
cg@3124
   896
    ^ app
cg@3124
   897
!
cg@3124
   898
cg@3124
   899
openInPickModeAndRelease
cg@3124
   900
    "release the pick-lock after picking"
cg@3124
   901
cg@3124
   902
    |app|
cg@3124
   903
cg@3124
   904
    app := self openInPickMode.
cg@3124
   905
    app doUncatchEvents.
cg@3124
   906
    ^ app
cg@3014
   907
!
cg@3014
   908
cg@3014
   909
openOn:aView
cg@3014
   910
    "show a particular window's topView hierarchy,
cg@3014
   911
     select the given view"
cg@3014
   912
cg@3014
   913
    |app|
cg@3014
   914
cg@3014
   915
    app := self new.
cg@3014
   916
    app open.
cg@3014
   917
    app showWindow:aView.
cg@3124
   918
    ^ app
cg@2747
   919
! !
cg@2747
   920
cg@2744
   921
!ViewTreeInspectorApplication methodsFor:'actions'!
ca@2177
   922
ca@2177
   923
indicatorClicked:anIndex
ca@2177
   924
    |item sensor|
ca@2177
   925
ca@2177
   926
    item := model listOfItems at:anIndex ifAbsent:nil.
ca@2177
   927
ca@2177
   928
    item notNil ifTrue:[
ca@2177
   929
        (     (sensor := self window sensor) notNil
ca@2177
   930
         and:[(sensor ctrlDown or:[sensor shiftDown])]
ca@2177
   931
        ) ifTrue:[
ca@2177
   932
            item recursiveToggleExpand
ca@2177
   933
        ] ifFalse:[
ca@2177
   934
            item toggleExpand
ca@2177
   935
        ]
ca@2177
   936
    ].
ca@2177
   937
! !
ca@2177
   938
cg@2744
   939
!ViewTreeInspectorApplication methodsFor:'aspects'!
ca@2177
   940
cg@3302
   941
browserVisibleHolder
cg@3302
   942
    "what is shown in the inspector:
cg@3302
   943
     1->Widget
cg@3302
   944
     2->Application
cg@3302
   945
     3->WindowGroup
cg@3302
   946
     4->Sensor
cg@3302
   947
     5->Model 
cg@3302
   948
     6->Widget Class 
cg@3302
   949
     7->Application Class 
cg@3302
   950
    "
cg@3302
   951
cg@3302
   952
    ^ BlockValue
cg@3302
   953
        with:[:v | self inspectorMode == #widgetClass or:[self inspectorMode == #applicationClass] ]
cg@3302
   954
        argument:self inspectorModeIndexHolder
cg@3302
   955
!
cg@3302
   956
cg@3174
   957
canBrowseWindowSpecMethod
cg@3174
   958
    ^ self hasSingleSelectionHolder value and:[ self windowSpecMethodOfSelection notNil ]
cg@3174
   959
!
cg@3174
   960
cg@3174
   961
canEditWindowSpec
cg@3174
   962
    ^ self hasSingleSelectionHolder value and:[ self windowSpecMethodOfSelection notNil ]
cg@3174
   963
!
cg@3174
   964
ca@2177
   965
followFocusChannel
ca@2455
   966
    "boolean holder, which indicates whether selection changed dependend on the focus view"
ca@2455
   967
ca@2177
   968
    ^ followFocusChannel
ca@2177
   969
!
ca@2177
   970
ca@2177
   971
hasSingleSelectionHolder
ca@2455
   972
    "boolean holder, true if one item is selected"
ca@2455
   973
ca@2177
   974
    ^ hasSingleSelectionHolder
ca@2177
   975
!
ca@2177
   976
ca@2455
   977
hasTargetWidgetChannel
ca@2455
   978
    "answer the channel which is set to true if a target widget exists"
ca@2455
   979
ca@2455
   980
    ^ model hasTargetWidgetChannel
ca@2455
   981
!
ca@2455
   982
cg@3037
   983
inspectorMode
cg@3049
   984
    "what is shown in the inspector:
cg@3037
   985
     1->widget
cg@3049
   986
     2->application
cg@3049
   987
     3->WindowGroup
cg@3049
   988
     4->Sensor
cg@3049
   989
     5->Model 
cg@3302
   990
     6->Widget Class 
cg@3302
   991
     7->Application Class 
cg@3049
   992
    "
cg@3049
   993
cg@3302
   994
    |mode|
cg@3302
   995
    mode := inspectorModeIndexHolder value.
cg@3302
   996
    ^ #( widget application group sensor model widgetClass applicationClass) at:mode ifAbsent:#widget
cg@3037
   997
cg@3037
   998
    "Created: / 30-07-2013 / 07:44:59 / cg"
cg@3037
   999
!
cg@3037
  1000
cg@3037
  1001
inspectorModeIndexHolder
cg@3049
  1002
    "what is shown in the inspector:
cg@3049
  1003
     1->Widget
cg@3049
  1004
     2->Application
cg@3049
  1005
     3->WindowGroup
cg@3049
  1006
     4->Sensor
cg@3049
  1007
     5->Model 
cg@3302
  1008
     6->Widget Class 
cg@3302
  1009
     7->Application Class 
cg@3049
  1010
    "
cg@3037
  1011
cg@3037
  1012
    ^ inspectorModeIndexHolder
cg@3037
  1013
cg@3037
  1014
    "Created: / 30-07-2013 / 07:44:07 / cg"
cg@3037
  1015
!
cg@3037
  1016
cg@3037
  1017
inspectorModes
cg@3302
  1018
    "/ labels of tabs
cg@3302
  1019
    ^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model' 'Widget Class' 'App Class')
cg@3037
  1020
cg@3037
  1021
    "Created: / 30-07-2013 / 09:42:16 / cg"
cg@3037
  1022
!
cg@3037
  1023
cg@3302
  1024
inspectorVisibleHolder
cg@3302
  1025
    "what is shown in the inspector:
cg@3302
  1026
     1->Widget
cg@3302
  1027
     2->Application
cg@3302
  1028
     3->WindowGroup
cg@3302
  1029
     4->Sensor
cg@3302
  1030
     5->Model 
cg@3302
  1031
     6->Widget Class 
cg@3302
  1032
     7->Application Class 
cg@3302
  1033
    "
cg@3302
  1034
cg@3302
  1035
    ^ BlockValue
cg@3302
  1036
        with:[:v | v not ]
cg@3302
  1037
        argument:self browserVisibleHolder
cg@3302
  1038
!
cg@3302
  1039
cg@3124
  1040
isCatchingEventsChannel
cg@3124
  1041
    ^ isCatchingEventsChannel
cg@3124
  1042
!
cg@3124
  1043
cg@3124
  1044
isNotCatchingEventsChannel
cg@3124
  1045
    ^ BlockValue forLogicalNot:self isCatchingEventsChannel
cg@3124
  1046
!
cg@3124
  1047
ca@2177
  1048
listOfItems
ca@2455
  1049
    "returns the hierarchical list of items"
ca@2455
  1050
ca@2177
  1051
    ^ model listOfItems
ca@2177
  1052
!
ca@2177
  1053
ca@2177
  1054
model
ca@2455
  1055
    "returns my selection model, a ViewTreeModel"
ca@2455
  1056
ca@2177
  1057
    ^ model
ca@2177
  1058
!
ca@2177
  1059
jan@3112
  1060
path
jan@3112
  1061
    <resource: #uiAspect>
jan@3112
  1062
jan@3112
  1063
    path isNil ifTrue:[
cg@3123
  1064
        path := PluggableAdaptor 
cg@3123
  1065
                    on: self model 
cg@3123
  1066
                    getter:[ :model | model path ]
cg@3123
  1067
                    setter:[ :model :newValue |  ]
jan@3112
  1068
    ].
jan@3112
  1069
    ^ path.
jan@3112
  1070
jan@3112
  1071
    "Modified: / 19-05-2014 / 18:40:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
jan@3112
  1072
!
jan@3112
  1073
ca@2177
  1074
selectOnClickHolder
ca@2455
  1075
    "boolean holder, which indicates whether the selection will change on click"
ca@2455
  1076
ca@2177
  1077
    ^ model selectOnClickHolder
ca@2177
  1078
!
ca@2177
  1079
ca@2451
  1080
showNamesHolder
ca@2451
  1081
    "boolean holder, which indicates whether application names or widget names
ca@2455
  1082
     as additional text are shown for the items"
ca@2455
  1083
ca@2451
  1084
    ^ showNamesHolder
ca@2451
  1085
!
ca@2451
  1086
ca@2177
  1087
testModeChannel
ca@2455
  1088
    "answer a boolean channel which describes the behaviour how to process
ca@2455
  1089
     events on the target view.
ca@2455
  1090
ca@2455
  1091
     false: all input events are eaten and the selection is shown on the target view.
ca@2455
  1092
     true:  no  input events are eaten and no  selection is shown on the target view."
ca@2455
  1093
ca@2455
  1094
    ^ model testModeChannel
cg@3174
  1095
!
cg@3174
  1096
cg@3174
  1097
windowSpecMethodOfSelection
cg@3302
  1098
    |item view app nonMeta meta masterApp
cg@3302
  1099
     spec builder specSelector implementors|
cg@3174
  1100
cg@3174
  1101
    item := model selectedItem.
cg@3174
  1102
    item isNil ifTrue:[^ nil]. 
cg@3174
  1103
cg@3174
  1104
    view := item widget.
cg@3174
  1105
    view isNil ifTrue:[^ nil]. 
cg@3174
  1106
cg@3174
  1107
    app := view application.
cg@3174
  1108
    app isNil ifTrue:[^ nil]. 
cg@3302
  1109
    
cg@3174
  1110
    builder := app builder.
cg@3174
  1111
    builder isNil ifTrue:[^ nil]. 
cg@3174
  1112
cg@3174
  1113
    spec := builder spec.
cg@3174
  1114
    spec isNil ifTrue:[^ nil].
cg@3174
  1115
cg@3174
  1116
    specSelector := spec name.
cg@3174
  1117
    specSelector isNil ifTrue:[^ nil].
cg@3174
  1118
cg@3302
  1119
    ((nonMeta := app class theNonMetaclass) canUnderstand:specSelector) ifTrue:[
cg@3302
  1120
        ^ nonMeta lookupMethodFor:specSelector.
cg@3174
  1121
    ].
cg@3302
  1122
    ((meta := app class theMetaclass) canUnderstand:specSelector) ifTrue:[
cg@3302
  1123
        ^ meta lookupMethodFor:specSelector.
cg@3174
  1124
    ].
cg@3174
  1125
cg@3174
  1126
    "/ maybe a simple dialog given a spec
cg@3302
  1127
    (masterApp := app masterApplication) notNil ifTrue:[
cg@3302
  1128
        ((nonMeta := masterApp class theNonMetaclass) canUnderstand:specSelector) ifTrue:[     
cg@3302
  1129
            ^ nonMeta lookupMethodFor:specSelector.
cg@3174
  1130
        ].
cg@3302
  1131
        ((meta := masterApp class theMetaclass) canUnderstand:specSelector) ifTrue:[    
cg@3302
  1132
            ^ meta lookupMethodFor:specSelector.
cg@3174
  1133
        ].
cg@3174
  1134
    ].
cg@3174
  1135
cg@3174
  1136
    implementors := Smalltalk allImplementorsOf: specSelector.
cg@3174
  1137
    implementors size == 1 ifTrue:[
cg@3174
  1138
        ^ implementors first compiledMethodAt:specSelector.
cg@3174
  1139
    ].
cg@3174
  1140
cg@3174
  1141
    ^ nil
ca@2177
  1142
! !
ca@2177
  1143
cg@2744
  1144
!ViewTreeInspectorApplication methodsFor:'change & update'!
ca@2177
  1145
cg@3037
  1146
inspectorModeIndexHolderChanged
cg@3037
  1147
    self updateInspector
cg@3037
  1148
cg@3037
  1149
    "Created: / 30-07-2013 / 09:21:51 / cg"
cg@3037
  1150
!
cg@3037
  1151
ca@2177
  1152
selectionChanged
ca@2177
  1153
    |info view item|
ca@2177
  1154
ca@2177
  1155
    item := model selectedItem.
cg@3174
  1156
    item notNil ifTrue:[ 
cg@3174
  1157
        |state|
cg@3174
  1158
ca@2177
  1159
        view := item widget.
cg@3456
  1160
        view isNil ifTrue:[
cg@3456
  1161
            info := '%1 [%2]' bindWith:(item menuItem label asString)
cg@3456
  1162
                                  with:(item menuItem value asString).
cg@3456
  1163
        ] ifFalse:[    
cg@3456
  1164
            view id isNil ifTrue:[
cg@3456
  1165
                state := 'no ID'.
ca@2177
  1166
            ] ifFalse:[
cg@3456
  1167
                view shown ifTrue:[
cg@3456
  1168
                    state := 'visible'.
cg@3456
  1169
                ] ifFalse:[
cg@3456
  1170
                    state := 'invisible'
cg@3456
  1171
                ].
ca@2177
  1172
            ].
cg@3456
  1173
            info := '%1 [%2] - %3' bindWith:(view class name)
cg@3456
  1174
                                       with:(view name ? '') with:state allBold.
cg@3456
  1175
        ]
ca@2177
  1176
    ] ifFalse:[
ca@2177
  1177
        info := ''
ca@2177
  1178
    ].
ca@2177
  1179
    hasSingleSelectionHolder value:(view notNil).
cg@3037
  1180
    self updateInspector
cg@3037
  1181
cg@3456
  1182
    "Modified: / 16-08-2017 / 13:44:59 / cg"
ca@2177
  1183
!
ca@2177
  1184
ca@2177
  1185
update:something with:someArgument from:aModel
ca@2454
  1186
    |oldSelection|
ca@2454
  1187
ca@2451
  1188
    aModel == showNamesHolder ifTrue:[
ca@2455
  1189
        oldSelection := model selectedItem.
ca@2454
  1190
        model selectedItem:nil.
ca@2451
  1191
        self listOfItems showWidgetNames:(aModel value).
ca@2454
  1192
        model selectedItem:oldSelection.
ca@2451
  1193
        ^ self
ca@2451
  1194
    ].
ca@2458
  1195
ca@2458
  1196
    aModel == model ifTrue:[
ca@2458
  1197
        self selectionChanged.
ca@2458
  1198
        ^ self
ca@2458
  1199
    ].
ca@2458
  1200
ca@2177
  1201
    super update:something with:someArgument from:aModel.
cg@3037
  1202
!
cg@3037
  1203
cg@3302
  1204
updateBrowser
cg@3302
  1205
    |cls widget|
cg@3302
  1206
cg@3302
  1207
    widget := self selectedView.
cg@3302
  1208
    
cg@3302
  1209
    "/ update the browser
cg@3302
  1210
    self inspectorMode == #widgetClass ifTrue:[
cg@3302
  1211
        cls := widget class.
cg@3302
  1212
    ] ifFalse:[
cg@3302
  1213
        cls := widget application class
cg@3302
  1214
    ].    
cg@3302
  1215
    browser switchToClass:cls selector:nil.
cg@3302
  1216
!
cg@3302
  1217
cg@3037
  1218
updateInspector
cg@3302
  1219
    |view mode obj|
cg@3037
  1220
cg@3037
  1221
    view := self selectedView.
cg@3302
  1222
    mode := self inspectorMode.
cg@3302
  1223
    
cg@3302
  1224
    ((mode == #widgetClass) or:[(mode == #applicationClass)]) ifTrue:[
cg@3302
  1225
        "/ update the browser
cg@3302
  1226
        view notNil ifTrue:[
cg@3302
  1227
            self updateBrowser.
cg@3302
  1228
        ].
cg@3302
  1229
        ^ self.
cg@3302
  1230
    ].
cg@3302
  1231
    
cg@3302
  1232
    (view isNil or:[mode == #widget]) ifTrue:[
cg@3037
  1233
        obj := view.
cg@3302
  1234
    ] ifFalse:[ (mode == #group) ifTrue:[
cg@3049
  1235
        obj := view windowGroup
cg@3302
  1236
    ] ifFalse:[ (mode == #sensor) ifTrue:[
cg@3049
  1237
        obj := view sensor
cg@3302
  1238
    ] ifFalse:[ (mode == #model) ifTrue:[
cg@3049
  1239
        obj := view model
cg@3037
  1240
    ] ifFalse:[
cg@3037
  1241
        obj := view application.
cg@3049
  1242
    ]]]].
cg@3037
  1243
    inspectorView inspect:obj.
cg@3037
  1244
    inspectorView headLineLabel:(obj class nameWithoutPrefix)
cg@3037
  1245
cg@3037
  1246
    "Created: / 30-07-2013 / 09:21:16 / cg"
ca@2177
  1247
! !
ca@2177
  1248
cg@2744
  1249
!ViewTreeInspectorApplication methodsFor:'event processing'!
ca@2177
  1250
ca@2177
  1251
processButtonMotionEvent:ev
ca@2455
  1252
    |click rootView|
ca@2177
  1253
ca@2455
  1254
    motionAction isNil ifTrue:[^ self].
ca@2455
  1255
ca@2455
  1256
    (rootView := model rootView) isNil ifTrue:[
ca@2455
  1257
        clickedItem := motionAction := nil.
ca@2455
  1258
        ^ self
ca@2455
  1259
    ].
ca@2455
  1260
ca@2455
  1261
    click := rootView device
ca@2455
  1262
            translatePoint:((ev x)@ (ev y))
ca@2455
  1263
            fromView:(ev view)
ca@2455
  1264
            toView:rootView.
ca@2455
  1265
ca@2455
  1266
    click = clickedPoint ifFalse:[
ca@2455
  1267
        (clickedItem isNil or:[(click dist:clickedPoint) > 5.0]) ifTrue:[
ca@2455
  1268
            motionAction value:click
ca@2177
  1269
        ]
ca@2177
  1270
    ].
ca@2177
  1271
!
ca@2177
  1272
ca@2177
  1273
processButtonPressEvent:ev
ca@2455
  1274
    |rootView sensor lastRectangle|
ca@2455
  1275
ca@2455
  1276
    rootView    := model rootView.
ca@2177
  1277
    sensor      := model rootView sensor.
ca@2177
  1278
    clickedItem := model listOfItems detectItemRespondsToView:(ev view).
ca@2177
  1279
ca@2177
  1280
    (sensor ctrlDown or:[sensor shiftDown]) ifTrue:[
ca@2177
  1281
        clickedItem notNil ifTrue:[
ca@2177
  1282
            self selectOnClickHolder value ifTrue:[
ca@2177
  1283
                model toggleSelectItem:clickedItem
ca@2177
  1284
            ].
ca@2177
  1285
        ].
ca@2177
  1286
        clickedItem := motionAction := nil.
ca@2455
  1287
        ^ self
ca@2455
  1288
    ].
ca@2177
  1289
ca@2455
  1290
    clickedPoint := rootView device translatePoint:((ev x)@ (ev y))  fromView:(ev view) toView:rootView.
ca@2455
  1291
    lastRectangle := nil.
ca@2177
  1292
ca@2455
  1293
    motionAction :=[:p|
ca@2455
  1294
        rootView    := model rootView device rootView.
ca@2455
  1295
        rootView    := model rootView.
ca@2455
  1296
        clickedItem := nil.
ca@2177
  1297
ca@2455
  1298
        rootView xoring:[
ca@2455
  1299
            lastRectangle notNil ifTrue:[ rootView displayRectangle:lastRectangle ]
ca@2455
  1300
                                ifFalse:[ rootView clippedByChildren:false ].
ca@2455
  1301
ca@2455
  1302
            p isNil ifTrue:[
ca@2455
  1303
                rootView clippedByChildren:true.
ca@2455
  1304
                motionAction := nil.
ca@2455
  1305
            ] ifFalse:[
ca@2455
  1306
                lastRectangle := Rectangle origin:(clickedPoint min:p) corner:(clickedPoint max:p).
ca@2455
  1307
                rootView displayRectangle:lastRectangle.
ca@2177
  1308
            ].
ca@2455
  1309
            rootView flush.
ca@2455
  1310
        ].
ca@2455
  1311
        lastRectangle
ca@2455
  1312
    ].
ca@2177
  1313
!
ca@2177
  1314
ca@2177
  1315
processButtonReleaseEvent:anEvent
ca@2177
  1316
    |rootView rectangle newItems widget origin|
ca@2177
  1317
ca@2455
  1318
    (rootView := model rootView) isNil ifTrue:[
ca@2455
  1319
        clickedItem := motionAction := nil.
ca@2455
  1320
        ^ self
ca@2455
  1321
    ].
ca@2177
  1322
    motionAction isNil ifTrue:[ ^ self ].
ca@2177
  1323
    clickedItem notNil ifTrue:[ ^ model selectItem:clickedItem ].
ca@2177
  1324
ca@2455
  1325
    rectangle := motionAction value:nil.
ca@2455
  1326
    rectangle isNil ifTrue:[^ self].
ca@2177
  1327
ca@2455
  1328
    newItems := OrderedCollection new.
ca@2177
  1329
ca@2455
  1330
    model rootItem recursiveDo:[:anItem|
ca@2455
  1331
        widget := anItem widget.
ca@2455
  1332
        origin := widget originRelativeTo:rootView.
ca@2455
  1333
ca@2455
  1334
        (rectangle containsRect:(Rectangle origin:origin extent:(widget extent))) ifTrue:[
ca@2455
  1335
            newItems add:anItem.
ca@2455
  1336
        ]
ca@2177
  1337
    ].
ca@2455
  1338
    model value:newItems.
ca@2177
  1339
!
ca@2177
  1340
ca@2177
  1341
processEvent:anEvent
ca@2177
  1342
    |button menu|
ca@2177
  1343
cg@2758
  1344
    anEvent isKeyPressEvent ifTrue:[ self processKeyPressEvent:anEvent. ^ self  ].
ca@2177
  1345
    anEvent isButtonEvent  ifFalse:[ ^ self ].
ca@2177
  1346
ca@2177
  1347
    button := anEvent button.
ca@2177
  1348
ca@2177
  1349
    (button == 2 or:[button == #menu]) ifTrue:[
ca@2177
  1350
        motionAction isNil ifTrue:[
ca@2177
  1351
            anEvent isButtonPressEvent ifTrue:[
ca@2177
  1352
                self selectOnClickHolder value ifTrue:[
ca@2177
  1353
                    menu := self middleButtonMenu value.
ca@2177
  1354
                    menu notNil ifTrue:[
cg@2758
  1355
                        menu := MenuPanel 
cg@2758
  1356
                                    menu:(Menu new fromLiteralArrayEncoding:menu)
cg@2758
  1357
                                    receiver:self.
ca@2177
  1358
                        menu startUp.
ca@2177
  1359
                    ]
ca@2177
  1360
                ].
ca@2177
  1361
            ].
ca@2177
  1362
            clickedItem := nil.
ca@2177
  1363
        ].
ca@2177
  1364
        ^ self
ca@2177
  1365
    ].
ca@2177
  1366
cg@2758
  1367
    anEvent isButtonPressEvent  ifTrue:[ self processButtonPressEvent:anEvent. ^ self ].
cg@2758
  1368
    anEvent isButtonMotionEvent ifTrue:[ self processButtonMotionEvent:anEvent. ^ self ].
ca@2177
  1369
ca@2177
  1370
    anEvent isButtonReleaseEvent ifTrue:[
ca@2177
  1371
        self selectOnClickHolder value ifTrue:[
ca@2177
  1372
            self processButtonReleaseEvent:anEvent
ca@2177
  1373
        ].
ca@2177
  1374
    ].
ca@2177
  1375
    clickedItem := motionAction := nil.
ca@2177
  1376
ca@2177
  1377
    anEvent type == #'buttonMultiPress:x:y:' ifTrue:[
ca@2177
  1378
        self selectOnClickHolder value ifTrue:[
ca@2177
  1379
            self doInspect:#view.
ca@2177
  1380
        ].
ca@2177
  1381
    ].
ca@2177
  1382
!
ca@2177
  1383
ca@2177
  1384
processKeyPressEvent:anEvent
ca@2177
  1385
    |item prnt idx key max next|
ca@2177
  1386
ca@2177
  1387
    key := anEvent key.
ca@2177
  1388
    key isSymbol ifFalse:[^ self].
ca@2177
  1389
ca@2177
  1390
    key == #Delete    ifTrue:[ ^ self doDestroy ].
ca@2177
  1391
    key == #InspectIt ifTrue:[ ^ self doInspect:#view ].
ca@2177
  1392
ca@2177
  1393
    (   key == #CursorUp
ca@2177
  1394
    or:[key == #CursorDown
ca@2177
  1395
    or:[key == #CursorLeft
ca@2177
  1396
    or:[key == #CursorRight]]]
ca@2177
  1397
    ) ifFalse:[
ca@2177
  1398
        ^ self
ca@2177
  1399
    ].
ca@2177
  1400
    item := model selectedItem.
ca@2177
  1401
ca@2177
  1402
    item isNil ifTrue:[
ca@2177
  1403
        ^ model selectedItem:(model first ? model rootItem)
ca@2177
  1404
    ].
ca@2177
  1405
ca@2177
  1406
    prnt := item parent.
ca@2177
  1407
    prnt isNil ifTrue:[
ca@2177
  1408
        "/ is the root item
ca@2177
  1409
        (key == #CursorUp or:[key == #CursorLeft]) ifTrue:[item := model listOfItems last]
ca@2177
  1410
                                                  ifFalse:[item := item at:1 ifAbsent:item].
ca@2177
  1411
cg@2758
  1412
        ^ model selectedItem:item
ca@2177
  1413
    ].
ca@2177
  1414
    key == #CursorLeft ifTrue:[ ^ model selectedItem:prnt ].
ca@2177
  1415
ca@2177
  1416
    key == #CursorRight ifTrue:[
ca@2177
  1417
        next := item at:1 ifAbsent:nil.
ca@2177
  1418
        next notNil ifTrue:[ model selectedItem:next ].
cg@2758
  1419
        ^ self
ca@2177
  1420
    ].
ca@2177
  1421
ca@2177
  1422
    max := prnt size.
ca@2177
  1423
ca@2177
  1424
    key == #CursorUp ifTrue:[
ca@2177
  1425
        idx := prnt identityIndexOf:item.
ca@2177
  1426
        idx == 1 ifTrue:[idx := max + 1].
ca@2177
  1427
        model selectedItem:(prnt at:idx - 1).
cg@2758
  1428
        ^ self.
ca@2177
  1429
    ].
ca@2177
  1430
ca@2177
  1431
    key == #CursorDown ifTrue:[
ca@2177
  1432
        idx := prnt identityIndexOf:item.
ca@2177
  1433
        idx == max ifTrue:[idx := 0].
ca@2177
  1434
        model selectedItem:(prnt at:idx + 1).
cg@2758
  1435
        ^ self.
ca@2177
  1436
    ].
ca@2177
  1437
!
ca@2177
  1438
ca@2177
  1439
processMappedView:aView
ca@2177
  1440
    |parent anchor|
ca@2177
  1441
ca@2177
  1442
    parent := self listOfItems detectItemRespondsToView:aView.
ca@2177
  1443
    parent isNil ifTrue:[ ^ self ].
ca@2177
  1444
ca@2177
  1445
    NotFoundSignal handle:[:ex|
ca@2177
  1446
        "contained subvies used by spec are not yet created;
ca@2177
  1447
         thus we have to wait until last used subview is build
ca@2177
  1448
        "
ca@2177
  1449
        anchor := nil.
ca@2177
  1450
    ] do:[
ca@2177
  1451
        anchor := parent class buildViewsFrom:(parent widget).
ca@2177
  1452
    ].
ca@2177
  1453
    anchor notNil ifTrue:[
ca@2177
  1454
        parent updateFromChildren:anchor children.
ca@2177
  1455
    ].
ca@2177
  1456
! !
ca@2177
  1457
cg@2744
  1458
!ViewTreeInspectorApplication methodsFor:'initialization & release'!
ca@2177
  1459
ca@2177
  1460
closeDownViews
ca@2455
  1461
    "release the grapped application"
ca@2455
  1462
ca@2177
  1463
    process := nil.
ca@2177
  1464
    super closeDownViews.
ca@2177
  1465
    self doUnpick.
ca@2177
  1466
!
ca@2177
  1467
ca@2177
  1468
initialize
ca@2455
  1469
    "setup my model and channels"
ca@2455
  1470
ca@2177
  1471
    super initialize.
ca@2177
  1472
ca@2177
  1473
    hasSingleSelectionHolder := false asValue.
ca@2177
  1474
    followFocusChannel       := false asValue.
cg@3124
  1475
    isCatchingEventsChannel  := false asValue.
cg@3037
  1476
    inspectorModeIndexHolder := 1 asValue.
cg@3037
  1477
    inspectorModeIndexHolder onChangeSend:#inspectorModeIndexHolderChanged to:self.
ca@2177
  1478
ca@2177
  1479
    model := ViewTreeModel new.
ca@2177
  1480
    model inputEventAction:[:ev| self processEvent:ev ].
ca@2177
  1481
    model mappedViewAction:[:vw| self processMappedView:vw ].
ca@2177
  1482
    model application:self.
ca@2458
  1483
    model addDependent:self.
ca@2458
  1484
ca@2177
  1485
ca@2451
  1486
    showNamesHolder := false asValue.
ca@2451
  1487
    showNamesHolder addDependent:self.
cg@3037
  1488
cg@3037
  1489
    "Modified: / 30-07-2013 / 09:20:08 / cg"
ca@2177
  1490
!
ca@2177
  1491
cg@3302
  1492
postBuildBrowserCanvas:aSubCanvas
cg@3302
  1493
    browser := aSubCanvas application.
cg@3302
  1494
cg@3302
  1495
    "/ browser navigationState meta onChangeEvaluate:(self updateBrowser).
cg@3302
  1496
    "/ self updateBrowser.
cg@3302
  1497
!
cg@3302
  1498
cg@2770
  1499
postBuildInspectorView:anInspector
cg@2770
  1500
    inspectorView := anInspector.
cg@2770
  1501
!
cg@2770
  1502
ca@2177
  1503
postBuildTree:aTree
ca@2177
  1504
    treeView := aTree scrolledView.
cg@3105
  1505
    "/ treeView hasConstantHeight:true.
cg@3104
  1506
!
cg@3104
  1507
cg@3104
  1508
release
cg@3104
  1509
    "release the grapped application"
cg@3104
  1510
cg@3104
  1511
    super release.
cg@3104
  1512
    self doUnpick.
ca@2177
  1513
! !
ca@2177
  1514
cg@2744
  1515
!ViewTreeInspectorApplication methodsFor:'menu queries'!
ca@2177
  1516
ca@2177
  1517
hasApplication
ca@2455
  1518
    "returns true if the current selected view has an application"
ca@2455
  1519
ca@2177
  1520
    |view|
ca@2177
  1521
ca@2177
  1522
    view := self selectedView.
ca@2177
  1523
  ^ (view notNil and:[view application notNil])
ca@2177
  1524
!
ca@2177
  1525
ca@2177
  1526
hasController
ca@2177
  1527
    "returns true if the current selected item's view has a controller
ca@2455
  1528
     other than nil or the view itself"
ca@2455
  1529
ca@2177
  1530
    |view controller|
ca@2177
  1531
ca@2177
  1532
    view := self selectedView.
ca@2177
  1533
ca@2177
  1534
    view notNil ifTrue:[
ca@2177
  1535
        controller := view controller.
ca@2177
  1536
      ^ (controller notNil and:[controller ~~ view])
ca@2177
  1537
    ].
ca@2177
  1538
    ^ false
ca@2177
  1539
!
ca@2177
  1540
ca@2177
  1541
hasModel
ca@2455
  1542
    "returns true if the current selected view has a model"
ca@2455
  1543
ca@2177
  1544
    |view|
ca@2177
  1545
ca@2177
  1546
    view := self selectedView.
ca@2177
  1547
  ^ (view notNil and:[view model notNil])
ca@2177
  1548
! !
ca@2177
  1549
cg@2744
  1550
!ViewTreeInspectorApplication methodsFor:'menu specs'!
ca@2177
  1551
ca@2177
  1552
middleButtonMenu
ca@2455
  1553
    "returns the middleButton menu for the single selected item or nil"
ca@2455
  1554
cg@2758
  1555
    ^ [ 
cg@3456
  1556
        model selectedItem notNil ifTrue:[
cg@3456
  1557
            model selectedItem isView ifTrue:[
cg@3456
  1558
                self class middleButtonMenu
cg@3456
  1559
            ] ifFalse:[
cg@3456
  1560
                self class middleButtonMenuForMenuItems
cg@3456
  1561
            ].    
cg@3456
  1562
        ] ifFalse:[
cg@3456
  1563
            nil
cg@3456
  1564
        ]
ca@2177
  1565
      ]
cg@3456
  1566
cg@3456
  1567
    "Modified: / 16-08-2017 / 13:48:31 / cg"
ca@2177
  1568
!
ca@2177
  1569
ca@2177
  1570
submenuApplications:aMenu
ca@2177
  1571
    |applications menu item list addBlock|
ca@2177
  1572
ca@2177
  1573
    item := aMenu selection nameKey == #single ifTrue:[model selectedItem]
ca@2177
  1574
                                              ifFalse:[model rootItem].
ca@2177
  1575
    item isNil ifTrue:[^ nil].
ca@2177
  1576
ca@2177
  1577
    applications := IdentityDictionary new.
ca@2177
  1578
ca@2177
  1579
    addBlock := [:el| |cls ctr|
ca@2177
  1580
        cls := self resolveApplicationClassFor:el.
ca@2177
  1581
ca@2177
  1582
        cls notNil ifTrue:[
ca@2177
  1583
            ctr := applications at:cls ifAbsent:0.
ca@2177
  1584
            applications at:cls put:(ctr + 1).
ca@2177
  1585
        ].
ca@2177
  1586
    ].
ca@2177
  1587
    item recursiveDo:addBlock.
ca@2177
  1588
    addBlock value:item.
ca@2177
  1589
ca@2177
  1590
    applications isEmpty ifTrue:[^ nil ].
ca@2177
  1591
    list := SortedCollection sortBlock:[:a :b| a title < b title ].
ca@2177
  1592
ca@2177
  1593
    applications keysAndValuesDo:[:cls :ctr|
ca@2177
  1594
       list add:(MenuDesc title:(cls name)
ca@2177
  1595
                          value:(ctr printString)
ca@2177
  1596
                         action:[self doSelectNextOfApplicationClass:cls startingIn:item]
ca@2177
  1597
                 ).
ca@2177
  1598
    ].
ca@2177
  1599
ca@2177
  1600
    menu := MenuDesc buildFromList:list onGC:aMenu.
ca@2177
  1601
    menu do:[:el|
ca@2177
  1602
        el hideMenuOnActivated:false
ca@2177
  1603
    ].
ca@2177
  1604
    ^ menu
ca@2177
  1605
!
ca@2177
  1606
ca@2177
  1607
submenuComponents:aMenu
ca@2177
  1608
    |widgets list total menu item|
ca@2177
  1609
ca@2177
  1610
    item := aMenu selection nameKey == #single ifTrue:[model selectedItem]
ca@2177
  1611
                                              ifFalse:[model rootItem].
ca@2177
  1612
    item isNil ifTrue:[^ nil].
ca@2177
  1613
ca@2177
  1614
    widgets := IdentityDictionary new.
ca@2177
  1615
    total   := 0.
ca@2177
  1616
ca@2177
  1617
    item recursiveDo:[:el| |cls ctr|
ca@2177
  1618
        cls := el widget.
ca@2177
  1619
ca@2177
  1620
        cls notNil ifTrue:[
ca@2177
  1621
            cls := cls class.
ca@2177
  1622
            ctr := widgets at:cls ifAbsent:0.
ca@2177
  1623
            widgets at:cls put:(ctr + 1).
ca@2177
  1624
            total := total + 1.
ca@2177
  1625
        ].
ca@2177
  1626
    ].
ca@2177
  1627
    total == 0 ifTrue:[^ nil].
ca@2177
  1628
    list := SortedCollection sortBlock:[:a :b| a title < b title ].
ca@2177
  1629
ca@2177
  1630
    widgets keysAndValuesDo:[:cls :ctr|
ca@2177
  1631
        list add:(MenuDesc title:(cls name)
ca@2177
  1632
                           value:(ctr printString)
ca@2177
  1633
                          action:[self doSelectNextOfClass:cls startingIn:item]
ca@2177
  1634
                 ).
ca@2177
  1635
    ].
ca@2177
  1636
    list := list asOrderedCollection.
ca@2177
  1637
    list add:(MenuDesc separator).
ca@2177
  1638
    list add:(MenuDesc title:'Total' value:(total printString)).
ca@2177
  1639
    menu := MenuDesc buildFromList:list onGC:aMenu.
ca@2177
  1640
    menu do:[:el|
ca@2177
  1641
        el hideMenuOnActivated:false
ca@2177
  1642
    ].
ca@2177
  1643
    ^ menu
ca@2177
  1644
!
ca@2177
  1645
ca@2177
  1646
submenuGeometry:aMenu
ca@2455
  1647
    "builds and returns the geometry submenu"
ca@2455
  1648
ca@2177
  1649
    |view point inst list x y|
ca@2177
  1650
ca@2177
  1651
    view := self selectedView.
ca@2177
  1652
    view isNil ifTrue:[^ nil].
ca@2177
  1653
ca@2177
  1654
    list := OrderedCollection new.
ca@2177
  1655
ca@2177
  1656
    "/ origin
ca@2177
  1657
    point := view relativeOrigin.
ca@2177
  1658
    point isNil ifTrue:[ point := view origin ].
ca@2177
  1659
ca@2177
  1660
    x := view left.
ca@2177
  1661
    y := view top.
ca@2177
  1662
ca@2177
  1663
    (x == point x and:[y == point y]) ifTrue:[ inst := point ]
ca@2177
  1664
                                     ifFalse:[ inst := '%1 --> (%2@%3)' bindWith:point with:x with:y ].
ca@2177
  1665
ca@2177
  1666
    list add:(MenuDesc title:'origin' value:inst).
ca@2177
  1667
ca@2177
  1668
    "/ corner
ca@2177
  1669
    point := view relativeCorner.
ca@2177
  1670
    point isNil ifTrue:[ point := view corner ].
ca@2177
  1671
ca@2177
  1672
    x := view right.
ca@2177
  1673
    y := view bottom.
ca@2177
  1674
ca@2177
  1675
    (x == point x and:[y == point y]) ifTrue:[ inst := point ]
ca@2177
  1676
                                     ifFalse:[ inst := '%1 --> (%2@%3)' bindWith:point with:x with:y ].
ca@2177
  1677
ca@2177
  1678
    list add:(MenuDesc title:'corner' value:inst).
ca@2177
  1679
ca@2177
  1680
    "/ extent
ca@2177
  1681
    (point := view relativeExtent) isNil ifTrue:[point := view extent].
ca@2177
  1682
    list add:(MenuDesc title:'extent' value:point).
ca@2177
  1683
ca@2177
  1684
    "/ preferred extent
ca@2177
  1685
    list add:(MenuDesc title:'pref. extent' value:(view preferredExtent)).
ca@2177
  1686
    list add:(MenuDesc separator).
ca@2177
  1687
ca@2177
  1688
    "/ view insets
ca@2177
  1689
    inst := 'l:%1  r:%2  t:%3  b:%4' bindWith:(view leftInset)
ca@2177
  1690
                                         with:(view rightInset)
ca@2177
  1691
                                         with:(view topInset)
ca@2177
  1692
                                         with:(view bottomInset).
ca@2177
  1693
ca@2177
  1694
    list add:(MenuDesc title:'insets'      value:inst).
ca@2177
  1695
    list add:(MenuDesc title:'borderWidth' value:(view borderWidth)).
ca@2177
  1696
    list add:(MenuDesc title:'level'       value:(view level)).
ca@2177
  1697
    list add:(MenuDesc separator).
ca@2177
  1698
ca@2177
  1699
    (inst := view layout) notNil ifTrue:[ inst := inst displayString ].
ca@2177
  1700
    list add:(MenuDesc title:'layout' value:inst).
ca@2177
  1701
ca@2177
  1702
    (inst := view transformation) notNil ifTrue:[ inst := inst displayString ].
ca@2177
  1703
    list add:(MenuDesc title:'transformation' value:inst).
ca@2177
  1704
cg@3183
  1705
    (view isKindOf:Label) ifTrue:[
cg@3183
  1706
        list add:(MenuDesc separator).
cg@3183
  1707
        (inst := view adjust) notNil ifTrue:[ inst := inst displayString ].
cg@3183
  1708
        list add:(MenuDesc title:'adjust' value:inst).
cg@3183
  1709
    ].
cg@3183
  1710
    (view isKindOf:PanelView) ifTrue:[
cg@3183
  1711
        list add:(MenuDesc separator).
cg@3183
  1712
        (inst := view horizontalLayout ) notNil ifTrue:[ inst := inst displayString ].
cg@3183
  1713
        list add:(MenuDesc title:'horizontalLayout' value:inst).
cg@3183
  1714
        (inst := view verticalLayout ) notNil ifTrue:[ inst := inst displayString ].
cg@3183
  1715
        list add:(MenuDesc title:'verticalLayout' value:inst).
cg@3183
  1716
    ].
cg@3183
  1717
cg@3183
  1718
    ^ MenuDesc buildFromList:list onGC:aMenu
ca@2177
  1719
!
ca@2177
  1720
ca@2177
  1721
submenuInspector:aMenu
ca@2455
  1722
    "builds and returns the inspector submenu"
ca@2455
  1723
cg@3040
  1724
    |view list n names label value indices|
ca@2177
  1725
ca@2177
  1726
    view := self selectedView.
ca@2177
  1727
    view isNil ifTrue:[^ nil].
ca@2177
  1728
ca@2177
  1729
    n := view class instSize.
ca@2177
  1730
    n > 0 ifFalse:[^ nil ].
ca@2177
  1731
ca@2177
  1732
    list  := OrderedCollection new:n.
ca@2177
  1733
    names := view class allInstVarNames.
cg@3040
  1734
    indices := (1 to:names size) asArray.
cg@3040
  1735
    names sortWith:indices.
ca@2177
  1736
ca@2177
  1737
    1 to:n do:[:i| |action|
ca@2177
  1738
        label := (names at:i) printString.
cg@3040
  1739
        value := view instVarAt:(indices at:i).
ca@2177
  1740
        value isNil ifTrue:[
ca@2177
  1741
            value  := '------'.
ca@2177
  1742
            action := nil.
ca@2177
  1743
        ] ifFalse:[
ca@2177
  1744
            value  := value displayString contractAtEndTo:40.
ca@2177
  1745
            action := [(view instVarAt:i) inspect].
ca@2177
  1746
        ].
ca@2177
  1747
        list add:(MenuDesc title:label value:value action:action).
ca@2177
  1748
    ].
ca@2177
  1749
ca@2177
  1750
    ^ MenuDesc buildFromList:list onGC:aMenu
cg@3040
  1751
cg@3040
  1752
    "Modified: / 31-07-2013 / 13:12:52 / cg"
ca@2177
  1753
!
ca@2177
  1754
ca@2177
  1755
submenuInterface:aMenu
ca@2455
  1756
    "builds and returns the interface submenu"
ca@2455
  1757
ca@2177
  1758
    |view label inst value list|
ca@2177
  1759
ca@2177
  1760
    view := self selectedView.
ca@2177
  1761
    view isNil ifTrue:[^ nil].
ca@2177
  1762
ca@2177
  1763
    list := OrderedCollection new.
ca@2177
  1764
ca@2177
  1765
    inst  := view controller.
ca@2177
  1766
    value := nil.
ca@2177
  1767
ca@2177
  1768
    inst isNil ifTrue:[
ca@2177
  1769
        label := nil
ca@2177
  1770
    ] ifFalse:[
cg@2758
  1771
        inst == view ifTrue:[ 
cg@2758
  1772
            label := '== view itself' 
cg@2758
  1773
        ] ifFalse:[ 
cg@2758
  1774
            label := inst displayString.
cg@2758
  1775
            value := [view controller inspect].
cg@2758
  1776
        ].
ca@2177
  1777
    ].
ca@2177
  1778
    list add:(MenuDesc title:'controller' value:label action:value).
ca@2177
  1779
ca@2177
  1780
    inst := view delegate.
ca@2177
  1781
    inst notNil ifTrue:[
ca@2177
  1782
        list add:(MenuDesc title:'delegate' value:(inst displayString) action:[ view delegate inspect ]).
ca@2177
  1783
    ].
ca@2177
  1784
ca@2177
  1785
    inst := view application.
ca@2177
  1786
cg@2758
  1787
    inst notNil ifTrue:[ 
cg@2758
  1788
        |topAppl|
cg@2758
  1789
ca@2177
  1790
        list add:(MenuDesc title:'application' value:inst action:[ view application inspect ]).
ca@2177
  1791
ca@2177
  1792
        topAppl := inst topApplication.
ca@2177
  1793
ca@2177
  1794
        (topAppl notNil and:[topAppl ~~ inst]) ifTrue:[
ca@2177
  1795
            list add:(MenuDesc title:'topApplication' value:topAppl action:[ inst topApplication inspect ]).
ca@2177
  1796
        ].
ca@2177
  1797
    ].
ca@2177
  1798
    list add:(MenuDesc separator).
ca@2177
  1799
cg@2888
  1800
    (view respondsTo:#'model') ifTrue:[
cg@2779
  1801
        inst := view model.
ca@2177
  1802
cg@2888
  1803
        inst isNil 
cg@2888
  1804
            ifTrue:[ label := value := nil ]
cg@2888
  1805
            ifFalse:[ label := inst displayString.
cg@2888
  1806
                      label := label,(self aspectLabelFor:inst inApplicationOf:view).  
cg@2888
  1807
                      value := [ view model inspect ].
cg@2888
  1808
                    ].
ca@2177
  1809
ca@2177
  1810
        list add:(MenuDesc title:'model' value:label action:value).
ca@2177
  1811
ca@2177
  1812
        (inst notNil and:[view respondsTo:#modelInterface]) ifTrue:[
ca@2177
  1813
            view modelInterface keysAndValuesDo:[:key : val|
ca@2177
  1814
                val isNil ifTrue:[ label := nil ]
ca@2177
  1815
                         ifFalse:[ label := val displayString ].
ca@2177
  1816
ca@2177
  1817
                list add:(MenuDesc title:('      - ', key) value:label ).
ca@2177
  1818
            ]
ca@2177
  1819
        ].
ca@2177
  1820
    ].
ca@2177
  1821
ca@2177
  1822
    (view respondsTo:#enableChannel) ifTrue:[
ca@2177
  1823
        inst := view enableChannel.
ca@2177
  1824
ca@2177
  1825
        inst isNil ifTrue:[ label := value := nil ]
ca@2177
  1826
                  ifFalse:[ label := inst displayString.
cg@2888
  1827
                            label := label,(self aspectLabelFor:inst inApplicationOf:view).  
ca@2177
  1828
                            value := [ view enableChannel inspect ].
ca@2177
  1829
                          ].
ca@2177
  1830
ca@2177
  1831
        list add:(MenuDesc title:'enableChannel' value:label action:value).
ca@2177
  1832
    ].
ca@2177
  1833
cg@2888
  1834
    #( #action #pressAction #releaseAction ) do:[:actionSelector |
cg@2779
  1835
        (view respondsTo:actionSelector) ifTrue:[
cg@2779
  1836
            inst := view perform:actionSelector.
cg@2779
  1837
cg@2779
  1838
            inst isNil 
cg@2779
  1839
                ifTrue:[ label := value := nil ]
cg@2779
  1840
                ifFalse:[ label := inst displayString.
cg@2779
  1841
                            value := [ (view perform:actionSelector) inspect ].
cg@2779
  1842
                        ].
cg@2779
  1843
cg@3040
  1844
            list add:(MenuDesc title:actionSelector"'action'" value:label action:value).
cg@2779
  1845
        ].
cg@2779
  1846
    ].
cg@2779
  1847
ca@2177
  1848
    list last isSeparator ifFalse:[ list add:(MenuDesc separator) ].
ca@2177
  1849
ca@2177
  1850
    (view respondsTo:#listHolder) ifTrue:[
ca@2177
  1851
        inst := view listHolder.
ca@2177
  1852
ca@2177
  1853
        inst isNil ifTrue:[ label := value := nil ]
ca@2177
  1854
                  ifFalse:[ label := inst class printString.
cg@2888
  1855
                            label := label,(self aspectLabelFor:inst inApplicationOf:view).  
ca@2177
  1856
                            value := [ view listHolder inspect ].
ca@2177
  1857
                          ].
ca@2177
  1858
        list add:(MenuDesc title:'listHolder' value:label action:value).
ca@2177
  1859
    ].
ca@2177
  1860
ca@2177
  1861
    (view respondsTo:#list) ifTrue:[
ca@2177
  1862
        inst := view list.
ca@2177
  1863
ca@2177
  1864
        inst isNil ifTrue:[ label := value := nil ]
ca@2177
  1865
                  ifFalse:[ label := '%1 [%2]' bindWith:(inst class printString) with:(inst size).
cg@2888
  1866
                            label := label,(self aspectLabelFor:inst inApplicationOf:view).  
ca@2177
  1867
                            value := [ view list inspect ].
ca@2177
  1868
                          ].
ca@2177
  1869
ca@2177
  1870
        list add:(MenuDesc title:'list' value:label action:value).
ca@2177
  1871
    ].
ca@2177
  1872
ca@2177
  1873
    list last isSeparator ifTrue:[ list removeLast ].
cg@2888
  1874
    ^ MenuDesc buildFromList:list onGC:aMenu
cg@2888
  1875
cg@3040
  1876
    "Modified: / 31-07-2013 / 13:09:55 / cg"
ca@2177
  1877
!
ca@2177
  1878
cg@3456
  1879
submenuMenuItemInterface:aMenu
cg@3456
  1880
    "builds and returns the menuItem interface submenu"
cg@3456
  1881
cg@3456
  1882
    |item list|
cg@3456
  1883
cg@3456
  1884
    item := self selectedMenuItem.
cg@3456
  1885
    item isNil ifTrue:[^ nil].
cg@3456
  1886
cg@3456
  1887
    list := OrderedCollection new.
cg@3456
  1888
cg@3457
  1889
    list add:(MenuDesc 
cg@3457
  1890
                title:'itemValue' 
cg@3457
  1891
                value:(item itemValue)
cg@3457
  1892
                action:[ 
cg@3457
  1893
                    UserPreferences systemBrowserClass
cg@3457
  1894
                        browseImplementorsOf:item itemValue
cg@3457
  1895
                ]).
cg@3456
  1896
cg@3456
  1897
    ^ MenuDesc buildFromList:list onGC:aMenu
cg@3456
  1898
cg@3456
  1899
    "Created: / 16-08-2017 / 13:51:05 / cg"
cg@3456
  1900
!
cg@3456
  1901
ca@2177
  1902
submenuVisibility:aMenu
ca@2455
  1903
    "builds and returns the geometry submenu"
ca@2455
  1904
ca@2177
  1905
    |view list value|
ca@2177
  1906
ca@2177
  1907
    view := self selectedView.
ca@2177
  1908
    view isNil ifTrue:[^ nil].
ca@2177
  1909
ca@2177
  1910
    list := OrderedCollection new.
ca@2177
  1911
ca@2177
  1912
    list add:(MenuDesc title:'device'     value:(view device printString)).
ca@2177
  1913
    list add:(MenuDesc title:'drawableId' value:(view id)).
ca@2177
  1914
    list add:(MenuDesc title:'gcId'       value:(view gcId)).
ca@2177
  1915
ca@2177
  1916
    list add:(MenuDesc separator).
ca@2177
  1917
ca@2177
  1918
    list add:(MenuDesc title:'shown'    value:(view shown)).
ca@2177
  1919
    list add:(MenuDesc title:'realized' value:(view realized)).
ca@2177
  1920
ca@2177
  1921
    list add:(MenuDesc separator).
ca@2177
  1922
ca@2177
  1923
    list add:(MenuDesc title:'hiddenOnRealize' value:(view isHiddenOnRealize)).
ca@2177
  1924
ca@2177
  1925
    (value := view visibilityChannel) isNil ifTrue:[
ca@2177
  1926
        list add:(MenuDesc title:'visibilityChannel' value:'------').
ca@2177
  1927
    ] ifFalse:[
ca@2177
  1928
        list add:(MenuDesc title:'visibilityChannel'
ca@2177
  1929
                           value:(value displayString)
ca@2177
  1930
                          action:[view visibilityChannel inspect]).
ca@2177
  1931
    ].
ca@2177
  1932
cg@2758
  1933
    ^ MenuDesc buildFromList:list onGC:aMenu
ca@2177
  1934
! !
ca@2177
  1935
cg@2744
  1936
!ViewTreeInspectorApplication methodsFor:'private'!
ca@2177
  1937
cg@2888
  1938
aspectLabelFor:aModel inApplicationOf:aView
cg@2888
  1939
    |app|
cg@2888
  1940
cg@2888
  1941
    aModel isNil ifTrue:[^ ''].
cg@2888
  1942
    aView isNil ifTrue:[^ ''].
cg@2888
  1943
    (app := aView application) isNil ifTrue:[^ ''].
cg@2888
  1944
    app builder bindings keysAndValuesDo:[:aspect :value |
cg@2888
  1945
        value == aModel ifTrue:[^ ' [aspect: ',aspect,']'].
cg@2888
  1946
    ].
cg@2888
  1947
    app class allInstVarNames do:[:nm | 
cg@2888
  1948
        (app instVarNamed:nm) == aModel ifTrue:[^ ' [instvar: ',nm,']']
cg@2888
  1949
    ].
cg@2888
  1950
cg@2888
  1951
    ^ ''
cg@2888
  1952
cg@2888
  1953
    "Created: / 27-04-2012 / 14:22:09 / cg"
cg@2888
  1954
!
cg@2888
  1955
ca@2177
  1956
selectFocusView
cg@2762
  1957
    |rootView focusView|
ca@2177
  1958
ca@2177
  1959
    rootView := model rootView.
ca@2177
  1960
ca@2177
  1961
    (rootView notNil and:[rootView shown]) ifTrue:[
ca@2177
  1962
        focusView := rootView windowGroup focusView.
ca@2177
  1963
    ].
ca@2177
  1964
    focusView isNil ifTrue:[^ self ].
ca@2177
  1965
cg@2762
  1966
    self selectView:focusView
cg@2762
  1967
!
cg@2762
  1968
cg@2762
  1969
selectView:aView
cg@2762
  1970
    |currentItem viewItem|
cg@2762
  1971
cg@2762
  1972
    currentItem := model selectedItem.
cg@2762
  1973
cg@2762
  1974
    (currentItem notNil and:[currentItem widget == aView]) ifTrue:[
ca@2177
  1975
        ^ self
ca@2177
  1976
    ].
cg@2762
  1977
    viewItem := model listOfItems recursiveDetect:[:el| el widget == aView ].
cg@2762
  1978
cg@2762
  1979
    viewItem notNil ifTrue:[
cg@2762
  1980
        model selectItem:viewItem.
ca@2177
  1981
    ].        
ca@2177
  1982
!
ca@2177
  1983
ca@2177
  1984
setRootItem:aRootItemOrNil
ca@2177
  1985
    |theProcess|
ca@2177
  1986
ca@2177
  1987
    aRootItemOrNil isNil ifTrue:[
ca@2177
  1988
        process := nil.
ca@2177
  1989
    ] ifFalse:[
ca@2177
  1990
        "/ expand tree to level 3
ca@2177
  1991
        aRootItemOrNil do:[:aRootChild|
ca@2177
  1992
            aRootChild do:[:aSubChild| aSubChild expand ].
ca@2177
  1993
            aRootChild expand.
ca@2177
  1994
        ].
ca@2177
  1995
        aRootItemOrNil expand.
ca@2177
  1996
ca@2177
  1997
        process isNil ifTrue:[
ca@2177
  1998
            theProcess := process :=
cg@3034
  1999
                Process 
cg@3034
  2000
                    for:[   
cg@3034
  2001
                        |update testModeChannel|
cg@3034
  2002
cg@3034
  2003
                        update := false.
cg@3034
  2004
                        testModeChannel := model testModeChannel.
cg@3034
  2005
cg@3034
  2006
                        [process == theProcess] whileTrue:[
cg@3034
  2007
                            Delay waitForSeconds:0.5.
cg@3034
  2008
cg@3034
  2009
                            (treeView notNil and:[process == theProcess and:[treeView shown]]) ifTrue:[
cg@3034
  2010
                                (testModeChannel value == true and:[followFocusChannel value == true]) ifTrue:[
cg@3034
  2011
                                    self selectFocusView.
ca@2177
  2012
                                ].
cg@3034
  2013
                                update ifTrue:[
cg@3034
  2014
                                    self updateShownStatus.
cg@3034
  2015
                                ].
cg@3034
  2016
                                update := update not.
cg@3034
  2017
                            ].
cg@3034
  2018
                        ].
cg@3034
  2019
                    ] 
cg@3034
  2020
                    priority:(Processor userSchedulingPriority).
cg@3034
  2021
            theProcess name:'ViewTreeInspector - Focus Follower'.
ca@2177
  2022
            theProcess resume.
ca@2177
  2023
        ].
ca@2177
  2024
    ].
ca@2177
  2025
    model rootItem:aRootItemOrNil.
cg@3034
  2026
cg@3034
  2027
    "Modified: / 25-07-2013 / 12:03:44 / cg"
ca@2177
  2028
!
ca@2177
  2029
ca@2177
  2030
updateShownStatus
ca@2177
  2031
    |rootItem min max visState listIdx visY0 visY1 height damage|
ca@2177
  2032
ca@2177
  2033
    rootItem := model rootItem.
ca@2177
  2034
    (rootItem notNil and:[rootItem widget shown]) ifFalse:[^ self].
ca@2177
  2035
ca@2177
  2036
    max := 0.
ca@2177
  2037
    min := 9999999.
ca@2177
  2038
ca@2177
  2039
    rootItem recursiveEachVisibleItemDo:[:anItem|
cg@3456
  2040
        anItem widget notNil ifTrue:[
cg@3456
  2041
            visState := (anItem widget shown).
cg@3456
  2042
cg@3456
  2043
            visState ~~ anItem isDrawnShown ifTrue:[
cg@3456
  2044
                anItem isDrawnShown:visState.
cg@3456
  2045
                listIdx := treeView identityIndexOf:anItem.
cg@3456
  2046
cg@3456
  2047
                listIdx > 0 ifTrue:[    
cg@3456
  2048
                    max := max max:listIdx.
cg@3456
  2049
                    min := min min:listIdx.
cg@3456
  2050
                ].
ca@2177
  2051
            ].
ca@2177
  2052
        ].
ca@2177
  2053
    ].
ca@2177
  2054
    max < min ifTrue:[^ self].
ca@2177
  2055
    max := max + 1.
ca@2177
  2056
ca@2177
  2057
    visY0  := (treeView yVisibleOfLine:min) max:0.
ca@2177
  2058
    visY1  := (treeView yVisibleOfLine:max) min:(treeView height).
ca@2177
  2059
    height := visY1 - visY0.
ca@2177
  2060
    
ca@2177
  2061
    height > 2 ifTrue:[
ca@2177
  2062
        treeView shown ifTrue:[
ca@2177
  2063
            damage := Rectangle left:0 top:visY0 width:(treeView width) height:height.
ca@2177
  2064
            treeView invalidateDeviceRectangle:damage repairNow:false.
ca@2177
  2065
        ].
ca@2177
  2066
    ].
cg@3456
  2067
cg@3456
  2068
    "Modified: / 16-08-2017 / 12:29:15 / cg"
ca@2177
  2069
! !
ca@2177
  2070
cg@2744
  2071
!ViewTreeInspectorApplication methodsFor:'selection'!
ca@2177
  2072
cg@3456
  2073
selectedMenuItem
cg@3456
  2074
    "answer the selected menuItem or nil"
cg@3456
  2075
cg@3456
  2076
    |item|
cg@3456
  2077
cg@3456
  2078
    item := model selectedItem.
cg@3456
  2079
    item notNil ifTrue:[ ^ item menuItem ].
cg@3456
  2080
    ^ nil
cg@3456
  2081
cg@3456
  2082
    "Created: / 16-08-2017 / 13:50:35 / cg"
cg@3456
  2083
!
cg@3456
  2084
ca@2177
  2085
selectedView
ca@2455
  2086
    "answer the selected view or nil"
ca@2455
  2087
ca@2177
  2088
    |item|
ca@2177
  2089
ca@2177
  2090
    item := model selectedItem.
ca@2177
  2091
    item notNil ifTrue:[ ^ item widget ].
cg@3457
  2092
    ^ nil
cg@3457
  2093
cg@3457
  2094
    "Modified (format): / 16-08-2017 / 13:57:30 / cg"
ca@2177
  2095
! !
ca@2177
  2096
cg@2744
  2097
!ViewTreeInspectorApplication methodsFor:'testing'!
ca@2177
  2098
ca@2177
  2099
resolveApplicationClassFor:aTreeItem
ca@2177
  2100
    aTreeItem isApplicationClass ifTrue:[
ca@2177
  2101
       ^ aTreeItem applicationClass
ca@2177
  2102
    ].
ca@2177
  2103
    ^ nil
ca@2177
  2104
!
ca@2177
  2105
ca@2177
  2106
selectedComponentHasChildren
ca@2177
  2107
    |item|
ca@2177
  2108
ca@2177
  2109
    item := model selectedItem.
ca@2177
  2110
    ^ (item notNil and:[item hasChildren])
ca@2177
  2111
! !
ca@2177
  2112
cg@2744
  2113
!ViewTreeInspectorApplication methodsFor:'user operations'!
ca@2177
  2114
ca@2177
  2115
doBrowse:what
ca@2177
  2116
    "open browser on:
ca@2177
  2117
        #view           browse class
ca@2177
  2118
        #model          browse model class
ca@2177
  2119
        #application    browse application class
ca@2177
  2120
        #controller     browse controller class
ca@2177
  2121
    "
cg@3167
  2122
    |inst|
cg@3167
  2123
cg@3167
  2124
    (inst := self objectToInspectOrBrowse:what) isNil ifTrue:[^ self].
cg@3167
  2125
    inst class browserClass openInClass:(inst class) selector:nil
cg@3049
  2126
cg@3049
  2127
    "Modified: / 28-08-2013 / 23:57:42 / cg"
ca@2177
  2128
!
ca@2177
  2129
cg@3174
  2130
doBrowseWindowSpecMethod
cg@3174
  2131
    |mthd|
cg@3174
  2132
cg@3174
  2133
    mthd := self windowSpecMethodOfSelection.
cg@3174
  2134
    NewSystemBrowser openInClass:mthd mclass selector:mthd selector
cg@3174
  2135
!
cg@3174
  2136
cg@3124
  2137
doCatchEvents
cg@3124
  2138
    model catchEvents:true.
cg@3124
  2139
    isCatchingEventsChannel value:true.
cg@3124
  2140
"/    ((builder componentAt:'toolbarMenu') itemAt:#doUncatchEvents) 
cg@3124
  2141
"/        enabled:true;
cg@3124
  2142
"/        label:(self class releaseViewIcon);
cg@3124
  2143
"/        activeHelpKey:#doUncatchEvents.
cg@3124
  2144
!
cg@3124
  2145
cg@3171
  2146
doDebugProcess
cg@3171
  2147
    "open debugger on the window process"
cg@3171
  2148
cg@3171
  2149
    |view|
cg@3171
  2150
cg@3171
  2151
    view := self selectedView.
cg@3171
  2152
    view isNil ifTrue:[^ nil].
cg@3171
  2153
cg@3171
  2154
    Debugger openOn:view windowGroup process
cg@3171
  2155
!
cg@3171
  2156
ca@2177
  2157
doDestroy
ca@2455
  2158
    "destroy the current selected view"
ca@2455
  2159
ca@2177
  2160
    |item parent|
ca@2177
  2161
ca@2177
  2162
    item := model selectedItem.
ca@2177
  2163
    item isNil ifTrue:[ ^ self].
ca@2177
  2164
ca@2177
  2165
    parent := item parent.
ca@2177
  2166
ca@2177
  2167
    parent isNil ifTrue:[
ca@2177
  2168
        "/ the root
ca@2177
  2169
        model withSelectionHiddenDo:[item deleteAll].
ca@2177
  2170
      ^ self
ca@2177
  2171
    ].
ca@2177
  2172
ca@2177
  2173
    model withSelectionHiddenDo:[
ca@2177
  2174
        |idx nsel|
ca@2177
  2175
ca@2177
  2176
        idx := parent identityIndexOf:item.
ca@2177
  2177
ca@2177
  2178
        idx == parent size ifTrue:[
ca@2177
  2179
            nsel := parent at:(idx - 1) ifAbsent:parent
ca@2177
  2180
        ] ifFalse:[
ca@2177
  2181
            nsel := parent at:(idx + 1)
ca@2177
  2182
        ].
ca@2177
  2183
        model setValue:nil.
ca@2177
  2184
        item delete.
ca@2177
  2185
ca@2177
  2186
        parent isLayoutContainer ifTrue:[
ca@2177
  2187
            parent widget sizeChanged:nil
ca@2177
  2188
        ].
ca@2177
  2189
        model value:nsel.
ca@2177
  2190
    ].
ca@2177
  2191
!
ca@2177
  2192
cg@3174
  2193
doEditWindowSpec
cg@3174
  2194
    |mthd|
cg@3174
  2195
cg@3174
  2196
    mthd := self windowSpecMethodOfSelection.
cg@3174
  2197
    UIPainter openOnClass:mthd mclass andSelector:mthd selector
cg@3174
  2198
!
cg@3174
  2199
ca@2177
  2200
doFlash
ca@2455
  2201
    "flash the selected view"
ca@2455
  2202
ca@2177
  2203
    |view|
ca@2177
  2204
ca@2177
  2205
    view := self selectedView.
ca@2177
  2206
    view isNil ifTrue:[ ^ self].
ca@2177
  2207
ca@2177
  2208
    view shown ifTrue:[
ca@2177
  2209
        model withSelectionHiddenDo:[
ca@2177
  2210
            view perform:#flash ifNotUnderstood:nil.
ca@2177
  2211
        ].
ca@2177
  2212
    ].
ca@2177
  2213
!
ca@2177
  2214
ca@2177
  2215
doInspect:what
ca@2177
  2216
    "open inspector on:
ca@2177
  2217
        #view           inspect class
ca@2177
  2218
        #group          inspect windowGroup
ca@2177
  2219
        #model          inspect model
ca@2177
  2220
        #application    inspect application
ca@2177
  2221
        #controller     inspect controller
cg@3034
  2222
        #process        inspect application's process
ca@2177
  2223
    "
cg@3167
  2224
ca@2177
  2225
    |inst|
ca@2177
  2226
cg@3167
  2227
    (inst := self objectToInspectOrBrowse:what) isNil ifTrue:[^ self].
cg@3167
  2228
    inst inspect.
cg@3049
  2229
cg@3049
  2230
    "Modified: / 28-08-2013 / 23:58:27 / cg"
ca@2177
  2231
!
ca@2177
  2232
cg@3034
  2233
doOpenProcessMonitor
cg@3034
  2234
    (ProcessMonitorV2 ? ProcessMonitor) open
cg@3034
  2235
cg@3034
  2236
    "Created: / 25-07-2013 / 12:34:23 / cg"
cg@3034
  2237
!
cg@3034
  2238
cg@2762
  2239
doPickView
ca@2455
  2240
    "pick a window's topView"
ca@2455
  2241
cg@2762
  2242
    |screen clickedView topWindow cursor|
ca@2177
  2243
ca@2177
  2244
    self doUnpick.
ca@2177
  2245
cg@2759
  2246
    cursor := Cursor fromImage:(self class crossHairIcon).
cg@2759
  2247
cg@2759
  2248
    screen := Screen current.
cg@2762
  2249
    clickedView := screen viewFromPoint:(screen pointFromUserShowing:cursor).
cg@2762
  2250
    clickedView isNil ifTrue:[^ self].
cg@2762
  2251
cg@2762
  2252
    topWindow := clickedView topView.
cg@2762
  2253
cg@2762
  2254
    (    topWindow == Screen current rootView
cg@2762
  2255
     or:[topWindow == self window topView]
ca@2177
  2256
    ) ifTrue:[
ca@2177
  2257
        ^ self
ca@2177
  2258
    ].
cg@2978
  2259
cg@3070
  2260
    self showWindow:clickedView.
ca@2177
  2261
!
ca@2177
  2262
cg@2978
  2263
doRedraw
cg@2978
  2264
    "redraw the app"
cg@2978
  2265
cg@3456
  2266
    |rootView|
cg@3456
  2267
    
cg@3456
  2268
    (rootView := model rootView) notNil ifTrue:[
cg@3456
  2269
        rootView withAllSubViewsDo:[:v | v "redraw; "invalidate].
cg@3124
  2270
    ]
cg@3456
  2271
cg@3456
  2272
    "Modified: / 16-08-2017 / 12:02:11 / cg"
cg@2978
  2273
!
cg@2978
  2274
cg@3168
  2275
doSelectNextElementStartingIn:anItem forWhich:aBlock
ca@2177
  2276
    |startItem firstFound searchNext|
ca@2177
  2277
ca@2177
  2278
    startItem  := model last.
ca@2177
  2279
    searchNext := startItem notNil.        
ca@2177
  2280
    firstFound := nil.
ca@2177
  2281
ca@2177
  2282
    anItem recursiveDo:[:el|
ca@2177
  2283
        el == startItem ifTrue:[
ca@2177
  2284
            searchNext := false
ca@2177
  2285
        ] ifFalse:[
cg@3168
  2286
            (aBlock value:el) ifTrue:[
ca@2177
  2287
                searchNext ifFalse:[^ model selectItem:el].
ca@2177
  2288
ca@2177
  2289
                firstFound isNil ifTrue:[
ca@2177
  2290
                    firstFound := el
ca@2177
  2291
                ]
ca@2177
  2292
            ]
ca@2177
  2293
        ]
ca@2177
  2294
    ].
ca@2177
  2295
    firstFound notNil ifTrue:[
ca@2177
  2296
        self window beep.
ca@2177
  2297
        model selectItem:firstFound
ca@2177
  2298
    ].
ca@2177
  2299
!
ca@2177
  2300
cg@3168
  2301
doSelectNextOfApplicationClass:aClass startingIn:anItem
cg@3168
  2302
    self doSelectNextElementStartingIn:anItem forWhich:[:el | (self resolveApplicationClassFor:el) == aClass].
cg@3168
  2303
!
cg@3168
  2304
ca@2177
  2305
doSelectNextOfClass:aClass startingIn:anItem
cg@3168
  2306
    self doSelectNextElementStartingIn:anItem forWhich:[:el | el widget class == aClass].
ca@2177
  2307
!
ca@2177
  2308
cg@2978
  2309
doUncatchEvents
cg@3124
  2310
    "release the inspected window (no longer catch its events)"
cg@3124
  2311
cg@2978
  2312
    model catchEvents:false.
cg@3124
  2313
    isCatchingEventsChannel value:false.
cg@3124
  2314
"/    ((builder componentAt:'toolbarMenu') itemAt:#doUncatchEvents) 
cg@3124
  2315
"/        label:(self class releaseViewIcon);
cg@3124
  2316
"/        enabled:false;
cg@3124
  2317
"/        activeHelpKey:#doCatchEvents.
cg@2978
  2318
    self doRedraw
cg@2978
  2319
!
cg@2978
  2320
ca@2177
  2321
doUnpick
ca@2455
  2322
    "release current picked window and contained subwindows"
ca@2455
  2323
ca@2177
  2324
    self setRootItem:nil.
cg@2744
  2325
!
cg@2744
  2326
cg@3167
  2327
objectToInspectOrBrowse:what
cg@3167
  2328
    "return one of:
cg@3457
  2329
        #view           for inspect/browse view/widget
cg@3457
  2330
        #group          for inspect/browse windowGroup
cg@3457
  2331
        #model          for inspect/browse model
cg@3457
  2332
        #application    for inspect/browse application
cg@3457
  2333
        #controller     for inspect/browse controller
cg@3457
  2334
        #process        for inspect/browse application's process
cg@3457
  2335
        #widgetClass    for inspect/browse widget's class
cg@3457
  2336
        #menuItem       for inspect/browse menuItem
cg@3167
  2337
    "
cg@3302
  2338
    |view|
cg@3167
  2339
cg@3457
  2340
    what == #menuItem       ifTrue:[ 
cg@3457
  2341
        ^ model selectedItem menuItem
cg@3457
  2342
    ].
cg@3457
  2343
cg@3167
  2344
    view := self selectedView.
cg@3167
  2345
    view isNil ifTrue:[^ nil].
cg@3167
  2346
cg@3302
  2347
    what == #group       ifTrue:[ ^ view windowGroup ].
cg@3302
  2348
    what == #model       ifTrue:[ ^ view model ].
cg@3302
  2349
    what == #controller  ifTrue:[ ^ view controller ].
cg@3302
  2350
    what == #process     ifTrue:[ ^ view windowGroup process ].
cg@3302
  2351
    what == #sensor      ifTrue:[ ^ view sensor ].
cg@3302
  2352
    what == #application ifTrue:[ ^ view application ? view topView ].
cg@3302
  2353
    what == #applicationClass ifTrue:[ ^ view application ? view topView ].
cg@3302
  2354
cg@3302
  2355
    ^ view
cg@3167
  2356
cg@3457
  2357
    "Modified: / 16-08-2017 / 13:57:36 / cg"
cg@3167
  2358
!
cg@3167
  2359
cg@2744
  2360
openDocumentation
cg@2744
  2361
    HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#VIEWTREEINSPECTOR'
cg@3014
  2362
!
cg@3014
  2363
cg@3014
  2364
showWindow:aView
cg@3014
  2365
    "show a particular window's topView hierarchy,
cg@3014
  2366
     select the given view"
cg@3014
  2367
cg@3014
  2368
    | topWindow |
cg@3014
  2369
cg@3014
  2370
    topWindow := aView topView.
cg@3014
  2371
cg@3124
  2372
    self doCatchEvents.
cg@3014
  2373
    self setRootItem:(ViewTreeItem buildViewsFrom:topWindow).
cg@3014
  2374
    self selectView:aView.
ca@2177
  2375
! !
ca@2177
  2376
cg@2744
  2377
!ViewTreeInspectorApplication::MenuDesc class methodsFor:'building'!
ca@2177
  2378
ca@2177
  2379
buildFromList:aList onGC:aMenu
ca@2177
  2380
    |tabSpec menu w menuPanel|
ca@2177
  2381
ca@2177
  2382
    w := 0.
ca@2177
  2383
    aList do:[:el| w := w max:(el widthOn:aMenu) ].
ca@2177
  2384
ca@2177
  2385
    tabSpec := TabulatorSpecification new.
ca@2177
  2386
    tabSpec unit:#pixel.
ca@2177
  2387
    tabSpec positions:#(0     1.5 ).
ca@2177
  2388
    tabSpec align:#(#left #left).
ca@2177
  2389
ca@2177
  2390
    w := w + 15.
ca@2177
  2391
    tabSpec positions:(Array with:0 with:w).
ca@2177
  2392
ca@2177
  2393
    menu := Menu new.
ca@2177
  2394
ca@2177
  2395
    aList do:[:el|
ca@2177
  2396
        menu addItem:(el asMenuItemWithTabulatorSpecification:tabSpec).
ca@2177
  2397
    ].
ca@2177
  2398
    menuPanel := MenuPanel menu:menu.
ca@2177
  2399
    ^ menuPanel
ca@2177
  2400
! !
ca@2177
  2401
cg@2744
  2402
!ViewTreeInspectorApplication::MenuDesc class methodsFor:'instance creation'!
ca@2177
  2403
ca@2177
  2404
separator
ca@2177
  2405
    ^ self new
ca@2177
  2406
!
ca@2177
  2407
ca@2177
  2408
title:aTitle value:aValue
ca@2177
  2409
    ^ self title:aTitle value:aValue action:nil
ca@2177
  2410
!
ca@2177
  2411
ca@2177
  2412
title:aTitle value:aValue action:anAction
ca@2177
  2413
    ^ self new title:aTitle value:aValue action:anAction
ca@2177
  2414
! !
ca@2177
  2415
cg@2744
  2416
!ViewTreeInspectorApplication::MenuDesc methodsFor:'accessing'!
ca@2177
  2417
ca@2177
  2418
title
ca@2177
  2419
    ^ title
ca@2177
  2420
! !
ca@2177
  2421
cg@2744
  2422
!ViewTreeInspectorApplication::MenuDesc methodsFor:'building'!
ca@2177
  2423
ca@2177
  2424
asMenuItemWithTabulatorSpecification:aTabSpec
ca@2177
  2425
    |array|
ca@2177
  2426
ca@2177
  2427
    title isNil ifTrue:[ ^ MenuItem label:value ].     "/ separator
ca@2177
  2428
ca@2177
  2429
    array := Array with:(title, ':') with:'------'.
ca@2177
  2430
ca@2177
  2431
    value notNil ifTrue:[
ca@2177
  2432
        array at:2 put:(value printString, ' ')
ca@2177
  2433
    ].
ca@2177
  2434
cg@2758
  2435
   ^ MenuItem 
cg@2758
  2436
        label:(MultiColListEntry fromStrings:array tabulatorSpecification:aTabSpec)
cg@2758
  2437
        value:action
ca@2177
  2438
! !
ca@2177
  2439
cg@2744
  2440
!ViewTreeInspectorApplication::MenuDesc methodsFor:'instance creation'!
ca@2177
  2441
ca@2177
  2442
title:aTitle value:aValue action:anAction
ca@2177
  2443
    "test for separator
ca@2177
  2444
    "
ca@2177
  2445
    title  := aTitle withoutSeparators.
ca@2177
  2446
    action := anAction.
ca@2177
  2447
ca@2177
  2448
    aValue notNil ifTrue:[
ca@2177
  2449
        value := aValue printString.
ca@2177
  2450
ca@2177
  2451
        value size > 70 ifTrue:[
ca@2177
  2452
            value := value copyFrom:1 to:70.
ca@2177
  2453
            value := value, '...'
ca@2177
  2454
        ]
ca@2177
  2455
    ].
ca@2177
  2456
! !
ca@2177
  2457
cg@2744
  2458
!ViewTreeInspectorApplication::MenuDesc methodsFor:'queries'!
ca@2177
  2459
ca@2177
  2460
isSeparator
ca@2177
  2461
    ^ title isNil
ca@2177
  2462
!
ca@2177
  2463
ca@2177
  2464
widthOn:aGC
ca@2177
  2465
    title isNil ifTrue:[^ 5].  "/ separator
cg@2758
  2466
    ^ title widthOn:aGC
ca@2177
  2467
! !
ca@2177
  2468
cg@2744
  2469
!ViewTreeInspectorApplication::ViewTreeItem class methodsFor:'building'!
cg@2744
  2470
cg@3456
  2471
buildMenuItemsFrom:aMenuItem
cg@3456
  2472
    "build the items starting from a source menu item;
cg@3456
  2473
     returns the anchor.
cg@3456
  2474
    "
cg@3456
  2475
    |item subMenu subItems|
cg@3456
  2476
cg@3456
  2477
    aMenuItem isNil ifTrue:[^ nil].
cg@3456
  2478
cg@3456
  2479
    item     := self forMenuItem:aMenuItem.
cg@3456
  2480
    subItems := OrderedCollection new.
cg@3456
  2481
    (subMenu := aMenuItem submenuOrNil) notNil ifTrue:[
cg@3456
  2482
        subMenu items do:[:eachMenuItem |
cg@3456
  2483
            subItems add:(self buildMenuItemsFrom:eachMenuItem)
cg@3456
  2484
        ].    
cg@3456
  2485
    ].
cg@3456
  2486
    item children:subItems.
cg@3456
  2487
    ^ item
cg@3456
  2488
cg@3456
  2489
    "Created: / 16-08-2017 / 12:23:02 / cg"
cg@3456
  2490
!
cg@3456
  2491
cg@2744
  2492
buildViewsFrom:aView
cg@2744
  2493
    "build the items starting from a source view;
cg@3456
  2494
     returns the anchor.
cg@2744
  2495
    "
cg@2744
  2496
    |item subViews subItems|
cg@2744
  2497
cg@2744
  2498
    aView isNil ifTrue:[^ nil].
cg@2744
  2499
cg@2744
  2500
    item     := self forView:aView.
cg@2744
  2501
    subViews := aView subViews.
cg@3456
  2502
    subItems := OrderedCollection new.
cg@2744
  2503
cg@2744
  2504
    subViews notEmptyOrNil ifTrue:[
cg@2744
  2505
        subViews do:[:aSubView|
cg@2744
  2506
            subItems add:(self buildViewsFrom:aSubView).
cg@2744
  2507
        ].
cg@2744
  2508
    ].
cg@3456
  2509
cg@3456
  2510
    (aView isKindOf:MenuPanel) ifTrue:[
cg@3456
  2511
        (aView items ? #()) do:[:eachMenuItem |
cg@3456
  2512
            subItems add:(self buildMenuItemsFrom:eachMenuItem)
cg@3456
  2513
        ].    
cg@3456
  2514
    ].    
cg@3456
  2515
    item children:subItems.
cg@3456
  2516
    
cg@2744
  2517
    ^ item
cg@3456
  2518
cg@3456
  2519
    "Modified: / 16-08-2017 / 12:43:35 / cg"
cg@2744
  2520
! !
cg@2744
  2521
cg@2744
  2522
!ViewTreeInspectorApplication::ViewTreeItem class methodsFor:'documentation'!
cg@2744
  2523
cg@2744
  2524
documentation
cg@2744
  2525
"
cg@2744
  2526
    ViewTreeItems represants a pickable object within a ViewTreeModel.
cg@2744
  2527
    The class is used to build up the hierarchical tree.
cg@2744
  2528
cg@2744
  2529
    [Instance variables:]
cg@2744
  2530
        widget        <View>            the widget represented by the item
cg@2744
  2531
        spec          <UISpecification> the UISpecification or nil
cg@2744
  2532
cg@2744
  2533
    [Class variables:]
cg@2744
  2534
        HandleExtent  <Point>           keeps the extent of a handle
cg@2744
  2535
cg@2744
  2536
cg@2744
  2537
    [author:]
cg@2744
  2538
        Claus Atzkern
cg@2744
  2539
cg@2744
  2540
    [see also:]
cg@2744
  2541
        HierarchicalItem
cg@2744
  2542
        ViewTreeModel
cg@2744
  2543
"
cg@2744
  2544
!
ca@2177
  2545
ca@2177
  2546
version
ca@2177
  2547
    ^ '$Header$'
ca@2177
  2548
! !
ca@2177
  2549
cg@2744
  2550
!ViewTreeInspectorApplication::ViewTreeItem class methodsFor:'initialization'!
cg@2744
  2551
cg@2744
  2552
initialize
cg@2744
  2553
    "set the extent of the Handle
cg@2744
  2554
    "
cg@2744
  2555
    HandleExtent := 6@6.
cg@2744
  2556
! !
cg@2744
  2557
cg@2744
  2558
!ViewTreeInspectorApplication::ViewTreeItem class methodsFor:'instance creation'!
cg@2744
  2559
cg@3456
  2560
forMenuItem:aMenuItem
cg@3456
  2561
    |item|
cg@3456
  2562
cg@3456
  2563
    item := self basicNew initialize.
cg@3456
  2564
    item forMenuItem:aMenuItem.
cg@3456
  2565
    ^ item
cg@3456
  2566
cg@3456
  2567
    "Created: / 16-08-2017 / 12:07:55 / cg"
cg@3456
  2568
!
cg@3456
  2569
cg@2744
  2570
forView:aView
cg@2744
  2571
    |item|
cg@2744
  2572
cg@2744
  2573
    item := self basicNew initialize.
cg@2744
  2574
    item forView:aView.
cg@3456
  2575
    ^ item
cg@3456
  2576
cg@3456
  2577
    "Modified (format): / 16-08-2017 / 12:07:40 / cg"
cg@2744
  2578
!
cg@2744
  2579
cg@2744
  2580
new
cg@2744
  2581
    self error:'not allowed'.
cg@2744
  2582
  ^ nil
cg@2744
  2583
!
cg@2744
  2584
cg@2744
  2585
on:aView withSpec:aSpec
cg@2744
  2586
    |item|
cg@2744
  2587
cg@2744
  2588
    item := self basicNew initialize.
cg@2744
  2589
    item on:aView withSpec:aSpec.
cg@2744
  2590
  ^ item
cg@2744
  2591
! !
cg@2744
  2592
cg@2744
  2593
!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'accessing'!
cg@2744
  2594
cg@2744
  2595
applicationClass
cg@2744
  2596
    |appl|
cg@2744
  2597
cg@2744
  2598
    widget notNil ifTrue:[
cg@2744
  2599
        appl := widget application.
cg@2744
  2600
        appl notNil ifTrue:[^ appl class ].
cg@2744
  2601
    ].
cg@2744
  2602
    ^ nil
cg@2744
  2603
!
cg@2744
  2604
cg@2744
  2605
isDrawnShown
cg@2744
  2606
    "returns true if the last display operations was done during the widget was shown
cg@2744
  2607
    "
cg@2744
  2608
    ^ isDrawnShown
cg@2744
  2609
!
cg@2744
  2610
cg@2744
  2611
isDrawnShown:aBoolean
cg@2744
  2612
    isDrawnShown := aBoolean.
cg@2744
  2613
!
cg@2744
  2614
cg@3456
  2615
menuItem
cg@3456
  2616
    ^ menuItem
cg@3456
  2617
!
cg@3456
  2618
cg@3456
  2619
parent:aParent
cg@3456
  2620
    super parent:aParent.
cg@3456
  2621
cg@3456
  2622
    "Created: / 16-08-2017 / 12:40:26 / cg"
cg@3456
  2623
!
cg@3456
  2624
cg@2744
  2625
rootView
cg@2744
  2626
    "returns the widget assigned to the root or nil
cg@2744
  2627
    "
cg@3216
  2628
    parent isNil ifTrue:[^ nil].
cg@3216
  2629
cg@2744
  2630
    ^ parent rootView
cg@2744
  2631
!
cg@2744
  2632
cg@2744
  2633
specClass
cg@2744
  2634
    "returns the spec-class assigned to the item
cg@2744
  2635
    "
cg@3456
  2636
    widget isNil ifTrue:[
cg@3456
  2637
        ^ MenuPanelSpec 
cg@3456
  2638
    ].
cg@2744
  2639
    ^ widget specClass
cg@3456
  2640
cg@3456
  2641
    "Modified (format): / 16-08-2017 / 12:31:36 / cg"
cg@2744
  2642
!
cg@2744
  2643
cg@2744
  2644
treeModel
cg@2744
  2645
    "returns the assigned treeModel, an instance of ViewTreeModel
cg@2744
  2646
    "
cg@2744
  2647
    ^ parent treeModel
cg@2744
  2648
!
cg@2744
  2649
cg@2744
  2650
widget
cg@2744
  2651
    "returns the widget assigned to the item
cg@2744
  2652
    "
cg@2744
  2653
    ^ widget
cg@2744
  2654
! !
cg@2744
  2655
cg@2744
  2656
!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'accessing layout'!
cg@2744
  2657
cg@2744
  2658
boundsRelativeToRoot
cg@2744
  2659
    "returns the bounds relative to the root widget
cg@2744
  2660
    "
cg@2744
  2661
    ^ self originRelativeToRoot extent:(widget extent)
cg@2744
  2662
!
cg@2744
  2663
cg@2744
  2664
cornerRelativeToRoot
cg@2744
  2665
    "returns the corner relative to the root widget
cg@2744
  2666
    "
cg@2744
  2667
    ^ self originRelativeToRoot + (widget extent)
cg@2744
  2668
!
cg@2744
  2669
cg@2744
  2670
extent
cg@2744
  2671
    "returns the extent of the widget
cg@2744
  2672
    "
cg@2744
  2673
    ^ widget extent
cg@2744
  2674
!
cg@2744
  2675
cg@2744
  2676
layoutType
cg@2744
  2677
    "returns the type of layout assigned to the wiget; nil if the
cg@2744
  2678
     superView cannot resize its sub widgets
cg@2744
  2679
    "
cg@2744
  2680
    |layout specClass superView|
cg@2744
  2681
cg@2744
  2682
    (superView := widget superView) isNil ifTrue:[
cg@2744
  2683
        ^ #Extent
cg@2744
  2684
    ].
cg@2744
  2685
        
cg@2744
  2686
    specClass := superView specClass.
cg@2744
  2687
cg@2744
  2688
    (specClass notNil and:[specClass isLayoutContainer]) ifTrue:[
cg@2744
  2689
        ^ specClass canResizeSubComponents ifTrue:[#Extent] ifFalse:[nil]
cg@2744
  2690
    ].
cg@2744
  2691
cg@2744
  2692
    (layout := widget geometryLayout) isNil ifTrue:[
cg@2744
  2693
        ^ #Extent
cg@2744
  2694
    ].
cg@2744
  2695
cg@2744
  2696
    layout isLayout ifTrue:[
cg@2744
  2697
        layout isLayoutFrame        ifTrue:[ ^ #LayoutFrame ].
cg@2744
  2698
        layout isAlignmentOrigin    ifTrue:[ ^ #AlignmentOrigin ].
cg@2744
  2699
        layout isLayoutOrigin       ifTrue:[ ^ #LayoutOrigin ].
cg@2744
  2700
    ] ifFalse:[
cg@2744
  2701
        layout isRectangle          ifTrue:[ ^ #Rectangle ].
cg@2744
  2702
        layout isPoint              ifTrue:[ ^ #Point ].
cg@2744
  2703
cg@2744
  2704
    ].
cg@2744
  2705
    Transcript showCR:'UNSUPPORTRD LAYOUT: ', layout printString.
cg@2744
  2706
  ^ nil
cg@2744
  2707
!
cg@2744
  2708
cg@2744
  2709
originRelativeToRoot
cg@2744
  2710
    "returns the origin relative to the root widget
cg@2744
  2711
    "
cg@2744
  2712
    ^ widget originRelativeTo:(self rootView)
cg@2744
  2713
! !
cg@2744
  2714
cg@2744
  2715
!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'accessing optimize'!
cg@2744
  2716
cg@2744
  2717
children
cg@2744
  2718
    "redefined: optimize
cg@2744
  2719
    "
cg@2744
  2720
    ^ children
cg@2744
  2721
!
cg@2744
  2722
cg@2744
  2723
hasChildren
cg@3456
  2724
    "not only a query; also builds"
cg@3456
  2725
cg@3456
  2726
    |subViews list item subMenu|
cg@3456
  2727
cg@3456
  2728
    children isNil ifTrue:[
cg@3456
  2729
        isExpanded := false.
cg@3456
  2730
cg@3456
  2731
        list := OrderedCollection new.
cg@3456
  2732
cg@3456
  2733
        "/ it's either a widget or a menuItem
cg@3456
  2734
        widget notNil ifTrue:[
cg@3456
  2735
            subViews := widget subViews.
cg@3456
  2736
            subViews notEmptyOrNil ifTrue:[
cg@3456
  2737
                subViews do:[:aSubView|
cg@3456
  2738
                    item := self class buildViewsFrom:aSubView.
cg@3456
  2739
                    item parent:self.
cg@3456
  2740
                    list add:item.
cg@3456
  2741
                ].
cg@3456
  2742
            ].
cg@3456
  2743
        ].
cg@3456
  2744
cg@3456
  2745
        menuItem notNil ifTrue:[ 
cg@3456
  2746
            (subMenu := menuItem submenuOrNil) notNil ifTrue:[
cg@3456
  2747
                subMenu items do:[:aSubItem|
cg@3456
  2748
                    item := self class buildMenuItemsFrom:aSubItem.
cg@3456
  2749
                    item parent:self.
cg@3456
  2750
                    list add:item.
cg@3456
  2751
                ].
cg@3456
  2752
            ].
cg@3456
  2753
        ].
cg@3456
  2754
        children := list.
cg@2744
  2755
    ].
cg@3456
  2756
    ^ children notEmpty
cg@3456
  2757
cg@3456
  2758
    "Modified: / 16-08-2017 / 12:27:23 / cg"
cg@2744
  2759
!
cg@2744
  2760
cg@2744
  2761
size
cg@2744
  2762
    "redefined: returns list of children
cg@2744
  2763
    "
cg@2744
  2764
    ^ children size
cg@2744
  2765
! !
cg@2744
  2766
cg@2744
  2767
!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'displaying'!
cg@2744
  2768
cg@2744
  2769
additionalLabelForItem:anItem
cg@3017
  2770
    "answer an additional label for an Item"
cg@2744
  2771
cg@2744
  2772
    parent notNil ifTr