--- a/Method.st	Fri Mar 13 21:52:41 1998 +0100
+++ b/Method.st	Fri Mar 13 22:23:42 1998 +0100
@@ -262,6 +262,12 @@
     RETURN (false);
 #endif
 %}
+!
+
+resourceTypes
+    "get the types of resources for which a spec definition and corresponding editor exist"
+
+    ^#(canvas menu image fileImage hierarchicalList tabList tableColumns)
 ! !
 
 !Method class methodsFor:'special'!
@@ -2112,7 +2118,7 @@
     self hasResource ifFalse:[^ nil].
     self resources keysAndValuesDo:
     [:key :val|
-        (#(canvas menu image fileImage hierarchicalList tabList tableColumns) includes:key) 
+        (self class resourceTypes includes:key) 
         ifTrue:
         [
             ^key
@@ -2513,6 +2519,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.155 1998-03-13 20:52:41 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.156 1998-03-13 21:23:42 tz Exp $'
 ! !
 Method initialize!