Re: A change in textext Metafun maco?

[Michal Kvasnicka <quasar@econ.muni.cz>]

[-- Attachment #1: Type: text/plain, Size: 218 bytes --]

Good evening.

I can't find the reason of the bug. So I send a minimal test file. The problem 
is, that the frame has title "unkonwn", not "Example" as I expected. Many 
thanks for your help. 

Michal Kvasnicka

[-- Attachment #2: smalltest.tex --]
[-- Type: text/x-tex, Size: 1708 bytes --]

% interface=english, output=pdf

\startMPinclusions
  verbatimtex
    \definefontsynonym [Serif]            [cmr10]
    \definefontsynonym [SerifBold]        [cmbx10]
    \definefontsynonym [SerifItalic]      [cmti10]
    \definefontsynonym [SerifSlanted]     [cmti10]
    \definefontsynonym [SerifBoldItalic]  [cmbxti10]
    \definefontsynonym [SerifBoldSlanted] [cmbxti10]
    \definefontsynonym [SerifCaps]        [cmr10]
    \definefontsynonym [SansItalic]       [txsssl8z]
   \definebodyfont [14.4pt,12pt,11pt,10pt,9pt,8pt,7pt,6pt,5pt]
        [rm] [default]
   \setupbodyfont[10pt]
   \setupinterlinespace[line=13pt]
 etex
\stopMPinclusions

\startuseMPgraphic{FunnyFrame} 
  picture pic; 
  numeric w, h, o; 
  pic:=textext.rt(\MPstring{FunnyFrame}); 
  w:=\overlaywidth;
  h:=\overlayheight;
  o:=BodyFontSize; 
  pic:=pic shifted (1.5o,h-ypart center pic); 
  fill boundingbox pic withcolor white;
  draw pic; 
  drawoptions (withpen pencircle scaled 1pt);% withcolor .625red); 
  draw (1.5o,h)--(0,h)--(0,0)--(w,0)--(w,h)--(xpart urcorner pic,h);
  draw boundingbox pic; 
  setbounds currentpicture to unitsquare xyscaled(w,h); 
\stopuseMPgraphic

\defineoverlay[FunnyFrame][\useMPgraphic{FunnyFrame}] 
\defineframedtext[FunnyText]
  [width=broad,height=fit,before={\blank[line]},after={\blank[line]},
   frame=off,background=FunnyFrame]
\def\FrameTitle#1{%
  \setMPtext{FunnyFrame}{\hbox spread 1em{\hss\ss\bfx\strut#1\hss}}}
\setMPtext{FunnyFrame}{}

\def\startexample{%
  \FrameTitle{Example}
  \startFunnyText
}
\def\stopexample{%
  \stopFunnyText
}



\starttext
\input tufte
\input tufte
\input tufte

\startexample
\input tufte
\stopexample

\input tufte
\input tufte
\input tufte
\stoptext