[cells-gtk-devel] GtkComboBoxEntry

Matthew Swank akopa.gmane.poster at gmail.com
Thu Jul 12 21:36:12 UTC 2007


In case you can't tell, I really like cells-gtk!  I just keep coming
across little things that aren't wrapped.

Here a patch that adds support for combo-box-entries:
Index: cells-gtk/menus.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp,v
retrieving revision 1.16
diff -u -r1.16 menus.lisp
--- cells-gtk/menus.lisp	11 Aug 2006 13:07:55 -0000	1.16
+++ cells-gtk/menus.lisp	12 Jul 2007 21:31:43 -0000
@@ -106,6 +106,12 @@
 	 (progn (gtk-combo-box-set-active (id self) 0)
 		(setf (md-value self) (car (items self)))))))
 
+;;; ============= Combo-box-entry ============================
+(def-widget combo-box-entry ()
+  ()
+  (text-column)
+  ())
+
 ;;; ============= Toolbar/Toolbutton ============================	
 (def-object tooltips ()
   () () ())
Index: gtk-ffi/gtk-other.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-other.lisp,v
retrieving revision 1.13
diff -u -r1.13 gtk-other.lisp
--- gtk-ffi/gtk-other.lisp	16 Feb 2006 18:06:06 -0000	1.13
+++ gtk-ffi/gtk-other.lisp	12 Jul 2007 21:31:44 -0000
@@ -548,6 +548,14 @@
 				 ((combo-box :pointer)
 				  (iter :pointer)))
 
+  ;;combo-box-entry
+  (gtk-combo-box-entry-new :pointer ())
+  (gtk-combo-box-entry-get-text-column :int
+                                       ((combo-box-entry :pointer))) 
+  (gtk-combo-box-entry-set-text-column :void
+                                       ((combo-box-entry :pointer)
+                                        (column :int)))
+
   ;;calendar
   (gtk-calendar-new :pointer ())
   (gtk-calendar-get-date :void





More information about the cells-gtk-devel mailing list