mirror of
https://github.com/goose121/clx-truetype.git
synced 2026-09-10 07:16:25 -04:00
13 lines
350 B
Common Lisp
13 lines
350 B
Common Lisp
;;; 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)))
|