equal
deleted
inserted
replaced
281 (aView isKindOf:MenuPanel) ifTrue:[ |
281 (aView isKindOf:MenuPanel) ifTrue:[ |
282 |item itemValue helpKey| |
282 |item itemValue helpKey| |
283 |
283 |
284 (item := aView itemAt:aPointOrNil) notNil ifTrue:[ |
284 (item := aView itemAt:aPointOrNil) notNil ifTrue:[ |
285 (helpKey := item activeHelpKey) notNil ifTrue:[ |
285 (helpKey := item activeHelpKey) notNil ifTrue:[ |
286 s nextPutLine:(resources string:'HelpKey: %1' with:helpKey allBold). |
286 s nextPutLine:(resources string:'HelpKey: %1' with:helpKey asString allBold). |
287 ]. |
287 ]. |
288 (itemValue := item itemValue) isSymbol ifTrue:[ |
288 (itemValue := item itemValue) isSymbol ifTrue:[ |
289 s nextPutLine:(resources string:'Action: %1' with:itemValue allBold). |
289 s nextPutLine:(resources string:'Action: %1' with:itemValue allBold). |
290 (applicationToInspect class implements:itemValue) ifTrue:[ |
290 (applicationToInspect class implements:itemValue) ifTrue:[ |
291 toBrowseAction := [:b | b browseClass:applicationToInspect class selector:itemValue]. |
291 toBrowseAction := [:b | b browseClass:applicationToInspect class selector:itemValue]. |
345 " |
345 " |
346 self shownInformationOfViewUnderMouseUntilButtonIsPressed |
346 self shownInformationOfViewUnderMouseUntilButtonIsPressed |
347 " |
347 " |
348 |
348 |
349 "Modified: / 12-11-2010 / 11:54:59 / cg" |
349 "Modified: / 12-11-2010 / 11:54:59 / cg" |
350 "Modified: / 01-08-2018 / 07:43:22 / Claus Gittinger" |
350 "Modified: / 30-05-2019 / 09:37:19 / Claus Gittinger" |
351 ! ! |
351 ! ! |
352 |
352 |
353 !FlyByWindowInformation methodsFor:'private'! |
353 !FlyByWindowInformation methodsFor:'private'! |
354 |
354 |
355 activeHelpViewForApplication:applicationOrNil text:helpText onDevice:aDevice |
355 activeHelpViewForApplication:applicationOrNil text:helpText onDevice:aDevice |