rom/hyperlayers/upfrontlayer.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/exec.h>
   9 #include <exec/types.h>
  10 #include <exec/memory.h>
  11 #include <aros/libcall.h>
  12 #include <proto/graphics.h>
  13 #include <proto/layers.h>
  14 #include "layers_intern.h"
  15
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20
  21         AROS_LH2(LONG, UpfrontLayer,
  22
  23 /*  SYNOPSIS */
  24         AROS_LHA(LONG          , dummy, A0),
  25         AROS_LHA(struct Layer *, l    , A1),
  26
  27 /*  LOCATION */
  28         struct LayersBase *, LayersBase, 8, Layers)
  29
  30 /*  FUNCTION
  31         Brings a layer to the front. If this layer is a backdrop layer
  32         it is brought in front of all backdrop layers and behind the
  33         last non-backdrop layer. By clearing the BACKDROP flag of a layer
  34         a backdrop layer can be brought in front of all other layers.
  35         Parts of a simple layer that become visible are added to the
  36         damage list and the REFRESH flag is set.
  37
  38     INPUTS
  39         dummy - unused
  40         L     - pointer to layer
  41
  42     RESULT
  43         TRUE  - layer was moved
  44         FALSE - layer could not be moved (probably out of memory)
  45
  46     NOTES
  47
  48     EXAMPLE
  49
  50     BUGS
  51
  52     SEE ALSO
  53         CreateUpfrontLayer() CreateUpfrontHookLayer() BehindLayer()
  54         CreateBehindLayer() CreateBehindHookLayer()
  55
  56     INTERNALS
  57
  58     HISTORY
  59         27-11-96    digulla automatically created from
  60                             layers_lib.fd and clib/layers_protos.h
  61
  62 *****************************************************************************/
  63 {
  64   AROS_LIBFUNC_INIT
  65   AROS_LIBBASE_EXT_DECL(struct LayersBase *,LayersBase)
  66
  67   struct Layer * first, * _l;
  68   int found = FALSE;
  69   LONG ret;
  70
  71 //kprintf("\t\t%s called!\n",__FUNCTION__);
  72   LockLayers(l->LayerInfo);
  73
  74   /*
  75    * Move the layer in front of that layer with the same
  76    * priority.
  77    * Also keep its children in front of itself.
  78    */
  79   first = GetFirstFamilyMember(l);
  80
  81   /*
  82    * If there is nobody in front of the first family member
  83    * I don't have to do anything.
  84    * first can also be l.
  85    */
  86   if (NULL == first->front)
  87   {
  88     UnlockLayers(l->LayerInfo);
  89     return TRUE;
  90   }
  91   /*
  92    * Search for the new place
  93    * search all layers that have the same priority.
  94    * If I find another layer with the same nesting
  95    * as the one to be moved I have a place to move.
  96    * Stop at the frontmost layer
  97    */
  98   _l = first->front;
  99
 100
 101   if (_l -> priority == l->priority)
 102   {
 103     while (1)
 104     {
 105       if (_l->nesting == l->nesting)
 106         found = TRUE;
 107       if (NULL == _l->front || _l->front->priority != l->priority)
 108         break;
 109       _l = _l->front;
 110     }
 111   }
 112
 113   if (FALSE == found)
 114   {
 115     UnlockLayers(l->LayerInfo);
 116     return TRUE;
 117   }
 118
 119   ret = _MoveLayerToFront(l,_l, LayersBase);
 120
 121
 122   /*
 123    * Unlock all locked layers.
 124    */
 125   UnlockLayers(l->LayerInfo);
 126
 127   return TRUE;
 128
 129   AROS_LIBFUNC_EXIT
 130 } /* UpfrontLayer */