(import chicken scheme)

(use
 extras
 smoke
 qtcore
 qtgui)

(run-with-qapplication
 `(,(command-line-arguments))
 (lambda (args)
   (let ((qapp (qapplication-instance)))
     (add-event-handler qapp "timerEvent" void)
     (let ((methid (find-method qtcore "QObject" "startTimer$")))
       (call-method qtcore methid qapp #f '((int 100)))))
   (let ((widget (instantiate qtgui "QWidget" "QWidget")))
     (let ((methid (find-method qtgui "QWidget" "show")))
       (call-method qtgui methid widget))
     (let ((methid (find-method qtgui "QApplication" "exec")))
       (call-method-with-callbacks qtgui methid #f 'int)))))