move TPasseSimple to Extend

src/abstract/Extend.gf

@@ -302,4 +302,7 @@ fun
 fun
   AnaphPron : NP -> Pron ;
 
+fun
+  TPasseSimple : Tense ;
+
 }

src/common/ExtendFunctor.gf

@@ -127,6 +127,8 @@ lin
   UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who
   UttVPShort = UttVP ; -- have fun, as opposed to "to have fun" ; DEFAULT UttVP
 
+  TPasseSimple = Grammar.TPast ;   --# notpresent
+
   SQuestVPS = variants {} ; -- : NP   -> VPS -> QS ;         -- has she walked
   QuestVPS = variants {} ; --  : IP   -> VPS -> QS ;         -- who has walked
 

src/czech/ExtendCze.gf

@@ -27,6 +27,7 @@ concrete ExtendCze of Extend = CatCze **
     ,CompBareCN
     ,PiedPipingQuestSlash
     ,PiedPipingRelSlash
+    ,TPasseSimple
     ]
   with (Grammar = GrammarCze)
     **

src/romance/ExtendRomanceFunctor.gf

@@ -278,6 +278,8 @@ incomplete concrete ExtendRomanceFunctor of Extend =
     UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who
     UttVPShort = UttVP ;
 
+    TPasseSimple = {s = []} ** {t = RPasse} ;   --# notpresent
+
   oper
     quoted : Str -> Str = \s -> "\"" ++ s ++ "\"" ; ---- TODO bind ; move to Prelude?
 

src/slovak/ExtendSlo.gf

@@ -27,6 +27,7 @@ concrete ExtendSlo of Extend = CatSlo **
     ,CompBareCN
     ,PiedPipingQuestSlash
     ,PiedPipingRelSlash
+    ,TPasseSimple
     ]
   with (Grammar = GrammarSlo)
     **