rom/boopsi/donotify.c

   1 /*
   2     Copyright © 1995-2001, 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     AROS_LIBBASE_EXT_DECL(struct Library *, BOOPSIBase)
 118
 119     if( ic->ic_Target != NULL )
 120     {
 121         if( msg->opu_AttrList) /* stegerg: ??? checked also "&& msg->opu_GInfo" ) */
 122         {
 123             ic->ic_LoopCounter += 1UL;
 124
 125             /* Don't get into a circular notify target loop */
 126             if( ic->ic_LoopCounter == 1UL )
 127             {
 128                 if(( ic->ic_CloneTags = CloneTagItems(msg->opu_AttrList)))
 129                 {
 130                     if( ic->ic_Mapping != NULL )
 131                     {
 132                         MapTags(ic->ic_CloneTags, ic->ic_Mapping, TRUE);
 133                     }
 134
 135                     if( ic->ic_Target != (Object *)ICTARGET_IDCMP)
 136                     {
 137                         DoMethod( ic->ic_Target,
 138                             OM_UPDATE,
 139                             ic->ic_CloneTags,
 140                             msg->opu_GInfo,
 141                             msg->opu_Flags);
 142
 143                         FreeTagItems(ic->ic_CloneTags);
 144                         ic->ic_CloneTags = NULL;
 145                     }
 146                     else
 147                     {
 148                         if (msg->opu_GInfo)
 149                         if (msg->opu_GInfo->gi_Window)
 150                         if (msg->opu_GInfo->gi_Window->UserPort)
 151                         if (msg->opu_GInfo->gi_Window->IDCMPFlags & IDCMP_IDCMPUPDATE)
 152                         {
 153                             struct TagItem      *ti;
 154                             UWORD               code = 0;
 155
 156                             if ((ti = FindTagItem(ICSPECIAL_CODE, ic->ic_CloneTags)))
 157                             {
 158                                 code = ti->ti_Data & 0xFFFF;
 159                             }
 160                             SendIDCMPUpdate( cl, o, msg, IDCMP_IDCMPUPDATE,
 161                                              code, ic->ic_CloneTags, BOOPSIBase );
 162
 163                             /* in this case the cloned tagitems will be freed in the Intuition
 164                                InputHandler when the app has replied the IntuiMessage */
 165
 166                             ic->ic_CloneTags = NULL;
 167                         }
 168
 169                         /* if IDCMP_IDCMPUPDATE msg could not be sent, free taglist */
 170
 171                         if (ic->ic_CloneTags)
 172                         {
 173                             FreeTagItems(ic->ic_CloneTags);
 174                             ic->ic_CloneTags = NULL;
 175                         }
 176
 177                     }
 178
 179                 } /* CloneTagItems() */
 180
 181             } /* LoopCounter == 1UL */
 182
 183             ic->ic_LoopCounter -= 1UL;
 184
 185         } /* valid parameters */
 186
 187     } /* valid target */
 188
 189     return 1UL;
 190
 191     AROS_LIBFUNC_EXIT
 192
 193 } /* DoNotify() */
 194