Commit d06e5af8 authored by Alastair Bridgewater's avatar Alastair Bridgewater
Browse files

clx-interface: Restructure window property configuration.

  * Move setting the window background color and event mask to
separate SETF forms, rather than passing them as parameters to
XLIB:CREATE-WINDOW, as preparation for using a mirrored sheet,
which won't allow us to pass such parameters to start with (or,
possibly, ever).

  * Lose the setting for the window border color.  The window
seems to either have a zero-width border by default or the window
manager sets it down to that during reparenting, so we don't need
to set it.
parent 28877db5
......@@ -62,8 +62,6 @@
(setf *display* (clx-port-display *port*))
(let* ((screen (xlib:display-default-screen *display*))
(root (xlib:screen-root screen))
(black-pixel (xlib:screen-black-pixel screen))
(white-pixel (xlib:screen-white-pixel screen))
(width (or (and space-requirement
(space-requirement-width space-requirement))
*default-window-width*))
......@@ -71,12 +69,17 @@
(space-requirement-height space-requirement))
*default-window-height*))
(window (xlib:create-window :parent root
:x 0 :y 0 :width width :height height
:background white-pixel
:border black-pixel
:event-mask '(:exposure))))
:x 0 :y 0 :width width :height height)))
(setf *window* window)
(setf (xlib:window-background *window*)
(xlib:screen-white-pixel
(xlib:display-default-screen
(clx-port-display *port*))))
(setf (xlib:window-event-mask *window*)
(xlib:make-event-mask :exposure))
(setf (xlib:wm-name window)
(or window-title *default-window-title*))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment