LispWorks CAPI/Créer des menus/Création d'un menu

Un menu peut être créé de la même façon que tout les classe CAPI que vous avez déjà vu.

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

Entrez le code suivant dans le Listener.

(make-instance 'menu
    :title "Foo"
    :items '("Un" "Deux" "Trois" "Quatre")
    :callback 'test-callback)
(make-instance 'interface
    :menu-bar-items (list *))
(display *)

Ceci va créé une fenêtre CAPI dans lequel un menu, Foo, contiendra les quatre éléments. Choisir un de ces éléments affichera ses arguments. Chaque éléments possède un callback qui peut être spécifié à l'aide du mot clé :callback.

Un sous menu peut être créé en spécifiant cemenu comme étant un élément d'un menu père (pensez à de l'hiérarchie).

Entrer ce code suivant de le Listener:

(make-instance 'menu
    :title "Bar"
    :items '("Un" "Deux" "Trois" "Quatre")
    :callback 'test-callback)

(make-instance 'menu
    :title "Baz"
    :items (list 1 2 * 4 5)
    :callback 'test-callback)

(contain *)

Cet exemple créer un interface dans lequel le menu est appellé Baz (celui-ci contient cinq éléments). Le troisième élément est un deuxième menu, Bar, qui contient quatre éléments. Comme toujours, la sélection d'un des éléments appellera ses arguments.

Les menu peuvent être créé aussi profond que vous le voulez de cette façon. Cependant une meilleur approche sera discuté dans la section 8.4