[cells-gtk-cvs] CVS update: root/cells-gtk/test-gtk/test-menus.lisp

[Peter Denno]

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