beta 2013.05.15 09:58

1 files changed, 31 insertions, 8 deletions

diff --git a/tex/context/base/pack-rul.mkiv b/tex/context/base/pack-rul.mkiv
index 7b040a400..f2b332b14 100644
--- a/tex/context/base/pack-rul.mkiv
+++ b/tex/context/base/pack-rul.mkiv
@@ -567,7 +567,7 @@
   {\anch_mark_region_box\b_framed_normal}
 
 \def\pack_framed_add_background
-  {\setbox\b_framed_normal\hbox % was vbox
+  {\setbox\b_framed_normal\hbox % was vbox % see also *1*
      {%\pack_framed_forgetall % can be relaxed
       \boxmaxdepth\maxdimen
       \framedbackgroundoffset\d_framed_backgroundoffset
@@ -1510,20 +1510,43 @@
 %   \framed[width=2cm,align=middle,location=middle] {location\\equals\\middle}
 %   B}
 
-\installframedlocator \v!hanging % best with strut=no
+% \installframedlocator \v!hanging % best with strut=no
+%   {}
+%   {\dp\b_framed_normal\ht\b_framed_normal
+%    \ht\b_framed_normal\zeropoint}
+%
+% \installframedlocator \v!depth
+%   {}
+%   {\ht\b_framed_normal\dimexpr\ht\b_framed_normal-\strutdp\relax
+%    \dp\b_framed_normal\strutdp
+%    \box\b_framed_normal}
+%
+% \installframedlocator \v!height
+%   {}
+%   {\dp\b_framed_normal\dimexpr\ht\b_framed_normal-\strutht\relax
+%    \ht\b_framed_normal\strutht
+%    \box\b_framed_normal}
+
+\installframedlocator \v!hanging % best with strut=no *1* / see mail to list by SB
   {}
-  {\dp\b_framed_normal\ht\b_framed_normal
-   \ht\b_framed_normal\zeropoint}
+  {\scratchdimen\ht\b_framed_normal
+   \setbox\b_framed_normal\hbox{\lower\scratchdimen\box\b_framed_normal}%
+   \dp\b_framed_normal\scratchdimen
+   \ht\b_framed_normal\zeropoint
+   \box\b_framed_normal}
 
-\installframedlocator \v!depth
+\installframedlocator \v!depth % *1*
   {}
-  {\ht\b_framed_normal\dimexpr\ht\b_framed_normal-\strutdp\relax
+  {\setbox\b_framed_normal\hbox{\lower\strutdp\box\b_framed_normal}%
+   \ht\b_framed_normal\dimexpr\ht\b_framed_normal-\strutdp\relax
    \dp\b_framed_normal\strutdp
    \box\b_framed_normal}
 
-\installframedlocator \v!height
+\installframedlocator \v!height % *1*
   {}
-  {\dp\b_framed_normal\dimexpr\ht\b_framed_normal-\strutht\relax
+  {\scratchdimen\dimexpr \ht\b_framed_normal - \strutht \relax
+   \setbox\b_framed_normal\hbox{\lower\scratchdimen\box\b_framed_normal}%
+   \dp\b_framed_normal\dimexpr\ht\b_framed_normal-\strutht\relax
    \ht\b_framed_normal\strutht
    \box\b_framed_normal}