--- a/Method.st	Sun Sep 03 16:45:58 2000 +0200
+++ b/Method.st	Sun Sep 03 17:14:56 2000 +0200
@@ -2070,6 +2070,32 @@
     "Created: 19.6.1997 / 16:26:13 / cg"
 !
 
+messagesSent
+    "return a collection with the message selectors sent to by the receiver.
+     Uses Parser to parse methods source and extract the names.
+     The returned collection includes all used message selectors (i.e. including super-send messages)"
+
+    ^ self parse:#'parseMethodSilent:' return:#messagesSent or:#() 
+
+    "
+     (Method compiledMethodAt:#printOn:) messagesSent
+    "
+!
+
+messagesSentToSelf
+    "return a collection with the message selectors sent to self by the receiver.
+     Uses Parser to parse methods source and extract the names."
+
+    ^ self parse:#'parseMethodSilent:' return:#messagesSentToSelf or:#() 
+!
+
+messagesSentToSuper
+    "return a collection with the message selectors sent to super by the receiver.
+     Uses Parser to parse methods source and extract the names."
+
+    ^ self parse:#'parseMethodSilent:' return:#messagesSentToSuper or:#() 
+!
+
 methodArgAndVarNames
     "return a collection with the methods argument and variable names.
      Uses Parser to parse methods source and extract the names.
@@ -2328,32 +2354,11 @@
      with aSelectorSymbol as selector."
 
     (self referencesLiteral:aSelectorSymbol) ifTrue:[
-        ^ self sentMessages includesIdentical:aSelectorSymbol
+        ^ self messagesSent includesIdentical:aSelectorSymbol
     ].
     ^ false
 !
 
-sentMessages
-    "return a collection with the message selectors sent to by the receiver.
-     Uses Parser to parse methods source and extract the names.
-     The returned collection includes all used message selectors (i.e. including super-send messages)"
-
-    ^ self parse:#'parseMethodSilent:' return:#sentMessages or:#() 
-
-    "
-     (Method compiledMethodAt:#printOn:) sentMessages
-    "
-!
-
-sentSuperMessages
-    "return a collection with the message selectors sent to super by the receiver.
-     Uses Parser to parse methods source and extract the names."
-
-    ^ self parse:#'parseMethodSilent:' return:#sentSuperMessages or:#() 
-
-
-!
-
 usedGlobals
     "return a collection with the global names referred to by the receiver.
      Uses Parser to parse methods source and extract them."
@@ -2746,6 +2751,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.204 2000-08-27 14:48:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.205 2000-09-03 15:14:56 cg Exp $'
 ! !
 Method initialize!