rom/intuition/allocintuimessage.c

   1 /*
   2     Copyright © 1995-2007, 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 <exec/exec.h>
   9
  10 /*****i***********************************************************************
  11
  12     NAME */
  13 #include <proto/intuition.h>
  14
  15     AROS_LH1(struct IntuiMessage *, AllocIntuiMessage,
  16
  17 /*  SYNOPSIS */
  18          AROS_LHA(struct Window *, window, A0),
  19
  20 /*  LOCATION */
  21          struct IntuitionBase *, IntuitionBase, 148, Intuition)
  22
  23 /*  FUNCTION
  24     Private to AROS: allocate an IntuiMessage. IntuiMessage->Window
  25     will be set to window by this function.
  26
  27     INPUTS
  28     window - The window to which the IntuiMessage will be sent
  29
  30     RESULT
  31     an allocated IntuiMessage structure. Must be freed with FreeIntuiMessage
  32
  33     NOTES
  34     This private function is also present in MorphOS v50.
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44     HISTORY
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     struct IntuiMessage *msg;
  51
  52 #ifdef __MORPHOS__
  53     ASSERT_VALID_PTR(window);
  54     SANITY_CHECKR(window,0)
  55 #else
  56     ASSERT_VALID_PTR_OR_NULL(window);
  57 #endif
  58
  59     if ((msg = AllocPooled(GetPrivIBase(IntuitionBase)->IDCMPPool,sizeof(struct IntIntuiMessage))))
  60     {
  61         memclr(msg,sizeof(struct IntIntuiMessage));
  62
  63         msg->ExecMessage.mn_Node.ln_Type = NT_MESSAGE;
  64         msg->ExecMessage.mn_Length       = sizeof(struct ExtIntuiMessage);
  65         msg->ExecMessage.mn_ReplyPort    = window ? window->WindowPort : GetPrivIBase(IntuitionBase)->IntuiReplyPort;
  66
  67         msg->IDCMPWindow                 = window;
  68     }
  69
  70     DEBUG_ALLOCINTUIMESSAGE(dprintf("AllocIntuiMessage: Window 0x%lx Port 0x%lx Msg 0x%lx\n",
  71                                     window, window->WindowPort, msg));
  72
  73     return msg;
  74
  75     AROS_LIBFUNC_EXIT
  76 }