Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (10 sloc) 350 Bytes
;;; Utils
(in-package #:clx-truetype)
(defun drawable-screen (drawable)
(typecase drawable
(xlib:drawable
(dolist (screen (xlib:display-roots (xlib:drawable-display drawable)))
(when (xlib:drawable-equal (xlib:screen-root screen) (xlib:drawable-root drawable))
(return screen))))
(xlib:screen drawable)
(t nil)))