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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Sat Jul 21 19:26:39 2012 UTC (20 months, 4 weeks ago) by rklochkov
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +6 -5 lines
Changed GtkTreePath representation in lisp.
It was a pointer, now it is an array to prevent memory leak.
1 (in-package :gtk-cffi)
2
3 (defclass button-box (box)
4 ())
5
6 (defcfun "gtk_button_box_set_child_secondary" :void
7 (button-box pobject) (widget pobject) (secondary :boolean))
8
9 (defcfun "gtk_button_box_get_child_secondary" :boolean
10 (button-box pobject) (widget pobject))
11
12 (defgeneric child-secondary (button-box widget)
13 (:method ((button-box button-box) (widget widget))
14 (gtk-button-box-get-child-secondary button-box widget)))
15
16 (defgeneric (setf child-secondary) (secondary button-box widget)
17 (:method (secondary (button-box button-box) (widget widget))
18 (gtk-button-box-set-child-secondary button-box widget secondary)))

  ViewVC Help
Powered by ViewVC 1.1.5