rom/intuition/removeglist.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
   7 #include <proto/layers.h>
   8 #include "intuition_intern.h"
   9 #include "inputhandler_actions.h"
  10 #include "inputhandler.h"
  11 #include <intuition/gadgetclass.h>
  12
  13 struct RemoveGListActionMsg
  14 {
  15     struct IntuiActionMsg    msg;
  16     struct Window           *window;
  17     struct Gadget           *gadget;
  18     LONG                     numGad;
  19     UWORD                    count;
  20     BOOL                     success;
  21 };
  22
  23 static VOID int_removeglist(struct RemoveGListActionMsg *msg,
  24                             struct IntuitionBase *IntuitionBase);
  25
  26 /*****************************************************************************
  27
  28     NAME */
  29 #include <intuition/intuition.h>
  30 #include <proto/intuition.h>
  31
  32 AROS_LH3(UWORD, RemoveGList,
  33
  34          /*  SYNOPSIS */
  35          AROS_LHA(struct Window *, remPtr, A0),
  36          AROS_LHA(struct Gadget *, gadget, A1),
  37          AROS_LHA(LONG           , numGad, D0),
  38
  39          /*  LOCATION */
  40          struct IntuitionBase *, IntuitionBase, 74, Intuition)
  41
  42 /*  FUNCTION
  43
  44     INPUTS
  45
  46     RESULT
  47
  48     NOTES
  49
  50     EXAMPLE
  51
  52     BUGS
  53
  54     SEE ALSO
  55
  56     INTERNALS
  57
  58     HISTORY
  59
  60 *****************************************************************************/
  61 {
  62     AROS_LIBFUNC_INIT
  63     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  64
  65     struct Gadget   *pred;
  66     struct Gadget   *last;
  67     struct IIHData  *iihdata;
  68     LONG             numGad2;
  69     UWORD            count;
  70     BOOL             done = TRUE;
  71
  72     EXTENDWORD(numGad);
  73
  74     DEBUG_REMOVEGLIST(dprintf("RemoveGList: Window 0x%lx Gadgets 0x%lx Num %ld\n",
  75                               remPtr, gadget, numGad));
  76
  77     if (!numGad) return ~0;
  78     if (!gadget) return ~0;
  79     if (!remPtr) return ~0;
  80
  81 #ifdef USEGADGETLOCK
  82     LOCKGADGET
  83 #else
  84     LOCKWINDOWLAYERS(remPtr);
  85 #endif
  86
  87     iihdata = (struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data;
  88     pred    = (struct Gadget *)&remPtr->FirstGadget;
  89     count   = 0;
  90     numGad2 = numGad;
  91
  92     while (pred->NextGadget && pred->NextGadget != gadget)
  93     {
  94         pred = pred->NextGadget;
  95         count ++;
  96     }
  97
  98     if (pred->NextGadget)
  99     {
 100         /* Check if one of the gadgets to be removed is the active gadget.
 101            If it is, then make it inactive! */
 102
 103
 104         for (last = gadget; last && numGad2--; last = last->NextGadget)
 105         {
 106             if ((iihdata->ActiveGadget == last) || (iihdata->ActiveSysGadget == last))
 107             {
 108                 done = FALSE;
 109                 break;
 110             }
 111         }
 112
 113         if (done)
 114         {
 115             for (last = gadget; last->NextGadget && --numGad; last = last->NextGadget) ;
 116
 117             pred->NextGadget = last->NextGadget;
 118
 119             /* stegerg: don't do this. DOpus for example relies on gadget->NextGadget
 120                not being touched */
 121             /* Emm: but the autodocs say it is done for V36 ??? */
 122         #if 0
 123             last->NextGadget = NULL;
 124         #endif
 125         }
 126
 127
 128     } /* if (pred->NextGadget) */
 129     else
 130     {
 131         count = ~0;
 132     }
 133
 134 #ifdef USEGADGETLOCK
 135     UNLOCKGADGET
 136 #else
 137     UNLOCKWINDOWLAYERS(remPtr);
 138 #endif
 139
 140     /* We tried to remove the active gadget. This must be delayed until LMB
 141      * is released.
 142      */
 143     if (!done)
 144     {
 145         struct RemoveGListActionMsg msg;
 146
 147         msg.window = remPtr;
 148         msg.gadget = gadget;
 149         msg.numGad = numGad;
 150
 151         do
 152         {
 153             DEBUG_REMOVEGLIST(dprintf("RemoveGList: trying to remove the active gadget.\n"));
 154             DoSyncAction((APTR)int_removeglist, &msg.msg, IntuitionBase);
 155         }
 156         while (!msg.success);
 157
 158         count = msg.count;
 159     }
 160
 161     DEBUG_REMOVEGLIST(dprintf("RemoveGList: removed %ld gadgets\n",count));
 162
 163     return count;
 164
 165     AROS_LIBFUNC_EXIT
 166
 167 } /* RemoveGList */
 168
 169 static VOID int_removeglist(struct RemoveGListActionMsg *msg,
 170                             struct IntuitionBase *IntuitionBase)
 171 {
 172     struct Window   *remPtr = msg->window;
 173     struct Gadget   *gadget = msg->gadget;
 174     LONG             numGad = msg->numGad;
 175     struct Gadget   *pred;
 176     struct Gadget   *last;
 177     struct IIHData  *iihdata;
 178     LONG             numGad2;
 179     UWORD            count;
 180
 181     DEBUG_REMOVEGLIST(dprintf("IntRemoveGList: Window 0x%lx Gadgets 0x%lx Num %ld\n",
 182                               remPtr, gadget, numGad));
 183
 184     iihdata = (struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data;
 185
 186     /* Don't remove the gadget until the LMB is released. */
 187     if (iihdata->ActQualifier & IEQUALIFIER_LEFTBUTTON)
 188     {
 189         DEBUG_REMOVEGLIST(dprintf("IntRemoveGList: LMB down\n"));
 190         msg->success = FALSE;
 191         return;
 192     }
 193
 194 #ifdef USEGADGETLOCK
 195     LOCKGADGET
 196 #else
 197     LOCKWINDOWLAYERS(remPtr);
 198 #endif
 199
 200     pred    = (struct Gadget *)&remPtr->FirstGadget;
 201
 202     count   = 0;
 203     numGad2 = numGad;
 204
 205     while (pred->NextGadget && pred->NextGadget != gadget)
 206     {
 207         pred = pred->NextGadget;
 208         count ++;
 209     }
 210
 211     if (pred->NextGadget)
 212     {
 213         /* Check if one of the gadgets to be removed is the active gadget.
 214            If it is, then make it inactive! If we got here, one of them was
 215            the active gadget at the time of RemoveGList, but this may have
 216            changed. */
 217
 218         for (last = gadget; last && numGad2--; last = last->NextGadget)
 219         {
 220             if ((iihdata->ActiveGadget == last) || (iihdata->ActiveSysGadget == last))
 221             {
 222                 switch(last->GadgetType & GTYP_GTYPEMASK)
 223                 {
 224                     case GTYP_CUSTOMGADGET:
 225                     {
 226                         struct gpGoInactive gpgi;
 227
 228                         gpgi.MethodID   = GM_GOINACTIVE;
 229                         gpgi.gpgi_GInfo = NULL;
 230                         gpgi.gpgi_Abort = 1;
 231
 232                         DoGadgetMethodA(last, remPtr, NULL, (Msg)&gpgi);
 233
 234                         if (SYSGADGET_ACTIVE)
 235                         {
 236                             if (IS_BOOPSI_GADGET(iihdata->ActiveSysGadget))
 237                             {
 238                                 DoGadgetMethodA(iihdata->ActiveSysGadget, remPtr, NULL, (Msg)&gpgi);
 239                             }
 240                             iihdata->ActiveSysGadget = NULL;
 241                         }
 242
 243                         break;
 244                     }
 245                 }
 246
 247                 last->Activation &= ~GACT_ACTIVEGADGET;
 248                 iihdata->ActiveGadget = NULL;
 249             }
 250         }
 251
 252         for (last = gadget; last->NextGadget && --numGad; last = last->NextGadget) ;
 253
 254         pred->NextGadget = last->NextGadget;
 255
 256         /* stegerg: don't do this. DOpus for example relies on gadget->NextGadget
 257            not being touched */
 258         /* Emm: but the autodocs say it is done for V36 ??? */
 259 #if 0
 260         last->NextGadget = NULL;
 261 #endif
 262
 263     } /* if (pred->NextGadget) */
 264     else
 265     {
 266         count = ~0;
 267     }
 268
 269 #ifdef USEGADGETLOCK
 270     UNLOCKGADGET
 271 #else
 272     UNLOCKWINDOWLAYERS(remPtr);
 273 #endif
 274
 275     DEBUG_REMOVEGLIST(dprintf("IntRemoveGList: done\n"));
 276
 277     msg->count = count;
 278     msg->success = TRUE;
 279 }