equal
deleted
inserted
replaced
818 |
818 |
819 getUnformattedHelpText: aHelpText |
819 getUnformattedHelpText: aHelpText |
820 "unformats aHelpText and returns it" |
820 "unformats aHelpText and returns it" |
821 |
821 |
822 |helpText| |
822 |helpText| |
823 helpText := aHelpText asString replaceAll: Character cr with: Character space. |
823 |
824 (helpText endsWith:Character space) ifTrue:[ |
824 helpText := aHelpText asString copyReplaceAll:(Character cr) with:(Character space). |
|
825 (helpText endsWith:(Character space)) ifTrue:[ |
825 helpText := helpText copyWithoutLast:1 |
826 helpText := helpText copyWithoutLast:1 |
826 ]. |
827 ]. |
827 ^helpText |
828 ^ helpText |
|
829 |
|
830 "Modified: / 20.7.1998 / 13:17:52 / cg" |
828 ! |
831 ! |
829 |
832 |
830 installHelpSpecOnClass:aClass |
833 installHelpSpecOnClass:aClass |
831 "saves the help dicts in aClass which is subclass of ApplicationModel" |
834 "saves the help dicts in aClass which is subclass of ApplicationModel" |
832 |
835 |