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)))))