LispWorks CAPI/Créer une simple fenêtre/Divers éléments du bouton/Push Buttons

Vous avez surement déjà vu les push buttons dans des pages précédentes, alors je ne m'attarderai pas à expliquer ce qu'est c'est. Le mot clé :enabled peut être modifié pour permettre qu'il soit choisi ou non. Ceci peut être utile pour désactiver le boutons lors de certaine situation

LispWorks CAPI
LispWorks CAPI
Sommaire
Accueil Liste de nouveautés Préface 1. Introduction au CAPI 2. Pour débuter 3. Considérations générales 4. Créer une fenêtre simple 5. Créer des fenêtres avec des choix 6. Aménagement des panneaux du CAPI 7. Modifier la fenêtre CAPI 8. Créer des menus 9. Définir une classe d'interface 10. Incitation à l'entrée 11. Créer sa propre fenêtre 12. Ports graphiques 13. Couleur du système 14. Imprimer à partir du CAPI
Modifier ce modèle

Le code suivant permet de créé un bouton qui ne peut être sélectionné.

(setq offbutton (make-instance 'push-button
                   :data "Button"
                   :enabled nil))
(contain offbutton)

Vous pouver utiliser ces deux exemple activer et desactiver le précédent bouton.

(apply-in-pane-process
 offbutton #'(setf button-enabled) t offbutton)

(apply-in-pane-process
 offbutton #'(setf button-enabled) nil offbutton)

Tous les sous classes de bouton fonctionne de cette façon.