source: project/release/4/qt/hello.scm @ 15639

Last change on this file since 15639 was 15639, checked in by felix winkelmann, 10 years ago

ported to CHICKEN 4

File size: 217 bytes
Line 
1(use qt utils protobj)
2
3(define a (qt:init))
4(define w (qt:widget (read-all "hello.ui")))
5(print (? w pointer))
6(define b (qt:find w "quitButton"))
7(print b)
8(qt:connect b "clicked()" a "quit()")
9(qt:show w)
10(qt:run)
Note: See TracBrowser for help on using the repository browser.