Commit 9f50506a authored by Alastair Bridgewater's avatar Alastair Bridgewater
Browse files

clx-interface: Use the special *WINDOW* instead of the local WINDOW.

  * We're about to transition to using a mirrored SHEET in order
to create the window instead of using XLIB:CREATE-WINDOW directly.
As part of doing so, we will remove the local variable WINDOW, so
we need to update the uses that will remain to point to the
special variable instead.
parent bfa91b9a
......@@ -85,12 +85,12 @@
(setf (xlib:window-event-mask *window*)
(xlib:make-event-mask :exposure))
(setf (xlib:wm-name window)
(setf (xlib:wm-name *window*)
(or window-title *default-window-title*))
(when space-requirement
(set-window-space-requirement window space-requirement))
(xlib:map-window window)))
(set-window-space-requirement *window* space-requirement))
(xlib:map-window *window*)))
(defun close-display ()
;; It is sufficient to drop the reference to *window*, as closing
......
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