(defun foo ()
  (with-main-window (widget (q+:make-qwidget))
    (let ((layout (q+:make-qvboxlayout))
          (listing (make-instance 'qui:listing)))
      (q+:set-layout widget layout)
      (q+:add-widget layout listing)
      (flet ((fn (text)
               (let ((label (q+:make-qlabel text)))
                 (qui:add-widget (make-instance 'qtools-ui:listing-item
                                                :item label
                                                :container listing)
                                 listing))))
        (fn "haha1")
        (fn "haha2")
        (fn "haha3")
        (fn "haha4")
        (fn "haha5")))))