Update Paradise menu to support Node.js applications

ErikOnBike · Mar 1, 2024 · c1d2737 · c1d2737
1 parent 68e412d
commit c1d2737
Show file tree

Hide file tree

Showing 5 changed files with 54 additions and 4 deletions.
diff --git a/repository/CodeParadise-RemoteEnvironment/CpServerApplication.class.st b/repository/CodeParadise-RemoteEnvironment/CpServerApplication.class.st
@@ -67,6 +67,21 @@ CpServerApplication class >> clientLoaded: anAnnouncement [
 		yourself
 ]
 
+{ #category : #testing }
+CpServerApplication class >> hasAbstractTag [
+
+	"Answer whether the receiver has the 'isAbstract' tag set"
+
+	^ self classSide includesSelector: #isAbstractTag
+]
+
+{ #category : #testing }
+CpServerApplication class >> isAbstractTag [
+
+	"The method is present to indicate the receiver is abstract.
+	This method will NOT be evaluated to decide if the receiver is abstract."
+]
+
 { #category : #'instance creation' }
 CpServerApplication class >> newInEnvironment: aServerEnvironment [
 

diff --git a/repository/CodeParadise-WebApplication-Development/CpDevTools.class.st b/repository/CodeParadise-WebApplication-Development/CpDevTools.class.st
@@ -30,9 +30,23 @@ CpDevTools class >> actionReset [
 
 { #category : #accessing }
 CpDevTools class >> allApplications [
-	"Answer all the defined CP web applications"
+
+	"Answer all the defined applications (both browser and Node.js based).
+
+	Implementation:
+	Only applications which do not have the 'isAbstract' tag set will be answered."
+
+	^ CpServerApplication allSubclasses
+		reject: [ :each | each hasAbstractTag ]
+]
+
+{ #category : #accessing }
+CpDevTools class >> allWebApplications [
+
+	"Answer all the defined web applications (i.e. only browser based applications)"
 
-	^ CpWebApplication allSubclasses select: [ :c | c class includesSelector: #app ]
+	^ self allApplications
+		select: [ :each | each inheritsFrom: CpWebApplication ]
 ]
 
 { #category : #accessing }
@@ -71,7 +85,7 @@ CpDevTools class >> open [
 	<script>
 
 	| choices |
-	choices := self allApplications collect: [ :a | a app ].
+	choices := self allWebApplications collect: [ :a | a app ].
 
 	(UIManager default
 		chooseFrom: choices

diff --git a/repository/CodeParadise-WebApplication-MVP/CpMvpWebApplication.class.st b/repository/CodeParadise-WebApplication-MVP/CpMvpWebApplication.class.st
@@ -26,6 +26,13 @@ CpMvpWebApplication class >> clientBehaviorClass [
 	^ CpMvpWebClientBehavior
 ]
 
+{ #category : #testing }
+CpMvpWebApplication class >> isAbstractTag [
+
+	"The method is present to indicate the receiver is abstract.
+	This method will NOT be evaluated to decide if the receiver is abstract."
+]
+
 { #category : #presenter }
 CpMvpWebApplication >> allPresentersDo: aBlock [
 

diff --git a/repository/CodeParadise-WebApplication-Presentation/CpPresentationWebApplication.class.st b/repository/CodeParadise-WebApplication-Presentation/CpPresentationWebApplication.class.st
@@ -4,9 +4,16 @@ Class {
 	#instVars : [
 		'presentation'
 	],
-	#category : 'CodeParadise-WebApplication-Presentation-Application'
+	#category : #'CodeParadise-WebApplication-Presentation-Application'
 }
 
+{ #category : #testing }
+CpPresentationWebApplication class >> isAbstractTag [
+
+	"The method is present to indicate the receiver is abstract.
+	This method will NOT be evaluated to decide if the receiver is abstract."
+]
+
 { #category : #accessing }
 CpPresentationWebApplication >> applicationModel [
 

diff --git a/repository/CodeParadise-WebApplication/CpWebApplication.class.st b/repository/CodeParadise-WebApplication/CpWebApplication.class.st
@@ -40,6 +40,13 @@ CpWebApplication class >> initialize [
 	IdentifierGenerator := CpWebIdentifierGenerator new
 ]
 
+{ #category : #testing }
+CpWebApplication class >> isAbstractTag [
+
+	"The method is present to indicate the receiver is abstract.
+	This method will NOT be evaluated to decide if the receiver is abstract."
+]
+
 { #category : #'development support' }
 CpWebApplication class >> openInBrowser [