(define-struct Atom (in-module "Gdk") (c-name "GdkAtom") (fields ) ) (define-struct Bitmap (in-module "Gdk") (c-name "GdkBitmap") (fields '("GObject" "parent_instance") ) ) (define-struct Color (in-module "Gdk") (c-name "GdkColor") (fields '("guint32" "pixel") '("guint16" "red") '("guint16" "green") '("guint16" "blue") ) ) (define-struct Cursor (in-module "Gdk") (c-name "GdkCursor") (fields '("GdkCursorType" "type") '("guint" "ref_count") ) ) (define-struct DeviceAxis (in-module "Gdk") (c-name "GdkDeviceAxis") (fields '("GdkAxisUse" "use") '("gdouble" "min") '("gdouble" "max") ) ) (define-struct DeviceKey (in-module "Gdk") (c-name "GdkDeviceKey") (fields '("guint" "keyval") '("GdkModifierType" "modifiers") ) ) (define-struct EventAny (in-module "Gdk") (c-name "GdkEventAny") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") ) ) (define-struct EventButton (in-module "Gdk") (c-name "GdkEventButton") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("guint32" "time") '("gdouble" "x") '("gdouble" "y") '("gdouble*" "axes") '("guint" "state") '("guint" "button") '("GdkDevice*" "device") '("gdouble" "x_root") '("gdouble" "y_root") ) ) (define-struct EventClient (in-module "Gdk") (c-name "GdkEventClient") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("GdkAtom" "message_type") '("gushort" "data_format") '("gint8" "data_b[20]") ) ) (define-struct EventConfigure (in-module "Gdk") (c-name "GdkEventConfigure") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-struct EventCrossing (in-module "Gdk") (c-name "GdkEventCrossing") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("GdkWindow*" "subwindow") '("guint32" "time") '("gdouble" "x") '("gdouble" "y") '("gdouble" "x_root") '("gdouble" "y_root") '("GdkCrossingMode" "mode") '("GdkNotifyType" "detail") '("gboolean" "focus") '("guint" "state") ) ) (define-struct EventDND (in-module "Gdk") (c-name "GdkEventDND") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("GdkDragContext*" "context") '("guint32" "time") '("gshort" "x_root") '("gshort" "y_root") ) ) (define-struct EventExpose (in-module "Gdk") (c-name "GdkEventExpose") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("GdkRectangle" "area") '("GdkRegion*" "region") '("gint" "count") ) ) (define-struct EventFocus (in-module "Gdk") (c-name "GdkEventFocus") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("gint16" "in") ) ) (define-struct EventKey (in-module "Gdk") (c-name "GdkEventKey") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("guint32" "time") '("guint" "state") '("guint" "keyval") '("gint" "length") '("gchar*" "string") '("guint16" "hardware_keycode") '("guint8" "group") ) ) (define-struct EventMotion (in-module "Gdk") (c-name "GdkEventMotion") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("guint32" "time") '("gdouble" "x") '("gdouble" "y") '("gdouble*" "axes") '("guint" "state") '("gint16" "is_hint") '("GdkDevice*" "device") '("gdouble" "x_root") '("gdouble" "y_root") ) ) (define-struct EventNoExpose (in-module "Gdk") (c-name "GdkEventNoExpose") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") ) ) (define-struct EventProperty (in-module "Gdk") (c-name "GdkEventProperty") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("GdkAtom" "atom") '("guint32" "time") '("guint" "state") ) ) (define-struct EventProximity (in-module "Gdk") (c-name "GdkEventProximity") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("guint32" "time") '("GdkDevice*" "device") ) ) (define-struct EventScroll (in-module "Gdk") (c-name "GdkEventScroll") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("guint32" "time") '("gdouble" "x") '("gdouble" "y") '("guint" "state") '("GdkScrollDirection" "direction") '("GdkDevice*" "device") '("gdouble" "x_root") '("gdouble" "y_root") ) ) (define-struct EventSelection (in-module "Gdk") (c-name "GdkEventSelection") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("GdkAtom" "selection") '("GdkAtom" "target") '("GdkAtom" "property") '("guint32" "time") '("GdkNativeWindow" "requestor") ) ) (define-struct EventSetting (in-module "Gdk") (c-name "GdkEventSetting") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("GdkSettingAction" "action") '("char*" "name") ) ) (define-struct EventVisibility (in-module "Gdk") (c-name "GdkEventVisibility") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("GdkVisibilityState" "state") ) ) (define-struct EventWindowState (in-module "Gdk") (c-name "GdkEventWindowState") (fields '("GdkEventType" "type") '("GdkWindow*" "window") '("gint8" "send_event") '("GdkWindowState" "changed_mask") '("GdkWindowState" "new_window_state") ) ) (define-struct Font (in-module "Gdk") (c-name "GdkFont") (fields '("GdkFontType" "type") '("gint" "ascent") '("gint" "descent") ) ) (define-struct GCValues (in-module "Gdk") (c-name "GdkGCValues") (fields '("GdkColor" "foreground") '("GdkColor" "background") '("GdkFont*" "font") '("GdkFunction" "function") '("GdkFill" "fill") '("GdkPixmap*" "tile") '("GdkPixmap*" "stipple") '("GdkPixmap*" "clip_mask") '("GdkSubwindowMode" "subwindow_mode") '("gint" "ts_x_origin") '("gint" "ts_y_origin") '("gint" "clip_x_origin") '("gint" "clip_y_origin") '("gint" "graphics_exposures") '("gint" "line_width") '("GdkLineStyle" "line_style") '("GdkCapStyle" "cap_style") '("GdkJoinStyle" "join_style") ) ) (define-struct Geometry (in-module "Gdk") (c-name "GdkGeometry") (fields '("gint" "min_width") '("gint" "min_height") '("gint" "max_width") '("gint" "max_height") '("gint" "base_width") '("gint" "base_height") '("gint" "width_inc") '("gint" "height_inc") '("gdouble" "min_aspect") '("gdouble" "max_aspect") '("GdkGravity" "win_gravity") ) ) (define-struct KeymapKey (in-module "Gdk") (c-name "GdkKeymapKey") (fields '("guint" "keycode") '("gint" "group") '("gint" "level") ) ) (define-struct NativeWindow (in-module "Gdk") (c-name "GdkNativeWindow") (fields ) ) (define-struct PangoAttrEmbossed (in-module "Gdk") (c-name "GdkPangoAttrEmbossed") (fields '("PangoAttribute" "attr") '("gboolean" "embossed") ) ) (define-struct PangoAttrStipple (in-module "Gdk") (c-name "GdkPangoAttrStipple") (fields '("PangoAttribute" "attr") '("GdkBitmap*" "stipple") ) ) (define-struct Pixmap (in-module "Gdk") (c-name "GdkPixmap") (fields '("GObject" "parent_instance") ) ) (define-struct Point (in-module "Gdk") (c-name "GdkPoint") (fields '("gint" "x") '("gint" "y") ) ) #(define-struct PointerHooks # (in-module "Gdk") # (c-name "GdkPointerHooks") # (fields # '("GdkWindow*" "(*get_pointer) (GdkWindow* window") # '("GdkWindow*" "gint *x") # '("GdkWindow*" "gint *y") # '("GdkWindow*" "GdkModifierType *mask)") # '("GdkWindow*" "(*window_at_pointer) (GdkScreen* screen") # '("GdkWindow*" "gint *win_x") # '("GdkWindow*" "gint *win_y)") # ) #) (define-struct Rectangle (in-module "Gdk") (c-name "GdkRectangle") (fields '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-struct Region (in-module "Gdk") (c-name "GdkRegion") (fields '("long" "size") '("long" "numRects") '("GdkRegionBox*" "rects") '("GdkRegionBox" "extents") ) ) (define-struct RegionBox (in-module "Gdk") (c-name "GdkRegionBox") (fields '("gint" "x1") '("gint" "y1") '("gint" "x2") '("gint" "y2") ) ) (define-struct RgbCmap (in-module "Gdk") (c-name "GdkRgbCmap") (fields '("guint32" "colors[256]") '("gint" "n_colors") '("GSList*" "info_list") ) ) (define-struct Screen (in-module "Gdk") (c-name "GdkScreen") (fields ) ) (define-struct Segment (in-module "Gdk") (c-name "GdkSegment") (fields '("gint" "x1") '("gint" "y1") '("gint" "x2") '("gint" "y2") ) ) (define-struct Selection (in-module "Gdk") (c-name "GdkSelection") (fields ) ) (define-struct SelectionType (in-module "Gdk") (c-name "GdkSelectionType") (fields ) ) (define-struct Span (in-module "Gdk") (c-name "GdkSpan") (fields '("gint" "x") '("gint" "y") '("gint" "width") ) ) (define-struct Target (in-module "Gdk") (c-name "GdkTarget") (fields ) ) (define-struct TimeCoord (in-module "Gdk") (c-name "GdkTimeCoord") (fields '("guint32" "time") '("gdouble" "axes[128]") ) ) (define-struct WChar (in-module "Gdk") (c-name "GdkWChar") (fields ) ) (define-struct Window (in-module "Gdk") (c-name "GdkWindow") (fields '("GObject" "parent_instance") ) ) (define-struct WindowAttr (in-module "Gdk") (c-name "GdkWindowAttr") (fields '("gchar*" "title") '("gint" "event_mask") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GdkWindowClass" "wclass") '("GdkVisual*" "visual") '("GdkColormap*" "colormap") '("GdkWindowType" "window_type") '("GdkCursor*" "cursor") '("gchar*" "wmclass_name") '("gchar*" "wmclass_class") '("gboolean" "override_redirect") ) ) (define-struct XEvent (in-module "Gdk") (c-name "GdkXEvent") (fields ) )