rom/intuition/addgadget.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5
   6     Add a single gadget to a window.
   7 */
   8
   9 #include <proto/layers.h>
  10 #include "intuition_intern.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <intuition/intuition.h>
  16 #include <proto/intuition.h>
  17
  18 AROS_LH3(UWORD, AddGadget,
  19
  20          /*  SYNOPSIS */
  21          AROS_LHA(struct Window *, window, A0),
  22          AROS_LHA(struct Gadget *, gadget, A1),
  23          AROS_LHA(ULONG          , position, D0),
  24
  25          /*  LOCATION */
  26          struct IntuitionBase *, IntuitionBase, 7, Intuition)
  27
  28 /*  FUNCTION
  29     Adds a single gadget to a window.
  30
  31     INPUTS
  32     window - Add gadget to this window
  33     gadget - Add this gadget
  34     position - The position to add the gadget in the list of
  35         gadgets already in the window. Use 0 to insert the
  36         gadget before all others or ~0 to append it to the
  37         list.
  38
  39     RESULT
  40     The position where the gadget was really inserted.
  41
  42     NOTES
  43     This just adds the gadget to the list. It will not be visible
  44     until you refresh the window.
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51
  52     INTERNALS
  53
  54     HISTORY
  55
  56 *****************************************************************************/
  57 {
  58     AROS_LIBFUNC_INIT
  59     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  60
  61     struct Gadget *pred;
  62     UWORD          count;
  63
  64     EXTENDUWORD(position);
  65
  66     DEBUG_ADDGADGET(dprintf("AddGadget: Window 0x%lx Gadget 0x%lx Pos %ld\n",
  67                             window, gadget, position));
  68
  69     if (!window) return 0;
  70     if (!gadget) return 0;
  71
  72     gadget->GadgetType &= ~GTYP_REQGADGET;
  73
  74     pred = (struct Gadget *)&window->FirstGadget;
  75     count = 0;
  76
  77     /* Send all GA_RelSpecial BOOPSI gadgets in the list the GM_LAYOUT msg */
  78     DoGMLayout(gadget, window, NULL, 1, TRUE, IntuitionBase);
  79
  80     //obtain semaphore here. gadget list must NOT be accessed while it's being modified!
  81 #ifdef USEGADGETLOCK
  82     LOCKGADGET
  83 #else
  84     LOCKWINDOWLAYERS(window);
  85 #endif
  86
  87     while (position && pred->NextGadget)
  88     {
  89         position --;
  90         pred = pred->NextGadget;
  91         count ++;
  92     }
  93
  94     gadget->NextGadget = pred->NextGadget;
  95     pred->NextGadget = gadget;
  96
  97 #ifdef USEGADGETLOCK
  98     UNLOCKGADGET
  99 #else
 100     UNLOCKWINDOWLAYERS(window);
 101 #endif
 102
 103     DEBUG_ADDGADGET(dprintf("AddGadget: Pos %ld\n", count));
 104
 105     return count;
 106     AROS_LIBFUNC_EXIT
 107 } /* AddGadget */