diff options
Diffstat (limited to 'tex/context/base/mkiv/supp-box.lua')
-rw-r--r-- | tex/context/base/mkiv/supp-box.lua | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tex/context/base/mkiv/supp-box.lua b/tex/context/base/mkiv/supp-box.lua index 323274bea..d957376d0 100644 --- a/tex/context/base/mkiv/supp-box.lua +++ b/tex/context/base/mkiv/supp-box.lua @@ -68,6 +68,7 @@ local copy_list = nuts.copy_list local find_tail = nuts.tail local getdimensions = nuts.dimensions local hpack = nuts.hpack +local vpack = nuts.vpack local traverse_id = nuts.traverse_id local free = nuts.free local findtail = nuts.tail @@ -635,9 +636,17 @@ implement { implement { name = "shiftbox", arguments = { "integer", "dimension" }, - actions = function(n,d) setshift(getbox(n),d) end, + actions = function(n,d) + setshift(getbox(n),d) + end, } +implement { name = "vpackbox", arguments = "integer", actions = function(n) setbox(n,(vpack(takebox(n)))) end } +implement { name = "hpackbox", arguments = "integer", actions = function(n) setbox(n,(hpack(takebox(n)))) end } + +implement { name = "vpackedbox", arguments = "integer", actions = function(n) context(vpack(takebox(n))) end } +implement { name = "hpackedbox", arguments = "integer", actions = function(n) context(hpack(takebox(n))) end } + implement { name = "scangivendimensions", public = true, |