rom/intuition/sendintuimessage.c

   1 /*
   2     Copyright © 1995-2005, 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/timer.h>
   8 #include "intuition_intern.h"
   9
  10 #define DEBUG_SENDINTUIMESSAGE(x)   ;
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/intuition.h>
  15
  16 AROS_LH2(void, SendIntuiMessage,
  17
  18          /*  SYNOPSIS */
  19          AROS_LHA(struct Window *, window, A0),
  20          AROS_LHA(struct IntuiMessage *, imsg, A1),
  21
  22          /*  LOCATION */
  23          struct IntuitionBase *, IntuitionBase, 151, Intuition)
  24
  25 /*  FUNCTION
  26     Private: send an IntuiMessage to an Intuition window
  27
  28     INPUTS
  29     window - The window to which the IntuiMessage shall be sent
  30         imsg   - The IntuiMessage to send, which must have been allocated with
  31          AllocIntuiMessage.
  32
  33     RESULT
  34         none
  35
  36     NOTES
  37         The caller of this function should first check himself
  38     whether window->UserPort is NULL. And in this case do not
  39     call this function at all.
  40
  41     If inside this function the window->UserPort turns out to
  42     be NULL, then what happens is, that the IntuiMessage is
  43     immediately ReplyMessage()ed in here, just like if this was
  44     done by the app whose window was supposed to get the
  45     IntuiMessage.
  46
  47     The protection with Forbid() is necessary, because of the
  48     way shared window userports are handled, when one of this
  49     windows is closed, where there is also just a protection with
  50     Forbid() when stripping those IntuiMessages from the port
  51     which belong to the window which is going to be closed.
  52
  53     This function does not check whether the window to which
  54     the IntuiMessage is supposed to be sent, really wants to
  55     get the IDCMP in question, that is, whether the corresponding
  56     flag in window->IDCMPFLags is set.
  57
  58
  59     EXAMPLE
  60
  61     BUGS
  62
  63     SEE ALSO
  64
  65     INTERNALS
  66
  67 *****************************************************************************/
  68 {
  69     AROS_LIBFUNC_INIT
  70     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  71
  72     ASSERT_VALID_PTR(window);
  73     ASSERT_VALID_PTR(imsg);
  74
  75     DEBUG_SENDINTUIMESSAGE(dprintf("SendIntuiMessage: Window 0x%lx Port 0x%lx Msg 0x%lx\n",
  76                                    window, window->UserPort, imsg));
  77
  78     SANITY_CHECK(window)
  79     SANITY_CHECK(imsg)
  80
  81     Forbid();
  82
  83 #ifdef __MORPHOS__
  84     if (window->UserPort)
  85     {
  86         struct Task *apptask = window->UserPort->mp_SigTask;
  87
  88         if (apptask && (!apptask->tc_SigWait) && (apptask->tc_State == TS_WAIT))
  89         {
  90             //task is DEAD!
  91             imsg->IDCMPWindow = 0;
  92             imsg->Code = 0;
  93             imsg->Qualifier = 0;
  94             ReplyMsg(&imsg->ExecMessage);
  95
  96             if (IW(window)->messagecache)
  97             {
  98                 IW(window)->messagecache->IDCMPWindow = 0;
  99                 IW(window)->messagecache->Code = 0;
 100                 IW(window)->messagecache->Qualifier = 0;
 101                 ReplyMsg(&IW(window)->messagecache->ExecMessage);
 102                 IW(window)->messagecache = 0;
 103             }
 104             Permit();
 105
 106             //give some visual feedback to the user
 107             IW(window)->specialflags |= SPFLAG_IAMDEAD;
 108
 109             int_refreshwindowframe(window,REFRESHGAD_TOPBORDER,0,IntuitionBase);
 110
 111             return;
 112         }
 113         else
 114         {
 115             IW(window)->specialflags &= ~SPFLAG_IAMDEAD;
 116         }
 117     }
 118 #endif
 119
 120     if (imsg->Qualifier & IEQUALIFIER_REPEAT)
 121     {
 122         IW(window)->num_repeatevents++;
 123     }
 124
 125 #if USE_IDCMPUPDATE_MESSAGECACHE
 126     if (imsg->Class == IDCMP_IDCMPUPDATE)
 127     {
 128         if (IW(window)->num_idcmpupdate && !IW(window)->messagecache)
 129         {
 130 kprintf("======= setting messagecache\n");
 131             IW(window)->messagecache = imsg;
 132             Permit();
 133             return;
 134         }
 135
 136         //reduce number of messages if possible (prop updates only!)
 137         if (IW(window)->num_idcmpupdate && IW(window)->messagecache)
 138         {
 139             if (imsg->Code == IW(window)->messagecache->Code && imsg->Qualifier == IEQUALIFIER_REPEAT)
 140             {
 141                 IW(window)->messagecache->MouseX = imsg->MouseX;
 142                 IW(window)->messagecache->MouseY = imsg->MouseY;
 143                 IW(window)->messagecache->Seconds = imsg->Seconds;
 144                 IW(window)->messagecache->Micros = imsg->Micros;
 145                 imsg->IDCMPWindow = 0;
 146                 imsg->Code = 0;
 147                 imsg->Qualifier = 0;
 148                 ReplyMsg(&imsg->ExecMessage);
 149                 Permit();
 150                 return;
 151             }
 152         }
 153
 154         IW(window)->num_idcmpupdate++;
 155     }
 156 #endif
 157
 158     Forbid();
 159     GetSysTime(&((struct IntWindow *)(window))->lastmsgsent);
 160     Permit();
 161
 162     if (window->UserPort)
 163     {
 164         if (imsg->Class == IDCMP_INTUITICKS)
 165         {
 166             window->Flags |= WFLG_WINDOWTICKED;
 167         }
 168         DEBUG_SENDINTUIMESSAGE(dprintf("SendIntuiMessage: Class 0x%lx Code 0x%lx Qual 0x%lx Mouse %d,%d IAddress 0x%lx\n", imsg->Class, imsg->Code, imsg->Qualifier, imsg->MouseX, imsg->MouseY, imsg->IAddress));
 169
 170         PutMsg(window->UserPort, &imsg->ExecMessage);
 171
 172         /* Help sucky programs... (die DigiBooster, die!) */
 173         window->MessageKey = imsg;
 174     }
 175     else
 176     {
 177         ReplyMsg(&imsg->ExecMessage);
 178     }
 179
 180     Permit();
 181
 182     AROS_LIBFUNC_EXIT
 183 }