1 files changed, 10 insertions, 1 deletions
diff --git a/metapost/context/base/mp-page.mpiv b/metapost/context/base/mp-page.mpiv
index e33324b0e..ba6dcd6a5 100644
--- a/metapost/context/base/mp-page.mpiv
+++ b/metapost/context/base/mp-page.mpiv
@@ -54,7 +54,7 @@ def SaveTextAreas =
 enddef ;
 
 def ResetTextAreas =
-    path TextAreas[], TextColumns[] ;
+    path TextAreas[], TextColumns[], PlainTextArea, RegionTextArea ;
     numeric NOfTextAreas   ; NOfTextAreas   := 0 ;
     numeric NOfTextColumns ; NOfTextColumns := 0 ;
     numeric nofmultipars   ; nofmultipars   := 0 ;
@@ -103,6 +103,15 @@ enddef ;
 
 %D We store a local area in slot zero.
 
+def RegisterPlainTextArea(expr x,y,w,h,d) =
+    PlainTextArea := unitsquare xyscaled(w,h+d) shifted (x,y-d) ;
+enddef ;
+
+def RegisterRegionTextArea(expr x,y,w,h,d) =
+    RegionTextArea := unitsquare xyscaled(w,h+d) shifted (x,y-d) ;
+%     RegionTextArea := RegionTextArea enlarged 2mm ;
+enddef ;
+
 def RegisterLocalTextArea (expr x, y, w, h, d) =
     TextAreas[0] := TextColumns[0] := unitsquare xyscaled(w,h+d) shifted (x,y-d) ;
 enddef ;