rom/intuition/setpointer.c

   1 /*
   2     Copyright © 1995-2013, 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(const 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 = (UWORD *)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 */