[dev-context] m-educat.mkiv

[Wolfgang Schuster]

Hi,

\def\doanswerspace[#1]%
  {\begingroup
   \dontcomplain
   \setupanswerarea
     [\c!n=0,\c!m=,#1,\c!location=\v!text]%
+  \let\currenttextbackground\v!answerarea
   \doifelsenothing{\textbackgroundparameter\c!m}
     {\expandafter\donoanswerspace}
     {\expandafter\dodoanswerspace}%
   [#1]}

\def\dostartanswerlines[#1]%
  {\begingroup
   \dontcomplain
   \setupanswerarea
     [\c!n=0,\c!m=,#1,\c!location=\v!text]%
+  \let\currenttextbackground\v!answerarea
   \doifnot{\textbackgroundparameter\c!option}\v!joinedup\softbreak
   \doifelsenothing{\textbackgroundparameter\c!m}
     {\expandafter\donostartanswerlines}
     {\expandafter\dodostartanswerlines}%
   [#1]}

Wolfgang
_______________________________________________
dev-context mailing list
dev-context@ntg.nl
https://mailman.ntg.nl/mailman/listinfo/dev-context