--- a/UIHelpTool.st Sat Jul 18 20:02:51 1998 +0200
+++ b/UIHelpTool.st Mon Jul 20 13:18:24 1998 +0200
@@ -820,11 +820,14 @@
"unformats aHelpText and returns it"
|helpText|
- helpText := aHelpText asString replaceAll: Character cr with: Character space.
- (helpText endsWith:Character space) ifTrue:[
+
+ helpText := aHelpText asString copyReplaceAll:(Character cr) with:(Character space).
+ (helpText endsWith:(Character space)) ifTrue:[
helpText := helpText copyWithoutLast:1
].
- ^helpText
+ ^ helpText
+
+ "Modified: / 20.7.1998 / 13:17:52 / cg"
!
installHelpSpecOnClass:aClass