Function: idlwave-popup-select

idlwave-popup-select is a byte-compiled function defined in idlwave.el.gz.

Signature

(idlwave-popup-select EV LIST TITLE &optional SORT)

Documentation

Select an item in LIST with a popup menu.

TITLE is the title to put atop the popup. If SORT is non-nil, sort the list before displaying.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/idlwave.el.gz
;;----------------------------------------------------------------------
;;----------------------------------------------------------------------
;;----------------------------------------------------------------------
;;----------------------------------------------------------------------
;;----------------------------------------------------------------------

(defun idlwave-popup-select (ev list title &optional sort)
  "Select an item in LIST with a popup menu.
TITLE is the title to put atop the popup.  If SORT is non-nil,
sort the list before displaying."
  (let ((maxpopup idlwave-max-popup-menu-items)
	rtn menu)
    (cond ((null list))
	  ((= 1 (length list))
	   (setq rtn (car list)))
	  (t
	   (if sort (setq list (sort list (lambda (a b)
					    (string< (upcase a) (upcase b))))))
	   (setq menu (cons title
			    (list
			     (append (list "")
				     (mapcar (lambda(x) (cons x x)) list)))))
	   (setq menu (idlwave-split-menu menu maxpopup))
	   (setq rtn (x-popup-menu ev menu))))
    rtn))