2015-03-31 12:06:00

1 files changed, 31 insertions, 6 deletions

diff --git a/tex/context/base/scrn-pag.lua b/tex/context/base/scrn-pag.lua
index 7003d0285..4d7b388ee 100644
--- a/tex/context/base/scrn-pag.lua
+++ b/tex/context/base/scrn-pag.lua
@@ -10,18 +10,43 @@ interactions         = interactions or { }
 interactions.pages   = interactions.pages or { }
 local pages          = interactions.pages
 
+local implement      = interfaces.implement
+
 local codeinjections = backends.codeinjections
 
-local function setupcanvas(specification)
+function pages.setupcanvas(specification)
     codeinjections.setupcanvas(specification)
 end
 
-local function setpagetransition(specification)
+function pages.setpagetransition(specification)
     codeinjections.setpagetransition(specification)
 end
 
-pages.setupcanvas          = setupcanvas
-pages.setpagetransition    = setpagetransition
+implement {
+    name      = "setupcanvas",
+    actions   = pages.setupcanvas,
+    arguments = {
+        {
+            { "mode" },
+            { "singlesided", "boolean" },
+            { "doublesided", "boolean" },
+            { "leftoffset", "dimen" },
+            { "topoffset", "dimen" },
+            { "width", "dimen" },
+            { "height", "dimen" },
+            { "paperwidth", "dimen" },
+            { "paperheight", "dimen" },
+        }
+    }
+}
 
-commands.setupcanvas       = setupcanvas
-commands.setpagetransition = setpagetransition
+implement {
+    name      = "setpagetransition",
+    actions   = pages.setpagetransition,
+    arguments = {
+        {
+            { "n" },
+            { "delay", "integer" },
+        }
+    }
+}