rom/intuition/setpointer.c

   1 /*
   2     Copyright © 1995-2010, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include "intuition_intern.h"
   8 #include <intuition/pointerclass.h>
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <proto/intuition.h>
  14
  15     AROS_LH6(void, SetPointer,
  16
  17 /*  SYNOPSIS */
  18          AROS_LHA(struct Window *, window, A0),
  19          AROS_LHA(UWORD         *, pointer, A1),
  20          AROS_LHA(LONG           , height, D0),
  21          AROS_LHA(LONG           , width, D1),
  22          AROS_LHA(LONG           , xOffset, D2),
  23          AROS_LHA(LONG           , yOffset, D3),
  24
  25 /*  LOCATION */
  26          struct IntuitionBase *, IntuitionBase, 45, Intuition)
  27
  28 /*  FUNCTION
  29     Changes the shape of the mouse pointer for a given window.
  30
  31     INPUTS
  32     window - Change it for this window
  33     pointer - The shape of the new pointer as a bitmap with depth 2.
  34     height - Height of the pointer
  35     width - Width of the pointer (must be <= 16)
  36     xOffset, yOffset - The offset of the "hot spot" relative to the
  37         left, top edge of the bitmap.
  38
  39     RESULT
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48     ClearPointer()
  49
  50     INTERNALS
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     EXTENDWORD(height);
  57     EXTENDWORD(width);
  58     EXTENDWORD(xOffset);
  59     EXTENDWORD(yOffset);
  60
  61     DEBUG_SETPOINTER(dprintf("SetPointer: window 0x%lx pointer data 0x%lx\n",
  62                              window, pointer));
  63
  64     if (window && pointer)
  65     {
  66         Object *ptrobj = MakePointerFromData(IntuitionBase, pointer, xOffset, yOffset, width, height);
  67
  68         if (ptrobj)
  69         {
  70             struct TagItem pointertags[] =
  71             {
  72                 {WA_Pointer, (IPTR)ptrobj},
  73                 {TAG_DONE                }
  74             };
  75
  76             window->Pointer = pointer;
  77             window->PtrWidth = width;
  78             window->PtrHeight = height;
  79
  80             SetWindowPointerA(window, pointertags);
  81
  82             IW(window)->free_pointer = TRUE;
  83         }
  84     }
  85
  86     AROS_LIBFUNC_EXIT
  87 } /* SetPointer */