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

Un livre de Wikilivres.
LispWorks CAPI
LispWorks CAPI
LispWorks CAPI
Sommaire

Modifier ce modèle

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

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