1 /* Common Lisp bindings for GTK+ v2.0
2 * Copyright (C) 1999-2000 Espen S. Johnsen <espejohn@online.no>
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 /* $Id: callback.c,v 1.4 2001/05/11 16:12:27 espen Exp $ */
21 #include <gobject/gobject.h>
28 lispobj callback_trampoline
;
29 lispobj destroy_user_data
;
32 void destroy_notify (gpointer data
);
35 void lisp_callback_marshal (GClosure
*closure
,
38 const GValue
*param_values
,
39 gpointer invocation_hint
,
40 gpointer marshal_data
)
43 funcall3 (callback_trampoline
, alloc_number ((unsigned int)closure
->data
),
44 alloc_cons (alloc_number (n_params
), alloc_sap (param_values
)),
45 alloc_sap (return_value
));
47 callback_trampoline ((unsigned long)closure
->data
,
48 n_params
, (unsigned int)param_values
,
49 (unsigned int)return_value
);
53 void closure_destroy_notify (gpointer callback_id
, GClosure
*closure
)
55 destroy_notify (callback_id
);
58 void destroy_notify (gpointer data
)
61 funcall1 (destroy_user_data
, alloc_number ((unsigned long)data
));
63 destroy_user_data ((unsigned long)data
);
68 g_lisp_callback_closure_new (guint callback_id
)
72 closure
= g_closure_new_simple (sizeof (GClosure
), (gpointer
)callback_id
);
73 g_closure_set_marshal (closure
, lisp_callback_marshal
);
74 g_closure_add_finalize_notifier (closure
, (gpointer
)callback_id
, closure_destroy_notify
);
81 destroy_notify_address ()
83 return (void*)destroy_notify
;
89 g_object_class_properties (GObjectClass
*class, guint
*n_properties
)
91 *n_properties
= class->n_property_specs
;
92 return class->property_specs
;
95 #include <gobject/genums.h>
97 g_enum_class_values (GEnumClass
*class, guint
*n_values
)
99 *n_values
= class->n_values
;
100 return class->values
;
104 g_flags_class_values (GFlagsClass
*class, guint
*n_values
)
106 *n_values
= class->n_values
;
107 return class->values
;