rom/intuition/icclass.c

   1 /*
   2     Copyright © 1995-2011, 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 #define DEBUG_IC(x) ;
  32
  33 /**********************************************************************************************/
  34
  35 static void _om_set(struct ICData *ic, struct TagItem *tags, struct IntuitionBase *IntuitionBase)
  36 {
  37     struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
  38     struct TagItem *tag, *tstate = tags;
  39
  40     while ((tag = NextTagItem(&tstate)))
  41     {
  42         switch(tag->ti_Tag)
  43         {
  44         case ICA_MAP:
  45             ic->ic_Mapping = (struct TagItem *)tag->ti_Data;
  46             break;
  47
  48         case ICA_TARGET:
  49             ic->ic_Target = (Object *)tag->ti_Data;
  50             break;
  51         }
  52     }
  53 }
  54
  55 IPTR ICClass__OM_NEW(Class *cl, Object *o, struct opSet *msg)
  56 {
  57     IPTR retval;
  58     struct ICData *ic;
  59     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
  60
  61     DEBUG_IC(dprintf("dispatch_icclass: OM_NEW\n"));
  62
  63     retval = DoSuperMethodA(cl, o, (Msg)msg);
  64
  65     if (!retval) return (IPTR)FALSE;
  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     _om_set(ic, msg->ops_AttrList, IntuitionBase);
  75
  76     return retval;
  77 }
  78
  79 IPTR ICClass__OM_SET(Class *cl, Object *o, struct opSet *msg)
  80 {
  81     struct ICData *ic = INST_DATA(cl, o);
  82     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
  83
  84     DEBUG_IC(dprintf("dispatch_icclass: OM_SET\n"));
  85     _om_set(ic, msg->ops_AttrList, IntuitionBase);
  86     DEBUG_IC(dprintf("dispatch_icclass: OM_SET Map 0x%lx Target 0x%lx\n",ic->ic_Mapping,ic->ic_Target));
  87
  88     return (IPTR)TRUE;
  89 }
  90
  91 IPTR ICClass__OM_NOTIFY(Class *cl, Object *o, struct opUpdate *msg)
  92 {
  93     struct ICData *ic = INST_DATA(cl, o);
  94     IPTR retval;
  95     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
  96
  97     /* Send update notification to target
  98      */
  99     DEBUG_IC(dprintf("dispatch_icclass: OM_NOTIFY\n"));
 100     DEBUG_IC(dprintf("dispatch_icclass: DoNotify\n"));
 101     retval = DoNotify(cl, o, ic, msg);
 102     DEBUG_IC(dprintf("dispatch_icclass: DoNotify done\n"));
 103
 104     return retval;
 105 }
 106
 107 IPTR ICClass__OM_DISPOSE(Class *cl, Object *o, Msg msg)
 108 {
 109     struct ICData *ic = INST_DATA(cl, o);
 110     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
 111
 112     DEBUG_IC(dprintf("dispatch_icclass: OM_DISPOSE\n"));
 113     FreeICData(ic);
 114     DoSuperMethodA(cl, o, msg);
 115
 116     return (IPTR)TRUE;
 117 }
 118
 119 IPTR ICClass__OM_GET(Class *cl, Object *o, struct opGet *msg)
 120 {
 121     struct ICData *ic = INST_DATA(cl, o);
 122
 123     DEBUG_IC(dprintf("dispatch_icclass: OM_GET\n"));
 124     switch (msg->opg_AttrID)
 125     {
 126     case ICA_MAP:
 127         *msg->opg_Storage = (IPTR)ic->ic_Mapping;
 128         break;
 129
 130     case ICA_TARGET:
 131         *msg->opg_Storage = (IPTR)ic->ic_Target;
 132         break;
 133     }
 134
 135     return (IPTR)TRUE;
 136 }
 137
 138
 139 /*
 140  * NOTE: I current don't see the purpose of the ICM_* methods
 141  * this implementation could be WAY off base...
 142  *
 143  * stegerg: well, it is for example needed by modeclass which is
 144  * a superclass of icclass.
 145  *
 146  * IMPORTANT: ICM_SETLOOP, ICM_CLEARLOOP, ICM_CHECKLOOP are also
 147  * handled by gadgetclass: change here <-> change there!
 148  */
 149
 150 void ICClass__ICM_SETLOOP(Class *cl, Object *o, Msg msg)
 151 {
 152     struct ICData *ic = INST_DATA(cl, o);
 153
 154     /* set/increment loop counter    */
 155     ic->ic_LoopCounter += 1UL;
 156     DEBUG_IC(dprintf("dispatch_icclass: ICM_SETLOOP new LoopCounter %ld\n",ic->ic_LoopCounter));
 157 }
 158
 159 void ICClass__ICM_CLEARLOOP(Class *cl, Object *o, Msg msg)
 160 {
 161     struct ICData *ic = INST_DATA(cl, o);
 162
 163     /* clear/decrement loop counter */
 164     ic->ic_LoopCounter -= 1UL;
 165     DEBUG_IC(dprintf("dispatch_icclass: ICM_CLEAR new LoopCounter %ld\n",ic->ic_LoopCounter));
 166 }
 167
 168 IPTR ICClass__ICM_CHECKLOOP(Class *cl, Object *o, Msg msg)
 169 {
 170     struct ICData *ic = INST_DATA(cl, o);
 171
 172     /* get loop counter   */
 173     DEBUG_IC(dprintf("dispatch_icclass: ICM_CHECKLOOP new LoopCounter %ld\n",ic->ic_LoopCounter));
 174     return (IPTR)ic->ic_LoopCounter;
 175 }
 176
 177 /**********************************************************************************************/
 178