equal
deleted
inserted
replaced
3217 |cls m s| |
3217 |cls m s| |
3218 |
3218 |
3219 cls := self theNonMetaclass. |
3219 cls := self theNonMetaclass. |
3220 m := cls theMetaclass compiledMethodAt:#documentation. |
3220 m := cls theMetaclass compiledMethodAt:#documentation. |
3221 m notNil ifTrue:[ |
3221 m notNil ifTrue:[ |
|
3222 "/ try documentation method's comment |
3222 s := m comment. |
3223 s := m comment. |
3223 ] ifFalse:[ |
3224 ] ifFalse:[ |
3224 "try comment" |
3225 "try classes comment" |
3225 s := cls comment. |
3226 s := cls comment. |
3226 s isString ifTrue:[ |
3227 s isString ifTrue:[ |
3227 s isEmpty ifTrue:[ |
3228 s isEmpty ifTrue:[ |
3228 s := nil |
3229 s := nil |
3229 ] ifFalse:[ |
3230 ] ifFalse:[ |
3245 ] ifFalse:[ |
3246 ] ifFalse:[ |
3246 "/ class redefines comment ? |
3247 "/ class redefines comment ? |
3247 s := nil |
3248 s := nil |
3248 ]. |
3249 ]. |
3249 ]. |
3250 ]. |
3250 ^ s |
3251 s isEmptyOrNil ifTrue:[^ s]. |
|
3252 ^ s withTabsExpanded |
3251 |
3253 |
3252 " |
3254 " |
3253 Array commentOrDocumentationString |
3255 Array commentOrDocumentationString |
3254 " |
3256 " |
3255 ! |
3257 ! |
4297 ! ! |
4299 ! ! |
4298 |
4300 |
4299 !ClassDescription class methodsFor:'documentation'! |
4301 !ClassDescription class methodsFor:'documentation'! |
4300 |
4302 |
4301 version |
4303 version |
4302 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.245 2013-08-26 09:55:45 cg Exp $' |
4304 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.247 2013-09-06 16:10:58 cg Exp $' |
4303 ! |
4305 ! |
4304 |
4306 |
4305 version_CVS |
4307 version_CVS |
4306 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.245 2013-08-26 09:55:45 cg Exp $' |
4308 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.247 2013-09-06 16:10:58 cg Exp $' |
4307 ! |
4309 ! |
4308 |
4310 |
4309 version_HG |
4311 version_HG |
4310 |
4312 |
4311 ^ '$Changeset: <not expanded> $' |
4313 ^ '$Changeset: <not expanded> $' |