X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.cell-renderer.lisp;h=25dda526abfd2aa82eb287ab37f24b10706ce1a7;hb=586cdfb30c25058e139fff0484af8761f8735746;hp=4f8d4a618bdb290bf6c81d91726a2dec2bf5291d;hpb=3dbac943322ccf649b137fd1e8c2d29e108ba79c;p=cl-gtk2.git

diff --git a/gtk/gtk.cell-renderer.lisp b/gtk/gtk.cell-renderer.lisp
index 4f8d4a6..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