equal
deleted
inserted
replaced
500 text := self helpTextFor:aView atX:x y:y. |
500 text := self helpTextFor:aView atX:x y:y. |
501 lastHelpText = text ifTrue:[ |
501 lastHelpText = text ifTrue:[ |
502 ^ self |
502 ^ self |
503 ]. |
503 ]. |
504 |
504 |
505 "/ give the views application a chance |
|
506 "/ to decide where to show the help text |
|
507 "/ (i.e. in its own information area) |
|
508 |
|
509 top := aView topView. |
|
510 (app := aView application) notNil ifTrue:[ |
|
511 (app showHelp:text for:aView) ifTrue:[ |
|
512 lastHelpText := text. |
|
513 ^ self |
|
514 ] |
|
515 ]. |
|
516 |
|
517 text notNil ifTrue:[ |
505 text notNil ifTrue:[ |
|
506 "/ give the views application a chance |
|
507 "/ to decide where to show the help text |
|
508 "/ (i.e. in its own information area) |
|
509 |
|
510 top := aView topView. |
|
511 (app := aView application) notNil ifTrue:[ |
|
512 (app showHelp:text for:aView) ifTrue:[ |
|
513 lastHelpText := text. |
|
514 ^ self |
|
515 ] |
|
516 ]. |
|
517 |
518 (showItNow not and:[DelayTime > 0]) ifTrue:[ |
518 (showItNow not and:[DelayTime > 0]) ifTrue:[ |
519 self stopHelpDisplayProcess. |
519 self stopHelpDisplayProcess. |
520 showProcess := [ |
520 showProcess := [ |
521 Delay waitForSeconds:DelayTime. |
521 Delay waitForSeconds:DelayTime. |
522 showProcess := nil. |
522 showProcess := nil. |
535 initiateHelpFor:self atX:x y:y |
535 initiateHelpFor:self atX:x y:y |
536 ] |
536 ] |
537 ] |
537 ] |
538 " |
538 " |
539 |
539 |
540 "Modified: 28.6.1997 / 14:45:06 / cg" |
|
541 "Created: 28.6.1997 / 14:45:41 / cg" |
540 "Created: 28.6.1997 / 14:45:41 / cg" |
|
541 "Modified: 28.6.1997 / 14:49:05 / cg" |
542 ! |
542 ! |
543 |
543 |
544 showHelp:aHelpText for:view |
544 showHelp:aHelpText for:view |
545 "show the help text for aView" |
545 "show the help text for aView" |
546 |
546 |
605 ! ! |
605 ! ! |
606 |
606 |
607 !ActiveHelp class methodsFor:'documentation'! |
607 !ActiveHelp class methodsFor:'documentation'! |
608 |
608 |
609 version |
609 version |
610 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.25 1997-06-28 12:46:35 cg Exp $' |
610 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.26 1997-06-28 12:49:18 cg Exp $' |
611 ! ! |
611 ! ! |
612 ActiveHelp initialize! |
612 ActiveHelp initialize! |