GET-PUSH-BUTTON-LABEL ===================== Syntax: (get-push-button-label <babylon-push-button>) Diese Funktion liefert die Aufschrift des Push- Buttons. Beispiel: >(define-task LABEL-DEMO-TASK (interface) :documentation "Dies ist eine Demo" actions (setf new-text-label (kb-prompt "Wie soll der neue push-button ~s heißen? ~%" "bitte drücken")) (if (stringp new-text-label) (set-push-button-label (get-window-element interface "PB1") new-text-label) (kb-format "Die Eingabe ~s war falsch! bitte geben Sie beim nächsten Mal eine Zeichenkette ein!" new-text-label)) (kb-format "~10T- der Push-Button heißt ~s~%" (get-push-button-label (get-window-element interface "PB1"))))