[dev-context] \sometxt{broken} withcolor \MPcolor{currentcolor}

[Hans Hagen]

Mojca Miklavec wrote:
> Hello Hans,
>
> the following code doesn't work any more:
>
> \setupcolors[state=start]
>
> \starttext
> \startMPcode
> draw \sometxt{abc} withcolor \MPcolor{currentcolor};
> \stopMPcode
> \stoptext
>
> If I say \color[red]{\startMPcode ... \stopMPcode} then it's OK, but
> the "default" isn't.
>
> Thanks a lot,
>   
mojca proof: (colo-ini):

\letvalue{\??cl*\s!black}\s!black

\def\currentcolorname
  {\csname
     \ifcsname\@@currentcolorname\endcsname
       \expandafter\ifx\csname\@@currentcolorname\endcsname\empty
         \??cl*\s!black
       \else
         \@@currentcolorname
       \fi
     \else
       \??cl*\s!black
     \fi
   \endcsname}

-- 

-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com
                                             | www.pragma-pod.nl
-----------------------------------------------------------------