ListBox

[PATRICE69]

Bonsoir,

J'arrive à créer une ListBox avec le fichier de Gil.

Est-il possible de sélectionner un élément dans la liste (ancienne valeur par exemple) ?

Merci

Patrice

[(gile)]

Salut,

S'il s'agit bien de la routine ListBox de Dialog.lsp sur cette page, le code suivant accepte un argument supplémentaire la clé de la valeur sélectionnée par défaut.

;; ListBox (gile)
;; Boite de dialogue permettant un ou plusieurs choix dans une liste
;;
;; Arguments
;; title : le titre de la boite de dialogue (chaîne)
;; msg ; message (chaîne), "" ou nil pour aucun
;; keylab : une liste d'association du type ((key1 . label1) (key2 . label2) ...)
;; flag : 0 = liste déroulante
;;        1 = liste choix unique
;;        2 = liste choix multipes
;; default : la clé sélectionnée par défaut ou nil
;;
;; Retour : la clé de l'option (flag = 0 ou 1) ou la liste des clés des options (flag = 2)
;;
;; Exemple d'utilisation
;; (listbox "Présentation" "Choisir une présentation" (mapcar 'cons (layoutlist) (layoutlist)) 1 "Présentation1")

(defun ListBox (title msg keylab flag default / str2lst tmp file dcl_id pos choice)

  (defun str2lst (str sep / pos)
    (if	(setq pos (vl-string-search sep str))
      (cons (substr str 1 pos)
	    (str2lst (substr str (+ (strlen sep) pos 1)) sep)
      )
      (list str)
    )
  )
  (setq	tmp  (vl-filename-mktemp "tmp.dcl")
	file (open tmp "w")
  )
  (write-line
    (strcat "ListBox:dialog{label=\"" title "\";")
    file
  )
  (if (and msg (/= msg ""))
    (write-line (strcat ":text{label=\"" msg "\";}") file)
  )
  (write-line
    (cond
      ((= 0 flag) "spacer;:popup_list{key=\"lst\";")
      ((= 1 flag) "spacer;:list_box{key=\"lst\";")
      (T "spacer;:list_box{key=\"lst\";multiple_select=true;")
    )
    file
  )
  (write-line "}spacer;ok_cancel;}" file)
  (close file)
  (setq dcl_id (load_dialog tmp))
  (if (not (new_dialog "ListBox" dcl_id))
    (exit)
  )
  (start_list "lst")
  (mapcar 'add_list (mapcar 'cdr keylab))
  (end_list)
  (if (and default (setq pos (vl-position default (mapcar 'car keylab))))
    (set_tile "lst" (itoa pos))
    )
  (action_tile
    "accept"
    "(or (= (get_tile \"lst\") \"\")
    (if (= 2 flag) (progn
    (foreach n (str2lst (get_tile \"lst\") \" \")
    (setq choice (cons (nth (atoi n) (mapcar 'car keylab)) choice)))
    (setq choice (reverse choice)))
    (setq choice (nth (atoi (get_tile \"lst\")) (mapcar 'car keylab)))))
    (done_dialog)"
  )
  (start_dialog)
  (unload_dialog dcl_id)
  (vl-file-delete tmp)
  choice
)

 

PS: Ce sujet n'a rien à voir avec OpenDcl ou ObjectDcl, je le déplace dans "Pour aller plus loin en LISP"

[PATRICE69]

Bonsoir Gile,

C'est bien ce script.

J'avais une ancienne version sans la variable par défaut.

Grand merci

Patrice

[(gile)]

Il y a 8 heures, PATRICE69 a dit :

J'avais une ancienne version sans la variable par défaut.

Il ne s'agit pas d'une nouvelle version. J'ai simplement modifié la version en ligne en ajoutant l'argument default et l'expression suivante pour le sélectionner dan la liste s'il existe.

(if (and default (setq pos (vl-position default (mapcar 'car keylab))))
  (set_tile "lst" (itoa pos))
)

 

[PATRICE69]

Bonjour,

Oui, j'avais trouvé dans le code. Merci

Patrice