rom/boopsi/donotify.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: ICClass notification support routines.
   6     Lang: english
   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/boopsi.h>
  17 #include <proto/intuition.h>
  18
  19 #include "intern.h"
  20
  21 /*
  22     Note: This file is essentially the contents of the file
  23     rom/intuition/notify.c which contained code used by the icclass
  24     and gadgetclass in caldi's first implementation. It was split
  25     by iaint for the new boopsi.library.
  26 */
  27
  28
  29 /*
  30     This will hopefully allow us to send an IDCMP message from a boopsi
  31     gadget method.
  32
  33 */
  34 static struct IntuiMessage *SendIDCMPUpdate(
  35     Class               *cl,
  36     Object              *o,
  37     struct opUpdate     *msg,
  38     ULONG               class,
  39     UWORD               code,
  40     APTR                IAddress,
  41     struct Library      *BOOPSIBase)
  42 {
  43     struct IntuiMessage *imsg;
  44
  45     imsg = AllocIntuiMessage(msg->opu_GInfo->gi_Window);
  46
  47     if( imsg )
  48     {
  49         imsg->Class     = class;
  50         imsg->Code      = code;
  51         imsg->Qualifier = 0;
  52         imsg->IAddress  = IAddress;
  53         imsg->MouseX    = 0;
  54         imsg->MouseY    = 0;
  55         imsg->Seconds   = 0;
  56         imsg->Micros    = 0;
  57
  58         /* done by AllocIntuiMessage
  59         imsg->IDCMPWindow = msg->opu_GInfo->gi_Window;
  60         */
  61
  62         SendIntuiMessage(msg->opu_GInfo->gi_Window , imsg);
  63
  64     }
  65
  66     return imsg;
  67 }
  68
  69 /*****i***********************************************************************
  70
  71     NAME */
  72
  73         AROS_LH4(IPTR, DoNotify,
  74
  75 /*  SYNOPSIS */
  76         AROS_LHA(Class *,               cl,     A0),
  77         AROS_LHA(Object *,              o,      A1),
  78         AROS_LHA(struct ICData *,       ic,     A2),
  79         AROS_LHA(struct opUpdate *,     msg,    A3),
  80
  81 /*  LOCATION */
  82         struct Library *, BOOPSIBase, 16, BOOPSI)
  83
  84 /*  FUNCTION
  85         This function provides a way for icclass objects to notify
  86         their listeners when they are notifying. It is mainly
  87         provided as an external function for intuition.library's
  88         gadgetclass implementation, which contains an inbuilt
  89         icclass.
  90
  91     INPUTS
  92             cl      - my class
  93             o       - this object
  94             icdata  - interconnection information
  95             msg     - the message given to the OM_NOTIFY method
  96
  97     RESULT
  98         The objects listening to this object will be notified.
  99
 100         Note: Return value not clear.
 101
 102     NOTES
 103
 104     EXAMPLE
 105
 106     BUGS
 107
 108     SEE ALSO
 109
 110     INTERNALS
 111
 112     HISTORY
 113
 114 ******************************************************************************/
 115 {
 116     AROS_LIBFUNC_INIT
 117
 118     if( ic->ic_Target != NULL )
 119     {
 120         if( msg->opu_AttrList) /* stegerg: ??? checked also "&& msg->opu_GInfo" ) */
 121         {
 122             ic->ic_LoopCounter += 1UL;
 123
 124             /* Don't get into a circular notify target loop */
 125             if( ic->ic_LoopCounter == 1UL )
 126             {
 127                 if(( ic->ic_CloneTags = CloneTagItems(msg->opu_AttrList)))
 128                 {
 129                     if( ic->ic_Mapping != NULL )
 130                     {
 131                         MapTags(ic->ic_CloneTags, ic->ic_Mapping, TRUE);
 132                     }
 133
 134                     if( ic->ic_Target != (Object *)ICTARGET_IDCMP)
 135                     {
 136                         DoMethod( ic->ic_Target,
 137                             OM_UPDATE,
 138                             ic->ic_CloneTags,
 139                             msg->opu_GInfo,
 140                             msg->opu_Flags);
 141
 142                         FreeTagItems(ic->ic_CloneTags);
 143                         ic->ic_CloneTags = NULL;
 144                     }
 145                     else
 146                     {
 147                         if (msg->opu_GInfo)
 148                         if (msg->opu_GInfo->gi_Window)
 149                         if (msg->opu_GInfo->gi_Window->UserPort)
 150                         if (msg->opu_GInfo->gi_Window->IDCMPFlags & IDCMP_IDCMPUPDATE)
 151                         {
 152                             struct TagItem      *ti;
 153                             UWORD               code = 0;
 154
 155                             if ((ti = FindTagItem(ICSPECIAL_CODE, ic->ic_CloneTags)))
 156                             {
 157                                 code = ti->ti_Data & 0xFFFF;
 158                             }
 159                             SendIDCMPUpdate( cl, o, msg, IDCMP_IDCMPUPDATE,
 160                                              code, ic->ic_CloneTags, BOOPSIBase );
 161
 162                             /* in this case the cloned tagitems will be freed in the Intuition
 163                                InputHandler when the app has replied the IntuiMessage */
 164
 165                             ic->ic_CloneTags = NULL;
 166                         }
 167
 168                         /* if IDCMP_IDCMPUPDATE msg could not be sent, free taglist */
 169
 170                         if (ic->ic_CloneTags)
 171                         {
 172                             FreeTagItems(ic->ic_CloneTags);
 173                             ic->ic_CloneTags = NULL;
 174                         }
 175
 176                     }
 177
 178                 } /* CloneTagItems() */
 179
 180             } /* LoopCounter == 1UL */
 181
 182             ic->ic_LoopCounter -= 1UL;
 183
 184         } /* valid parameters */
 185
 186     } /* valid target */
 187
 188     return 1UL;
 189
 190     AROS_LIBFUNC_EXIT
 191
 192 } /* DoNotify() */
 193