rom/boopsi/icclass.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: icclass implementation.
   6     Lang: english
   7 */
   8
   9 /* AROS icclass implementation
  10  * 10/25/96 caldi@usa.nai.net
  11  */
  12
  13 #include <exec/types.h>
  14
  15 #include <intuition/classes.h>
  16 #include <intuition/classusr.h>
  17 #include <intuition/gadgetclass.h>
  18 #include <intuition/cghooks.h>
  19 #include <intuition/icclass.h>
  20
  21 #include <utility/tagitem.h>
  22 #include <utility/hooks.h>
  23
  24 #include <clib/macros.h>
  25
  26 #include <proto/exec.h>
  27 #include <proto/utility.h>
  28 #include <proto/boopsi.h>
  29 #include <clib/intuition_protos.h>      /* UgH - Need DoMethod() etc */
  30
  31 #ifdef __AROS__
  32 #include <aros/asmcall.h>
  33 #include <proto/alib.h>
  34 #endif
  35
  36 #include "intern.h"
  37
  38 /**********************************************************************************************/
  39
  40 #undef BOOPSIBase
  41 #define BOOPSIBase      ((struct Library *)(cl->cl_UserData))
  42
  43 /**********************************************************************************************/
  44
  45 /* icclass boopsi dispatcher
  46  */
  47 AROS_UFH3S(IPTR, dispatch_icclass,
  48     AROS_UFHA(Class *,  cl,  A0),
  49     AROS_UFHA(Object *, o,   A2),
  50     AROS_UFHA(Msg,      msg, A1)
  51 )
  52 {
  53     struct ICData       *ic = NULL;
  54     IPTR                retval = 0UL;
  55
  56     if (msg->MethodID != OM_NEW)
  57         ic = INST_DATA(cl, o);
  58
  59     switch(msg->MethodID)
  60     {
  61         case OM_NEW:
  62             retval = DoSuperMethodA(cl, o, msg);
  63
  64             if (!retval)
  65                 break;
  66
  67             ic = INST_DATA(cl, retval);
  68
  69             /* set some defaults */
  70             ic->ic_Target        = NULL;
  71             ic->ic_Mapping       = NULL;
  72             ic->ic_CloneTags = NULL;
  73
  74             /* Handle our special tags - overrides defaults */
  75             /* Fall through */
  76
  77         case OM_SET:
  78             {
  79                 struct TagItem *tstate = ((struct opSet *)msg)->ops_AttrList;
  80                 struct TagItem *tag;
  81
  82                 while ((tag = NextTagItem((const struct TagItem **)&tstate)))
  83                 {
  84                     switch(tag->ti_Tag)
  85                     {
  86                     case ICA_MAP:
  87                         ic->ic_Mapping = (struct TagItem *)tag->ti_Data;
  88                         break;
  89
  90                     case ICA_TARGET:
  91                         ic->ic_Target = (Object *)tag->ti_Data;
  92                         break;
  93                     }
  94                 }
  95             }
  96             break;
  97
  98         case OM_UPDATE: /* Maxon HotHelp says so and for example relied upon by modelclass */
  99         case OM_NOTIFY:
 100            /* Send update notification to target
 101            */
 102             retval = DoNotify(cl, o, INST_DATA(cl, o), (struct opUpdate *)msg);
 103             break;
 104
 105         case OM_DISPOSE:
 106             FreeICData(INST_DATA(cl, o));
 107             DoSuperMethodA(cl, o, msg);
 108             break;
 109
 110         case OM_GET:
 111             switch (((struct opGet *)msg)->opg_AttrID)
 112             {
 113             case ICA_MAP:
 114                 *((struct opGet *)msg)->opg_Storage = (ULONG)ic->ic_Mapping;
 115                 break;
 116
 117             case ICA_TARGET:
 118                 *((struct opGet *)msg)->opg_Storage = (ULONG)ic->ic_Target;
 119                 break;
 120             }
 121
 122             break;
 123
 124         /*
 125             NOTE: I current don't see the purpose of the ICM_* methods
 126             this implementation could be WAY off base...
 127
 128             stegerg: well, it is for example needed by modeclass which is
 129             a superclass of icclass.
 130
 131             IMPORTANT: ICM_SETLOOP, ICM_CLEARLOOP, ICM_CHECKLOOP are also
 132             handled by gadgetclass: change here <-> change there!
 133
 134         */
 135
 136         case  ICM_SETLOOP:            /* set/increment loop counter    */
 137             {
 138                 struct ICData *ic = INST_DATA(cl, o);
 139
 140                 ic->ic_LoopCounter += 1UL;
 141             }
 142
 143             break;
 144
 145         case  ICM_CLEARLOOP:    /* clear/decrement loop counter */
 146             {
 147                 struct ICData *ic = INST_DATA(cl, o);
 148
 149                 ic->ic_LoopCounter -= 1UL;
 150             }
 151
 152             break;
 153
 154         case  ICM_CHECKLOOP:    /* set/increment loop    */
 155             {
 156                 struct ICData *ic = INST_DATA(cl, o);
 157
 158                 retval = (IPTR)ic->ic_LoopCounter;
 159             }
 160
 161             break;
 162
 163         default:
 164             retval = DoSuperMethodA(cl, o, msg);
 165             break;
 166
 167     } /* switch */
 168
 169     return retval;
 170
 171 }  /* dispatch_icclass */
 172
 173 #undef BOOPSIBase
 174
 175 /**********************************************************************************************/
 176
 177 struct IClass *InitICClass (struct Library * BOOPSIBase)
 178 {
 179     struct IClass *cl = NULL;
 180
 181     /* This is the code to make the icclass...
 182     */
 183     if ( (cl = MakeClass(ICCLASS, ROOTCLASS, NULL, sizeof(struct ICData), 0)) )
 184     {
 185         cl->cl_Dispatcher.h_Entry    = (APTR)AROS_ASMSYMNAME(dispatch_icclass);
 186         cl->cl_Dispatcher.h_SubEntry = NULL;
 187         cl->cl_UserData              = (IPTR)BOOPSIBase;
 188
 189         AddClass (cl);
 190     }
 191
 192     return (cl);
 193 }
 194
 195 /**********************************************************************************************/
 196