(in-package :gdk)

(defcfun (gdk-image-new "gdk_image_new") (g-object gdk-image :already-referenced)
  (type gdk-image-type)
  (visual (g-object visual))
  (width :int)
  (height :int))

(export 'gdk-image-new)

;; deprecated:
;; GdkImage*           gdk_image_new_bitmap                (GdkVisual *visual,
;;                                                          gpointer data,
;;                                                          gint width,
;;                                                          gint height);
;; GdkImage*           gdk_image_get                       (GdkDrawable *drawable,
;;                                                          gint x,
;;                                                          gint y,
;;                                                          gint width,
;;                                                          gint height);
;; GdkImage *          gdk_image_ref                       (GdkImage *image);
;; void                gdk_image_unref                     (GdkImage *image);
;; #define             gdk_image_destroy


(defcfun (gdk-image-put-pixel "gdk_image_put_pixel") :void
  (image (g-object gdk-image))
  (x :int)
  (y :int)
  (pixel :uint32))

(export 'gdk-image-put-pixel)

(defcfun (gdk-image-get-pixel "gdk_image_get_pixel") :uint32
  (image (g-object gdk-image))
  (x :int)
  (y :int))

(export 'gdk-image-get-pixel)