Re: [STUMP] Real fullscreen and centering windows.

[Philippe Brochard]

Philippe Brochard a écrit :

> Hi everybody,
>
> Here is a few patch to have windows that doesn't fill all the frame
> automaticaly centered :
>

Bug fixe: the draw-background-win function below works also for
transcient windows.

[...]

(defun draw-background-win (screen)
  (delete-background-win)
  (let ((focused-win (xlib:input-focus *display*)))
    (unless (xlib:get-property focused-win :WM_TRANSIENT_FOR)
      (let ((win (xlib:create-window :parent (xlib:screen-root (screen-number 
screen))
                                     :x (frame-x *maximized-frame-size*)
                                     :y (frame-y *maximized-frame-size*)
                                     :width (frame-width *maximized-frame-size*)
                                     :height (frame-height 
*maximized-frame-size*)
                                     :background (or *background-win-color*
                                                     (xlib:screen-black-pixel 
(screen-number screen)))
                                     :border (or *background-win-color*
                                                 (xlib:screen-black-pixel 
(screen-number screen)))
                                     :border-width 1
                                     :event-mask '())))
        (xlib:map-window win)
        (setf (xlib:window-priority win) :above)
        (setf (xlib:window-priority focused-win) :above)
        (setf *background-win* win)
        (xlib:display-force-output *display*)))))


[...]

Philippe


-- 
Philippe Brochard    <address@hidden>
                      http://hocwp.free.fr