workbench/libs/gadtools/createcontext.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/exec.h>
   9 #include <proto/intuition.h>
  10 #include <exec/memory.h>
  11 #include <intuition/classusr.h>
  12 #include <utility/tagitem.h>
  13 #include <libraries/gadtools.h>
  14 #include "gadtools_intern.h"
  15
  16 /*********************************************************************
  17
  18     NAME */
  19 #include <proto/gadtools.h>
  20 #include <intuition/intuition.h>
  21
  22         AROS_LH1(struct Gadget *, CreateContext,
  23
  24 /*  SYNOPSIS */
  25         AROS_LHA(struct Gadget **, glistpointer, A0),
  26
  27 /*  LOCATION */
  28         struct Library *, GadToolsBase, 19, GadTools)
  29
  30 /*  FUNCTION
  31         Creates a virtual first gadget to which all following gadgets must be
  32         linked.
  33
  34     INPUTS
  35         glistpointer - pointer to a pointer to the virtual gadget. Use the
  36                        gadget pointer as NewWindow->FirstGadget or in
  37                        AddGList(). The gadget pointer must be initialized
  38                        to NULL before CreateContext() is called.
  39
  40     RESULT
  41         A point to the first gadget or NULL, if there was an error.
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50
  51     INTERNALS
  52
  53     HISTORY
  54
  55 ***************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     struct GT_ContextGadget *rc;
  60
  61     DEBUG_CREATECONTEXT(dprintf("CreateContext: glistptr 0x%lx\n", glistpointer));
  62
  63     rc = (struct GT_ContextGadget *)AllocMem(sizeof(struct GT_ContextGadget), MEMF_PUBLIC | MEMF_CLEAR);
  64     if (rc)
  65     {
  66         rc->magic          = CONTEXT_MAGIC;
  67         rc->magic2         = CONTEXT_MAGIC2;
  68         rc->gad.Flags      = GFLG_GADGHNONE | GFLG_DISABLED;
  69         rc->gad.GadgetType = GTYP_GADTOOLS;
  70     }
  71
  72     *glistpointer = (struct Gadget *)rc;
  73
  74     DEBUG_CREATECONTEXT(dprintf("CreateContext: return 0x%lx\n", rc));
  75
  76     return (struct Gadget *)rc;
  77
  78     AROS_LIBFUNC_EXIT
  79 } /* CreateContext */