source: JEM-EUSO/esaf_lal/tags/v1_r0/esafdoc/UserGuide/esaf.sty @ 117

% Support package for ESAF User Guide
% $Id: esaf.sty 2441 2006-02-01 08:29:07Z thea $
% Alessandro Thea - created

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{esaf}
        [2004/02/26 v0.1
    `esaf' verbatim facilities%
                   ]
%\@ifundefined{VerbatimEnvironment}{\RequirePackage{fancybox}}{}
\@ifundefined{DefineVerbatimEnvironment}{\RequirePackage{fancyvrb}}{}
\@ifundefined{FrameCommand}{\RequirePackage{framed}}{}

\def\code#1{\texttt{#1}}

%\DefineVerbatimEnvironment%
%    {displaycode}{Verbatim}{fontsize=\footnotesize, frame=single, framerule=0.4mm, framesep=2mm, resetmargins=true}

\newenvironment{lined}[1]%
 {\begin{center}\begin{minipage}{#1}\hrule\medskip}
  {\vspace{-1ex}\hrule \end{minipage}\end{center}}

\setlength{\FrameRule}{0.4mm}
\setlength{\FrameSep}{3pt}

\newlength{\VerbBackVSpace}
\setlength{\VerbBackVSpace}{4pt}% 11pt

\newenvironment{displaycode}%    
{
\VerbatimEnvironment%
\begin{contlabelframe}{}
\vspace{-\VerbBackVSpace}
\begin{Verbatim}[fontsize=\footnotesize, resetmargins=true,framesep=0mm]}%, frame=single, framerule=0.4mm, framesep=2mm]%
{%
\end{Verbatim}%
\vspace{-\VerbBackVSpace}
\end{contlabelframe}%
}


% Frame with a label at top
\newcommand\LabFrame[1]{%
   \fboxrule=\FrameRule
   \fboxsep=\FrameSep
   \fbox{\vbox{\nobreak \vskip-0.7\FrameSep
%               \rlap{\strut#1}\nobreak\nointerlineskip                \vskip0.7\FrameSep
   \ifx\Current@Lab\empty \relax\else%
               \rightline{\strut\Current@Lab}\nobreak\nointerlineskip                \vskip0.7\FrameSep
               \fi%
               \hbox{#1}}}%
}

\makeatletter

% environment contlabelframe has two arguments
% 1: [optional] continuation label
% 2: {required} first label
% Optional continuation label defaults to the first label plus "\ (cont.)"

\newenvironment{contlabelframe}[2][\First@Lab\ \texttt{\itshape(...continued)}]{%
 \def\First@Lab{#2}%
 \def\Contin@Lab{#1}%
 \def\FrameCommand##1{%
   \LabFrame{##1}%
   % Propagate continuation label to main label, for *third* use
   % (first use is a measurement)
   \global\let\Current@Lab\Next@Lab
   \global\let\Next@Lab\Contin@Lab
 }%
 \global\let\Current@Lab\First@Lab
 \global\let\Next@Lab\First@Lab
 \MakeFramed{\advance\hsize-\width \FrameRestore}
}{\endMakeFramed}