rom/intuition/addglist.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
   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 *****************************************************************************/
  64 {
  65     AROS_LIBFUNC_INIT
  66
  67     struct Gadget *pred;
  68     struct Gadget *last;
  69     UWORD          count, count2;
  70
  71     EXTENDUWORD(position);
  72     EXTENDWORD(numGad);
  73
  74     DEBUG_ADDGLIST(dprintf("AddGList: Window 0x%lx Gadget 0x%lx Pos %ld Num %ld Req 0x%lx\n",
  75                            window, gadget, position, numGad, requester));
  76
  77     if (!gadget || !numGad || !window)
  78         return (UWORD)-1;
  79
  80     D(bug("AddGList()\n"));
  81
  82     if (requester && gadget->GadgetType & GTYP_REQGADGET)
  83     {
  84         for (last=gadget, count2 = numGad; last && count2--; last=last->NextGadget)
  85         {
  86             DEBUG_ADDGLIST(dprintf("AddGList: Gadget 0x%lx Flags 0x%lx Type 0x%lx Activation 0x%lx %d,%d %d×%d ID 0x%x\n",
  87                                    last, last->Flags, last->GadgetType, last->Activation,
  88                                    last->LeftEdge, last->TopEdge, last->Width, last->Height,
  89                                    last->GadgetID));
  90             last->GadgetType |= GTYP_REQGADGET;
  91         }
  92         pred = (struct Gadget *)&requester->ReqGadget;
  93     }
  94     else
  95     {
  96         for (last=gadget, count2 = numGad; last && count2--; last=last->NextGadget)
  97         {
  98             DEBUG_ADDGLIST(dprintf("AddGList: Gadget 0x%lx Flags 0x%lx Type 0x%lx Activation 0x%lx %d,%d %d×%d ID 0x%lx\n",
  99                                    last, last->Flags, last->GadgetType, last->Activation,
 100                                    last->LeftEdge, last->TopEdge, last->Width, last->Height,
 101                                    last->GadgetID));
 102             last->GadgetType &= ~GTYP_REQGADGET;
 103         }
 104
 105         pred = (struct Gadget *)&window->FirstGadget;
 106         requester = NULL;
 107     }
 108
 109     /* Send all GA_RelSpecial BOOPSI gadgets in the list the GM_LAYOUT msg */
 110     if (!requester || requester->ReqLayer)
 111     {
 112         DEBUG_ADDGLIST(dprintf("AddGList: send layout message\n"));
 113         DoGMLayout(gadget, window, requester, numGad, TRUE, IntuitionBase);
 114         DEBUG_ADDGLIST(dprintf("AddGList: send layout message done ...\n"));
 115     }
 116
 117     /* gadget list must NOT be modified while gadget accesses are possible */
 118 #ifdef USEGADGETLOCK
 119     LOCKGADGET(IntuitionBase)
 120 #else
 121     LOCKWINDOWLAYERS(window);
 122 #endif
 123
 124     count = 0;
 125     while (position && pred->NextGadget)
 126     {
 127         position --;
 128         pred = pred->NextGadget;
 129         count ++;
 130         D(bug("count=%d\n", count));
 131     }
 132     D(bug("Finished iterating window list\n"));
 133
 134     count2 = numGad;
 135     for (last=gadget; last->NextGadget && --count2; last=last->NextGadget);
 136
 137     D(bug("Finished finding end of supplied glist\n"));
 138     last->NextGadget = pred->NextGadget;
 139     pred->NextGadget = gadget;
 140
 141     DEBUG_ADDGLIST(dprintf("AddGList: Pos %ld\n", count));
 142
 143     if (!requester || requester->ReqLayer)
 144     {
 145     #if 1
 146         /* Refresh REL gadgets first. Wizard.library (die, die, die!) seems to rely on that. */
 147         int_refreshglist(gadget, window, requester, numGad, REFRESHGAD_REL, 0, IntuitionBase);
 148         int_refreshglist(gadget, window, requester, numGad, 0, REFRESHGAD_REL, IntuitionBase);
 149     #else
 150         RefreshGList(gadget, window, requester, numGad);
 151     #endif
 152     }
 153
 154 #ifdef USEGADGETLOCK
 155     UNLOCKGADGET(IntuitionBase)
 156 #else
 157     UNLOCKWINDOWLAYERS(window);
 158 #endif
 159
 160     ReturnInt ("AddGList", UWORD, count);
 161     AROS_LIBFUNC_EXIT
 162 } /* AddGList */