equal
deleted
inserted
replaced
2451 " |
2451 " |
2452 speedup kludge: if my sourceFileName is valid, |
2452 speedup kludge: if my sourceFileName is valid, |
2453 extract the className from it and try that class first. |
2453 extract the className from it and try that class first. |
2454 " |
2454 " |
2455 (fn := self sourceFilename) notNil ifTrue:[ |
2455 (fn := self sourceFilename) notNil ifTrue:[ |
2456 clsName := fn asFilename withoutSuffix name. |
2456 clsName := fn asFilename nameWithoutSuffix. |
2457 clsName := clsName asSymbolIfInterned. |
2457 clsName := clsName asSymbolIfInterned. |
2458 clsName notNil ifTrue:[ |
2458 clsName notNil ifTrue:[ |
2459 cls := Smalltalk at:clsName ifAbsent:nil. |
2459 cls := Smalltalk at:clsName ifAbsent:nil. |
2460 cls notNil ifTrue:[ |
2460 cls notNil ifTrue:[ |
2461 checkBlock value:cls theNonMetaclass. |
2461 checkBlock value:cls theNonMetaclass. |
2531 m := cls compiledMethodAt:#testMethod1:. |
2531 m := cls compiledMethodAt:#testMethod1:. |
2532 |
2532 |
2533 m who |
2533 m who |
2534 " |
2534 " |
2535 |
2535 |
2536 "Modified: / 23.2.2000 / 11:32:49 / cg" |
2536 "Modified: / 07-11-2006 / 13:58:50 / cg" |
2537 ! |
2537 ! |
2538 |
2538 |
2539 wrapper |
2539 wrapper |
2540 "only for wrapped methods: return the wrapper. |
2540 "only for wrapped methods: return the wrapper. |
2541 Thats the WrapperMethod which contains myself." |
2541 Thats the WrapperMethod which contains myself." |
2734 ! ! |
2734 ! ! |
2735 |
2735 |
2736 !Method class methodsFor:'documentation'! |
2736 !Method class methodsFor:'documentation'! |
2737 |
2737 |
2738 version |
2738 version |
2739 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.300 2006-10-12 18:34:25 cg Exp $' |
2739 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.301 2006-11-07 13:00:21 cg Exp $' |
2740 ! ! |
2740 ! ! |
2741 |
2741 |
2742 Method initialize! |
2742 Method initialize! |