clause working with vp

resource/norwegian/RulesNor.gf

@@ -1,4 +1,4 @@
 --# -path=.:../scandinavian:../abstract:../../prelude
 
-concrete RulesNor of Rules =
+concrete RulesNor of Rules = CategoriesNor **
   RulesScand with (SyntaxScand=SyntaxNor) ;

resource/norwegian/SyntaxNor.gf

@@ -116,4 +116,12 @@ instance SyntaxNor of SyntaxScand = TypesNor **
       )
       (predVerbGroup True Simul verb) ;  
 
+  progressiveClause : NounPhrase -> VerbPhrase -> Clause = \np,vp ->
+    predVerbGroupClause np
+     (complVerbVerb 
+      (verbVara **
+       {s3 = ["ved at"]}
+      )
+      vp) ;
+
 }

resource/norwegian/TestResourceNor.gf

@@ -1,6 +1,6 @@
 --# -path=.:../scandinavian:../abstract:../../prelude
 
-concrete TestResourceNor of TestResource = RulesNor, StructuralNor **
+concrete TestResourceNor of TestResource = RulesNor, ClauseNor, StructuralNor **
   open Prelude, MorphoNor, SyntaxNor in {
 
 flags startcat=Phr ; lexer=text ; unlexer=text ;