# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1346753266 -7200
# Node ID e0da59b7e3c93b5fc338dde031f91ff34afe71c2
# Parent  745b9c77b599696df9625705ef5071800daab118
changed:
        #canEnterContentsSelection
        #canEnterDeploy

diff -r 745b9c77b599 -r e0da59b7e3c9 Tools__ProjectBuilderAssistantApplication.st
--- 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