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