% \subsubsection{Leashes}
% \DescribeEnv{leash}{Put content inside a scrollable box.}
%    \begin{macrocode}
%<*classXimera>

\newenvironment{leash}[1]{%
}{%
}


%</classXimera>
%    \end{macrocode}

%    \begin{macrocode}
%<*htXimera>
\renewenvironment{leash}[1]{\ifvmode \IgnorePar\fi \EndP\HCode{<div style="overflow: auto; height: #1px">}}{\HCode{</div>}\IgnoreIndent}
%</htXimera>
%    \end{macrocode}
