rom/hyperlayers/behindlayer.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 "basicfuncs.h"
  14 #include "layers_intern.h"
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19 #include <proto/layers.h>
  20         AROS_LH2(LONG, BehindLayer,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(LONG          , dummy, A0),
  24         AROS_LHA(struct Layer *, l    , A1),
  25
  26 /*  LOCATION */
  27         struct LayersBase *, LayersBase, 9, Layers)
  28
  29 /*  FUNCTION
  30        If the layer is a backdrop layer it will be moved to the most
  31        behind position. If it is a non-backdrop layer it will be moved
  32        in front of the first backdrop layer.
  33        The areas of simple layers, that become visible by moving this
  34        layer, are added to the damagelist and the LAYERREFRESH flag
  35        is set.
  36
  37     INPUTS
  38        dummy - nothing
  39        L     - pointer to layer
  40
  41     RESULT
  42        TRUE  - layer was successfully moved
  43        FALSE - layer could not be moved (probably out of memory)
  44
  45     NOTES
  46
  47     EXAMPLE
  48
  49     BUGS
  50
  51     SEE ALSO
  52
  53     INTERNALS
  54
  55     HISTORY
  56         27-11-96    digulla automatically created from
  57                             layers_lib.fd and clib/layers_protos.h
  58
  59 *****************************************************************************/
  60 {
  61   AROS_LIBFUNC_INIT
  62   AROS_LIBBASE_EXT_DECL(struct LayersBase *,LayersBase)
  63
  64   struct Layer * _l;
  65   LONG ret;
  66
  67 //kprintf("\t\t%s called!\n",__FUNCTION__);
  68   LockLayers(l->LayerInfo);
  69
  70   /*
  71    * The layer in front of the family is the layer in
  72    * front of the parent of my layer
  73    */
  74   if (!l->parent)
  75   {
  76     UnlockLayers(l->LayerInfo);
  77     return FALSE;
  78   }
  79   _l = l->parent->front;
  80
  81   while (_l->priority < l->priority)
  82     _l = _l->front;
  83
  84   if (_l == l)
  85   {
  86     UnlockLayers(l->LayerInfo);
  87     return TRUE;
  88   }
  89   ret = _MoveLayerBehind(l,_l,LayersBase);
  90
  91   UnlockLayers(l->LayerInfo);
  92
  93   return ret;
  94
  95   AROS_LIBFUNC_EXIT
  96 } /* BehindLayer */