equal
deleted
inserted
replaced
14 "{ Package: 'stx:libview2' }" |
14 "{ Package: 'stx:libview2' }" |
15 |
15 |
16 "{ NameSpace: Smalltalk }" |
16 "{ NameSpace: Smalltalk }" |
17 |
17 |
18 ActiveHelp subclass:#FlyByHelp |
18 ActiveHelp subclass:#FlyByHelp |
19 instanceVariableNames:'currentFrame currentView currentHelpView showProcess closeProcess' |
19 instanceVariableNames:'currentFrame currentView currentHelpView showProcess closeProcess' |
20 classVariableNames:'MaxNumberOfLines MaxNumberOfColumns' |
20 classVariableNames:'MaxNumberOfLines MaxNumberOfColumns' |
21 poolDictionaries:'' |
21 poolDictionaries:'' |
22 category:'Interface-Help' |
22 category:'Interface-Help' |
23 ! |
23 ! |
24 |
24 |
25 !FlyByHelp class methodsFor:'documentation'! |
25 !FlyByHelp class methodsFor:'documentation'! |
26 |
26 |
27 copyright |
27 copyright |
439 ]. |
439 ]. |
440 lastHelpWidget := view. |
440 lastHelpWidget := view. |
441 lastHelpText := aHelpText. |
441 lastHelpText := aHelpText. |
442 helpTextShown := aHelpText. |
442 helpTextShown := aHelpText. |
443 "/ the text originator must already have generated CRs; |
443 "/ the text originator must already have generated CRs; |
444 "/ no longer done here (otherwise, we could not generate tooltips with windows filenames in it) |
444 "/ no longer done here (otherwise, we could not generate tooltips with Windows filenames in it) |
445 textLines := helpTextShown isStringCollection |
445 textLines := helpTextShown isStringCollection |
446 ifTrue:[helpTextShown] |
446 ifTrue:[helpTextShown] |
447 ifFalse:[ |
447 ifFalse:[ |
448 helpTextShown isString |
448 helpTextShown isString |
449 ifTrue:[helpTextShown "withCRs" asCollectionOfLines asStringCollection] |
449 ifTrue:[helpTextShown "withCRs" asCollectionOfLines asStringCollection] |
529 ]. |
529 ]. |
530 |
530 |
531 "Modified: / 31-08-1995 / 19:20:45 / claus" |
531 "Modified: / 31-08-1995 / 19:20:45 / claus" |
532 "Modified: / 06-06-2017 / 15:06:41 / cg" |
532 "Modified: / 06-06-2017 / 15:06:41 / cg" |
533 "Modified (format): / 16-04-2018 / 17:29:10 / stefan" |
533 "Modified (format): / 16-04-2018 / 17:29:10 / stefan" |
|
534 "Modified (comment): / 07-06-2018 / 10:34:02 / Claus Gittinger" |
534 ! |
535 ! |
535 |
536 |
536 stopHelpDisplayProcess |
537 stopHelpDisplayProcess |
537 |p| |
538 |p| |
538 |
539 |