rom/intuition/addgadget.c

   1 /*
   2     Copyright © 1995-2011, 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
  60     struct Gadget *pred;
  61     UWORD          count;
  62
  63     EXTENDUWORD(position);
  64
  65     DEBUG_ADDGADGET(dprintf("AddGadget: Window 0x%lx Gadget 0x%lx Pos %ld\n",
  66                             window, gadget, position));
  67
  68     if (!window) return 0;
  69     if (!gadget) return 0;
  70
  71     gadget->GadgetType &= ~GTYP_REQGADGET;
  72
  73     pred = (struct Gadget *)&window->FirstGadget;
  74     count = 0;
  75
  76     /* Send all GA_RelSpecial BOOPSI gadgets in the list the GM_LAYOUT msg */
  77     DoGMLayout(gadget, window, NULL, 1, TRUE, IntuitionBase);
  78
  79     //obtain semaphore here. gadget list must NOT be accessed while it's being modified!
  80 #ifdef USEGADGETLOCK
  81     LOCKGADGET(IntuitionBase)
  82 #else
  83     LOCKWINDOWLAYERS(window);
  84 #endif
  85
  86     while (position && pred->NextGadget)
  87     {
  88         position --;
  89         pred = pred->NextGadget;
  90         count ++;
  91     }
  92
  93     gadget->NextGadget = pred->NextGadget;
  94     pred->NextGadget = gadget;
  95
  96 #ifdef USEGADGETLOCK
  97     UNLOCKGADGET(IntuitionBase)
  98 #else
  99     UNLOCKWINDOWLAYERS(window);
 100 #endif
 101
 102     DEBUG_ADDGADGET(dprintf("AddGadget: Pos %ld\n", count));
 103
 104     return count;
 105     AROS_LIBFUNC_EXIT
 106 } /* AddGadget */