diff --git a/repository/CodeParadise-RemoteEnvironment/CpServerApplication.class.st b/repository/CodeParadise-RemoteEnvironment/CpServerApplication.class.st index fdb1b4ea..08fb9816 100644 --- 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 index c23fec40..75848f42 100644 --- 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 [