1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#ifndef _mlgdk_
#define _mlgdk_
#define ml_GdkObject(object) ((value) object)
#define GdkPixmap_ml(pixmap) ((GdkPixmap *) pixmap)
#define GdkWindow_ml(window) ((GdkWindow *) window)
#define GdkBitmap_ml(bitmap) ((GdkBitmap *) bitmap)
#define GdkColormap_ml(colormap) ((GdkColormap *) colormap)
#define GdkFont_ml(font) ((GdkFont *) font)
#define GdkVisual_ml(visual) ((GdkVisual *) visual)
#define GdkDrawable_ml(drawable) ((GdkDrawable *) drawable)
#define GdkGc_ml(gc) ((GdkGc *) gc)
#ifdef DEBUG
#define check_GdkObject_ml(object, func_id) \
if (GdkObject_ml(object) == NULL) \
invalid_argument(func_id)
#else
#define check_GdkObject_ml(object, func_id) /**/
#endif
#endif
|
