some new code
[cl-gtk2.git] / gtk / gtk.cell-renderer.lisp
1 (in-package :gtk)
2
3 ; TODO: GtkCellEditable
4
5 ; TODO: GtkCellRenderer vtable
6
7 ; TODO: gtk_cell_renderer_get_size
8
9 ; TODO: gtk_cell_renderer_render
10
11 ; TODO: gtk_cell_renderer_activate
12
13 ; TODO: gtk_cell_renderer_start_editing
14
15 ; TODO: gtk_cell_renderer_stop_editing
16
17 (defcfun gtk-cell-renderer-get-fixed-size :void
18   (cell g-object)
19   (width :pointer)
20   (height :pointer))
21
22 (defun cell-renderer-get-fixed-size (cell)
23   (with-foreign-objects ((width :int) (height :int))
24     (gtk-cell-renderer-get-fixed-size cell width height)
25     (values (mem-ref width :int)
26             (mem-ref height :int))))
27
28 (export 'cell-renderer-get-fixed-size)
29
30 (defcfun gtk-cell-renderer-set-fixed-size :void
31   (cell g-object)
32   (width :int)
33   (height :int))
34
35 (defun cell-renderer-set-fixed-size (cell width height)
36   (gtk-cell-renderer-set-fixed-size cell width height))
37
38 (export 'cell-renderer-set-fixed-size)
39
40 ; TODO: GtkCellRendererAccel
41
42 ; TODO: GtkCellRendererCombo
43
44 ; TODO: GtkCellRendererPixbuf
45
46 ; TODO: GtkCellRendererProgress
47
48 ; TODO: GtkCellRendererSpin
49
50 ; TODO: GtkCellRendererText
51
52 ; TODO: GtkCellRendererToggle
53
54 (defcfun (cell-renderer-text-set-fixed-height-from-font "gtk_cell_renderer_text_set_fixed_height_from_font") :void
55   (renderer (g-object cell-renderer-text))
56   (number-of-rows :int))
57
58 (export 'cell-renderer-text-set-fixed-height-from-font)