--- a/Tools__ProjectBuilderAssistantApplication.st Tue Sep 04 12:02:02 2012 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st Tue Sep 04 12:07:46 2012 +0200
@@ -2488,23 +2488,23 @@
].
"self hasApplicationSelected ifFalse:[^ false]."
(self projectTypeIsLibrary or:[self hasStartupClassSelected]) ifFalse:[
- self infoHolder value:'must be either library or have a startup class'.
+ self infoHolder value:'Must be either library or have a startup class'.
^ false
].
prj := self selectedProjectDefinition.
([prj startupClassName] on:Error do:nil) notNil ifFalse:[
- self infoHolder value:'must have a startup class'.
+ self infoHolder value:'Must have a startup class'.
^ false
].
([prj startupSelector] on:Error do:nil) notNil ifFalse:[
- self infoHolder value:'must have a startup selector'.
+ self infoHolder value:'Must have a startup selector'.
^ false
].
(prj class compiledMethodAt:#startupSelector) isNil ifTrue:[
- self infoHolder value:('inherited startup selector is "%1"' bindWith:prj startupSelector).
+ self infoHolder value:('Inherited startup selector is "%1"' bindWith:prj startupSelector).
impl := prj class whichClassImplements:#startupSelector.
impl isNil ifTrue:[
- self infoHolder value:('inherited startup selector (%1) not implemented in %2'
+ self infoHolder value:('Inherited startup selector (%1) not implemented in %2'
bindWith:prj startupSelector
with:prj class name).
^ false
@@ -2512,7 +2512,7 @@
].
(mthd := prj class compiledMethodAt:#startupClassName) package == prj package ifFalse:[
mthd package == PackageId noProjectID ifFalse:[
- self infoHolder value:('startup class method (#startupClassName) of %3 must be in package "%1" (is in "%2")'
+ self infoHolder value:('Startup class method (#startupClassName) of %3 must be in package "%1" (is in "%2")'
bindWith:prj package
with:(prj class compiledMethodAt:#startupClassName) package
with:prj class name).
@@ -2522,7 +2522,7 @@
(mthd := prj class compiledMethodAt:#startupSelector) notNil ifTrue:[
mthd package == prj package ifFalse:[
mthd package == PackageId noProjectID ifFalse:[
- self infoHolder value:('startup class method (#startupSelector) of %3 must be in package "%1" (is in "%2")'
+ self infoHolder value:('Startup class method (#startupSelector) of %3 must be in package "%1" (is in "%2")'
bindWith:prj package
with:mthd package
with:prj class name).
@@ -2532,30 +2532,32 @@
].
cls := Smalltalk classNamed:prj startupClassName.
cls isNil ifTrue:[
- self infoHolder value:('startup class "%1" does not exist' bindWith:prj startupClassName).
+ self infoHolder value:('Startup class "%1" does not exist' bindWith:prj startupClassName).
^ false.
].
(cls implements:(prj startupSelector)) ifFalse:[
(cls respondsTo:(prj startupSelector)) ifFalse:[
- self infoHolder value:('startup class "%1" does not implement startup selector "%2"'
+ self infoHolder value:('Startup class "%1" does not implement startup selector "%2"'
bindWith:cls name
with:prj startupSelector).
^ false
].
].
+ self infoHolder value:nil.
^ true.
- "Modified: / 20-07-2012 / 19:21:34 / cg"
+ "Modified: / 04-09-2012 / 10:29:43 / cg"
!
canEnterDeploy
self hasProjectBuilder ifFalse:[
- self infoHolder value:'no project builder specified'.
+ self infoHolder value:'Nothing to deploy (please build first)'.
^ false
].
+ self infoHolder value:nil.
^ true
- "Modified: / 23-08-2011 / 12:13:23 / cg"
+ "Modified: / 04-09-2012 / 10:30:18 / cg"
!
canEnterPrerequisitesSelection