rom/intuition/donotify.c

   1 /*
   2     Copyright © 1995-2013, 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         AROS_LH4(IPTR, DoNotify,
  71
  72 /*  SYNOPSIS */
  73         AROS_LHA(Class *,      cl, A0),
  74         AROS_LHA(Object *,     o,  A1),
  75         AROS_LHA(struct ICData *,  ic, A2),
  76         AROS_LHA(struct opUpdate *,    msg,    A3),
  77
  78 /*  LOCATION */
  79         struct IntuitionBase *, IntuitionBase, 145, Intuition)
  80
  81 /*  FUNCTION
  82         This function provides a way for icclass objects to notify
  83         their listeners when they are notifying. It is mainly
  84         provided as an external function for intuition.library's
  85         gadgetclass implementation, which contains an inbuilt
  86         icclass.
  87
  88     INPUTS
  89         cl      - my class
  90         o       - this object
  91         icdata  - interconnection information
  92         msg     - the message given to the OM_NOTIFY method
  93
  94     RESULT
  95         The objects listening to this object will be notified.
  96
  97         Note: Return value not clear.
  98
  99     NOTES
 100         This function is also present in MorphOS v50; however it is
 101         considered private there.
 102
 103     EXAMPLE
 104
 105     BUGS
 106
 107     SEE ALSO
 108
 109     INTERNALS
 110
 111 ******************************************************************************/
 112 {
 113     AROS_LIBFUNC_INIT
 114
 115     struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
 116
 117     DEBUG_NOTIFY(dprintf("DoNotify: cl 0x%lx o 0x%lx ICData 0x%lx opUpdate 0x%lx\n",cl,o,ic,msg));
 118
 119     SANITY_CHECKR(o,1UL)
 120     SANITY_CHECKR(cl,1UL)
 121     SANITY_CHECKR(msg,1UL)
 122     SANITY_CHECKR(ic,1UL)
 123
 124     if( ic->ic_Target != NULL )
 125     {
 126         if( msg->opu_AttrList) /* stegerg: ??? checked also "&& msg->opu_GInfo" ) */
 127         {
 128             ic->ic_LoopCounter += 1UL;
 129
 130             DEBUG_NOTIFY(dprintf("DoNotify: Loop counter %ld\n",ic->ic_LoopCounter));
 131             /* Don't get into a circular notify target loop */
 132             if( ic->ic_LoopCounter == 1UL )
 133             {
 134                 if(( ic->ic_CloneTags = CloneTagItems(msg->opu_AttrList)))
 135                 {
 136                     DEBUG_NOTIFY(dprintf("DoNotify: CloneTags 0x%lx\n",ic->ic_CloneTags));
 137                     if( ic->ic_Mapping != NULL )
 138                     {
 139                         MapTags(ic->ic_CloneTags, ic->ic_Mapping, MAP_KEEP_NOT_FOUND);
 140                     }
 141
 142                     if( ic->ic_Target != (Object *)ICTARGET_IDCMP)
 143                     {
 144                         struct opUpdate opu;
 145
 146                         opu.MethodID     = OM_UPDATE;
 147                         opu.opu_AttrList = ic->ic_CloneTags;
 148                         opu.opu_GInfo    = msg->opu_GInfo;
 149                         opu.opu_Flags    = msg->opu_Flags;
 150
 151                         DEBUG_NOTIFY(dprintf("DoNotify: Send OM_UPDATA to 0x%lx\n",ic->ic_Target));
 152                         DoMethodA( ic->ic_Target, (Msg)&opu );
 153                     }
 154                     else
 155                     {
 156                         if (msg->opu_GInfo)
 157                         {
 158                             struct Window *win;
 159
 160                             if ((win = msg->opu_GInfo->gi_Window))
 161                             {
 162                                 if (win->UserPort)
 163                                 {
 164                                     if (win->IDCMPFlags & IDCMP_IDCMPUPDATE)
 165                                     {
 166                                         struct TagItem  *ti;
 167                                         UWORD            code = 0;
 168
 169                                         if ((ti = FindTagItem(ICSPECIAL_CODE, ic->ic_CloneTags)))
 170                                         {
 171                                             code = ti->ti_Data & 0xFFFF;
 172                                         }
 173
 174                                     #if !USE_IDCMPUPDATE_MESSAGECACHE
 175                                         if (!(msg->opu_Flags & OPUF_INTERIM) ||
 176                                             (IW(win)->num_repeatevents < IW(win)->repeatqueue))
 177                                         {
 178                                     #endif
 179
 180                                             SendIDCMPUpdate( cl, o, msg, IDCMP_IDCMPUPDATE,
 181                                                              code, ic->ic_CloneTags, IntuitionBase );
 182
 183                                             /* in this case the cloned tagitems will be freed in the Intuition
 184                                                InputHandler when the app has replied the IntuiMessage */
 185
 186                                             ic->ic_CloneTags = NULL;
 187
 188                                     #if !USE_IDCMPUPDATE_MESSAGECACHE
 189                                         }
 190                                     #endif
 191
 192                                     }
 193                                 }
 194                             }
 195                         }
 196                     }
 197
 198                     FreeTagItems(ic->ic_CloneTags);
 199
 200                     ic->ic_CloneTags = NULL;
 201
 202                 } /* CloneTagItems() */
 203
 204             } /* LoopCounter == 1UL */
 205             else
 206             {
 207                 DEBUG_NOTIFY(dprintf("DoNotify: skip..circular\n"));
 208             }
 209
 210             ic->ic_LoopCounter -= 1UL;
 211
 212         } /* valid parameters */
 213         else
 214         {
 215             DEBUG_NOTIFY(dprintf("DoNotify: no AttrList\n"));
 216         }
 217     } /* valid target */
 218     else
 219     {
 220         DEBUG_NOTIFY(dprintf("DoNotify: No Target\n"));
 221     }
 222     return 1UL;
 223
 224     AROS_LIBFUNC_EXIT
 225 } /* DoNotify() */
 226