1164 rev := ''. |
1164 rev := ''. |
1165 |
1165 |
1166 (clsRev := aClass revision) notNil ifTrue: [rev := ' (rev: ', clsRev printString, ')']. |
1166 (clsRev := aClass revision) notNil ifTrue: [rev := ' (rev: ', clsRev printString, ')']. |
1167 resources := aClass classResources. |
1167 resources := aClass classResources. |
1168 |
1168 |
1169 msg := '\' withCRs , aClass name allBold, rev. |
1169 msg := c'\n' , aClass name allBold, rev. |
1170 textOrNil notNil ifTrue:[ |
1170 textOrNil notNil ifTrue:[ |
1171 msg := msg , '\\' withCRs , textOrNil |
1171 msg := msg , c'\n\n' , textOrNil |
1172 ]. |
1172 ]. |
1173 self |
1173 self |
1174 about:msg |
1174 about:msg |
1175 label:(resources string:'About ' , aClass nameWithoutPrefix) |
1175 label:(resources string:'About ' , aClass nameWithoutPrefix) |
1176 icon:aClass defaultIconForAboutBox |
1176 icon:aClass defaultIconForAboutBox |
|
1177 |
|
1178 " |
|
1179 self aboutClass:Array withText:'bla bla' |
|
1180 " |
|
1181 |
|
1182 "Modified: / 20-02-2019 / 10:15:26 / Claus Gittinger" |
1177 ! |
1183 ! |
1178 |
1184 |
1179 ask:setupBlock ifNotNilOrEmptyDo:actionBlock |
1185 ask:setupBlock ifNotNilOrEmptyDo:actionBlock |
1180 "utility: open a requestor with setupBlock; |
1186 "utility: open a requestor with setupBlock; |
1181 if it answers ok, invoke actionBlock with the entered input. |
1187 if it answers ok, invoke actionBlock with the entered input. |