(in-package :qt)

(defmacro qsignal (sig)
  (concatenate 'string "2" sig))

(defmacro qslot (slot)
  (concatenate 'string "1" slot))

(defparameter *app* (make-instance 'qlisp-application))

(defparameter *window* (make-instance 'qwidget))

(qwidget-resize *window* 200 120)

(defparameter *quit* 
  (make-instance 'qpush-button
                 :text (make-instance 'qstring 
                                      :ch "Quit")
                 :parent *window*))

(qwidget-set-font *quit* (make-instance 'qfont
                                        :family (make-instance 'qstring
                                                               :ch "Times")
                                        :pointsize 18
                                        :weight QFont-Bold))

(qwidget-set-geometry *quit* 10 40 180 40)

(qobject-connect *quit* (qsignal "clicked()")
                 *app* (qslot "quit()"))

(qwidget-show *window*)

(qapplication-exec)
(sb-ext:quit)