equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1995 by Claus Gittinger |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
976 "/ let application show the help |
974 "/ let application show the help |
977 "/ (i.e. in its own information area) |
975 "/ (i.e. in its own information area) |
978 "/ nil-text is also passed down, to give it a chance |
976 "/ nil-text is also passed down, to give it a chance |
979 "/ to clean its infoDisplay. |
977 "/ to clean its infoDisplay. |
980 |
978 |
981 (aView isKindOf:CheckToggle) ifTrue:[self halt]. |
979 "/ (aView isKindOf:CheckToggle) ifTrue:[self halt]. |
982 top := aView topView. |
980 top := aView topView. |
983 (app := aView application) notNil ifTrue:[ |
981 (app := aView application) notNil ifTrue:[ |
984 (app showActiveHelp:text for:aView) ifTrue:[ |
982 (app showActiveHelp:text for:aView) ifTrue:[ |
985 lastHelpText := text. |
983 lastHelpText := text. |
986 ] |
984 ] |
987 ]. |
985 ]. |
988 |
986 |
989 "Modified: / 27-02-2019 / 11:15:48 / Claus Gittinger" |
987 "Modified: / 30-03-2019 / 12:41:00 / Claus Gittinger" |
990 ! |
988 ! |
991 |
989 |
992 stopHelpDisplayProcess |
990 stopHelpDisplayProcess |
993 ! ! |
991 ! ! |
994 |
992 |