diff -r 754c11dfd208 -r 86ad12f4afc9 Method.st --- a/Method.st Tue Aug 15 16:34:03 2000 +0200 +++ b/Method.st Tue Aug 15 16:34:33 2000 +0200 @@ -2357,10 +2357,21 @@ ! +usedGlobals + "return a collection with the global names referred to by the receiver. + Uses Parser to parse methods source and extract them." + + ^ self parse:#'parseMethodSilent:' return:#usedGlobals or:#() + + " + (Method compiledMethodAt:#resources) usedGlobals + " +! + usedSymbols "return a collection with the symbols referred to by the receiver. Uses Parser to parse methods source and extract them. - This collection on;y includes implicit symbols references (i.e. not + This collection only includes implicit symbols references (i.e. not messages sent)" ^ self parse:#'parseMethodSilent:' return:#usedSymbols or:#() @@ -2727,6 +2738,6 @@ !Method class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.196 2000-08-09 20:38:51 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.197 2000-08-15 14:34:33 cg Exp $' ! ! Method initialize!