%  QUESTION.STY
%  Erzeugt Sammlungen von Fragen und Antworten
\RequirePackage{ifthen}
\newsavebox{\collect}

\@ifundefined{chapter}
 {\newcounter{question}
  \renewcommand{\thequestion}
    {\arabic{question}}}
 {\newcounter{question}[chapter]
  \renewcommand{\thequestion}
    {\thechapter-\arabic{question}}
  \newcommand{\p@questioncnt}
    {\thechapter-}}

%  Sammelt die Antworten, die zunaechst in Box \tmp
%  erstellt werden, in \collect zum Drucken.
% Umgebung fuer die Fragen
\newenvironment{question}[1][]
{\begin{trivlist}\item[]\refstepcounter{question}
\makebox{\bfseries $\triangleright~$%
  Frage~\thequestion%
  \ifthenelse{\equal{#1}{}}%
  {}{~(#1)}\hspace{0,5em}}
}
{\end{trivlist}}

% Umgebung fuer die Loesungen
\newenvironment{answer}[1][]
{\global\setbox\collect=\vbox\bgroup
  \unvbox\collect
  \begin{trivlist}\item[]
  \makebox{\bfseries $\triangleright~$%
    Antwort~\thequestion%
   \ifthenelse{\equal{#1}{}}{}{~(#1)}\hspace{0,5em}}
}
{\end{trivlist}\egroup}

\newenvironment{answer*}[1][]
{\global\setbox\collect=\vbox\bgroup
  \unvbox\collect
  \begin{trivlist}\item[]
  \makebox{\bfseries $\triangleright$~%%
  \ifthenelse{\equal{#1}{}}{Antwort}{#1}\hspace{0,5em}}
}
{\end{trivlist}\egroup}

% chapter* als Gliederung der Loesungen sowie
% Text der Standardueberschrift
\@ifundefined{chapter}
{\newcommand{\questionhead}[1]{\section*{#1}}}
{\newcommand{\questionhead}[1]{\chapter*{#1}}}
\newcommand{\qheadtitle}{Antworten zu den Fragen}

% drucke die Antwortenbox
\newcommand{\printanswers}[1][\qheadtitle]
{\questionhead{#1}
 \unvbox\collect
}