rom/intuition/setwindowpointera.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 <proto/graphics.h>
   8 #include <proto/utility.h>
   9 #include "intuition_intern.h"
  10 #include "monitorclass_private.h"
  11 #include <intuition/pointerclass.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/intuition.h>
  17
  18         AROS_LH2(void, SetWindowPointerA,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct Window * , window , A0),
  22         AROS_LHA(struct TagItem *, taglist, A1),
  23
  24 /*  LOCATION */
  25         struct IntuitionBase *, IntuitionBase, 136, Intuition)
  26
  27 /*  FUNCTION
  28
  29     INPUTS
  30
  31     RESULT
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43 *****************************************************************************/
  44 {
  45     AROS_LIBFUNC_INIT
  46
  47     struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
  48     DEBUG_SETPOINTER(dprintf("SetWindowPointer: window 0x%lx\n", window));
  49
  50     if (window)
  51     {
  52         ULONG   lock;
  53         Object *pointer = (Object *)GetTagData(WA_Pointer, 0, taglist);
  54         BOOL    busy = (GetTagData(WA_BusyPointer, FALSE, taglist) != 0) ? TRUE : FALSE;
  55
  56         DEBUG_SETPOINTER(dprintf("SetWindowPointer: pointer 0x%lx busy %d\n",
  57                                  pointer, busy));
  58
  59         lock = LockIBase(0);
  60
  61         DEBUG_SETPOINTER(dprintf("SetWindowPointer: old pointer 0x%lx busy %d\n",
  62                                  IW(window)->pointer, IW(window)->busy));
  63
  64         if (IW(window)->pointer != pointer || IW(window)->busy != busy)
  65         {
  66             Object *oldpointer = NULL;
  67
  68             if (IW(window)->free_pointer)
  69                 oldpointer = IW(window)->pointer;
  70
  71             IW(window)->pointer = pointer;
  72             IW(window)->busy = busy;
  73             IW(window)->free_pointer = FALSE;
  74             window->Pointer = NULL;
  75
  76             if (window->Flags & WFLG_WINDOWACTIVE)
  77             {
  78                 struct IntScreen *scr = GetPrivScreen(window->WScreen);
  79
  80                 if (GetTagData(WA_PointerDelay, FALSE, taglist) &&
  81                         IntuitionBase->ActiveScreen == &scr->Screen)
  82                 {
  83                     DEBUG_SETPOINTER(dprintf("SetWindowPointer: delay change\n"));
  84                     GetPrivIBase(IntuitionBase)->PointerDelay = 5;
  85                 }
  86                 else
  87                 {
  88                     struct SharedPointer *shared_pointer;
  89
  90                     if (pointer == NULL)
  91                         pointer = GetPrivIBase(IntuitionBase)->DefaultPointer;
  92                     if (busy)
  93                         pointer = GetPrivIBase(IntuitionBase)->BusyPointer;
  94
  95                     GetAttr(POINTERA_SharedPointer, pointer, (IPTR *)&shared_pointer);
  96
  97                     DEBUG_POINTER(dprintf("SetWindowPointer: scr 0x%lx pointer 0x%lx sprite 0x%lx\n",
  98                                           scr, pointer, shared_pointer->sprite));
  99
 100                     if (DoMethod(scr->IMonitorNode, MM_SetPointerShape, shared_pointer))
 101                     {
 102                         ObtainSharedPointer(shared_pointer, IntuitionBase);
 103                         ReleaseSharedPointer(scr->Pointer, IntuitionBase);
 104                         scr->Pointer = shared_pointer;
 105                         if (window)
 106                         {
 107                             window->XOffset = shared_pointer->xoffset;
 108                             window->YOffset = shared_pointer->yoffset;
 109                         }
 110                     }
 111                     else
 112                     {
 113                         DEBUG_POINTER(dprintf("SetWindowPointer: can't set pointer.\n"));
 114                     }
 115                 }
 116             }
 117
 118             DisposeObject(oldpointer);
 119         }
 120
 121         UnlockIBase(lock);
 122     }
 123
 124     AROS_LIBFUNC_EXIT
 125 } /* SetWindowPointerA */