rom/intuition/modelclass.c

   1 /*
   2     Copyright © 1995-2005, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <exec/types.h>
   8
   9 #include <intuition/classes.h>
  10 #include <intuition/classusr.h>
  11 #include <intuition/gadgetclass.h>
  12 #include <intuition/cghooks.h>
  13 #include <intuition/icclass.h>
  14
  15 #include <utility/tagitem.h>
  16 #include <utility/hooks.h>
  17
  18 #include <clib/macros.h>
  19
  20 #include <proto/exec.h>
  21 #include <proto/utility.h>
  22 #include <proto/intuition.h>
  23
  24 #ifndef __MORPHOS__
  25 #include <aros/asmcall.h>
  26 #include <proto/alib.h>
  27 #endif /* !__MORPHOS__ */
  28
  29 #include "intuition_intern.h"
  30
  31 /**********************************************************************************************/
  32
  33 #undef IntuitionBase
  34 #define IntuitionBase   ((struct IntuiBase *)(cl->cl_UserData))
  35
  36 /**********************************************************************************************/
  37
  38 IPTR ModelClass__OM_NEW(Class *cl, Object *o, Msg msg)
  39 {
  40     struct ModelData *data;
  41
  42     if ((o = (Object *)DoSuperMethodA(cl, o, msg)))
  43     {
  44         data = INST_DATA(cl, o);
  45
  46         NEWLIST(&data->memberlist);
  47     };
  48
  49     return (IPTR)o;
  50 }
  51
  52 IPTR ModelClass__OM_DISPOSE(Class *cl, Object *o, Msg msg)
  53 {
  54     struct ModelData *data = (struct ModelData *)INST_DATA(cl, o);
  55
  56     for(;;)
  57     {
  58         /* free all member objects */
  59
  60         Object *member, *objstate;
  61         ULONG method;
  62
  63         objstate = (Object *)data->memberlist.mlh_Head;
  64         member = NextObject(&objstate);
  65         if (!member) break;
  66
  67         method = OM_REMOVE;
  68         DoMethodA(member, (Msg)&method);
  69
  70         DisposeObject(member);
  71
  72     }
  73
  74     return DoSuperMethodA(cl, o, msg);
  75 }
  76
  77 IPTR ModelClass__OM_ADDMEMBER(Class *cl, Object *o, struct opMember *msg)
  78 {
  79     struct ModelData *data = (struct ModelData *)INST_DATA(cl, o);
  80     struct opAddTail method;
  81
  82     method.MethodID  = OM_ADDTAIL;
  83     method.opat_List = (struct List *)&data->memberlist;
  84
  85     DoMethodA( msg->opam_Object, (Msg)&method);
  86
  87     return (IPTR)0;
  88 }
  89
  90 IPTR ModelClass__OM_REMMEMBER(Class *cl, Object *o, struct opMember *msg)
  91 {
  92     STACKULONG method = OM_REMOVE;
  93
  94     return DoMethodA(msg->opam_Object, (Msg)&method);
  95 }
  96
  97 IPTR ModelClass__OM_UPDATE(Class *cl, Object *o, struct opUpdate *msg)
  98 {
  99     struct ModelData *data = (struct ModelData *)INST_DATA(cl, o);
 100
 101     /* send OM_UPDATE to all members without mapping the tags! */
 102
 103     if (!IsListEmpty((struct List *)&data->memberlist))
 104     {
 105         STACKULONG method = ICM_CHECKLOOP;
 106
 107         if (DoMethodA(o, (Msg)&method) == 0) /* avoid loops */
 108         {
 109             struct TagItem *clonetags;
 110
 111             if ((clonetags = CloneTagItems(msg->opu_AttrList)))
 112             {
 113                 struct opUpdate  opu = *msg;
 114                 Object          *member, *objstate;
 115
 116                 opu.MethodID     = OM_UPDATE; /* not OM_NOTIFY! */
 117                 opu.opu_AttrList = clonetags;
 118
 119                 method = ICM_SETLOOP;
 120                 DoMethodA(o, (Msg)&method);
 121
 122                 objstate = (Object *)data->memberlist.mlh_Head;
 123                 while((member = NextObject(&objstate)))
 124                 {
 125                     DoMethodA(member, (Msg)&opu);
 126
 127                     /* in case the member object poked around in the taglist: */
 128                     RefreshTagItemClones(clonetags, msg->opu_AttrList);
 129                 }
 130
 131                 method = ICM_CLEARLOOP;
 132                 DoMethodA(o, (Msg)&method);
 133
 134                 FreeTagItems(clonetags);
 135             }
 136
 137         } /* if (DoMethod(o, ICM_CHECKLOOP) == 0) */
 138
 139     } /* if (!IsListEmpty(&data->memberlist)) */
 140
 141     /* modelclass is a superclass of icclass so not only the members are targets,
 142      * but possibly also the modelclass object itself could have an ICA_Target.
 143      * This is handled by the superclass */
 144
 145     return DoSuperMethodA(cl, o, (Msg)msg);
 146 }