[RESOLU] Lisp et dcl

[jplunus]

new 2.lspBonjour,

 

je voudrais savoir s'il est possible pour une key d'un popup_list, d'avoir 2 listes différentes ?

 

Exemple: je propose 2 radio_butto, un pour model et un pour paper.

En fonction du choix du radio_button, la popup_list sera alimentée par une liste ou par une autre.

 

En lançant la routine, j'arrive à alimenter la popup_list avec 2 listes différentes en fonction du tilemode.

Donc, c'est possible.

Par contre, alimenter la popup_list en fonction de l'état du radio_button, je n'y arrive pas!

 

J'ai dans l'ordre

les déclarations des composants (setq list )

le load_dialog

l'initialisation des keys par défaut (setq "")

le new_dialog

la réactivation des listes (build_list)

la détection des positions des choix dans les listes (set_tile)

la lecture des choix (action_tile)

la gestion des boutons

le start_dialog

 

Je joins une partie du fichier

 

Merci

[Luna]

Salut,

 

Bon je t'avoue avoir essayer de lire ton fichier LISP mais j'ai un peu galéré ^^"

En revanche concernant l'attribution d'une liste en fonction du radio_button sélectionné, je te suggère ceci (testé de mon côté et fonctionne parfaitement) :

; Hypothèses de départ :
;--- "RD_1" correspond à la key de ton premier radio_button
;--- "RD_2" correspond à la key de ton second radio_button
;--- lst1 correspond à la liste associée à RD_1
;--- lst2 correspond à la liste associée à RD_2
;--- "lst" correspond à la key de la liste (pop-up_list ou list_box)
(if (not (new_dialog "dim" dcl_id))
   (exit)
)
(set_tile "RD_1" "1")
(start_list "lst")
(mapcar 'add_list lst1) ; c'est un raccourci d'écriture par rapport à la boucle while
(end_list)
(action_tile "RD_1" "(start_list \"lst\") (mapcar 'add_list lst1) (end_list)")
(action_tile "RD_2" "(start_list \"lst\") (mapcar 'add_list lst2) (end_list)")
...

L'idée est donc de redéfinir la liste nommée "lst" via (start_list) grâce à la fonction (action_tile) pour chaque radio_button (ici pas besoin de redéfinir la valeur des radio_button normalement puisqu'ils sont liés et le font automatiquement, sinon il faudrait ajouter (set_tile "RD_2" \"0\") à la fin de (action_tile) :3)

 

Je te laisse également ces liens vers des postes un peu similaires :

dcl inserer une tuile entre deux radio button

dcl et lisp desactiver un bouton

En espérant que ça puisse t'aider..

 

Bisous (de loin),

Luna

[jplunus]

Bonjour LUNA

 

Un grand merci

Il va falloir que j'approfondisse le mapcar...

Je joins le fichier pour que d'autre puisse tester

NB le fichier dcl est dans le lsp

 

A+

Bisous

couleur1.lsp