1 files changed, 23 insertions, 0 deletions
diff --git a/examples/morpho/EngDescr.gf b/examples/morpho/EngDescr.gf
new file mode 100644
index 000000000..3e5efec77
--- /dev/null
+++ b/examples/morpho/EngDescr.gf
@@ -0,0 +1,23 @@
+--# -path=.:alltenses
+
+concrete EngDescr of Eng = IrregEng ** open (R = ResEng) in {
+
+lincat 
+  Display, Word, Form = Str ;
+
+lin
+  DAll w = w ++ ":" ++ "all forms" ;
+
+  DForm w f = w ++ ":" ++ f ;
+
+-- names of forms displayed
+
+  VInf = "Infinitive" ;
+  VPres = "Present" ; 
+  VPast = "Past" ;
+  VPPart = "Past Participle" ;
+  VPresPart = "Present Participle" ;
+
+  WVerb v = v.s ! R.VInf ;  -- the dictionary form shown in word description
+
+}