How to put title and counter of the enumeration env. in the FrameTitle?

[Jeong Dal <haksan@me.com>]

[-- Attachment #1.1: Type: text/plain, Size: 2365 bytes --]

Hi,

I use the FunnyFrame and FrameTitle in the metafun book to display theorems.
Thanks ConTeXt and MetaFun, it looks nice!
For better output,  I try to put “Theorem + number” in the FrameTitle instead of putting in the main text. But I couldn’t make it.
I found a similar question and answers by Hans in the list (2015. 8.6-7) under the title 
“Some questions about an environment (Metafun)”

It works fine but I want to put number too. I think that I want to much.

Thanks for reading.

Best regards,

Dalyoung

I am using the following code.

%%%%%%%%%%%%
\defineenumeration[Theorem]
   [%text=Theorem ,
    style=,
%    title=yes,
    prefix=yes,
    prefixsegments=chapter,
    way=bychapter,
    number=yes,
    before={\blank[big]},
    after=\blank]

\defineenumeration[Definition]
   [text=Definition,
    style=,
%    title=yes,
    prefix=yes,
    prefixsegments=chapter,
    way=bychapter,
    number=yes,
    before={\blank[big]},
    after=\blank]

\startuseMPgraphic{FunnyFrame} 
picture p ; numeric o ; path a, b ; pair c ; 
p := textext.rt(\MPstring{FunnyFrame}) ; 
o := BodyFontSize ; 
a := unitsquare xyscaled (OverlayWidth,OverlayHeight) ; 
p := p shifted (2o,OverlayHeight-ypart center p) ; 
drawoptions (withpen pencircle scaled 1pt withcolor .625red) ; 
b := a superellipsed .95 ; 
%fill b withcolor .85white ; 
draw b ; 
b := (boundingbox p) superellipsed .95 ; 
fill b withcolor .425green;%.85white ; 
draw b ; 
draw p withcolor black ;
setbounds currentpicture to a ; 
\stopuseMPgraphic 

\defineoverlay[FunnyFrame][\useMPgraphic{FunnyFrame}] 
\defineframedtext[FunnyText][frame=off,background=FunnyFrame, offset=\bodyfontsize, width=\textwidth]%\overlaywidth]%
\def\StTheorem{\startFunnyText\startTheorem} 
\def\SpTheorem {\stopTheorem\stopFunnyText } 
\def\FrameTitle#1% 
{\setMPtext{FunnyFrame}{\hbox spread 1em{\hss\strut\ss\bf\white #1\hss}}} 

\starttext
This is a test for Framed Theorem.

\StTheorem
This is a theorem in the Funny Frame. 
\SpTheorem


I'd like to put \quote{Theorem \#1(Some Title)} in a small frame and the main text in the big frame.

\blank[big]

{\FrameTitle{Theorem 2(Title of Theorem)} 
\StTheorem
I want to show the main text without \quote{Theorem 2} in this frame.
\SpTheorem

\stoptext

%%%%%%%%%%%%%%%%%%


[-- Attachment #1.2: Type: text/html, Size: 5601 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________