rom/intuition/addglist.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
   7 #include <proto/layers.h>
   8 #include "intuition_intern.h"
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <intuition/intuition.h>
  14 #include <proto/intuition.h>
  15 #include "boopsigadgets.h"
  16
  17 #undef DEBUG
  18 #define DEBUG 0
  19 #   include <aros/debug.h>
  20
  21     AROS_LH5(UWORD, AddGList,
  22
  23 /*  SYNOPSIS */
  24          AROS_LHA(struct Window    *, window, A0),
  25          AROS_LHA(struct Gadget    *, gadget, A1),
  26          AROS_LHA(ULONG             , position, D0),
  27          AROS_LHA(LONG              , numGad, D1),
  28          AROS_LHA(struct Requester *, requester, A2),
  29
  30 /*  LOCATION */
  31          struct IntuitionBase *, IntuitionBase, 73, Intuition)
  32
  33 /*  FUNCTION
  34     Add some gadgets to a window.
  35
  36     INPUTS
  37     window - Add gadgets to this window
  38     gadget - This is the list of gadgets to add
  39     position - Where to insert the gadgets in the list of gadgets
  40         already in the window. Use 0 to insert the gadgets
  41         before all others in the window or ~0 to append them.
  42     numGad - How many gadgets of the list should be added.
  43         Use -1 to add all gadgets in the list.
  44     requester - Pointer to the requester structure if the window is
  45         a requester.
  46
  47     RESULT
  48     The actual position where the gadgets were inserted.
  49
  50     NOTES
  51     The gadgets will just be added. To make them visible, you must
  52     refresh the window or the gadgets.
  53
  54     EXAMPLE
  55
  56     BUGS
  57
  58     SEE ALSO
  59     RefreshGadgets(), RefreshGList()
  60
  61     INTERNALS
  62
  63     HISTORY
  64
  65 *****************************************************************************/
  66 {
  67     AROS_LIBFUNC_INIT
  68
  69     struct Gadget *pred;
  70     struct Gadget *last;
  71     UWORD          count, count2;
  72
  73     EXTENDUWORD(position);
  74     EXTENDWORD(numGad);
  75
  76     DEBUG_ADDGLIST(dprintf("AddGList: Window 0x%lx Gadget 0x%lx Pos %ld Num %ld Req 0x%lx\n",
  77                            window, gadget, position, numGad, requester));
  78
  79     if (!gadget || !numGad || !window)
  80         return (UWORD)-1;
  81
  82     D(bug("AddGList()\n"));
  83
  84     if (requester && gadget->GadgetType & GTYP_REQGADGET)
  85     {
  86         for (last=gadget, count2 = numGad; last && count2--; last=last->NextGadget)
  87         {
  88             DEBUG_ADDGLIST(dprintf("AddGList: Gadget 0x%lx Flags 0x%lx Type 0x%lx Activation 0x%lx %d,%d %d×%d ID 0x%x\n",
  89                                    last, last->Flags, last->GadgetType, last->Activation,
  90                                    last->LeftEdge, last->TopEdge, last->Width, last->Height,
  91                                    last->GadgetID));
  92             last->GadgetType |= GTYP_REQGADGET;
  93         }
  94         pred = (struct Gadget *)&requester->ReqGadget;
  95     }
  96     else
  97     {
  98         for (last=gadget, count2 = numGad; last && count2--; last=last->NextGadget)
  99         {
 100             DEBUG_ADDGLIST(dprintf("AddGList: Gadget 0x%lx Flags 0x%lx Type 0x%lx Activation 0x%lx %d,%d %d×%d ID 0x%lx\n",
 101                                    last, last->Flags, last->GadgetType, last->Activation,
 102                                    last->LeftEdge, last->TopEdge, last->Width, last->Height,
 103                                    last->GadgetID));
 104             last->GadgetType &= ~GTYP_REQGADGET;
 105         }
 106
 107         pred = (struct Gadget *)&window->FirstGadget;
 108         requester = NULL;
 109     }
 110
 111     /* Send all GA_RelSpecial BOOPSI gadgets in the list the GM_LAYOUT msg */
 112     if (!requester || requester->ReqLayer)
 113     {
 114         DEBUG_ADDGLIST(dprintf("AddGList: send layout message\n"));
 115         DoGMLayout(gadget, window, requester, numGad, TRUE, IntuitionBase);
 116         DEBUG_ADDGLIST(dprintf("AddGList: send layout message done ...\n"));
 117     }
 118
 119     /* gadget list must NOT be modified while gadget accesses are possible */
 120 #ifdef USEGADGETLOCK
 121     LOCKGADGET(IntuitionBase)
 122 #else
 123     LOCKWINDOWLAYERS(window);
 124 #endif
 125
 126     count = 0;
 127     while (position && pred->NextGadget)
 128     {
 129         position --;
 130         pred = pred->NextGadget;
 131         count ++;
 132         D(bug("count=%d\n", count));
 133     }
 134     D(bug("Finished iterating window list\n"));
 135
 136     count2 = numGad;
 137     for (last=gadget; last->NextGadget && --count2; last=last->NextGadget);
 138
 139     D(bug("Finished finding end of supplied glist\n"));
 140     last->NextGadget = pred->NextGadget;
 141     pred->NextGadget = gadget;
 142
 143     DEBUG_ADDGLIST(dprintf("AddGList: Pos %ld\n", count));
 144
 145     if (!requester || requester->ReqLayer)
 146     {
 147     #if 1
 148         /* Refresh REL gadgets first. Wizard.library (die, die, die!) seems to rely on that. */
 149         int_refreshglist(gadget, window, requester, numGad, REFRESHGAD_REL, 0, IntuitionBase);
 150         int_refreshglist(gadget, window, requester, numGad, 0, REFRESHGAD_REL, IntuitionBase);
 151     #else
 152         RefreshGList(gadget, window, requester, numGad);
 153     #endif
 154     }
 155
 156 #ifdef USEGADGETLOCK
 157     UNLOCKGADGET(IntuitionBase)
 158 #else
 159     UNLOCKWINDOWLAYERS(window);
 160 #endif
 161
 162     ReturnInt ("AddGList", UWORD, count);
 163     AROS_LIBFUNC_EXIT
 164 } /* AddGList */