# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1520542099 -3600
# Node ID 96e3effb62a6571319067b701335c4fc9e14a099
# Parent  5ffb711cddcff20c99bfaef23b7535bacbcb3040
#FEATURE by cg
class: ApplicationModel
added: #isApplicationModel

diff -r 5ffb711cddcf -r 96e3effb62a6 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