do not display tabs in a string.
--- a/ToolApplicationModel.st Fri Mar 12 10:09:20 1999 +0100
+++ b/ToolApplicationModel.st Fri Mar 12 10:55:10 1999 +0100
@@ -916,6 +916,7 @@
, '\\has been designed and implemented by: \' withCRs
, ((self class authorLinesForAboutBox collect:[:l | '- ' , l]) asStringWith:$\) withCRs
, '\\' withCRs.
+ msg := msg withTabsExpanded.
AboutBox isNil ifTrue:[
"/ this handles bad installations of ST/X,
@@ -934,7 +935,7 @@
box autoHideAfter:10 with:[].
box showAtPointer.
- "Modified: / 14.8.1998 / 13:04:03 / cg"
+ "Modified: / 12.3.1999 / 00:12:13 / cg"
!
openHTMLDocument: aHTMLFilename
@@ -1142,5 +1143,5 @@
!ToolApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.82 1999-02-22 19:41:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.83 1999-03-12 09:55:10 cg Exp $'
! !