From 6932ea879b43b36d023797e18b8bdcfc8cef05ba Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Thu, 6 Aug 2020 19:42:33 +0200
Subject: 2020-08-06 18:58:00

---
 tex/context/base/mkiv/pack-rul.mkxl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'tex/context/base/mkiv/pack-rul.mkxl')

diff --git a/tex/context/base/mkiv/pack-rul.mkxl b/tex/context/base/mkiv/pack-rul.mkxl
index 3afd09c79..69050d1fa 100644
--- a/tex/context/base/mkiv/pack-rul.mkxl
+++ b/tex/context/base/mkiv/pack-rul.mkxl
@@ -1457,6 +1457,15 @@
   {\profilegivenbox\p_profile\b_framed_normal
    \setbox\b_framed_normal\vpack{\unvbox\b_framed_normal}}
 
+\def\pack_framed_reverse_box
+  {\ifvbox\b_framed_normal
+     \edef\p_linedirection{\framedparameter\c!linedirection}%
+     \ifx\p_linedirection\v!reverse
+       \reversevboxcontent\b_framed_normal
+       \setbox\b_framed_normal\vpack{\unvbox\b_framed_normal}%
+     \fi
+   \fi}
+
 \unexpanded\def\pack_framed_finish
   {%\pack_framed_stop_orientation % hm, wrong place ! should rotate the result (after reshape) .. moved down
    \pack_framed_locator_before\p_framed_location
@@ -1467,6 +1476,9 @@
     %    \pack_framed_profile_box
     %  \fi
     %\fi
+     \ifempty\p_framed_anchoring\else
+       \pack_framed_reverse_box
+     \fi
      \ifx\p_framed_autowidth\v!force
        \pack_framed_finish_a
      \orelse\ifx\localwidth\v!fit
@@ -1539,6 +1551,7 @@
    \fi
    %
    \ifx\postprocessframebox\relax \else
+     % better: \pushmacro\\postprocessframebox etc
      \let\next\postprocessframebox
      \let\postprocessframebox\relax % prevent nesting
      \next\b_framed_normal
-- 
cgit v1.2.3