equal
deleted
inserted
replaced
266 s nextPutLine:(resources string:'Topview: %1' with:topViewToInspect class name allBold). |
266 s nextPutLine:(resources string:'Topview: %1' with:topViewToInspect class name allBold). |
267 ]. |
267 ]. |
268 modelToInspect notNil ifTrue:[ |
268 modelToInspect notNil ifTrue:[ |
269 s nextPutLine:(resources string:'Model: %1' with:modelToInspect class name allBold). |
269 s nextPutLine:(resources string:'Model: %1' with:modelToInspect class name allBold). |
270 ]. |
270 ]. |
271 |
271 aPointOrNil notNil ifTrue:[ |
|
272 (aView isKindOf:MenuPanel) ifTrue:[ |
|
273 |item itemValue helpKey| |
|
274 |
|
275 (item := aView itemAt:aPointOrNil) notNil ifTrue:[ |
|
276 (helpKey := item activeHelpKey) notNil ifTrue:[ |
|
277 s nextPutLine:(resources string:'HelpKey: %1' with:helpKey allBold). |
|
278 ]. |
|
279 (itemValue := item itemValue) isSymbol ifTrue:[ |
|
280 s nextPutLine:(resources string:'Action: %1' with:itemValue allBold). |
|
281 ] ifFalse:[ |
|
282 itemValue isBlock ifTrue:[ |
|
283 s nextPutLine:(resources string:'Action: %1' with:itemValue printString). |
|
284 ] |
|
285 ]. |
|
286 ]. |
|
287 ] ifFalse:[ |
|
288 |helpKey| |
|
289 |
|
290 (helpKey := aView helpKey) notNil ifTrue:[ |
|
291 s nextPutLine:(resources string:'HelpKey: %1' with:helpKey allBold). |
|
292 ]. |
|
293 ]. |
|
294 ]. |
|
295 |
272 s cr. |
296 s cr. |
273 s nextPutLine:'Press:'. |
297 s nextPutLine:'Press:'. |
274 |
298 |
275 "/ use smalltalk at, to avoid dependency on libTool |
299 "/ use smalltalk at, to avoid dependency on libTool |
276 (Smalltalk at:#'Tools::ViewTreeInspectorApplication') notNil ifTrue:[ |
300 (Smalltalk at:#'Tools::ViewTreeInspectorApplication') notNil ifTrue:[ |
304 " |
328 " |
305 self shownInformationOfViewUnderMouseUntilButtonIsPressed |
329 self shownInformationOfViewUnderMouseUntilButtonIsPressed |
306 " |
330 " |
307 |
331 |
308 "Modified: / 12-11-2010 / 11:54:59 / cg" |
332 "Modified: / 12-11-2010 / 11:54:59 / cg" |
|
333 "Modified: / 23-07-2018 / 09:18:44 / Claus Gittinger" |
309 ! ! |
334 ! ! |
310 |
335 |
311 !FlyByWindowInformation methodsFor:'private'! |
336 !FlyByWindowInformation methodsFor:'private'! |
312 |
337 |
313 activeHelpViewForApplication:applicationOrNil text:helpText onDevice:aDevice |
338 activeHelpViewForApplication:applicationOrNil text:helpText onDevice:aDevice |