From 3668eb2ecc0f7dcc6c44fd1e971cbe37fa010fd6 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Fri, 2 Aug 2019 21:03:52 +0200
Subject: 2019-08-02 19:47:00

---
 tex/context/base/mkiv/supp-box.lua | 30 ++++++++++++++++++++++++------
 1 file changed, 24 insertions(+), 6 deletions(-)

(limited to 'tex/context/base/mkiv/supp-box.lua')

diff --git a/tex/context/base/mkiv/supp-box.lua b/tex/context/base/mkiv/supp-box.lua
index 1f31f7681..f2da9155b 100644
--- a/tex/context/base/mkiv/supp-box.lua
+++ b/tex/context/base/mkiv/supp-box.lua
@@ -12,13 +12,13 @@ local report_hyphenation = logs.reporter("languages","hyphenation")
 
 local tonumber, next, type = tonumber, next, type
 
-local lpegmatch       = lpeg.match
+local lpegmatch     = lpeg.match
 
-local tex             = tex
-local context         = context
-local nodes           = nodes
+local tex           = tex
+local context       = context
+local nodes         = nodes
 
-local implement       = interfaces.implement
+local implement     = interfaces.implement
 
 local nodecodes     = nodes.nodecodes
 
@@ -625,8 +625,26 @@ implement {
     end
 }
 
-interfaces.implement {
+implement {
     name      = "shiftbox",
     arguments = { "integer", "dimension" },
     actions   = function(n,d) setshift(getbox(n),d) end,
 }
+
+implement {
+    name      = "scangivendimensions",
+    public    = true,
+    protected = true,
+    arguments = {
+        {
+            { "width",  "dimension" },
+            { "height", "dimension" },
+            { "depth",  "dimension" },
+        },
+    },
+    actions   = function(t)
+        texsetdimen("givenwidth", t.width  or 0)
+        texsetdimen("givenheight",t.height or 0)
+        texsetdimen("givendepth", t.depth  or 0)
+    end,
+}
-- 
cgit v1.2.3