rom/intuition/changewindowshape.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
  11 #ifdef ChangeLayerShape
  12
  13 struct ChangeWindowShapeActionMsg
  14 {
  15     struct IntuiActionMsg    msg;
  16     struct Window           *window;
  17     struct Region           *shape;
  18     struct Hook             *callback;
  19 };
  20
  21 static VOID int_changewindowshape(struct ChangeWindowShapeActionMsg *msg,
  22                                   struct IntuitionBase *IntuitionBase);
  23
  24 #endif
  25
  26 /*****************************************************************************
  27
  28     NAME */
  29 #include <proto/intuition.h>
  30
  31 AROS_LH3(struct Region *, ChangeWindowShape,
  32
  33          /*  SYNOPSIS */
  34          AROS_LHA(struct Window *, window, A0),
  35          AROS_LHA(struct Region *, newshape, A1),
  36          AROS_LHA(struct Hook *, callback, A2),
  37
  38          /*  LOCATION */
  39          struct IntuitionBase *, IntuitionBase, 143, Intuition)
  40
  41 /*  FUNCTION
  42         Make a window invisible.
  43
  44     INPUTS
  45     window - The window to affect.
  46
  47     RESULT
  48
  49     NOTES
  50
  51     EXAMPLE
  52
  53     BUGS
  54
  55     SEE ALSO
  56
  57     INTERNALS
  58
  59     HISTORY
  60
  61 *****************************************************************************/
  62 {
  63     AROS_LIBFUNC_INIT
  64     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  65
  66 #ifdef ChangeLayerShape
  67     struct ChangeWindowShapeActionMsg msg;
  68
  69     ASSERT_VALID_PTR(window);
  70
  71     if (IS_GZZWINDOW(window)) return NULL;
  72
  73     msg.window   = window;
  74     msg.shape    = newshape;
  75     msg.callback = callback;
  76     DoSyncAction((APTR)int_changewindowshape, &msg.msg, IntuitionBase);
  77
  78     return msg.shape;
  79 #else
  80
  81     /* shut up the compiler */
  82     IntuitionBase = IntuitionBase;
  83     callback = callback;
  84     newshape = newshape;
  85     window = window;
  86
  87     return NULL;
  88 #endif
  89
  90     AROS_LIBFUNC_EXIT
  91
  92 } /* ChangeWindowShape */
  93
  94
  95 #ifdef ChangeLayerShape
  96 static VOID int_changewindowshape(struct ChangeWindowShapeActionMsg *msg,
  97                                   struct IntuitionBase *IntuitionBase)
  98 {
  99     struct Window   *window = msg->window;
 100     struct Region   *shape = msg->shape;
 101     struct Hook     *callback = msg->callback;
 102     struct Screen   *screen = window->WScreen;
 103
 104     if (!ResourceExisting(window, RESOURCE_WINDOW, IntuitionBase)) return;
 105
 106     LOCK_REFRESH(screen);
 107     msg->shape = ChangeLayerShape(window->WLayer, shape, callback);
 108     UNLOCK_REFRESH(screen);
 109
 110     CheckLayers(screen, IntuitionBase);
 111 }
 112 #endif