rom/intuition/donotify.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     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     DEBUG_NOTIFY(dprintf("DoNotify: cl 0x%lx o 0x%lx ICData 0x%lx opUpdate 0x%lx\n",cl,o,ic,msg));
 115
 116     SANITY_CHECKR(o,1UL)
 117     SANITY_CHECKR(cl,1UL)
 118     SANITY_CHECKR(msg,1UL)
 119     SANITY_CHECKR(ic,1UL)
 120
 121     if( ic->ic_Target != NULL )
 122     {
 123         if( msg->opu_AttrList) /* stegerg: ??? checked also "&& msg->opu_GInfo" ) */
 124         {
 125             ic->ic_LoopCounter += 1UL;
 126
 127             DEBUG_NOTIFY(dprintf("DoNotify: Loop counter %ld\n",ic->ic_LoopCounter));
 128             /* Don't get into a circular notify target loop */
 129             if( ic->ic_LoopCounter == 1UL )
 130             {
 131                 if(( ic->ic_CloneTags = CloneTagItems(msg->opu_AttrList)))
 132                 {
 133                     DEBUG_NOTIFY(dprintf("DoNotify: CloneTags 0x%lx\n",ic->ic_CloneTags));
 134                     if( ic->ic_Mapping != NULL )
 135                     {
 136                         MapTags(ic->ic_CloneTags, ic->ic_Mapping, MAP_KEEP_NOT_FOUND);
 137                     }
 138
 139                     if( ic->ic_Target != (Object *)ICTARGET_IDCMP)
 140                     {
 141                         struct opUpdate opu;
 142
 143                         opu.MethodID     = OM_UPDATE;
 144                         opu.opu_AttrList = ic->ic_CloneTags;
 145                         opu.opu_GInfo    = msg->opu_GInfo;
 146                         opu.opu_Flags    = msg->opu_Flags;
 147
 148                         DEBUG_NOTIFY(dprintf("DoNotify: Send OM_UPDATA to 0x%lx\n",ic->ic_Target));
 149                         DoMethodA( ic->ic_Target, (Msg)&opu );
 150                     }
 151                     else
 152                     {
 153                         if (msg->opu_GInfo)
 154                         {
 155                             struct Window *win;
 156
 157                             if ((win = msg->opu_GInfo->gi_Window))
 158                             {
 159                                 if (win->UserPort)
 160                                 {
 161                                     if (win->IDCMPFlags & IDCMP_IDCMPUPDATE)
 162                                     {
 163                                         struct TagItem  *ti;
 164                                         UWORD            code = 0;
 165
 166                                         if ((ti = FindTagItem(ICSPECIAL_CODE, ic->ic_CloneTags)))
 167                                         {
 168                                             code = ti->ti_Data & 0xFFFF;
 169                                         }
 170
 171                                     #if !USE_IDCMPUPDATE_MESSAGECACHE
 172                                         if (!(msg->opu_Flags & OPUF_INTERIM) ||
 173                                             (IW(win)->num_repeatevents < IW(win)->repeatqueue))
 174                                         {
 175                                     #endif
 176
 177                                             SendIDCMPUpdate( cl, o, msg, IDCMP_IDCMPUPDATE,
 178                                                              code, ic->ic_CloneTags, IntuitionBase );
 179
 180                                             /* in this case the cloned tagitems will be freed in the Intuition
 181                                                InputHandler when the app has replied the IntuiMessage */
 182
 183                                             ic->ic_CloneTags = NULL;
 184
 185                                     #if !USE_IDCMPUPDATE_MESSAGECACHE
 186                                         }
 187                                     #endif
 188
 189                                     }
 190                                 }
 191                             }
 192                         }
 193                     }
 194
 195                     FreeTagItems(ic->ic_CloneTags);
 196
 197                     ic->ic_CloneTags = NULL;
 198
 199                 } /* CloneTagItems() */
 200
 201             } /* LoopCounter == 1UL */
 202             else
 203             {
 204                 DEBUG_NOTIFY(dprintf("DoNotify: skip..circular\n"));
 205             }
 206
 207             ic->ic_LoopCounter -= 1UL;
 208
 209         } /* valid parameters */
 210         else
 211         {
 212             DEBUG_NOTIFY(dprintf("DoNotify: no AttrList\n"));
 213         }
 214     } /* valid target */
 215     else
 216     {
 217         DEBUG_NOTIFY(dprintf("DoNotify: No Target\n"));
 218     }
 219     return 1UL;
 220
 221     AROS_LIBFUNC_EXIT
 222 } /* DoNotify() */
 223