--- a/Method.st	Sat Nov 07 14:26:45 2009 +0100
+++ b/Method.st	Sat Nov 07 21:12:07 2009 +0100
@@ -1900,6 +1900,16 @@
     ^ self literalsDetect:[:lit | lit isExternalLibraryFunction] ifNone:nil
 !
 
+hasImageResource
+    "return true, if this method is an image-resource method.
+     This is done by looking for a #image key in the methods resources."
+
+    |resources|
+
+    resources := self resources.
+    ^ resources notNil and:[ resources includesKey:#image ].
+!
+
 hasPrimitiveCode
     "return true, if the method contains primitive code; false if not.
      Uses Parser to parse methods source and get the information."
@@ -2902,11 +2912,11 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.337 2009-11-06 10:23:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.338 2009-11-07 20:12:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.337 2009-11-06 10:23:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.338 2009-11-07 20:12:07 cg Exp $'
 ! !
 
 Method initialize!