rom/hyperlayers/upfrontlayer.c

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