|
From: | Mortimer Cladwell |
Subject: | Re:Re: widget-create 'menu-choice |
Date: | Thu, 24 Sep 2009 09:13:14 -0700 (PDT) |
Hi,
I would like to dynamically populate a dropdown widget from a database. the 'menu-choice widget looks like
(widget-create 'menu-choice
:tag "Select Host Species"
:value "unknown"
:notify (lambda (widget &rest ignore)
(setq host-species (widget-value widget)))
'(item "human")
'(item "rat")
'(item "mouse"))
Suppose I can generate a list '( "human "rat" "mouse") from the database. How to create
'(item "human")
'(item "rat")
'(item "mouse")
on the fly? The closest I can come is
(progn
(setq var '( "human" "rat" "mouse"))
(mapcar '(lambda (a) `'(item ,a)) var)
)
i.e.
(let ((var '("human" "rat" "mouse"))) (mapcar (lambda (label) (list 'item label)) var))
-- Kevin Rodgers Denver, Colorado, USA
[Prev in Thread] | Current Thread | [Next in Thread] |