equal
deleted
inserted
replaced
99 "Created: / 13-09-2012 / 15:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
99 "Created: / 13-09-2012 / 15:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
100 ! |
100 ! |
101 |
101 |
102 initializeFromMethod: aMethod |
102 initializeFromMethod: aMethod |
103 name := aMethod selector. |
103 name := aMethod selector. |
104 klass := aMethod mclass name. |
104 klass := aMethod mclass theNonMetaclass name. |
105 meta := aMethod mclass isMetaclass. |
105 meta := aMethod mclass isMetaclass. |
106 category := aMethod category. |
106 category := aMethod category. |
107 source := aMethod source. |
107 source := aMethod source. |
108 |
108 |
109 "Created: / 11-09-2012 / 00:05:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
109 "Created: / 11-09-2012 / 00:05:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |