2

我有以下代码。它在我屏幕的左上角绘制了一个 200x200 的白色方块。

需要对代码进行哪些更改，以便 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)))
4

0 回答 0