equal
deleted
inserted
replaced
1136 rev := ''. |
1136 rev := ''. |
1137 |
1137 |
1138 (clsRev := aClass revision) notNil ifTrue: [rev := ' (rev: ', clsRev printString, ')']. |
1138 (clsRev := aClass revision) notNil ifTrue: [rev := ' (rev: ', clsRev printString, ')']. |
1139 resources := aClass classResources. |
1139 resources := aClass classResources. |
1140 |
1140 |
1141 msg := '\' withCRs , aClass name asBoldText, rev. |
1141 msg := '\' withCRs , aClass name allBold, rev. |
1142 |
1142 |
1143 self |
1143 self |
1144 about:(resources string:msg) |
1144 about:(resources string:msg) |
1145 label:(resources string:'About ' , aClass nameWithoutPrefix) |
1145 label:(resources string:'About ' , aClass nameWithoutPrefix) |
1146 icon:aClass defaultIconForAboutBox |
1146 icon:aClass defaultIconForAboutBox |