rom/intuition/donotify.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     ICClass notification support routines.
   7 */
   8
   9 #include <exec/types.h>
  10 #include <exec/memory.h>
  11 #include <intuition/classes.h>
  12 #include <intuition/cghooks.h>
  13 #include <intuition/icclass.h>
  14 #include <proto/exec.h>
  15 #include <proto/utility.h>
  16 #include <proto/intuition.h>
  17
  18 #include "intuition_intern.h"
  19
  20 #define DEBUG_NOTIFY(x) ;
  21
  22 /*
  23     Note: This file is essentially the contents of the file
  24     rom/intuition/notify.c which contained code used by the icclass
  25     and gadgetclass in caldi's first implementation. It was split
  26     by iaint for the new boopsi.library.
  27 */
  28
  29
  30 /*
  31     This will hopefully allow us to send an IDCMP message from a boopsi
  32     gadget method.
  33
  34 */
  35 static struct IntuiMessage *SendIDCMPUpdate(Class *cl, Object *o, struct opUpdate *msg,
  36                                             ULONG class, UWORD code, APTR IAddress,
  37                                             struct IntuitionBase *IntuitionBase)
  38 {
  39     struct IntuiMessage *imsg;
  40
  41     DEBUG_NOTIFY(dprintf("SendIDCMPUpdate:\n"));
  42
  43     imsg = AllocIntuiMessage(msg->opu_GInfo->gi_Window);
  44
  45     if( imsg )
  46     {
  47         imsg->Class     = class;
  48         imsg->Code      = code;
  49         imsg->Qualifier = (msg->opu_Flags & OPUF_INTERIM) ? IEQUALIFIER_REPEAT : 0; //tells SendIntuiMessage if the message is OK to be dropped
  50         imsg->IAddress  = IAddress;
  51         imsg->MouseX    = msg->opu_GInfo->gi_Window->MouseX;
  52         imsg->MouseY    = msg->opu_GInfo->gi_Window->MouseY;
  53         imsg->Seconds   = IntuitionBase->Seconds;
  54         imsg->Micros    = IntuitionBase->Micros;
  55
  56         /* done by AllocIntuiMessage
  57         imsg->IDCMPWindow = msg->opu_GInfo->gi_Window;
  58         */
  59
  60         SendIntuiMessage(msg->opu_GInfo->gi_Window , imsg);
  61
  62     }
  63
  64     return imsg;
  65 }
  66
  67 /*****i***********************************************************************
  68
  69     NAME */
  70
  71     AROS_LH4(IPTR, DoNotify,
  72
  73 /*  SYNOPSIS */
  74          AROS_LHA(Class *,      cl, A0),
  75          AROS_LHA(Object *,     o,  A1),
  76          AROS_LHA(struct ICData *,  ic, A2),
  77          AROS_LHA(struct opUpdate *,    msg,    A3),
  78
  79 /*  LOCATION */
  80          struct IntuitionBase *, IntuitionBase, 145, Intuition)
  81
  82 /*  FUNCTION
  83     This function provides a way for icclass objects to notify
  84     their listeners when they are notifying. It is mainly
  85     provided as an external function for intuition.library's
  86     gadgetclass implementation, which contains an inbuilt
  87     icclass.
  88
  89     INPUTS
  90         cl      - my class
  91         o       - this object
  92         icdata  - interconnection information
  93         msg     - the message given to the OM_NOTIFY method
  94
  95     RESULT
  96     The objects listening to this object will be notified.
  97
  98     Note: Return value not clear.
  99
 100     NOTES
 101
 102     EXAMPLE
 103
 104     BUGS
 105
 106     SEE ALSO
 107
 108     INTERNALS
 109
 110 ******************************************************************************/
 111 {
 112     AROS_LIBFUNC_INIT
 113
 114     struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
 115
 116     DEBUG_NOTIFY(dprintf("DoNotify: cl 0x%lx o 0x%lx ICData 0x%lx opUpdate 0x%lx\n",cl,o,ic,msg));
 117
 118     SANITY_CHECKR(o,1UL)
 119     SANITY_CHECKR(cl,1UL)
 120     SANITY_CHECKR(msg,1UL)
 121     SANITY_CHECKR(ic,1UL)
 122
 123     if( ic->ic_Target != NULL )
 124     {
 125         if( msg->opu_AttrList) /* stegerg: ??? checked also "&& msg->opu_GInfo" ) */
 126         {
 127             ic->ic_LoopCounter += 1UL;
 128
 129             DEBUG_NOTIFY(dprintf("DoNotify: Loop counter %ld\n",ic->ic_LoopCounter));
 130             /* Don't get into a circular notify target loop */
 131             if( ic->ic_LoopCounter == 1UL )
 132             {
 133                 if(( ic->ic_CloneTags = CloneTagItems(msg->opu_AttrList)))
 134                 {
 135                     DEBUG_NOTIFY(dprintf("DoNotify: CloneTags 0x%lx\n",ic->ic_CloneTags));
 136                     if( ic->ic_Mapping != NULL )
 137                     {
 138                         MapTags(ic->ic_CloneTags, ic->ic_Mapping, MAP_KEEP_NOT_FOUND);
 139                     }
 140
 141                     if( ic->ic_Target != (Object *)ICTARGET_IDCMP)
 142                     {
 143                         struct opUpdate opu;
 144
 145                         opu.MethodID     = OM_UPDATE;
 146                         opu.opu_AttrList = ic->ic_CloneTags;
 147                         opu.opu_GInfo    = msg->opu_GInfo;
 148                         opu.opu_Flags    = msg->opu_Flags;
 149
 150                         DEBUG_NOTIFY(dprintf("DoNotify: Send OM_UPDATA to 0x%lx\n",ic->ic_Target));
 151                         DoMethodA( ic->ic_Target, (Msg)&opu );
 152                     }
 153                     else
 154                     {
 155                         if (msg->opu_GInfo)
 156                         {
 157                             struct Window *win;
 158
 159                             if ((win = msg->opu_GInfo->gi_Window))
 160                             {
 161                                 if (win->UserPort)
 162                                 {
 163                                     if (win->IDCMPFlags & IDCMP_IDCMPUPDATE)
 164                                     {
 165                                         struct TagItem  *ti;
 166                                         UWORD            code = 0;
 167
 168                                         if ((ti = FindTagItem(ICSPECIAL_CODE, ic->ic_CloneTags)))
 169                                         {
 170                                             code = ti->ti_Data & 0xFFFF;
 171                                         }
 172
 173                                     #if !USE_IDCMPUPDATE_MESSAGECACHE
 174                                         if (!(msg->opu_Flags & OPUF_INTERIM) ||
 175                                             (IW(win)->num_repeatevents < IW(win)->repeatqueue))
 176                                         {
 177                                     #endif
 178
 179                                             SendIDCMPUpdate( cl, o, msg, IDCMP_IDCMPUPDATE,
 180                                                              code, ic->ic_CloneTags, IntuitionBase );
 181
 182                                             /* in this case the cloned tagitems will be freed in the Intuition
 183                                                InputHandler when the app has replied the IntuiMessage */
 184
 185                                             ic->ic_CloneTags = NULL;
 186
 187                                     #if !USE_IDCMPUPDATE_MESSAGECACHE
 188                                         }
 189                                     #endif
 190
 191                                     }
 192                                 }
 193                             }
 194                         }
 195                     }
 196
 197                     FreeTagItems(ic->ic_CloneTags);
 198
 199                     ic->ic_CloneTags = NULL;
 200
 201                 } /* CloneTagItems() */
 202
 203             } /* LoopCounter == 1UL */
 204             else
 205             {
 206                 DEBUG_NOTIFY(dprintf("DoNotify: skip..circular\n"));
 207             }
 208
 209             ic->ic_LoopCounter -= 1UL;
 210
 211         } /* valid parameters */
 212         else
 213         {
 214             DEBUG_NOTIFY(dprintf("DoNotify: no AttrList\n"));
 215         }
 216     } /* valid target */
 217     else
 218     {
 219         DEBUG_NOTIFY(dprintf("DoNotify: No Target\n"));
 220     }
 221     return 1UL;
 222
 223     AROS_LIBFUNC_EXIT
 224 } /* DoNotify() */
 225