2 * Window Maker window manager
4 * Copyright (c) 1997, 1998 Alfredo K. Kojima
5 * Copyright (c) 1998 Dan Pascu
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 2 of the License, or
10 * (at your option) any later version.
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
29 #include <X11/Xutil.h>
31 #include "WindowMaker.h"
36 #include "properties.h"
42 /*** Global Variables ***/
43 extern XContext wStackContext
;
45 extern WPreferences wPreferences
;
53 *----------------------------------------------------------------------
55 * Remakes the stacking_list for the screen, getting the real
56 * stacking order from the server and reordering windows that are not
57 * in the correct stacking.
60 * The stacking order list and the actual window stacking
61 * may be changed (corrected)
63 *----------------------------------------------------------------------
66 RemakeStackList(WScreen
*scr
)
69 unsigned int nwindows
;
76 if (!XQueryTree(dpy
, scr
->root_win
, &junkr
, &junkp
, &windows
, &nwindows
)) {
77 wwarning(_("could not get window list!!"));
80 WMEmptyBag(scr
->stacking_list
);
82 /* verify list integrity */
84 for (i
=0; i
<nwindows
; i
++) {
85 if (XFindContext(dpy
, windows
[i
], wStackContext
, (XPointer
*)&frame
)
91 level
= frame
->stacking
->window_level
;
92 tmp
= WMGetFromBag(scr
->stacking_list
, level
);
94 tmp
->stacking
->above
= frame
;
95 frame
->stacking
->under
= tmp
;
96 frame
->stacking
->above
= NULL
;
97 WMSetInBag(scr
->stacking_list
, level
, frame
);
101 if (c
!=scr
->window_count
) {
102 puts("Found different number of windows than in window lists!!!");
105 scr
->window_count
= c
;
114 *----------------------------------------------------------------------
116 * Reorders the actual window stacking, so that it has the stacking
117 * order in the internal window stacking lists. It does the opposite
118 * of RemakeStackList().
121 * Windows may be restacked.
122 *----------------------------------------------------------------------
125 CommitStacking(WScreen
*scr
)
132 nwindows
= scr
->window_count
;
133 windows
= wmalloc(sizeof(Window
)*nwindows
);
136 WM_ETARETI_BAG(scr
->stacking_list
, tmp
, iter
) {
140 puts("Internal inconsistency! window_count is incorrect!!!");
141 printf("window_count says %i windows\n", nwindows
);
146 windows
[i
++] = tmp
->window
;
147 tmp
= tmp
->stacking
->under
;
150 XRestackWindows(dpy
, windows
, i
);
154 wKWMBroadcastStacking(scr
);
160 *----------------------------------------------------------------------
162 * Reestacks windows so that "frame" is under "under".
168 * Changes the stacking order of frame.
169 *----------------------------------------------------------------------
172 moveFrameToUnder(WCoreWindow
*under
, WCoreWindow
*frame
)
176 wins
[0] = under
->window
;
177 wins
[1] = frame
->window
;
178 XRestackWindows(dpy
, wins
, 2);
181 wKWMBroadcastStacking(under
->screen_ptr
);
186 *----------------------------------------------------------------------
188 * Raises a frame taking the window level and the on_top flag
195 * Window stacking order and window list is changed.
197 *----------------------------------------------------------------------
200 wRaiseFrame(WCoreWindow
*frame
)
202 WCoreWindow
*wlist
= frame
, *wlist_above
;
203 int level
= frame
->stacking
->window_level
;
204 WScreen
*scr
= frame
->screen_ptr
;
207 if (frame
->stacking
->above
== NULL
) {
211 /* insert on top of other windows */
214 if (wlist
== (wlist_above
= wlist
->stacking
->above
)) {
215 wwarning("You just found a bug in wmaker. Please try to figure what type of raising/lowering operations you did with which applications and report. Please give complete information about how to reproduce it.");
222 /* window is inserted before the point found */
224 /* top most window (last on the list) */
225 if (frame
->stacking
->under
)
226 frame
->stacking
->under
->stacking
->above
= frame
->stacking
->above
;
227 if (frame
->stacking
->above
)
228 frame
->stacking
->above
->stacking
->under
= frame
->stacking
->under
;
230 frame
->stacking
->above
= NULL
;
231 frame
->stacking
->under
= WMGetFromBag(scr
->stacking_list
, level
);
232 frame
->stacking
->under
->stacking
->above
= frame
;
233 WMSetInBag(scr
->stacking_list
, level
, frame
);
235 } else if (frame
!=wlist
) {
236 if (frame
->stacking
->under
)
237 frame
->stacking
->under
->stacking
->above
= frame
->stacking
->above
;
238 if (frame
->stacking
->above
)
239 frame
->stacking
->above
->stacking
->under
= frame
->stacking
->under
;
241 frame
->stacking
->above
= wlist
;
242 frame
->stacking
->under
= wlist
->stacking
->under
;
243 if (wlist
->stacking
->under
)
244 wlist
->stacking
->under
->stacking
->above
= frame
;
245 wlist
->stacking
->under
= frame
;
248 if (wPreferences
.on_top_transients
)
251 /* raise transients under us from bottom to top
252 * so that the order is kept */
254 wlist
= frame
->stacking
->under
;
255 while (wlist
&& wlist
->stacking
->under
)
256 wlist
= wlist
->stacking
->under
;
257 while (wlist
&& wlist
!=frame
) {
258 if (wlist
->stacking
->child_of
== frame
) {
262 wlist
= wlist
->stacking
->above
;
266 wlist
= frame
->stacking
->under
;
268 if (wlist
->stacking
->child_of
== frame
) {
269 /* transient for us */
271 goto again
; /* need this or we'll get in a loop */
273 wlist
= wlist
->stacking
->under
;
277 /* try to optimize things a little */
278 if (frame
->stacking
->above
== NULL
) {
282 for (above
= WMBagIteratorAtIndex(scr
->stacking_list
, level
+1, &iter
);
284 above
= WMBagNext(scr
->stacking_list
, &iter
)) {
287 while (above
->stacking
->under
)
288 above
= above
->stacking
->under
;
292 XRaiseWindow(dpy
, frame
->window
);
294 moveFrameToUnder(above
, frame
);
297 moveFrameToUnder(frame
->stacking
->above
, frame
);
301 WWindow
*wwin
= wWindowFor(frame
->window
);
304 wKWMSendEventMessage(wwin
, WKWMRaiseWindow
);
307 #ifdef VIRTUAL_DESKTOP
308 wWorkspaceRaiseEdge(scr
);
315 wRaiseLowerFrame(WCoreWindow
*frame
)
317 if (!frame
->stacking
->above
318 ||(frame
->stacking
->window_level
319 !=frame
->stacking
->above
->stacking
->window_level
)) {
323 WCoreWindow
*scan
= frame
->stacking
->above
;
324 WWindow
*frame_wwin
= (WWindow
*) frame
->descriptor
.parent
;
328 if (scan
->descriptor
.parent_type
== WCLASS_WINDOW
) {
329 WWindow
*scan_wwin
= (WWindow
*)scan
->descriptor
.parent
;
331 if (wWindowObscuresWindow(scan_wwin
, frame_wwin
)
332 && scan_wwin
->flags
.mapped
) {
336 scan
= scan
->stacking
->above
;
349 wLowerFrame(WCoreWindow
*frame
)
351 WScreen
*scr
= frame
->screen_ptr
;
352 WCoreWindow
*prev
, *wlist
=frame
;
353 int level
= frame
->stacking
->window_level
;
355 /* already in bottom */
356 if (wlist
->stacking
->under
== NULL
) {
360 if (wPreferences
.on_top_transients
&&
361 wlist
->stacking
->under
==wlist
->stacking
->child_of
) {
365 if (wlist
->stacking
->under
==wlist
->stacking
->child_of
) {
370 /* remove from the list */
371 if (WMGetFromBag(scr
->stacking_list
, level
) == frame
) {
372 /* it was the top window */
373 WMSetInBag(scr
->stacking_list
, level
, frame
->stacking
->under
);
374 frame
->stacking
->under
->stacking
->above
= NULL
;
376 if (frame
->stacking
->under
)
377 frame
->stacking
->under
->stacking
->above
= frame
->stacking
->above
;
378 if (frame
->stacking
->above
)
379 frame
->stacking
->above
->stacking
->under
= frame
->stacking
->under
;
381 wlist
= WMGetFromBag(scr
->stacking_list
, level
);
383 /* look for place to put this window */
385 if (wPreferences
.on_top_transients
)
388 WCoreWindow
*owner
= frame
->stacking
->child_of
;
390 if (owner
!= wlist
) {
391 while (wlist
->stacking
->under
) {
392 /* if this is a transient, it should not be placed under
394 if (owner
== wlist
->stacking
->under
)
396 wlist
= wlist
->stacking
->under
;
402 while (wlist
->stacking
->under
) {
403 wlist
= wlist
->stacking
->under
;
407 /* insert under the place found */
408 frame
->stacking
->above
= wlist
;
409 frame
->stacking
->under
= wlist
->stacking
->under
;
410 if (wlist
->stacking
->under
)
411 wlist
->stacking
->under
->stacking
->above
= frame
;
412 wlist
->stacking
->under
= frame
;
414 /* try to optimize things a little */
415 if (frame
->stacking
->above
== NULL
) {
416 WCoreWindow
*above
= NULL
;
419 for (above
= WMBagIteratorAtIndex(scr
->stacking_list
, level
-1, &iter
);
421 above
= WMBagPrevious(scr
->stacking_list
, &iter
)) {
424 while (above
->stacking
->under
)
425 above
= above
->stacking
->under
;
429 XLowerWindow(dpy
, frame
->window
);
431 moveFrameToUnder(above
, frame
);
434 moveFrameToUnder(frame
->stacking
->above
, frame
);
438 WWindow
*wwin
= wWindowFor(frame
->window
);
441 wKWMSendEventMessage(wwin
, WKWMLowerWindow
);
449 *----------------------------------------------------------------------
451 * Inserts the frame in the top of the stacking list. The
452 * stacking precedence is obeyed.
458 * The frame is added to it's screen's window list.
459 *----------------------------------------------------------------------
462 AddToStackList(WCoreWindow
*frame
)
464 WCoreWindow
*prev
, *tmpw
, *wlist
;
465 int index
= frame
->stacking
->window_level
;
466 WScreen
*scr
= frame
->screen_ptr
;
468 frame
->screen_ptr
->window_count
++;
469 XSaveContext(dpy
, frame
->window
, wStackContext
, (XPointer
)frame
);
470 tmpw
= WMGetFromBag(scr
->stacking_list
, index
);
473 WMSetInBag(scr
->stacking_list
, index
, frame
);
474 frame
->stacking
->above
= NULL
;
475 frame
->stacking
->under
= NULL
;
480 /* check if this is a transient owner */
482 if (wPreferences
.on_top_transients
)
485 WCoreWindow
*trans
= NULL
;
487 wlist
= WMGetFromBag(scr
->stacking_list
, index
);
489 if (wlist
->stacking
->child_of
== frame
)
491 wlist
= wlist
->stacking
->under
;
494 frame
->stacking
->above
= trans
;
496 frame
->stacking
->under
= trans
->stacking
->under
;
497 if (trans
->stacking
->under
) {
498 trans
->stacking
->under
->stacking
->above
= frame
;
500 trans
->stacking
->under
= frame
;
502 frame
->stacking
->under
= tmpw
;
503 tmpw
->stacking
->above
= frame
;
504 WMSetInBag(scr
->stacking_list
, index
, frame
);
509 /* put on top of the stacking list */
510 frame
->stacking
->above
= NULL
;
511 frame
->stacking
->under
= tmpw
;
512 tmpw
->stacking
->above
= frame
;
513 WMSetInBag(scr
->stacking_list
, index
, frame
);
522 *----------------------------------------------------------------------
523 * MoveInStackListAbove--
524 * Moves the frame above "next".
530 * Stacking order may be changed.
531 * Window level for frame may be changed.
532 *----------------------------------------------------------------------
535 MoveInStackListAbove(WCoreWindow
*next
, WCoreWindow
*frame
)
538 WScreen
*scr
= frame
->screen_ptr
;
541 if (!next
|| frame
->stacking
->under
== next
)
544 if (frame
->stacking
->window_level
!= next
->stacking
->window_level
)
545 ChangeStackingLevel(frame
, next
->stacking
->window_level
);
547 index
= frame
->stacking
->window_level
;
549 tmpw
= WMGetFromBag(scr
->stacking_list
, index
);
551 WMSetInBag(scr
->stacking_list
, index
, frame
->stacking
->under
);
552 if (frame
->stacking
->under
)
553 frame
->stacking
->under
->stacking
->above
= frame
->stacking
->above
;
554 if (frame
->stacking
->above
)
555 frame
->stacking
->above
->stacking
->under
= frame
->stacking
->under
;
556 if (next
->stacking
->above
)
557 next
->stacking
->above
->stacking
->under
= frame
;
558 frame
->stacking
->under
= next
;
559 frame
->stacking
->above
= next
->stacking
->above
;
560 next
->stacking
->above
= frame
;
562 WMSetInBag(scr
->stacking_list
, index
, frame
);
564 /* try to optimize things a little */
565 if (frame
->stacking
->above
== NULL
) {
566 WCoreWindow
*above
= NULL
;
569 for (above
= WMBagIteratorAtIndex(scr
->stacking_list
, index
+1, &iter
);
571 above
= WMBagNext(scr
->stacking_list
, &iter
)) {
574 while (above
->stacking
->under
)
575 above
= above
->stacking
->under
;
579 XRaiseWindow(dpy
, frame
->window
);
581 moveFrameToUnder(above
, frame
);
584 moveFrameToUnder(frame
->stacking
->above
, frame
);
591 *----------------------------------------------------------------------
592 * MoveInStackListUnder--
593 * Moves the frame to under "prev".
599 * Stacking order may be changed.
600 * Window level for frame may be changed.
601 *----------------------------------------------------------------------
604 MoveInStackListUnder(WCoreWindow
*prev
, WCoreWindow
*frame
)
608 WScreen
*scr
= frame
->screen_ptr
;
610 if (!prev
|| frame
->stacking
->above
== prev
)
613 if (frame
->stacking
->window_level
!= prev
->stacking
->window_level
)
614 ChangeStackingLevel(frame
, prev
->stacking
->window_level
);
616 index
= frame
->stacking
->window_level
;
618 tmpw
= WMGetFromBag(scr
->stacking_list
, index
);
620 WMSetInBag(scr
->stacking_list
, index
, frame
->stacking
->under
);
621 if (frame
->stacking
->under
)
622 frame
->stacking
->under
->stacking
->above
= frame
->stacking
->above
;
623 if (frame
->stacking
->above
)
624 frame
->stacking
->above
->stacking
->under
= frame
->stacking
->under
;
625 if (prev
->stacking
->under
)
626 prev
->stacking
->under
->stacking
->above
= frame
;
627 frame
->stacking
->above
= prev
;
628 frame
->stacking
->under
= prev
->stacking
->under
;
629 prev
->stacking
->under
= frame
;
630 moveFrameToUnder(prev
, frame
);
635 RemoveFromStackList(WCoreWindow
*frame
)
637 int index
= frame
->stacking
->window_level
;
639 if (XDeleteContext(dpy
, frame
->window
, wStackContext
)==XCNOENT
) {
640 wwarning("RemoveFromStackingList(): window not in list ");
643 /* remove from the window stack list */
644 if (frame
->stacking
->under
)
645 frame
->stacking
->under
->stacking
->above
= frame
->stacking
->above
;
646 if (frame
->stacking
->above
)
647 frame
->stacking
->above
->stacking
->under
= frame
->stacking
->under
;
648 else /* this was the first window on the list */
649 WMSetInBag(frame
->screen_ptr
->stacking_list
, index
,
650 frame
->stacking
->under
);
652 frame
->screen_ptr
->window_count
--;
657 ChangeStackingLevel(WCoreWindow
*frame
, int new_level
)
660 if (frame
->stacking
->window_level
== new_level
)
662 old_level
= frame
->stacking
->window_level
;
664 RemoveFromStackList(frame
);
665 frame
->stacking
->window_level
= new_level
;
666 AddToStackList(frame
);
667 if (old_level
> new_level
) {