/[gtk-cffi]/gtk-cffi/gtk/misc.lisp
ViewVC logotype

Contents of /gtk-cffi/gtk/misc.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Sun Jul 29 15:13:59 2012 UTC (20 months, 2 weeks ago) by rklochkov
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +13 -10 lines
Fixed memory leaks
1 (in-package :gtk-cffi)
2
3 (defclass misc (widget)
4 ())
5
6 (defcfun gtk-misc-set-alignment :void (misc pobject) (x :float) (y :float))
7
8 (defgeneric (setf alignment) (coords misc)
9 (:method (coords (misc misc))
10 (gtk-misc-set-alignment misc
11 (float (first coords))
12 (float (second coords)))))
13 (save-setter misc alignment)
14
15 (defcfun gtk-misc-get-alignment :void (misc pobject)
16 (x :pointer) (y :pointer))
17
18 (defgeneric alignment (misc)
19 (:method ((misc misc))
20 (with-foreign-outs-list ((x :float) (y :float)) :ignore
21 (gtk-misc-get-alignment misc x y))))
22
23 (defcfun gtk-misc-set-padding :void (misc pobject) (x :int) (y :int))
24 (defgeneric (setf padding) (coords misc)
25 (:method (coords (misc misc))
26 (gtk-misc-set-padding misc
27 (first coords)
28 (second coords))))
29 (save-setter misc padding)
30
31 (defcfun gtk-misc-get-padding :void (misc pobject) (x :pointer) (y :pointer))
32 (defgeneric padding (misc)
33 (:method ((misc misc))
34 (with-foreign-outs-list ((x :int) (y :int)) :ignore
35 (gtk-misc-get-padding misc x y))))
36
37

  ViewVC Help
Powered by ViewVC 1.1.5