(in-package :qt)

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

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

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

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

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

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

(qwidget-show *quit*)
(qapplication-exec)
(sb-ext:quit)