Tools__ProjectBuilderAssistantApplication.st
changeset 2865 2600408a8005
parent 2864 fcdea80a431e
child 2872 78e56e7f9638
--- a/Tools__ProjectBuilderAssistantApplication.st	Sun Dec 04 20:10:00 2011 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st	Mon Dec 05 03:22:12 2011 +0100
@@ -2295,8 +2295,10 @@
     (prj class compiledMethodAt:#startupSelector) isNil ifTrue:[
         self infoHolder value:('inherited startup selector is "%1"' bindWith:prj startupSelector). 
         impl := prj class whichClassImplements:#startupSelector.
-        impl theNonMetaclass isAbstract ifTrue:[
-            self infoHolder value:('must redefine startup selector method (#startupSelector) in "%1"' bindWith:prj class name). 
+        impl isNil ifTrue:[
+            self infoHolder value:('inherited startup selector (%1) not implemented in %2' 
+                                    bindWith:prj startupSelector
+                                    with:prj class name). 
             ^ false
         ].
     ].
@@ -2320,14 +2322,16 @@
         ^ false.
     ].
     (cls implements:(prj startupSelector)) ifFalse:[
-        self infoHolder value:('startup class "%1" does not implement startup selector "%2"' 
-                bindWith:cls name
-                with:prj startupSelector). 
-        ^ false
+        (cls respondsTo:(prj startupSelector)) ifFalse:[
+            self infoHolder value:('startup class "%1" does not implement startup selector "%2"' 
+                    bindWith:cls name
+                    with:prj startupSelector). 
+            ^ false
+        ].
     ].
     ^ true.
 
-    "Modified: / 04-12-2011 / 20:09:34 / cg"
+    "Modified: / 04-12-2011 / 20:18:12 / cg"
 !
 
 canEnterDeploy