equal
deleted
inserted
replaced
552 |
552 |
553 comment |
553 comment |
554 ^ self subclassResponsibility |
554 ^ self subclassResponsibility |
555 |
555 |
556 "Created: 2.4.1997 / 00:51:11 / stefan" |
556 "Created: 2.4.1997 / 00:51:11 / stefan" |
|
557 ! |
|
558 |
|
559 definition |
|
560 "return an expression-string to define myself" |
|
561 |
|
562 |s| |
|
563 |
|
564 s := WriteStream on:(String new). |
|
565 self fileOutDefinitionOn:s. |
|
566 ^ s contents |
|
567 |
|
568 " |
|
569 Object definition |
|
570 Point definition |
|
571 " |
|
572 |
|
573 "Created: / 19.6.1998 / 02:25:49 / cg" |
557 ! |
574 ! |
558 |
575 |
559 instVarAtOffset:index |
576 instVarAtOffset:index |
560 "return the name of the instance variable at index" |
577 "return the name of the instance variable at index" |
561 |
578 |
2299 "Modified: 16.4.1996 / 18:06:11 / cg" |
2316 "Modified: 16.4.1996 / 18:06:11 / cg" |
2300 "Modified: 12.6.1996 / 11:25:59 / stefan" |
2317 "Modified: 12.6.1996 / 11:25:59 / stefan" |
2301 "Created: 1.4.1997 / 15:57:18 / stefan" |
2318 "Created: 1.4.1997 / 15:57:18 / stefan" |
2302 ! |
2319 ! |
2303 |
2320 |
|
2321 sourceCodeForMethod:aMethod at:aSelector |
|
2322 ^ aMethod source |
|
2323 |
|
2324 "Created: / 19.6.1998 / 02:28:09 / cg" |
|
2325 ! |
|
2326 |
2304 whichCategoryIncludesSelector:aSelector |
2327 whichCategoryIncludesSelector:aSelector |
2305 "return the category under which the method for aSelector is |
2328 "return the category under which the method for aSelector is |
2306 classified" |
2329 classified" |
2307 |
2330 |
2308 ^ (self compiledMethodAt:aSelector) category |
2331 ^ (self compiledMethodAt:aSelector) category |
3020 ! ! |
3043 ! ! |
3021 |
3044 |
3022 !ClassDescription class methodsFor:'documentation'! |
3045 !ClassDescription class methodsFor:'documentation'! |
3023 |
3046 |
3024 version |
3047 version |
3025 ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.73 1998-06-18 23:00:31 cg Exp $' |
3048 ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.74 1998-06-19 00:29:21 cg Exp $' |
3026 ! ! |
3049 ! ! |
3027 ClassDescription initialize! |
3050 ClassDescription initialize! |