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
_______________________________________________
cells-gtk-devel site list
[email protected]
http://common-lisp.net/mailman/listinfo/cells-gtk-devel
