--- a/Project.st	Sun Oct 03 17:30:13 1999 +0200
+++ b/Project.st	Sun Oct 03 18:55:37 1999 +0200
@@ -2619,6 +2619,21 @@
     ]
 !
 
+removeMethod:method
+    "remove a method from the project"
+
+    |infoCollection index className selector|
+
+    (infoCollection := self methodInfo) isNil ifTrue:[^ self].
+    className := method who methodClass name.
+    selector := method who methodSelector.
+
+    index := infoCollection findFirst:[:i | i className = className.].
+    index ~~ 0 ifTrue:[
+        infoCollection removeIndex:index
+    ]
+!
+
 type
     "return the type of project (one of #application, #library, #smalltalk)"
 
@@ -3158,6 +3173,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.119 1999-10-03 15:30:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.120 1999-10-03 16:55:37 cg Exp $'
 ! !
 Project initialize!