workbench/libs/desktop/dodesktopoperation.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 #include <exec/types.h>
   9 #include <exec/memory.h>
  10 #include <intuition/classusr.h>
  11 #include <libraries/desktop.h>
  12 #include <libraries/mui.h>
  13 #include <utility/tagitem.h>
  14
  15 #include <proto/exec.h>
  16 #include <proto/intuition.h>
  17 #include <proto/muimaster.h>
  18 #include <proto/utility.h>
  19
  20 #include "desktop_intern.h"
  21 #include "support.h"
  22
  23 #include "operationclass.h"
  24
  25 #define DEBUG 1
  26 #include <aros/debug.h>
  27
  28 /*****************************************************************************
  29
  30     NAME */
  31
  32         #include <proto/desktop.h>
  33
  34         AROS_LH2(ULONG, DoDesktopOperationA,
  35
  36 /*  SYNOPSIS */
  37
  38         AROS_LHA(ULONG, operationCode, D0),
  39         AROS_LHA(struct TagItem *, tags, D2),
  40
  41 /*  LOCATION */
  42
  43         struct DesktopBase *, DesktopBase, 9, Desktop)
  44 /*
  45    FUNCTION
  46
  47    INPUTS
  48
  49    RESULT
  50
  51    NOTES
  52
  53    EXAMPLE
  54
  55    BUGS
  56
  57    SEE ALSO
  58
  59    INTERNALS
  60
  61    HISTORY
  62
  63    *****************************************************************************
  64  */
  65 {
  66     AROS_LIBFUNC_INIT
  67     struct DesktopOperation *dop,
  68                    *subdop;
  69     BOOL            found = FALSE;
  70     ULONG           result = 0;
  71     Object         *newObject;
  72     Object         *target;
  73
  74     dop = (struct DesktopOperation *) DesktopBase->db_OperationList.lh_Head;
  75     while (dop->do_Node.ln_Succ && !found)
  76     {
  77         if (operationCode == dop->do_Code)
  78         {
  79             newObject = NewObjectA(dop->do_Impl->mcc_Class, NULL, NULL);
  80             if (newObject)
  81             {
  82                 target = (Object *) GetTagData(DDO_Target, NULL, tags);
  83                 if (target)
  84                 {
  85                     result =
  86                         DoMethod(newObject, OPM_Execute, (IPTR) target,
  87                                  operationCode);
  88                 }
  89                 DisposeObject(newObject);
  90             }
  91
  92             found = TRUE;
  93         }
  94
  95         if (!IsListEmpty(&dop->do_SubItems))
  96         {
  97             subdop = (struct DesktopOperation *) dop->do_SubItems.lh_Head;
  98             while (subdop->do_Node.ln_Succ && !found)
  99             {
 100                 if (operationCode == subdop->do_Code)
 101                 {
 102                     newObject =
 103                         NewObjectA(subdop->do_Impl->mcc_Class, NULL, NULL);
 104                     if (newObject)
 105                     {
 106                         target = (Object *) GetTagData(DDO_Target, NULL, tags);
 107                         if (target)
 108                         {
 109                             result =
 110                                 DoMethod(newObject, OPM_Execute, (IPTR) target,
 111                                          operationCode);
 112                         }
 113                         DisposeObject(newObject);
 114                     }
 115
 116                     found = TRUE;
 117                 }
 118
 119                 subdop = (struct DesktopOperation *) subdop->do_Node.ln_Succ;
 120             }
 121
 122         }
 123
 124         dop = (struct DesktopOperation *) dop->do_Node.ln_Succ;
 125     }
 126
 127     return result;
 128
 129     AROS_LIBFUNC_EXIT
 130 } /* DoDesktopOperationA */