diff -r fcdea80a431e -r 2600408a8005 Tools__ProjectBuilderAssistantApplication.st --- 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