# HG changeset patch # User Claus Gittinger # Date 921232510 -3600 # Node ID 106a5cc7a4a8182cc1efc855b81ae10931d8e6eb # Parent cf9fc01de1e6a260592fd6a525abeb8ab03e54ac do not display tabs in a string. diff -r cf9fc01de1e6 -r 106a5cc7a4a8 ToolApplicationModel.st --- 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 $' ! !