gdk/gdk.cursor.lisp

   1 (in-package :gdk)
   2
   3 (defcstruct %gdk-cursor
   4   (cursor-type cursor-type))
   5 (defctype %gdk-cursor (:struct %gdk-cursor))
   6
   7 (defun cursor-cursor-type (cursor)
   8   (foreign-slot-value (pointer cursor) '%gdk-cursor 'cursor-type))
   9
  10 (export 'cursor-cursor-type)
  11
  12 (defcfun (cursor-new "gdk_cursor_new") (g-boxed-foreign cursor :return)
  13   (cursor-type cursor-type))
  14
  15 (export 'cursor-new)
  16
  17 (defcfun (cursor-new-from-pixmap "gdk_cursor_new_from_pixmap") (g-boxed-foreign cursor :return)
  18   (source (g-object pixmap))
  19   (make (g-object pixmap))
  20   (fg-color (g-boxed-foreign color))
  21   (bg-color (g-boxed-foreign color))
  22   (x :int)
  23   (y :int))
  24
  25 (export 'cursor-new-from-pixmap)
  26
  27 (defcfun (cursor-new-from-pixbuf "gdk_cursor_new_from_pixbuf") (g-boxed-foreign cursor :return)
  28   (display (g-object display))
  29   (pixbuf (g-object pixbuf))
  30   (x :int)
  31   (y :int))
  32
  33 (export 'cursor-new-from-pixbuf)
  34
  35 (defcfun (cursor-new-from-name "gdk_cursor_new_from_name") (g-boxed-foreign cursor :return)
  36   (display (g-object display))
  37   (name :string))
  38
  39 (export 'cursor-new-from-name)
  40
  41 (defcfun (cursor-new-for-display "gdk_cursor_new_for_display") (g-boxed-foreign cursor :return)
  42   (display (g-object display))
  43   (cursor-type cursor-type))
  44
  45 (export 'cursor-new-for-display)
  46
  47 (define-boxed-opaque-accessor cursor cursor-display :type (g-object display) :reader "gdk_cursor_get_display")
  48 (define-boxed-opaque-accessor cursor cursor-image :type (g-object pixbuf) :reader "gdk_cursor_get_image")
  49
  50 (export '(cursor-display cursor-image))