12 lines
285 B
Scheme
12 lines
285 B
Scheme
|
(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)
|