--- a/Parser.st	Thu Oct 16 16:55:52 1997 +0200
+++ b/Parser.st	Tue Oct 21 19:32:56 1997 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 14-oct-1997 at 11:12:53 pm'                 !
+'From Smalltalk/X, Version:3.2.1 on 17-oct-1997 at 3:54:34 pm'                  !
 
 Scanner subclass:#Parser
 	instanceVariableNames:'classToCompileFor selfValue contextToEvaluateIn selector
@@ -1451,14 +1451,35 @@
     ^ value
 !
 
+parse:methodSource in:aClass notifying:aRequestor
+    "parse a methods source.
+     Return the methods parseTree"
+
+    self initializeFor:methodSource.
+    classToCompileFor := aClass.
+    requestor := aRequestor.
+    self parseMethod.
+    ^ MethodNode new
+        selector:selector
+        arguments:methodArgs
+        locals:methodVars
+        statements:tree
+
+    "Created: 17.10.1997 / 12:35:01 / cg"
+    "Modified: 17.10.1997 / 12:40:34 / cg"
+!
+
 parseSelector:aStringOrStream
+    "parse a methods source for the methods selector.
+     Return the selector"
+
     self initializeFor:aStringOrStream.
     self parseMethodSpec.
     ^ selector.
 
     "
      Parser new
-	parseSelector:'
+        parseSelector:'
 parseSelector:aStringOrStream
     self initializeFor:aStringOrStream.
     self parseMethodSpec.
@@ -1466,7 +1487,7 @@
 '                 
     "
 
-    "Modified: 20.6.1997 / 17:58:52 / cg"
+    "Modified: 17.10.1997 / 12:35:46 / cg"
 ! !
 
 !Parser methodsFor:'accessing'!
@@ -4252,6 +4273,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.147 1997-10-15 11:14:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.148 1997-10-21 17:32:56 cg Exp $'
 ! !
 Parser initialize!