--- a/Method.st	Thu Apr 09 13:30:30 1998 +0200
+++ b/Method.st	Thu Apr 09 15:38:29 1998 +0200
@@ -1885,23 +1885,6 @@
 
 !
 
-hasResource
-    "return true if the method had a <resource> definition in its
-     source. This was found in ST-80 methods, and currently not supported
-     by ST/X (except for remembering this flag).
-     It can be used to find resource-flagged methods quicker."
-
-%{  /* NOCONTEXT */
-
-#ifdef F_RESOURCE
-    RETURN (((INT)__INST(flags) & __MASKSMALLINT(F_RESOURCE)) ? true : false);
-#endif
-%}.
-    ^ false
-
-
-!
-
 homeMethod
     "for common protocol with blocks: if the receiver is a method,
      return the receiver; otherwise, if its a block, return its home
@@ -2540,6 +2523,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.158 1998-04-09 11:29:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.159 1998-04-09 13:38:29 cg Exp $'
 ! !
 Method initialize!