2 * Window Maker window manager
4 * Copyright (c) 1997, 1998 Alfredo K. Kojima
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
28 #include <X11/Xutil.h>
30 #include "WindowMaker.h"
35 #include "properties.h"
41 /*** Global Variables ***/
42 extern XContext wStackContext
;
44 extern WPreferences wPreferences
;
48 *----------------------------------------------------------------------
50 * Remakes the stacking_list for the screen, getting the real
51 * stacking order from the server and reordering windows that are not
52 * in the correct stacking.
55 * The stacking order list and the actual window stacking
56 * may be changed (corrected)
58 *----------------------------------------------------------------------
61 RemakeStackList(WScreen
*scr
)
64 unsigned int nwindows
;
67 WCoreWindow
*onbotw
[MAX_WINDOW_LEVELS
];
71 if (!XQueryTree(dpy
, scr
->root_win
, &junkr
, &junkp
, &windows
, &nwindows
)) {
72 wwarning(_("could not get window list!!"));
75 for (i
=0; i
<MAX_WINDOW_LEVELS
; i
++) {
76 scr
->stacking_list
[i
] = NULL
;
78 /* scr->window_level_count[i] = 0;*/
80 /* verify list integrity */
82 for (i
=0; i
<nwindows
; i
++) {
83 if (XFindContext(dpy
, windows
[i
], wStackContext
, (XPointer
*)&frame
)
89 level
= frame
->stacking
->window_level
;
91 onbotw
[level
]->stacking
->above
= frame
;
92 frame
->stacking
->under
= onbotw
[level
];
93 frame
->stacking
->above
= NULL
;
94 onbotw
[level
] = frame
;
95 /* scr->window_level_count[level]++;*/
99 if (c
!=scr
->window_count
) {
100 puts("Found different number of windows than in window lists!!!");
103 scr
->window_count
= c
;
105 /* now, just concatenate the lists */
106 for (i
=0; i
<MAX_WINDOW_LEVELS
; i
++) {
107 scr
->stacking_list
[i
] = onbotw
[i
];
109 onbotw
[i
]->stacking
->above
= NULL
;
116 *----------------------------------------------------------------------
118 * Reorders the actual window stacking, so that it has the stacking
119 * order in the internal window stacking lists. It does the opposite
120 * of RemakeStackList().
123 * Windows may be restacked.
124 *----------------------------------------------------------------------
127 CommitStacking(WScreen
*scr
)
134 nwindows
= scr
->window_count
;
135 windows
= wmalloc(sizeof(Window
)*nwindows
);
137 for (level
=MAX_WINDOW_LEVELS
-1; level
>=0; level
--) {
138 tmp
= scr
->stacking_list
[level
];
142 puts("Internal inconsistency! window_count is incorrect!!!");
143 printf("window_count says %i windows\n", nwindows
);
148 windows
[i
++] = tmp
->window
;
149 tmp
= tmp
->stacking
->under
;
152 XRestackWindows(dpy
, windows
, i
);
156 wKWMBroadcastStacking(scr
);
161 *----------------------------------------------------------------------
163 * Reestacks windows so that "frame" is under "under".
169 * Changes the stacking order of frame.
170 *----------------------------------------------------------------------
173 moveFrameToUnder(WCoreWindow
*under
, WCoreWindow
*frame
)
177 wins
[0] = under
->window
;
178 wins
[1] = frame
->window
;
179 XRestackWindows(dpy
, wins
, 2);
182 wKWMBroadcastStacking(under
->screen_ptr
);
187 *----------------------------------------------------------------------
189 * Raises a frame taking the window level and the on_top flag
196 * Window stacking order and window list is changed.
198 *----------------------------------------------------------------------
201 wRaiseFrame(WCoreWindow
*frame
)
203 WCoreWindow
*wlist
= frame
, *wlist_above
;
204 int level
= frame
->stacking
->window_level
;
208 if (frame
->stacking
->above
== NULL
) {
212 /* insert on top of other windows */
215 if (wlist
== (wlist_above
= wlist
->stacking
->above
)) {
216 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.");
224 wlist
= wlist
->stacking
->above
;
226 /* window is inserted before the point found */
228 /* top most window (last on the list) */
229 if (frame
->stacking
->under
)
230 frame
->stacking
->under
->stacking
->above
= frame
->stacking
->above
;
231 if (frame
->stacking
->above
)
232 frame
->stacking
->above
->stacking
->under
= frame
->stacking
->under
;
234 frame
->stacking
->above
= NULL
;
235 frame
->stacking
->under
= frame
->screen_ptr
->stacking_list
[level
];
236 frame
->screen_ptr
->stacking_list
[level
]->stacking
->above
=frame
;
237 frame
->screen_ptr
->stacking_list
[level
] = frame
;
238 } else if (frame
!=wlist
) {
239 if (frame
->stacking
->under
)
240 frame
->stacking
->under
->stacking
->above
= frame
->stacking
->above
;
241 if (frame
->stacking
->above
)
242 frame
->stacking
->above
->stacking
->under
= frame
->stacking
->under
;
244 frame
->stacking
->above
= wlist
;
245 frame
->stacking
->under
= wlist
->stacking
->under
;
246 if (wlist
->stacking
->under
)
247 wlist
->stacking
->under
->stacking
->above
= frame
;
248 wlist
->stacking
->under
= frame
;
251 if (wPreferences
.on_top_transients
)
254 /* raise transients under us from bottom to top
255 * so that the order is kept */
257 wlist
= frame
->stacking
->under
;
258 while (wlist
&& wlist
->stacking
->under
)
259 wlist
= wlist
->stacking
->under
;
260 while (wlist
&& wlist
!=frame
) {
261 if (wlist
->stacking
->child_of
== frame
) {
265 wlist
= wlist
->stacking
->above
;
269 wlist
= frame
->stacking
->under
;
271 if (wlist
->stacking
->child_of
== frame
) {
272 /* transient for us */
274 goto again
; /* need this or we'll get in a loop */
276 wlist
= wlist
->stacking
->under
;
280 /* try to optimize things a little */
281 if (frame
->stacking
->above
== NULL
) {
282 WCoreWindow
*above
=NULL
;
284 for (i
=level
+1; i
<MAX_WINDOW_LEVELS
; i
++) {
285 if (frame
->screen_ptr
->stacking_list
[i
]!=NULL
) {
287 above
= frame
->screen_ptr
->stacking_list
[i
];
288 while (above
->stacking
->under
)
289 above
= above
->stacking
->under
;
294 XRaiseWindow(dpy
, frame
->window
);
296 moveFrameToUnder(above
, frame
);
299 moveFrameToUnder(frame
->stacking
->above
, frame
);
303 WWindow
*wwin
= wWindowFor(frame
->window
);
306 wKWMSendEventMessage(wwin
, WKWMRaiseWindow
);
313 wRaiseLowerFrame(WCoreWindow
*frame
)
315 if (!frame
->stacking
->above
316 ||(frame
->stacking
->window_level
317 !=frame
->stacking
->above
->stacking
->window_level
)) {
321 WCoreWindow
*scan
= frame
->stacking
->above
;
322 WWindow
*frame_wwin
= (WWindow
*) frame
->descriptor
.parent
;
326 if (scan
->descriptor
.parent_type
== WCLASS_WINDOW
) {
327 WWindow
*scan_wwin
= (WWindow
*) scan
->descriptor
.parent
;
329 if (wWindowObscuresWindow(scan_wwin
, frame_wwin
)
330 && scan_wwin
->flags
.mapped
) {
334 scan
= scan
->stacking
->above
;
347 wLowerFrame(WCoreWindow
*frame
)
349 WScreen
*scr
=frame
->screen_ptr
;
350 WCoreWindow
*prev
, *wlist
=frame
;
351 int level
= frame
->stacking
->window_level
;
354 /* already in bottom */
355 if (wlist
->stacking
->under
==NULL
) {
359 if (wPreferences
.on_top_transients
&&
360 wlist
->stacking
->under
==wlist
->stacking
->child_of
) {
364 if (wlist
->stacking
->under
==wlist
->stacking
->child_of
) {
369 /* remove from the list */
370 if (scr
->stacking_list
[level
] == frame
) {
371 /* it was the top window */
372 scr
->stacking_list
[level
] = frame
->stacking
->under
;
373 scr
->stacking_list
[level
]->stacking
->above
= NULL
;
375 if (frame
->stacking
->under
)
376 frame
->stacking
->under
->stacking
->above
= frame
->stacking
->above
;
377 if (frame
->stacking
->above
)
378 frame
->stacking
->above
->stacking
->under
= frame
->stacking
->under
;
380 wlist
= scr
->stacking_list
[level
];
381 /* look for place to put this window */
383 if (wPreferences
.on_top_transients
)
386 WCoreWindow
*owner
= frame
->stacking
->child_of
;
388 if (owner
!= wlist
) {
389 while (wlist
->stacking
->under
) {
390 /* if this is a transient, it should not be placed under
392 if (owner
== wlist
->stacking
->under
)
394 wlist
= wlist
->stacking
->under
;
400 while (wlist
->stacking
->under
) {
401 wlist
= wlist
->stacking
->under
;
405 /* insert under the place found */
406 frame
->stacking
->above
= wlist
;
407 frame
->stacking
->under
= wlist
->stacking
->under
;
408 if (wlist
->stacking
->under
)
409 wlist
->stacking
->under
->stacking
->above
= frame
;
410 wlist
->stacking
->under
= frame
;
412 /* try to optimize things a little */
413 if (frame
->stacking
->above
== NULL
) {
414 WCoreWindow
*above
= NULL
;
415 for (i
=level
-1; i
>=0; i
--) {
416 if (scr
->stacking_list
[i
]!=NULL
) {
418 above
= scr
->stacking_list
[i
];
419 while (above
->stacking
->under
)
420 above
= above
->stacking
->under
;
425 XLowerWindow(dpy
, frame
->window
);
427 moveFrameToUnder(above
, frame
);
430 moveFrameToUnder(frame
->stacking
->above
, frame
);
434 WWindow
*wwin
= wWindowFor(frame
->window
);
437 wKWMSendEventMessage(wwin
, WKWMLowerWindow
);
444 *----------------------------------------------------------------------
446 * Inserts the frame in the top of the stacking list. The
447 * stacking precedence is obeyed.
453 * The frame is added to it's screen's window list.
454 *----------------------------------------------------------------------
457 AddToStackList(WCoreWindow
*frame
)
459 WCoreWindow
*prev
, *tmpw
, *wlist
;
460 int index
= frame
->stacking
->window_level
;
462 frame
->screen_ptr
->window_count
++;
463 /* frame->screen_ptr->window_level_count[index]++;*/
464 XSaveContext(dpy
, frame
->window
, wStackContext
, (XPointer
)frame
);
465 tmpw
= frame
->screen_ptr
->stacking_list
[index
];
467 frame
->screen_ptr
->stacking_list
[index
] = frame
;
468 frame
->stacking
->above
= NULL
;
469 frame
->stacking
->under
= NULL
;
470 CommitStacking(frame
->screen_ptr
);
474 /* check if this is a transient owner */
476 if (wPreferences
.on_top_transients
)
479 WCoreWindow
*trans
= NULL
;
481 wlist
= frame
->screen_ptr
->stacking_list
[index
];
483 if (wlist
->stacking
->child_of
== frame
)
485 wlist
= wlist
->stacking
->under
;
488 frame
->stacking
->above
= trans
;
490 frame
->stacking
->under
= trans
->stacking
->under
;
491 if (trans
->stacking
->under
) {
492 trans
->stacking
->under
->stacking
->above
= frame
;
494 trans
->stacking
->under
= frame
;
496 frame
->stacking
->under
= tmpw
;
497 tmpw
->stacking
->above
= frame
;
498 frame
->screen_ptr
->stacking_list
[index
] = frame
;
503 /* put on top of the stacking list */
504 frame
->stacking
->above
= NULL
;
505 frame
->stacking
->under
= tmpw
;
506 tmpw
->stacking
->above
= frame
;
507 frame
->screen_ptr
->stacking_list
[index
] = frame
;
510 CommitStacking(frame
->screen_ptr
);
515 *----------------------------------------------------------------------
516 * MoveInStackListAbove--
517 * Moves the frame above "next".
523 * Stacking order may be changed.
524 * Window level for frame may be changed.
525 *----------------------------------------------------------------------
528 MoveInStackListAbove(WCoreWindow
*next
, WCoreWindow
*frame
)
533 if (!next
|| frame
->stacking
->under
== next
)
536 if (frame
->stacking
->window_level
!= next
->stacking
->window_level
)
537 ChangeStackingLevel(frame
, next
->stacking
->window_level
);
539 index
= frame
->stacking
->window_level
;
541 tmpw
= frame
->screen_ptr
->stacking_list
[index
];
543 frame
->screen_ptr
->stacking_list
[index
] = frame
->stacking
->under
;
544 if (frame
->stacking
->under
)
545 frame
->stacking
->under
->stacking
->above
= frame
->stacking
->above
;
546 if (frame
->stacking
->above
)
547 frame
->stacking
->above
->stacking
->under
= frame
->stacking
->under
;
548 if (next
->stacking
->above
)
549 next
->stacking
->above
->stacking
->under
= frame
;
550 frame
->stacking
->under
= next
;
551 frame
->stacking
->above
= next
->stacking
->above
;
552 next
->stacking
->above
= frame
;
554 frame
->screen_ptr
->stacking_list
[index
] = frame
;
556 /* try to optimize things a little */
557 if (frame
->stacking
->above
== NULL
) {
558 WCoreWindow
*above
=NULL
;
561 for (i
=index
+1; i
<MAX_WINDOW_LEVELS
; i
++) {
562 if (frame
->screen_ptr
->stacking_list
[i
]!=NULL
) {
564 above
= frame
->screen_ptr
->stacking_list
[i
];
565 while (above
->stacking
->under
)
566 above
= above
->stacking
->under
;
571 XRaiseWindow(dpy
, frame
->window
);
573 moveFrameToUnder(above
, frame
);
576 moveFrameToUnder(frame
->stacking
->above
, frame
);
582 *----------------------------------------------------------------------
583 * MoveInStackListUnder--
584 * Moves the frame to under "prev".
590 * Stacking order may be changed.
591 * Window level for frame may be changed.
592 *----------------------------------------------------------------------
595 MoveInStackListUnder(WCoreWindow
*prev
, WCoreWindow
*frame
)
600 if (!prev
|| frame
->stacking
->above
== prev
)
603 if (frame
->stacking
->window_level
!= prev
->stacking
->window_level
)
604 ChangeStackingLevel(frame
, prev
->stacking
->window_level
);
606 index
= frame
->stacking
->window_level
;
608 tmpw
= frame
->screen_ptr
->stacking_list
[index
];
610 frame
->screen_ptr
->stacking_list
[index
] = frame
->stacking
->under
;
611 if (frame
->stacking
->under
)
612 frame
->stacking
->under
->stacking
->above
= frame
->stacking
->above
;
613 if (frame
->stacking
->above
)
614 frame
->stacking
->above
->stacking
->under
= frame
->stacking
->under
;
615 if (prev
->stacking
->under
)
616 prev
->stacking
->under
->stacking
->above
= frame
;
617 frame
->stacking
->above
= prev
;
618 frame
->stacking
->under
= prev
->stacking
->under
;
619 prev
->stacking
->under
= frame
;
620 moveFrameToUnder(prev
, frame
);
625 RemoveFromStackList(WCoreWindow
*frame
)
627 int index
= frame
->stacking
->window_level
;
629 if (XDeleteContext(dpy
, frame
->window
, wStackContext
)==XCNOENT
) {
631 wwarning("RemoveFromStackingList(): window not in list ");
635 /* remove from the window stack list */
636 if (frame
->stacking
->under
)
637 frame
->stacking
->under
->stacking
->above
= frame
->stacking
->above
;
638 if (frame
->stacking
->above
)
639 frame
->stacking
->above
->stacking
->under
= frame
->stacking
->under
;
640 else /* this was the first window on the list */
641 frame
->screen_ptr
->stacking_list
[index
] = frame
->stacking
->under
;
643 frame
->screen_ptr
->window_count
--;
644 /* frame->screen_ptr->window_level_count[index]--;*/
649 ChangeStackingLevel(WCoreWindow
*frame
, int new_level
)
652 if (frame
->stacking
->window_level
== new_level
)
654 old_level
= frame
->stacking
->window_level
;
656 RemoveFromStackList(frame
);
657 frame
->stacking
->window_level
= new_level
;
658 AddToStackList(frame
);
659 if (old_level
> new_level
) {