workbench/libs/datatypes/dodtdomaina.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #include <proto/intuition.h>
  10 #include <intuition/gadgetclass.h>
  11 #include <intuition/intuition.h>
  12 #include "datatypes_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17
  18         AROS_LH7(ULONG, DoDTDomainA,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(Object           *, o     , A0),
  22         AROS_LHA(struct Window    *, win   , A1),
  23         AROS_LHA(struct Requester *, req   , A2),
  24         AROS_LHA(struct RastPort  *, rport , A3),
  25         AROS_LHA(ULONG             , which , D0),
  26         AROS_LHA(struct IBox      *, domain, A4),
  27         AROS_LHA(struct TagItem   *, attrs , A5),
  28
  29
  30 /*  LOCATION */
  31         struct Library *, DataTypesBase, 51, DataTypes)
  32
  33 /*  FUNCTION
  34
  35     Obtain the maximum/minimum/nominal domains of a data type object.
  36
  37     INPUTS
  38
  39     o       --  data type object in question
  40     win     --  window that the object is attached to
  41     req     --  requester the object is attached to
  42     rport   --  rastport; used for domain calculations
  43     which   --  the domain to obtain (GDOMAIN_, see <intuition/gadgetclass.h>
  44     domain  --  the result will be put here
  45     attrs   --  additional attributes (subclass specific)
  46
  47     RESULT
  48
  49     The return value of GM_DOMAIN or 0 if an error occurred. The 'domain'
  50     IBox will be filled with the requested values as a side effect.
  51
  52     NOTES
  53
  54     This function requires an object to perform the GM_DOMAIN method. To
  55     achieve similar results without an object, you must use CoerceMethodA()
  56     manually.
  57
  58     EXAMPLE
  59
  60     BUGS
  61
  62     SEE ALSO
  63
  64     <intuition/gadgetclass.h>
  65
  66     INTERNALS
  67
  68     HISTORY
  69
  70     7.8.99  SDuvan  implemented
  71
  72 *****************************************************************************/
  73 {
  74     AROS_LIBFUNC_INIT
  75
  76     struct gpDomain gpd;
  77     ULONG           ret;
  78
  79     if(o == NULL)
  80         return 0;
  81
  82     gpd.MethodID   = GM_DOMAIN;
  83     gpd.gpd_GInfo  = ((struct Gadget *)o)->SpecialInfo;
  84     gpd.gpd_RPort  = rport;
  85     gpd.gpd_Which  = which;
  86     gpd.gpd_Attrs  = attrs;
  87
  88     ret = DoGadgetMethodA((struct Gadget *)o, win, req, (Msg)&gpd);
  89
  90     *domain = gpd.gpd_Domain;
  91
  92     return ret;
  93
  94     AROS_LIBFUNC_EXIT
  95 } /* DoDTDomainA */
  96