rom/boopsi/modelclass.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: modelclass implementation.
   6     Lang: english
   7 */
   8
   9
  10 #include <exec/types.h>
  11
  12 #include <intuition/classes.h>
  13 #include <intuition/classusr.h>
  14 #include <intuition/gadgetclass.h>
  15 #include <intuition/cghooks.h>
  16 #include <intuition/icclass.h>
  17
  18 #include <utility/tagitem.h>
  19 #include <utility/hooks.h>
  20
  21 #include <clib/macros.h>
  22
  23 #include <proto/exec.h>
  24 #include <proto/utility.h>
  25 #include <proto/boopsi.h>
  26 #include <clib/intuition_protos.h>      /* UgH - Need DoMethod() etc */
  27
  28 #ifdef __AROS__
  29 #include <aros/asmcall.h>
  30 #include <proto/alib.h>
  31 #endif
  32
  33 #include "intern.h"
  34
  35 /**********************************************************************************************/
  36
  37 #undef BOOPSIBase
  38 #define BOOPSIBase      ((struct Library *)(cl->cl_UserData))
  39
  40 struct ModelData
  41 {
  42     struct MinList memberlist;
  43 };
  44
  45 /**********************************************************************************************/
  46
  47 /* icclass boopsi dispatcher
  48  */
  49 AROS_UFH3S(IPTR, dispatch_modelclass,
  50     AROS_UFHA(Class *,  cl,  A0),
  51     AROS_UFHA(Object *, o,   A2),
  52     AROS_UFHA(Msg,      msg, A1)
  53 )
  54 {
  55     struct ModelData    *data;
  56     IPTR                retval = 0UL;
  57
  58     if (msg->MethodID != OM_NEW) data = INST_DATA(cl, o);
  59
  60     switch(msg->MethodID)
  61     {
  62         case OM_NEW:
  63             if ((o = (Object *)DoSuperMethodA(cl, o, msg)))
  64             {
  65                 data = INST_DATA(cl, o);
  66
  67                 NEWLIST(&data->memberlist);
  68
  69                 retval = (IPTR)o;
  70             };
  71             break;
  72
  73         case OM_DISPOSE:
  74             for(;;)
  75             {
  76                 /* free all member objects */
  77
  78                 Object *member, *objstate;
  79
  80                 objstate = (Object *)data->memberlist.mlh_Head;
  81                 member = NextObject(&objstate);
  82                 if (!member) break;
  83
  84                 DoMethod(member, OM_REMOVE);
  85
  86                 DisposeObject(member);
  87
  88             }
  89             retval = DoSuperMethodA(cl, o, msg);
  90             break;
  91
  92         case OM_ADDMEMBER:
  93             DoMethod( ((struct opMember *)msg)->opam_Object, OM_ADDTAIL, &data->memberlist);
  94             break;
  95
  96         case OM_REMMEMBER:
  97             DoMethod( ((struct opMember *)msg)->opam_Object, OM_REMOVE);
  98             break;
  99
 100         case OM_UPDATE:
 101         case OM_NOTIFY:
 102             /* send OM_UPDATE to all members without mapping the tags! */
 103
 104             if (!IsListEmpty(&data->memberlist))
 105             {
 106                 if (DoMethod(o, ICM_CHECKLOOP) == 0) /* avoid loops */
 107                 {
 108                     struct TagItem *clonetags;
 109
 110                     if ((clonetags = CloneTagItems(((struct opUpdate *)msg)->opu_AttrList)))
 111                     {
 112                         struct opUpdate opu = *(struct opUpdate *)msg;
 113                         Object          *member, *objstate;
 114
 115                         opu.MethodID     = OM_UPDATE; /* not OM_NOTIFY! */
 116                         opu.opu_AttrList = clonetags;
 117
 118                         DoMethod(o, ICM_SETLOOP);
 119
 120                         objstate = (Object *)data->memberlist.mlh_Head;
 121                         while((member = NextObject(&objstate)))
 122                         {
 123                             DoMethodA(member, (Msg)&opu);
 124
 125                             /* in case the member object poked around in the taglist: */
 126                             RefreshTagItemClones(clonetags, ((struct opUpdate *)msg)->opu_AttrList);
 127                         }
 128
 129                         DoMethod(o, ICM_CLEARLOOP);
 130
 131                         FreeTagItems(clonetags);
 132                     }
 133
 134                 } /* if (DoMethod(o, ICM_CHECKLOOP) == 0) */
 135
 136             } /* if (!IsListEmpty(&data->memberlist)) */
 137
 138             /* modelclass is a superclass of icclass so not only the members are targets,
 139                but possibly also the modelclass object itself could have an ICA_Target.
 140                This is handled by the superclass */
 141
 142             retval = DoSuperMethodA(cl, o, msg);
 143             break;
 144
 145         default:
 146             retval = DoSuperMethodA(cl, o, msg);
 147             break;
 148
 149     } /* switch(msg->MethodID) */
 150
 151     return retval;
 152
 153 }  /* dispatch_modelclass */
 154
 155 #undef BOOPSIBase
 156
 157 /**********************************************************************************************/
 158
 159 struct IClass *InitModelClass (struct Library * BOOPSIBase)
 160 {
 161     struct IClass *cl = NULL;
 162
 163     /* This is the code to make the modelclass...
 164     */
 165     if ( (cl = MakeClass(MODELCLASS, ICCLASS, NULL, sizeof(struct ModelData), 0)) )
 166     {
 167         cl->cl_Dispatcher.h_Entry    = (APTR)AROS_ASMSYMNAME(dispatch_modelclass);
 168         cl->cl_Dispatcher.h_SubEntry = NULL;
 169         cl->cl_UserData              = (IPTR)BOOPSIBase;
 170
 171         AddClass (cl);
 172     }
 173
 174     return (cl);
 175 }
 176
 177 /**********************************************************************************************/
 178