--- 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