rom/intuition/addgadget.c

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