(define-widget draggable-label (qlabel qtools-ui:listing-item) ())

(define-constructor (draggable-label text)
  (setf (q+:text draggable-label) text))

(defun foo ()
  (with-main-window (listing 'qtools-ui:listing)
    (flet ((fn (text)
             (qui:add-widget (make-instance 'draggable-label
                                            :text text
                                            :container listing)
                             listing)))
      (fn "haha1")
      (fn "haha2")
      (fn "haha3")
      (fn "haha4")
      (fn "haha5"))))