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

backend/clx/mirror: Implement DESTROY-MIRROR.

  * Fairly basic, just grab the mirror out of the sheet and call
XLIB:DESTROY-WINDOW on it.

  * It compiles, ship it!
parent b4a4e015
......@@ -23,4 +23,8 @@
:width (- max-x min-x)
:height (- max-y min-y)))))
(defmethod destroy-mirror ((port clx-port) mirrored-sheet)
(let ((mirror (sheet-direct-mirror mirrored-sheet)))
(xlib:destroy-window mirror)))
;;; EOF
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