do not display tabs in a string.
authorClaus Gittinger <cg@exept.de>
Fri, 12 Mar 1999 10:55:10 +0100
changeset 1138 106a5cc7a4a8
parent 1137 cf9fc01de1e6
child 1139 ab56c6dc429e
do not display tabs in a string.
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 $'
 ! !