equal
deleted
inserted
replaced
2159 " |
2159 " |
2160 |
2160 |
2161 "Modified: 31.10.1995 / 14:36:49 / cg" |
2161 "Modified: 31.10.1995 / 14:36:49 / cg" |
2162 ! |
2162 ! |
2163 |
2163 |
2164 modfiedInstVars |
|
2165 "return a collection of instVarNames, which are written by |
|
2166 the receiver method" |
|
2167 |
|
2168 |src parser| |
|
2169 |
|
2170 src := self source. |
|
2171 src notNil ifTrue:[ |
|
2172 parser := Parser |
|
2173 parseMethod:src |
|
2174 in:self containingClass |
|
2175 ignoreErrors:true |
|
2176 ignoreWarnings:true. |
|
2177 |
|
2178 (parser notNil and:[parser ~~ #Error]) ifTrue:[ |
|
2179 ^ parser modifiedInstVars |
|
2180 ]. |
|
2181 ]. |
|
2182 ^ #() "/ actually: unknown |
|
2183 |
|
2184 "Created: 19.6.1997 / 17:53:30 / cg" |
|
2185 "Modified: 19.6.1997 / 17:54:17 / cg" |
|
2186 ! |
|
2187 |
|
2188 modificationTime |
2164 modificationTime |
2189 "try to extract the modificationTime as a timeStamp from |
2165 "try to extract the modificationTime as a timeStamp from |
2190 the receivers source. If there is no source or no history line, |
2166 the receivers source. If there is no source or no history line, |
2191 we do not know the modification time, and nil is returned." |
2167 we do not know the modification time, and nil is returned." |
2192 |
2168 |
2746 ! ! |
2722 ! ! |
2747 |
2723 |
2748 !Method class methodsFor:'documentation'! |
2724 !Method class methodsFor:'documentation'! |
2749 |
2725 |
2750 version |
2726 version |
2751 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.199 2000-08-17 22:22:37 cg Exp $' |
2727 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.200 2000-08-19 11:24:11 cg Exp $' |
2752 ! ! |
2728 ! ! |
2753 Method initialize! |
2729 Method initialize! |