#REFACTORING
authorClaus Gittinger <cg@exept.de>
Thu, 11 Feb 2016 14:47:41 +0100
changeset 3546 4d43beec43de
parent 3544 8f2318a36b98
child 3547 f3221c6ff930
#REFACTORING class: ApplicationModel changed: #aboutThisApplicationText (send #allBold instead of #asBoldText)
ApplicationModel.st
--- a/ApplicationModel.st	Fri Feb 05 04:50:40 2016 +0000
+++ b/ApplicationModel.st	Thu Feb 11 14:47:41 2016 +0100
@@ -668,7 +668,7 @@
     rev := ''.
 
     (clsRev := self revision) notNil ifTrue: [rev := '  (rev: ', clsRev printString, ')'].
-    msg := "'\' withCRs ," self applicationName asBoldText, rev.
+    msg := "'\' withCRs ," self applicationName allBold, rev.
     ^ msg
 
     "Created: / 13-11-2001 / 12:28:36 / cg"