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

Un livre de Wikilivres.
Sauter à la navigation Sauter à la recherche
LispWorks CAPI
LispWorks CAPI
Sommaire

Modifier ce modèle

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 modifier pour permettre qu'il soit choisi ou non. Ceci peut être utile pour désactiver le boutons lors de certaine situation

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.