[cells-gtk-devel] Re: Re: GtkComboBoxEntry

[Matthew Swank]

On Fri, 13 Jul 2007 07:08:01 -0400, Peter Denno wrote:

> On Thursday 12 July 2007 23:03, Matthew Swank wrote:
>> On Thu, 12 Jul 2007 16:36:12 -0500, Matthew Swank wrote:
>> > 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:
...
> Do you think I should wait, or apply the patch to CVS?
> 

This is a better starting point:

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	13 Jul 2007 14:04:48 -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 (combo-box)
+  ()
+  (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	13 Jul 2007 14:04:49 -0000
@@ -548,6 +548,17 @@
 				 ((combo-box :pointer)
 				  (iter :pointer)))
 
+  ;;combo-box-entry
+  (gtk-combo-box-entry-new :pointer ())
+  (gtk-combo-box-entry-new-text :pointer ())
+  (gtk-combo-box-entry-new-with-model :pointer ((tree-model :pointer)
+                                                (text-column :int)))
+  (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