[RESOLU] - Boite de dialogue : Choix dans une popup_list

[LElemurien]

Bonjour,

 

Je voudrais savoir si il est possible de mettre en évidence le choix d' un élément de la liste (start_list) mais qui ne soit pas le 1er de cette liste.

 

Exemple je crée une liste (setq list1 (list "10" "20" "30" "40"))

 

Suivant des données entrées en amont dans ma boîte de dialogue je sais qu'il faut que la popup_list montre par exemple 30

 

Comment faire pour que ma popup_list met en évidence 30 et que si je déroule la popup_list cela montre quand même dans l'ordre 10 20 30 40.

 

En espérant que mes explications soit compréhensibles.

 

Merci d'avance

[vincentp010]

Bonjour,

 

Il faut donner la position de la valeur par défaut dans le fichier dcl

Ici j'ai mis value = "3" pour le troisième élément de la liste, soit 30

: popup_list {
   value = "3";
   key = "lstpar";
   height = 15;
   fixed_height = true;
   width = 25;
   fixed_width = true;
}

[LElemurien]

Ok merci je vais regarder tout ça.

 

Je ne cherchais pas au bon endroit alors car j'essaie de trouver une solution dans le fichier LISP et pas dans le fichier DCL.

 

Et la valeur "3" correspond bien au 3 eme de la liste? Ce n'est pas comme l'ordre de la liste de (Start_list) qui commence par 0?

 

Merci je regarde tout ça et vous tiens au courant.

[vincentp010]

Je me suis trompé, ça commence bien à 0, donc j'aurais du mettre 2 dans mon exemple.

Dans le lisp tu peux utiliser (set_tile)

; création de la liste
(start_list "lstpar")
(mapcar 'add_list (mapcar '(lambda (x) (car x)) p_lst))
(end_list)

; selectionne le 3eme élément de la popup_list avec key = "lstpar"
(set_tile "lstpar" "2")

; selectionne le 3eme élément de la popup_list avec key = "lstpar" lors d'un clic sur le boutton avec key = "MACLE"
(action_tile "MACLE" "(set_tile "lstpar" "2")")
  
(start_dialog)

[LElemurien]

Je me suis trompé, ça commence bien à 0, donc j'aurais du mettre 2 dans mon exemple.

Dans le lisp tu peux utiliser (set_tile)

; création de la liste
(start_list "lstpar")
(mapcar 'add_list (mapcar '(lambda (x) (car x)) p_lst))
(end_list)

; selectionne le 3eme élément de la popup_list avec key = "lstpar"
(set_tile "lstpar" "2")

; selectionne le 3eme élément de la popup_list avec key = "lstpar" lors d'un clic sur le boutton avec key = "MACLE"
(action_tile "MACLE" "(set_tile "lstpar" "2")")
  
(start_dialog)

 

Merci c'est parfait,

 

je ne comprenais pas cette ligne : (mapcar 'add_list (mapcar '(lambda (x) (car x)) p_lst))

 

cela me faisait une erreur.

 

Mais je m'en suis sorti grâce à ton aide et tes exemples.

 

Merci encore et bonne journée

[vincentp010]

Ça vient d'un de mes fichiers, je l'avais collé pour l'exemple, c'est normal que ça ne marchait pas chez toi.

Pour toi c'est plutôt:

(mapcar 'add_list (list "10" "20" "30" "40"))

[LElemurien]

Ça vient d'un de mes fichiers, je l'avais collé pour l'exemple, c'est normal que ça ne marchait pas chez toi.

Pour toi c'est plutôt:

(mapcar 'add_list (list "10" "20" "30" "40"))

 

Ah ok je comprends mieux !

 

Merci encore