(import qt-light protobj
        (chicken io))

(define a (qt:init))
(define w (qt:widget (call-with-input-file "hello.ui" (lambda (p) (read-string #f p)))))
(print (? w pointer))
(define b (qt:find w "quitButton"))
(print b)
(qt:connect b "clicked()" a "quit()")
(qt:show w)
(qt:run)