pack-rul.mkiv

22 Jul 2016


      Hi,

\def\pack_framed_text_start_direct[#1]%
   {\usebodyfontparameter\framedtextparameter
    \iffirstargument
      \setupcurrentframedtext[#1]%
    \fi
-  \edef\p_framed_text_strut{\letframedtextparameter\c!strut}%
+  \edef\p_framed_text_strut{\framedtextparameter\c!strut}%
    \letframedtextparameter\c!strut\v!no
    \inheritedframedtextframed\bgroup
      \blank[\v!disable]%
      \let\\=\endgraf
      \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=}

Wolfgang

Wolfgang Schuster

tags

participants (1)