X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.cell-renderer.lisp;h=25dda526abfd2aa82eb287ab37f24b10706ce1a7;hb=47b0bf2bfd057e9b409957e8e5cb2241e2fa6573;hp=1578a7f48c6e42af239fc6bd01cf5a23d8415bba;hpb=51aa0c04d9522fa9c17555cc779036aa9703ef02;p=cl-gtk2.git

diff --git a/gtk/gtk.cell-renderer.lisp b/gtk/gtk.cell-renderer.lisp
index 1578a7f..25dda52 100644
--- a/gtk/gtk.cell-renderer.lisp
+++ b/gtk/gtk.cell-renderer.lisp
@@ -14,7 +14,25 @@
 
 ; TODO: gtk_cell_renderer_stop_editing
 
-; TODO: gtk_cell_renderer_get_fixed_size
+(defcfun gtk-cell-renderer-get-fixed-size :void
+  (cell (g-object cell-renderer))
+  (width (:pointer :int))
+  (height (:pointer :int)))
+
+(defun cell-renderer-get-fixed-size (cell)
+  (with-foreign-objects ((width :int) (height :int))
+    (gtk-cell-renderer-get-fixed-size cell width height)
+    (values (mem-ref width :int)
+            (mem-ref height :int))))
+
+(export 'cell-renderer-get-fixed-size)
+
+(defcfun (cell-renderer-set-fixed-size "gtk_cell_renderer_set_fixed_size") :void
+  (cell (g-object cell-renderer))
+  (width :int)
+  (height :int))
+
+(export 'cell-renderer-set-fixed-size)
 
 ; TODO: GtkCellRendererAccel
 
@@ -28,4 +46,10 @@
 
 ; TODO: GtkCellRendererText
 
-; TODO: GtkCellRendererToggle
\ No newline at end of file
+; TODO: GtkCellRendererToggle
+
+(defcfun (cell-renderer-text-set-fixed-height-from-font "gtk_cell_renderer_text_set_fixed_height_from_font") :void
+  (renderer (g-object cell-renderer-text))
+  (number-of-rows :int))
+
+(export 'cell-renderer-text-set-fixed-height-from-font)