Text next to a label (Metafun)

Text next to a label (Metafun)

[Fabrice Couvreur]

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

Hi,
Is it possible to add to the right of label text ("Lire des coordonnées")
indicating the title of the method ?
Thanks,
Fabrice

\setupcolors[state=start]

\def\point#1#2{\bigl(#1\,;#2\bigr)}

\definecolor[MyColorA][c=0.3, m=0.00, y=0.00, k=0.05]

\definecolor[MyColorB][c=0.6, m=0.00, y=0.00, k=0.10]


\definemixedcolumns
  [myColumn]
  [n=2,
   separator=rule,
   rulecolor=MyColorA,
   rulethickness=1pt,
   balance=yes]

\setupalign[verytolerant,stretch,hanging]


\defineoverlay
  [Funny]
  [\useMPgraphic{Funny}]

\definelabel
  [Méthode]
  [headstyle=\bf\smallcaps]

\startuseMPgraphic{Funny}
    interim linejoin := mitered ;
    interim linecap := squared ;
    path b ;
    picture p ;
    p := textext.rt("\white\Méthode") ;
    p := p shifted (0,OverlayHeight) ;
    b := boundingbox p ;
    drawoptions (withpen pencircle scaled 3mm withcolor \MPcolor{MyColorA})
;
    draw leftboundary OverlayBox ;
    fill b withcolor \MPcolor{MyColorB} ;
    draw p ;
    setbounds currentpicture to OverlayBox ;
\stopuseMPgraphic

\defineframedtext
  [Methode]
  [before={\blank},
   after={\blank},
   frame=off,
   background=Funny,
   width=\textwidth,
   height=fit,
   ]

\starttext

\startMethode

\startmyColumn

Le plan est muni d'un repère orthonormé $\bigl(O\,;I,J\bigr)$ d'unité
\unit{1 cm}.
\blank
\startitemize[n][stopper=),style=bold]
\item Placer les points $D$ et $E$ de coordonnées respectives
$\point{4}{-3}$ et $\point{-2}{3}$.
\item Construire un point $F$ tel que $EDF$ soit équilatéral.
\item Lire les coordonnées du point $F$.
\item Construire le symétrique de $E$ par rapport à $F$.
\item Lire ses coordonnées.
\stopitemize

\column
Correction ...
\stopmyColumn


\stopMethode

\stoptext

[-- Attachment #1.2: Type: text/html, Size: 2370 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
___________________________________________________________________________________