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

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

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"))))