LispWorks CAPI/Créer une simple fenêtre/Affichage et saisie de texte/Zone de texte

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

Lorsque vous voulez qu'un utilisateur entre du texte à l'écran (par exemple pour la recherche d'un mot), l'utilisation d'une zone de texte est devient une solution.

(setq texte (make-instance 'text-input-pane
                           :title "Recherche: "
                           :callback 'test-callback))

(contain text)

Veuillez noter que la position par défaut du titre est à gauche du text-input-pane.

Vous pouvez aussi ajouter du texte à l'intérieur de la zone de texte à l'aide de l'argument :text. Il est aussi possible de modifier ce texte en utilisant (setf text-input-pane-text) dans la fonction appropriée.

Il est aussi possible d'ajouter une barre-d'outils à l'aide de l'argument :buttons. Dans l'exemple si dessous, l'utilisateur peut chercher un fichier de type lisp en cliquant sur l'icone du dossier­.

(capi:contain 
 (make-instance 
  'capi:text-input-pane 
  :buttons 
  (list :cancel t
        :ok nil
        :browse-file 
        (list :operation :open
              :filter "*.LISP;*.LSP"))))