gdk/gdk.functions.lisp

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