rom/intuition/sendintuimessage.c

   1 /*
   2     Copyright © 1995-2011, 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 /*****i***********************************************************************
  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
  71     ASSERT_VALID_PTR(window);
  72     ASSERT_VALID_PTR(imsg);
  73
  74     struct Library *TimerBase = GetPrivIBase(IntuitionBase)->TimerBase;
  75
  76     DEBUG_SENDINTUIMESSAGE(dprintf("SendIntuiMessage: Window 0x%lx Port 0x%lx Msg 0x%lx\n",
  77                                    window, window->UserPort, imsg));
  78
  79     SANITY_CHECK(window)
  80     SANITY_CHECK(imsg)
  81
  82     Forbid();
  83
  84 #ifdef __MORPHOS__
  85     if (window->UserPort)
  86     {
  87         struct Task *apptask = window->UserPort->mp_SigTask;
  88
  89         if (apptask && (!apptask->tc_SigWait) && (apptask->tc_State == TS_WAIT))
  90         {
  91             //task is DEAD!
  92             imsg->IDCMPWindow = 0;
  93             imsg->Code = 0;
  94             imsg->Qualifier = 0;
  95             ReplyMsg(&imsg->ExecMessage);
  96
  97             if (IW(window)->messagecache)
  98             {
  99                 IW(window)->messagecache->IDCMPWindow = 0;
 100                 IW(window)->messagecache->Code = 0;
 101                 IW(window)->messagecache->Qualifier = 0;
 102                 ReplyMsg(&IW(window)->messagecache->ExecMessage);
 103                 IW(window)->messagecache = 0;
 104             }
 105             Permit();
 106
 107             //give some visual feedback to the user
 108             IW(window)->specialflags |= SPFLAG_IAMDEAD;
 109
 110             int_refreshwindowframe(window,REFRESHGAD_TOPBORDER,0,IntuitionBase);
 111
 112             return;
 113         }
 114         else
 115         {
 116             IW(window)->specialflags &= ~SPFLAG_IAMDEAD;
 117         }
 118     }
 119 #endif
 120
 121     if (imsg->Qualifier & IEQUALIFIER_REPEAT)
 122     {
 123         IW(window)->num_repeatevents++;
 124     }
 125
 126 #if USE_IDCMPUPDATE_MESSAGECACHE
 127     if (imsg->Class == IDCMP_IDCMPUPDATE)
 128     {
 129         if (IW(window)->num_idcmpupdate && !IW(window)->messagecache)
 130         {
 131 kprintf("======= setting messagecache\n");
 132             IW(window)->messagecache = imsg;
 133             Permit();
 134             return;
 135         }
 136
 137         //reduce number of messages if possible (prop updates only!)
 138         if (IW(window)->num_idcmpupdate && IW(window)->messagecache)
 139         {
 140             if (imsg->Code == IW(window)->messagecache->Code && imsg->Qualifier == IEQUALIFIER_REPEAT)
 141             {
 142                 IW(window)->messagecache->MouseX = imsg->MouseX;
 143                 IW(window)->messagecache->MouseY = imsg->MouseY;
 144                 IW(window)->messagecache->Seconds = imsg->Seconds;
 145                 IW(window)->messagecache->Micros = imsg->Micros;
 146                 imsg->IDCMPWindow = 0;
 147                 imsg->Code = 0;
 148                 imsg->Qualifier = 0;
 149                 ReplyMsg(&imsg->ExecMessage);
 150                 Permit();
 151                 return;
 152             }
 153         }
 154
 155         IW(window)->num_idcmpupdate++;
 156     }
 157 #endif
 158
 159     Forbid();
 160     GetSysTime(&((struct IntWindow *)(window))->lastmsgsent);
 161     Permit();
 162
 163     if (window->UserPort)
 164     {
 165         if (imsg->Class == IDCMP_INTUITICKS)
 166         {
 167             window->Flags |= WFLG_WINDOWTICKED;
 168         }
 169         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));
 170
 171         PutMsg(window->UserPort, &imsg->ExecMessage);
 172
 173         /* Help sucky programs... (die DigiBooster, die!) */
 174         window->MessageKey = imsg;
 175     }
 176     else
 177     {
 178         ReplyMsg(&imsg->ExecMessage);
 179     }
 180
 181     Permit();
 182
 183     AROS_LIBFUNC_EXIT
 184 }