(defpackage :qtools-demo
  (:use :cl))

(in-package :qtools-demo)

(defun make-slider ()
  (prog1-bind (the-widget (make-instance 'qui:slider))
    ))

(defun main ()
  (cl+qt:with-main-window (w (make-instance 'qui:panel-container))
  (qui:add-widget (make-instance 'qui:panel :title "An empty panel :(") w)
  (qui:add-widget (make-instance 'qui:panel :title "A slider, whoa!"
                                 :center (make-slider)) w)
  (qui:add-widget (make-instance 'qui:listing :title "A slider, whoa!"
                                 :center (make-instance 'qui:slider)) w))
)