Pileus Git - ~andy/gtk/blob - gdk/x11/gdkcursor-x11.c

   1 /* GDK - The GIMP Drawing Kit
   2  * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Library General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Library General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Library General Public
  15  * License along with this library; if not, write to the Free
  16  * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17  */
  18 #include <X11/Xlib.h>
  19 #include <X11/cursorfont.h>
  20 #include "gdk.h"
  21 #include "gdkprivate.h"
  22
  23
  24 GdkCursor*
  25 gdk_cursor_new (GdkCursorType cursor_type)
  26 {
  27   GdkCursorPrivate *private;
  28   GdkCursor *cursor;
  29   Cursor xcursor;
  30
  31   xcursor = XCreateFontCursor (gdk_display, cursor_type);
  32   private = g_new (GdkCursorPrivate, 1);
  33   private->xdisplay = gdk_display;
  34   private->xcursor = xcursor;
  35   cursor = (GdkCursor*) private;
  36   cursor->type = cursor_type;
  37
  38   return cursor;
  39 }
  40
  41 void
  42 gdk_cursor_destroy (GdkCursor *cursor)
  43 {
  44   GdkCursorPrivate *private;
  45
  46   g_return_if_fail (cursor != NULL);
  47
  48   private = (GdkCursorPrivate *) cursor;
  49   XFreeCursor (private->xdisplay, private->xcursor);
  50
  51   g_free (private);
  52 }