slight refactoring of Phrasebook, with less start words

1 files changed, 7 insertions, 2 deletions

diff --git a/examples/phrasebook/SentencesFin.gf b/examples/phrasebook/SentencesFin.gf
index 62ccf7247..1b1febf6a 100644
--- a/examples/phrasebook/SentencesFin.gf
+++ b/examples/phrasebook/SentencesFin.gf
@@ -1,10 +1,12 @@
 concrete SentencesFin of Sentences = NumeralFin ** SentencesI - 
   [Is, IsMass, NameNN, ObjMass,
-   IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale
+   IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale,
+   GObjectPlease
   ] with 
   (Syntax = SyntaxFin),
   (Symbolic = SymbolicFin),
-  (Lexicon = LexiconFin) ** open SyntaxFin, ExtraFin, (P = ParadigmsFin), (V = VerbFin) in {
+  (Lexicon = LexiconFin) ** 
+    open SyntaxFin, ExtraFin, (P = ParadigmsFin), (V = VerbFin), Prelude in {
 
   lin 
     Is item prop = mkCl item (V.UseComp (CompPartAP prop)) ; -- tämä pizza on herkullista
@@ -20,4 +22,7 @@ concrete SentencesFin of Sentences = NumeralFin ** SentencesI -
 
     ObjMass = PartCN ;
 
+    GObjectPlease o = lin Text (mkPhr noPConj (mkUtt o) (lin Voc (ss "kiitos"))) ;
+
+
   }