SET-GRAPHIC-BUTTON-SENSITIVITY
==============================

Syntax: (set-graphic-button-sensitivity 
           <babylon-push-button> <T | NIL>)

Diese Funktion macht den Push-Button empfindlich oder 
unempfindlich. Der Standard-Wert ist T (empfindlich).

Beispiel: >(define-task SENSITIVE-DEMO-TASK
              (interface)
              :documentation "Dies ist eine Demo"
              actions
              (set-graphic-button-sensitivity
              (get-window-element interface
              "GRAPHPB1") nil)
              (kb-notify "Der Graphic-Button ist 
              unempfindlich ?~%")
              (set-graphic-button-sensitivity
              (get-window-element interface
              "GRAPHPB1") t)
              (kb-notify "Der Graphic-Button ist
              wieder empfindlich ?~%"))