[cells-gtk-devel] Re: Re: trivial patches

[Matthew D. Swank]

On Mon, 31 Dec 2007 12:30:29 -0500, Peter Denno wrote:

>> Could I resubmit 4 patches from July? or did I also get commit
>> access?
> 
> I'm pretty sure these have been committed, but for the next few days I 
> don't have access to the computer that has my old email on it, so I 
> can't look back at what this is about.
> 
> What are these changes?

Add Combo Box Entry widget

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