remember methods sent to Project
authorClaus Gittinger <cg@exept.de>
Thu, 30 Jan 1997 21:13:20 +0100
changeset 2335 a0e7564d47c7
parent 2334 7502902385ff
child 2336 45f63b0d8832
remember methods sent to Project
Class.st
--- a/Class.st	Thu Jan 30 21:12:09 1997 +0100
+++ b/Class.st	Thu Jan 30 21:13:20 1997 +0100
@@ -1171,7 +1171,10 @@
 
     oldMethod notNil ifTrue:[
         oldMethod package ~= newMethod package ifTrue:[
-            Project current rememberOverwrittenMethod:newMethod from:oldMethod
+            Project notNil ifTrue:[
+                "/ allow configurations without Project
+                Project rememberOverwrittenMethod:newMethod from:oldMethod
+            ]
         ]
     ].
 
@@ -1181,7 +1184,7 @@
 
     "Created: 29.10.1995 / 19:42:42 / cg"
     "Modified: 9.9.1996 / 22:39:32 / stefan"
-    "Modified: 27.1.1997 / 11:52:08 / cg"
+    "Modified: 30.1.1997 / 21:08:14 / cg"
 !
 
 basicAddSelector:newSelector withMethod:newMethod
@@ -4880,6 +4883,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.254 1997-01-29 22:52:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.255 1997-01-30 20:13:20 cg Exp $'
 ! !
 Class initialize!