SET-PUSH-BUTTON-SENSITIVITY
===========================

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

Diese Funktion bestimmt darüber, ob ein Button 
empfindlich oder unempfindlich erscheint. Der
Standardwert ist T (Empfindlich).

Beispiel: >(define-task SENSITIVE-DEMO-TASK
              (interface)
              :documentation "Dies ist ein Demo"
              actions
              (set-push-button-sensitivity)
              (get-window-element interface "PB1")
              nil)
              (kb-notify "Der Push-Button ist 
	       unempfindlich ?~%")
              (set-push-button-sensitivity)
              (get-window-element interface "PB1") t)
              (kb-notify "Der Push-Button ist 
              empfindlich ?~%")