gdk/gdk.functions.lisp

   1 (in-package :gdk)
   2
   3 (defcfun (default-screen "gdk_screen_get_default") (g-object gdk-window))
   4 (export 'default-screen)
   5
   6 (defcfun gdk-window-get-events event-mask
   7   (window (g-object gdk-window)))
   8
   9 (defcfun gdk-window-set-events :void
  10   (window (g-object gdk-window))
  11   (flags event-mask))
  12
  13 (defun gdk-window-events (window)
  14   (gdk-window-get-events window))
  15
  16 (defun (setf gdk-window-events) (new-value window)
  17   (gdk-window-set-events window new-value))
  18
  19 (defcfun gdk-gc-new (g-object graphics-context)
  20   (drawable (g-object drawable)))
  21
  22 (defcfun gdk-draw-line :void
  23   (drawable (g-object drawable))
  24   (gc (g-object graphics-context))
  25   (x1 :int)
  26   (y1 :int)
  27   (x2 :int)
  28   (y2 :int))
  29
  30 (defcfun gdk-gc-set-rgb-fg-color :void
  31   (gc (g-object graphics-context))
  32   (color (g-boxed-foreign color)))
  33
  34 (defcfun gdk-drawable-get-size :void
  35   (drawable (g-object drawable))
  36   (width (:pointer :int))
  37   (height (:pointer :int)))
  38
  39 (defun drawable-get-size (drawable)
  40   (with-foreign-objects ((x :int)
  41                          (y :int))
  42     (gdk-drawable-get-size drawable x y)
  43     (values (mem-ref x :int) (mem-ref y :int))))
  44
  45 (define-g-object-class "PangoLayout" pango-layout (:type-initializer "pango_layout_get_type") ())
  46
  47 (defcfun gdk-draw-layout :void
  48   (drawable (g-object drawable))
  49   (gc (g-object graphics-context))
  50   (x :int)
  51   (y :int)
  52   (layout (g-object pango-layout)))
  53
  54 (defcfun gdk-atom-name (glib:g-string :free-from-foreign t)
  55   (atom gdk-atom))
  56
  57 (defcfun gdk-atom-intern gdk-atom
  58   (name :string)
  59   (only-if-exists :boolean))
  60
  61 (export 'drawable-size)
  62
  63 (defcfun gdk-pixbuf-get-from-drawable (g-object pixbuf)
  64   (dest (g-object pixbuf))
  65   (src (g-object drawable))
  66   (colormap :pointer)
  67   (src-x :int)
  68   (src-y :int)
  69   (dest-x :int)
  70   (dest-y :int)
  71   (width :int)
  72   (height :int))
  73
  74 (defun pixbuf-get-from-drawable (pixbuf drawable &key (src-x 0) (src-y 0) (dest-x 0) (dest-y 0) (width -1) (height -1))
  75   (gdk-pixbuf-get-from-drawable pixbuf drawable (null-pointer) src-x src-y dest-x dest-y width height))
  76
  77 (export 'pixbuf-get-from-drawable)
  78
  79 (defcfun gdk-pixbuf-savev :boolean
  80   (pixbuf (g-object pixbuf))
  81   (filename :string)
  82   (type :string)
  83   (option-keys (:pointer (:pointer :char)))
  84   (option-values (:pointer (:pointer :char)))
  85   (error :pointer))
  86
  87 (defun pixbuf-save (pixbuf filename type)
  88   (gdk-pixbuf-savev pixbuf
  89                     (etypecase filename
  90                       (string filename)
  91                       (pathname (namestring filename)))
  92                     type
  93                     (null-pointer)
  94                     (null-pointer)
  95                     (null-pointer)))
  96
  97 (export 'pixbuf-save)