Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk In directory common-lisp.net:/tmp/cvs-serv9175/cells-gtk/test-gtk
Modified Files: test-menus.lisp Log Message: New code to demo TreeModel ComboBoxes (requires libcellsgtk). Date: Sun May 29 23:25:44 2005 Author: pdenno
Index: root/cells-gtk/test-gtk/test-menus.lisp diff -u root/cells-gtk/test-gtk/test-menus.lisp:1.3 root/cells-gtk/test-gtk/test-menus.lisp:1.4 --- root/cells-gtk/test-gtk/test-menus.lisp:1.3 Wed Feb 16 23:38:00 2005 +++ root/cells-gtk/test-gtk/test-menus.lisp Sun May 29 23:25:43 2005 @@ -130,6 +130,20 @@ (mk-label :text (c? (format nil "Combo value ~a" (md-value (fm^ :combo))))))) (mk-hseparator :padding 5) + #+libcellsgtk + (mk-hbox + :kids (list + (mk-combo-box + :roots '("Text" "Numeric" "Timepoint") + :init 0 + :children-fn + #'(lambda (x) + (cond ((equal x "Text") '("Trimmed Text" "Raw Text")) + ((equal x "Numeric") '("Integer" "Decimal" "Scientific")) + ((equal x "Timepoint") + '("DD/MM/YY" "DD/MM/YYYY" "MM/DD/YY" "YYYY-MM-DD" + "YYYY-MM-DDTHH:MM:SS" "DD/MM/YY HH:MM:SS"))))))) + (mk-hseparator :padding 5) (mk-hbox :kids (list (mk-event-box