(import qt-light goodbye-widgets protobj
        (chicken io))

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