MAKE-BABYLON-PUSH-BUTTON
========================

Syntax: (make-babylon-push-button <Interface>
           <WName> <xPos> <yPos> <Breite> <Höhe>
           <Aufschrift> <Schriftfont> <Farbe> 
           &Optional <Aktion> &Rest <Arg>)

Diese Funktion definiert einen "Push-Button" für die 
Oberfläche. <WName> ist für den Namen des Buttons. 
<xPos> und <yPos> geben die Position der oberen linken 
Ecke an. <Breite> und <Höhe> geben die Breite und Höhe 
des Buttons an. <Aufschrift> ist der Text auf dem
Button. <Schriftfont> und <Farbe> werden durch Babylon
v3 nicht unterstützt. <Aktion> beschreibt die Task,
die bei drücken der Taste gestartet wird. Der er-
zeugte Push-Button erscheint im Interface.

Beispiel: >(defun make-kb-interface (interface)
              (add-window-elements
              interface
              (list
              (make-babylon-push-button interface
              "TASTE1" 400 300 100 50
              "OPTIONEN" nil nil
              '(start 'optionen-task interface)))))