(ql:quickload '(:qtgui :qtcore :qtools)) (in-package :cl+qt) (named-readtables:in-readtable :qtools) (define-widget image-widget-holder (qwidget) ((widgets :reader widgets :initform '()))) (define-subwidget (image-widget-holder layout) (q+:make-qvboxlayout) (setf (q+:layout image-widget-holder) layout (q+:contents-margins layout) (values 0 0 0 0))) (with-main-window (window (make-instance 'image-widget-holder)))