Check for SYS/GL during library init. Reason is that
[AROS.git] / rom / intuition / windowtoback.c
blobb3980dbebf900c0337615ae9b197274e152fe99b
1 /*
2 Copyright © 1995-2013, The AROS Development Team. All rights reserved.
3 Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
4 $Id$
6 Move window behind all other windows.
7 */
9 #include <proto/layers.h>
10 #include "intuition_intern.h"
11 #include "inputhandler_actions.h"
13 struct WindowToBackActionMsg
15 struct IntuiActionMsg msg;
16 struct Window *window;
19 static VOID int_windowtoback(struct WindowToBackActionMsg *msg,
20 struct IntuitionBase *IntuitionBase);
22 /*****************************************************************************
24 NAME */
25 #include <intuition/intuition.h>
26 #include <proto/intuition.h>
28 AROS_LH1(void, WindowToBack,
30 /* SYNOPSIS */
31 AROS_LHA(struct Window *, window, A0),
33 /* LOCATION */
34 struct IntuitionBase *, IntuitionBase, 51, Intuition)
36 /* FUNCTION
37 Bring a window to the back (i.e. behind any other window).
39 INPUTS
40 window - Which window
42 RESULT
43 None.
45 NOTES
47 EXAMPLE
49 BUGS
51 SEE ALSO
53 INTERNALS
55 *****************************************************************************/
57 AROS_LIBFUNC_INIT
59 struct WindowToBackActionMsg msg;
61 DEBUG_WINDOWTOBACK(dprintf("WindowToBack: Window 0x%lx\n", window));
63 if (!window)
64 return;
66 msg.window = window;
67 DoASyncAction((APTR)int_windowtoback, &msg.msg, sizeof(msg), IntuitionBase);
69 AROS_LIBFUNC_EXIT
71 } /* WindowToBack */
74 static VOID int_windowtoback(struct WindowToBackActionMsg *msg,
75 struct IntuitionBase *IntuitionBase)
77 struct LayersBase *LayersBase = GetPrivIBase(IntuitionBase)->LayersBase;
78 struct Window *window = msg->window;
79 struct Layer *layer = WLAYER(window);
80 struct Screen *screen = window->WScreen;
81 struct Requester *req;
83 DEBUG_WINDOWTOBACK(dprintf("IntWindowToBack: Window 0x%lx\n", window));
85 if (!ResourceExisting(window, RESOURCE_WINDOW, IntuitionBase)) return;
87 if (!(layer->Flags & LAYERBACKDROP))
89 LOCK_REFRESH(screen);
91 for (req = window->FirstRequest; req; req = req->OlderRequest)
93 if (req->ReqLayer)
95 BehindLayer(0, req->ReqLayer);
99 BehindLayer(0, layer);
101 /* GZZ window or regular window? */
102 if (BLAYER(window))
104 /* move outer window behind! */
105 /* attention: layer->back would not be valid as
106 layer already moved!!
108 BehindLayer(0, BLAYER(window));
111 CheckLayers(screen, IntuitionBase);
113 UNLOCK_REFRESH(screen);
116 NotifyDepthArrangement(window, IntuitionBase);