When vertically scaling the window, there is an artifact with the buttons.

[Filipp-Druan]

I started this code:

(ql:quickload '(cl-gtk4))

(defpackage gui.example
  (:use :cl :gtk4))

(in-package gui.example)

(define-application (:name main
                     :id   "org.share-files.main")
  (define-main-window (main-window (make-application-window :application
                                                            *application*))  
    (setf (window-title main-window)
          "Share-files")
    (let ((box (make-box :orientation +orientation-vertical+
                         :spacing 1))
          (button (make-button :label "Hello")))
      (box-append box button)

      (setf (window-child main-window)
            box))

  (unless (widget-visible-p main-window)
    (window-present main-window))))

When vertically scaling the window, there is an artifact with the buttons: https://ibb.co/sJzcJpp

[bohonghuang]

I guess your desktop environment is XFCE. This is a notorious issue in X11, and everything works fine under Wayland.

https://github.com/bohonghuang/cl-gtk4/assets/11132087/d2503a61-ec01-42fe-a904-abe6df4f4566