"Fossies" - the Fresh Open Source Software archive 
Member "dbox-2.41/doc/macro.tex" of archive dbox-2.41.tgz:
%Für Stellen die noch einmal überarbeitet werden, sollte im Enddokument nicht auftauchen
\newcommand\snoopy{???}
%Linksausgerichtete par-Box einer Tabelle
\newcolumntype{v} [1] {>{\raggedright \hspace{0pt}} p{#1}}%Linksbündige Box
%Hintergrundfarbe der Listings
\definecolor{lightgray}{rgb}{0.75,0.75,0.75}
%Hier einige Definitionen für die Listing-Umgebung
% `Hintergrund'
% i\Snoopy rgendwas klappt noch nicht, weiße Linien sind beim Umbruch zu sehen und
% die Unterlängen stimmen nicht
%\makeatletter
%\lst@AddToHook{EveryLine}%
% {\rlap{\kern-\fboxsep%
% \smash{\colorbox{lightgray}{\hbox to\linewidth{\strut\hss}}}}}
%\makeatother
% Rahmen
\lstset{frame=trbl, frametextsep=\fboxsep}% sonst gibt's weissen Rand
% verbatim-like Listings einstellen
\lstset{basewidth=0.575em,%
basicstyle=\ttfamily,%
stringstyle=\ttfamily,%
commentstyle=\ttfamily}
\lstset{breaklines=true,%
breakindent=0pt,%
extendedchars=true}
%Macro um in Zukunft den Programmnamen ggf. anders setzen zu können
\newcommand{\dbox}{dbox\xspace}
%#################################################
%######### Macros um die Tasten darstellen zu können ###
%#################################################
\newbox\mybox%
\newcount\laenge%
\newcount\laengehalbe%
\newcommand{\taste}[1] {\texttt{%
\setbox\mybox=%
\hbox{\footnotesize #1}%
\laenge=\wd\mybox%
\advance\laenge by 370000%
\laengehalbe=\laenge%
\divide \laengehalbe by 2%
\unitlength1sp%
\begin{picture}(\laenge,600000)(0, 140000)%
\put(\laengehalbe, 300000){\oval(\laenge, 600000)}%
\put(185000, 140000){\unhbox\mybox}%
\end{picture}}}
%%
%% Tastenabkürzungen
%%
\newcommand{\Space} {\taste{\,\,\,\,Space\,\,\,\,}\xspace}
\newcommand{\Enter} {\taste{Enter}\xspace}
\newcommand{\Return} {\taste{\begin{large}$\hookleftarrow$\end{large}}\xspace}
\newcommand{\Tab} {\taste{Tab}\xspace}
\newcommand{\BS} {\taste{\raisebox{1ex}{\rotatebox{+180}{$\longmapsto$}}}\xspace}
\newcommand{\Esc} {\taste{Esc}\xspace}
\newcommand{\Alt} {\taste{Alt}\xspace}
\newcommand{\Altgr} {\taste{AltGr}\xspace}
\newcommand{\Shift} {\taste{Shift}\xspace}
\newcommand{\NumLock}{\taste{Num}\xspace}
\newcommand{\PfeilUp} {\taste{$\;\uparrow\;$}\xspace}
\newcommand{\PfeilDown} {\taste{$\;\downarrow\;$}\xspace}
\newcommand{\PfeilLeft} {\taste{$\leftarrow$}\xspace}
\newcommand{\PfeilRight} {\taste{$\rightarrow$}\xspace}
\newcommand{\Strg} {\taste{Strg\xspace}}
\newcommand{\Ctrl} {\taste{Ctrl}\xspace}
\newcommand{\Entf} {\taste{Entf}\xspace}
\newcommand{\Del} {\taste{Del}\xspace}
\newcommand{\Einfg} {\taste{Einfg}\xspace}
\newcommand{\Ende} {\taste{Ende}\xspace}
\newcommand{\Pos} {\taste{Pos1}\xspace}
\newcommand{\Home} {\taste{Home}\xspace}
\newcommand{\BildUp}{\taste{Bild $\uparrow$}\xspace}
\newcommand{\BildDown} {\taste{Bild $\downarrow$}\xspace}
%\def\cs#1{{\ttfamily\expandafter\string\csname #1\endcsname}}
%Nun noch einige Längendefinitionen:
\setlength{\parskip}{2ex plus0.2ex minus0.2ex}
\setlength{\itemsep}{0ex plus0.5ex minus0.2ex}
\setlength{\parindent}{0mm}%Ich hasse eingezogene Absätze
\setcounter{tocdepth}{1}