#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Thu, 08 Mar 2018 21:48:19 +0100
changeset 4076 96e3effb62a6
parent 4074 5ffb711cddcf
child 4077 0b959eb9554b
#FEATURE by cg class: ApplicationModel added: #isApplicationModel
ApplicationModel.st
--- a/ApplicationModel.st	Thu Mar 01 19:26:01 2018 +0100
+++ b/ApplicationModel.st	Thu Mar 08 21:48:19 2018 +0100
@@ -4055,6 +4055,12 @@
     self saveAndTerminateRequest
 ! !
 
+!ApplicationModel methodsFor:'testing'!
+
+isApplicationModel
+    ^ true
+! !
+
 !ApplicationModel methodsFor:'translating'!
 
 translateString:aString