#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Sat, 08 Oct 2016 23:15:33 +0200
changeset 16918 beb0c0bf33c8
parent 16917 f742b8a01898
child 16919 070e23357f20
child 17133 f9f20407fbf9
#FEATURE by cg class: Tools::NewSystemBrowser changed: #hasPackagableApplicationSelected #packageSelectedApplication
Tools__NewSystemBrowser.st
--- 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