From 5fd755bee4b8869dd78d4d264c41ae08da48923f Mon Sep 17 00:00:00 2001
From: Context Git Mirror Bot <phg42.2a@gmail.com>
Date: Fri, 13 May 2016 00:54:26 +0200
Subject: 2016-05-12 23:53:00

---
 tex/context/base/mkiv/pack-rul.mkiv | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

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

diff --git a/tex/context/base/mkiv/pack-rul.mkiv b/tex/context/base/mkiv/pack-rul.mkiv
index c8288586f..635863302 100644
--- a/tex/context/base/mkiv/pack-rul.mkiv
+++ b/tex/context/base/mkiv/pack-rul.mkiv
@@ -2727,6 +2727,8 @@
      {\pack_framed_text_start_continue\empty{#1}}
      {\pack_framed_text_start_continue{#1}{#2}}}
 
+% todo: sort out first/lastline ht/dp
+
 \def\pack_framed_text_start_continue#1#2%
   {\setupframedtexts[\currentframedtext][#2]%
    \doifsomething{#1}{\setframedtextparameter\c!location{#1}}% does not listen to #3
@@ -2739,10 +2741,10 @@
        \hsize\localhsize
     %  \insidefloattrue % ? better
        \usebodyfontparameter\framedtextparameter
+    %  \edef\p_framed_text_strut{\letframedtextparameter\c!strut}% to be used
        \letframedtextparameter\c!strut\v!no
        \inheritedframedtextframed\bgroup
          \let\\=\endgraf
-         \framedtextparameter\c!inner % oud spul
          \edef\p_framed_text_depthcorrection{\framedtextparameter\c!depthcorrection}%
          \ifx\p_framed_text_depthcorrection\v!on
             \pack_framed_text_start_depth_correction
@@ -2753,6 +2755,7 @@
          \doinhibitblank
          \useindentingparameter\framedtextparameter
          \useframedtextstyleandcolor\c!style\c!color
+         \framedtextparameter\c!inner
          \ignorespaces}
 
 % testcase 1:
@@ -2855,17 +2858,26 @@
 
 \def\pack_framed_text_start_direct[#1]%
   {\usebodyfontparameter\framedtextparameter
-   \letframedtextparameter\c!strut\v!no
    \iffirstargument
      \setupcurrentframedtext[#1]%
    \fi
+   \edef\p_framed_text_strut{\letframedtextparameter\c!strut}%
+   \letframedtextparameter\c!strut\v!no
    \inheritedframedtextframed\bgroup
      \blank[\v!disable]%
      \let\\=\endgraf
-     \framedtextparameter\c!inner
      \useframedtextstyleandcolor\c!style\c!color
+     \vskip-\strutdp % brrr why is this needed ... needs to be sorted out, see testcase 1
+     \framedtextparameter\c!inner
+     \ifx\p_framed_text_strut\v!no
+        \let\pack_framed_strut\relax
+     \else
+        \let\pack_framed_strut\strut
+     \fi
      \bgroup
      \aftergroup\pack_framed_text_stop_direct
+     \afterassignment\ignorespaces
+     \afterassignment\pack_framed_strut
      \let\next=}
 
 \def\pack_framed_text_stop_direct
-- 
cgit v1.2.3