equal
deleted
inserted
replaced
1193 (clsRev := myClass revision) notNil ifTrue: [ |
1193 (clsRev := myClass revision) notNil ifTrue: [ |
1194 rev := ' (rev: ', clsRev printString, ')' |
1194 rev := ' (rev: ', clsRev printString, ')' |
1195 ]. |
1195 ]. |
1196 |
1196 |
1197 msg := '\The application\\' withCRs |
1197 msg := '\The application\\' withCRs |
1198 , myClass name asBoldText, rev |
1198 , myClass name allBold, rev |
1199 , '\\has been designed and implemented by: \' withCRs |
1199 , '\\has been designed and implemented by: \' withCRs |
1200 , ((self class authorLinesForAboutBox collect:[:l | ' ' , l]) asStringWith:$\) withCRs |
1200 , ((self class authorLinesForAboutBox collect:[:l | ' ' , l]) asStringWith:$\) withCRs |
1201 , '\\' withCRs. |
1201 , '\\' withCRs. |
1202 msg := msg withTabsExpanded. |
1202 msg := msg withTabsExpanded. |
1203 ^msg |
1203 ^msg |
1300 myClass := self class. |
1300 myClass := self class. |
1301 |
1301 |
1302 (clsRev := myClass revision) notNil ifTrue: [rev := ' (rev: ', clsRev printString, ')']. |
1302 (clsRev := myClass revision) notNil ifTrue: [rev := ' (rev: ', clsRev printString, ')']. |
1303 |
1303 |
1304 msg := '\The application\\' withCRs |
1304 msg := '\The application\\' withCRs |
1305 , myClass name asBoldText, rev |
1305 , myClass name allBold, rev |
1306 , '\\has been designed and implemented by: \' withCRs |
1306 , '\\has been designed and implemented by: \' withCRs |
1307 , ((self class authorLinesForAboutBox collect:[:l | '- ' , l]) asStringWith:$\) withCRs |
1307 , ((self class authorLinesForAboutBox collect:[:l | '- ' , l]) asStringWith:$\) withCRs |
1308 , '\\' withCRs. |
1308 , '\\' withCRs. |
1309 msg := msg withTabsExpanded. |
1309 msg := msg withTabsExpanded. |
1310 |
1310 |