changeset 1241 | 3bbc7d113387 |
parent 1240 | 18fa01008a4f |
child 1242 | 243b06d0e230 |
1240:18fa01008a4f | 1241:3bbc7d113387 |
---|---|
4229 cInfo conditionForInclusion:aSymbol. |
4229 cInfo conditionForInclusion:aSymbol. |
4230 ^ cInfo |
4230 ^ cInfo |
4231 ! |
4231 ! |
4232 |
4232 |
4233 classNameFromClassInfo:cInfo |
4233 classNameFromClassInfo:cInfo |
4234 ^ cInfo className |
4234 |cls nm| |
4235 |
|
4236 nm := cInfo className. |
|
4237 |
|
4238 cls := cInfo theClass. |
|
4239 (cls isNil or:[cls isLoaded not]) ifTrue:[ |
|
4240 ^ nm asText allItalic |
|
4241 ]. |
|
4242 ^ nm |
|
4243 |
|
4244 "Modified: / 26.9.1999 / 13:49:51 / cg" |
|
4235 ! |
4245 ! |
4236 |
4246 |
4237 classNameFromMethodInfo:pInfo |
4247 classNameFromMethodInfo:pInfo |
4238 ^ pInfo className |
4248 ^ pInfo className |
4239 ! |
4249 ! |