(with-main-window (main-window (q+:make-qscrollarea))
  (let ((layout (make-instance 'qui:flow-layout)))
    (setf (q+:widget main-window) layout)
    (qui:add-widget (q+:make-qlabel "aaaa") layout)))