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