[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