a3b9f5c072
git-svn-id: https://code.call-cc.org/svn/chicken-eggs/release/5/qt-light@38001 fca3e652-9b03-0410-8d7b-ac86a6ce46c4
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)
|