workbench/libs/desktop/operationclass.c

   1 /*
   2    Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3    $Id$
   4 */
   5
   6 #define MUIMASTER_YES_INLINE_STDARG
   7
   8 #define DEBUG 1
   9 #include <aros/debug.h>
  10
  11 #include <exec/types.h>
  12 #include <intuition/classes.h>
  13 #include <intuition/classusr.h>
  14 #include <libraries/mui.h>
  15
  16 #include "support.h"
  17 #include "desktop_intern.h"
  18
  19 #include <proto/dos.h>
  20 #include <proto/intuition.h>
  21 #include <proto/utility.h>
  22
  23 #include "operationclass.h"
  24
  25 #include "desktop_intern_protos.h"
  26
  27 IPTR operationNew(Class * cl, Object * obj, struct opSet * msg)
  28 {
  29     IPTR            retval = 0;
  30     struct OperationClassData *data;
  31     //struct TagItem *tag;
  32
  33     retval = DoSuperMethodA(cl, obj, (Msg) msg);
  34     if (retval)
  35     {
  36         obj = (Object *) retval;
  37         data = INST_DATA(cl, obj);
  38     }
  39
  40     return retval;
  41 }
  42
  43 IPTR operationSet(Class * cl, Object * obj, struct opSet * msg)
  44 {
  45     struct OperationClassData *data;
  46     IPTR            retval = 1;
  47     struct TagItem *tag,
  48                    *tstate = msg->ops_AttrList;
  49
  50     data = (struct OperationClassData *) INST_DATA(cl, obj);
  51
  52     while ((tag = NextTagItem(&tstate)))
  53     {
  54         switch (tag->ti_Tag)
  55         {
  56             default:
  57                 break;
  58         }
  59     }
  60
  61     retval = DoSuperMethodA(cl, obj, (Msg) msg);
  62
  63     return retval;
  64 }
  65
  66 IPTR operationGet(Class * cl, Object * obj, struct opGet * msg)
  67 {
  68     IPTR            retval = 1;
  69     struct OperationClassData *data;
  70
  71     data = (struct OperationClassData *) INST_DATA(cl, obj);
  72
  73     switch (msg->opg_AttrID)
  74     {
  75         default:
  76             retval = DoSuperMethodA(cl, obj, (Msg) msg);
  77             break;
  78     }
  79
  80     return retval;
  81 }
  82
  83 IPTR operationDispose(Class * cl, Object * obj, Msg msg)
  84 {
  85     IPTR            retval;
  86
  87     retval = DoSuperMethodA(cl, obj, msg);
  88
  89     return retval;
  90 }
  91
  92 BOOPSI_DISPATCHER(IPTR, operationDispatcher, cl, obj, msg)
  93 {
  94     ULONG           retval = 0;
  95
  96     switch (msg->MethodID)
  97     {
  98         case OM_NEW:
  99             retval = operationNew(cl, obj, (struct opSet *) msg);
 100             break;
 101         case OM_SET:
 102             retval = operationSet(cl, obj, (struct opSet *) msg);
 103             break;
 104         case OM_GET:
 105             retval = operationGet(cl, obj, (struct opGet *) msg);
 106             break;
 107         case OM_DISPOSE:
 108             retval = operationDispose(cl, obj, msg);
 109             break;
 110         default:
 111             retval = DoSuperMethodA(cl, obj, msg);
 112             break;
 113     }
 114
 115     return retval;
 116 }
 117 BOOPSI_DISPATCHER_END