Как создать окно в Xlib, которое позиционируется оконным менеджером? (Lisp, CLX, StumpWM) - PullRequest
Новая
       120

Как создать окно в Xlib, которое позиционируется оконным менеджером? (Lisp, CLX, StumpWM)

2 голосов
/ 19 марта 2020

У меня есть следующий код. Это др aws белый квадрат 200х200 в верхнем левом углу моего экрана.

Какие изменения необходимо внести в код, чтобы квадрат был выбран StumpWM и нарисован в верхнем левом углу текущего "фрейма" StumpWM. 

(in-package :stumpwm-user)

(defun make-window-example ()
  (let* ((display *display*)
         (screen (first (xlib:display-roots display)))
         (white (xlib:screen-white-pixel screen))
         (root-window (xlib:screen-root screen))
         (my-window (xlib:create-window
                     :parent root-window
                     :x 0
                     :y 0
                     :width 200
                     :height 200
                     :background white)))
    (xlib:map-window my-window)
    (xlib:display-finish-output display)
    (sleep 2)
    (xlib:destroy-window my-window)))
...