gdk/gdk.images.lisp

   1 (in-package :gdk)
   2
   3 (defcfun (gdk-image-new "gdk_image_new") (g-object gdk-image :already-referenced)
   4   (type gdk-image-type)
   5   (visual (g-object visual))
   6   (width :int)
   7   (height :int))
   8
   9 (export 'gdk-image-new)
  10
  11 ;; deprecated:
  12 ;; GdkImage*           gdk_image_new_bitmap                (GdkVisual *visual,
  13 ;;                                                          gpointer data,
  14 ;;                                                          gint width,
  15 ;;                                                          gint height);
  16 ;; GdkImage*           gdk_image_get                       (GdkDrawable *drawable,
  17 ;;                                                          gint x,
  18 ;;                                                          gint y,
  19 ;;                                                          gint width,
  20 ;;                                                          gint height);
  21 ;; GdkImage *          gdk_image_ref                       (GdkImage *image);
  22 ;; void                gdk_image_unref                     (GdkImage *image);
  23 ;; #define             gdk_image_destroy
  24
  25
  26 (defcfun (gdk-image-put-pixel "gdk_image_put_pixel") :void
  27   (image (g-object gdk-image))
  28   (x :int)
  29   (y :int)
  30   (pixel :uint32))
  31
  32 (export 'gdk-image-put-pixel)
  33
  34 (defcfun (gdk-image-get-pixel "gdk_image_get_pixel") :uint32
  35   (image (g-object gdk-image))
  36   (x :int)
  37   (y :int))
  38
  39 (export 'gdk-image-get-pixel)