author | Claus Gittinger <cg@exept.de> |
Thu, 11 Feb 2016 14:47:52 +0100 | |
changeset 5597 | 6654cb9875c6 |
parent 5595 | 925147560958 |
child 5598 | 3deac4393211 |
child 5599 | b90b1e164873 |
DialogBox.st | file | annotate | diff | comparison | revisions |
--- a/DialogBox.st Mon Feb 08 10:13:03 2016 +0100 +++ b/DialogBox.st Thu Feb 11 14:47:52 2016 +0100 @@ -1138,7 +1138,7 @@ (clsRev := aClass revision) notNil ifTrue: [rev := ' (rev: ', clsRev printString, ')']. resources := aClass classResources. - msg := '\' withCRs , aClass name asBoldText, rev. + msg := '\' withCRs , aClass name allBold, rev. self about:(resources string:msg)