9 other person. No title to or ownership of the software is |
11 other person. No title to or ownership of the software is |
10 hereby transferred. |
12 hereby transferred. |
11 " |
13 " |
12 "{ Package: 'stx:libtool2' }" |
14 "{ Package: 'stx:libtool2' }" |
13 |
15 |
|
16 "{ NameSpace: Smalltalk }" |
|
17 |
14 FlyByHelp subclass:#FlyByWindowInformation |
18 FlyByHelp subclass:#FlyByWindowInformation |
15 instanceVariableNames:'lastApplication lastView cleanupAction finishSemaphore finished' |
19 instanceVariableNames:'lastApplication lastView cleanupAction finishSemaphore finished' |
16 classVariableNames:'' |
20 classVariableNames:'' |
17 poolDictionaries:'' |
21 poolDictionaries:'' |
18 category:'Interface-Help' |
22 category:'Interface-Help' |
119 ]. |
123 ]. |
120 |
124 |
121 key isCharacter ifTrue:[ |
125 key isCharacter ifTrue:[ |
122 lcKey := key asLowercase. |
126 lcKey := key asLowercase. |
123 |
127 |
|
128 lcKey == $h ifTrue:[ |
|
129 "/ use smalltalk at, to avoid dependency on libTool |
|
130 [ (Smalltalk at:#'Tools::ViewTreeInspectorApplication') openOn:lastView ] fork. |
|
131 ^ true. |
|
132 ]. |
124 lcKey == $a ifTrue:[ |
133 lcKey == $a ifTrue:[ |
125 obj := lastApplication |
134 obj := lastApplication |
126 ]. |
135 ]. |
127 lcKey == $o ifTrue:[ |
136 lcKey == $o ifTrue:[ |
128 lastView notNil ifTrue:[ |
137 lastView notNil ifTrue:[ |
260 s nextPutLine:(resources string:'Model: %1' with:modelToInspect class name allBold). |
269 s nextPutLine:(resources string:'Model: %1' with:modelToInspect class name allBold). |
261 ]. |
270 ]. |
262 |
271 |
263 s cr. |
272 s cr. |
264 s nextPutLine:'Press:'. |
273 s nextPutLine:'Press:'. |
265 s nextPutLine:' ? to show the viewtree'. |
274 |
|
275 "/ use smalltalk at, to avoid dependency on libTool |
|
276 (Smalltalk at:#'Tools::ViewTreeInspectorApplication') notNil ifTrue:[ |
|
277 s nextPutLine:' ? to show the view''s tree'. |
|
278 ]. |
266 applicationToInspect notNil ifTrue:[ |
279 applicationToInspect notNil ifTrue:[ |
267 s nextPutLine:' a to inspect application (A to browse)'. |
280 s nextPutLine:' a to inspect application (A to browse)'. |
268 masterApplicationToInspect notNil ifTrue:[ |
281 masterApplicationToInspect notNil ifTrue:[ |
269 s nextPutLine:' m to inspect masterApplication (M to browse)'. |
282 s nextPutLine:' m to inspect masterApplication (M to browse)'. |
270 topApplicationToInspect notNil ifTrue:[ |
283 topApplicationToInspect notNil ifTrue:[ |
271 s nextPutLine:' t to inspect masterApplication (T to browse)'. |
284 s nextPutLine:' t to inspect masterApplication (T to browse)'. |
272 ] |
285 ] |
273 ]. |
286 ]. |
274 ]. |
287 ]. |
|
288 s nextPutLine:' h to inspect view''s hierarchy'. |
275 s nextPutLine:' v to inspect view (V to browse)'. |
289 s nextPutLine:' v to inspect view (V to browse)'. |
276 topViewToInspect notNil ifTrue:[ |
290 topViewToInspect notNil ifTrue:[ |
277 s nextPutLine:' w to inspect topWindow (W to browse)'. |
291 s nextPutLine:' w to inspect topWindow (W to browse)'. |
278 ]. |
292 ]. |
279 aView windowGroup notNil ifTrue:[ |
293 aView windowGroup notNil ifTrue:[ |