Welcome to the CHICKEN Scheme pasting service

a minimal qt-smoke app added by retroj on Fri Feb 22 00:33:08 2013

(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)))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which one-argument R5RS procedure returns 3 when given `'(1 2 3 4)' as input?
Visually impaired? Let me spell it for you (wav file) download WAV