Add list example

Author: vindarel

README.org

@@ -1149,7 +1149,25 @@ export format is a [[https://www.tecgraf.puc-rio.br/iup/en/led.html][IUP LED fil
 
 ** List Dialog
 
+Use [[http://webserver2.tecgraf.puc-rio.br/iup/en/dlg/iuplistdialog.html][iup:list]] (IupListDialog). You can display the items inline, make
+the list a dropdown or add an editbox.
+
 #+begin_src lisp :results silent :tangle examples/dialogs.lisp
+  (defun iuplist ()
+      (iup:with-iup ()
+        (let* ((frame (iup:frame
+                       (iup:vbox (loop for list in (list (iup:list :value 1 :tip "List 1")
+                                                         (iup:list :value 2 :tip "list 2" :dropdown :yes)
+                                                         (iup:list :value 3 :tip "List 3" :editbox :yes))
+                                    do (loop for i from 1 upto 3
+                                          do (setf (iup:attribute list i)
+                                                   (format nil "Item ~A" i)))
+                                    collect list))
+                       :title "IUP List"))
+               (dialog (iup:dialog frame :menu "menu" :title "a title")))
+          (iup:map dialog)
+          (iup:show dialog)
+          (iup:main-loop))))
 #+end_src
 
 ** Get Param Dialog