#FEATURE by cg
class: Tools::NewSystemBrowser
changed:
#hasPackagableApplicationSelected
#packageSelectedApplication
--- a/Tools__NewSystemBrowser.st Sat Oct 08 22:29:52 2016 +0200
+++ b/Tools__NewSystemBrowser.st Sat Oct 08 23:15:33 2016 +0200
@@ -22583,7 +22583,11 @@
|cls|
^ (cls := self theSingleSelectedClass) notNil
- and:[ cls theNonMetaclass isProjectDefinition ]
+ and:[ cls theNonMetaclass isProjectDefinition
+ or:[ (cls inheritsFrom:StandaloneStartup)
+ and:[ cls isAbstract not ]
+ ]
+ ]
!
hasPackagableApplicationSelectedHolder
@@ -33517,14 +33521,17 @@
!
packageSelectedApplication
- |dfnClass|
-
- dfnClass := self theSingleSelectedClass.
- dfnClass isNil ifTrue:[
- Dialog warn:'Please select a project definition class.'.
- ^ self.
- ].
- Tools::ProjectBuilderAssistantApplication openOn:dfnClass theNonMetaclass.
+ "either projectDefiniton or
+ a subclass of standaloneStartup is selected"
+
+ |cls|
+
+ cls := self theSingleSelectedClass.
+ cls isNil ifTrue:[
+ Dialog warn:'Please select a project definition or startup class.'.
+ ^ self.
+ ].
+ Tools::ProjectBuilderAssistantApplication openOn:cls theNonMetaclass.
!
printOutClass:aClass withSelector:aSelector