--- a/Tools__ProjectBuilderAssistantApplication.st Mon Oct 26 10:31:44 2009 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st Mon Oct 26 11:13:20 2009 +0100
@@ -1516,8 +1516,12 @@
^ projectTypeHolder.
!
+projectTypeIsLibrary
+ ^ self projectTypeHolder value == #libraryType
+!
+
projectTypeIsNotLibrary
- ^ self projectTypeHolder value ~~ #libraryType
+ ^ self projectTypeIsLibrary not
!
selectedApplicationIndexHolder
@@ -1723,7 +1727,7 @@
canEnterContentsSelection
^ self hasProjectSelected
and:[ true "self hasApplicationSelected"
- and:[ self hasStartupClassSelected ]]
+ and:[ (self projectTypeIsLibrary or:[self hasStartupClassSelected]) ]]
!
canEnterDeploy