repos
/
qt.examples
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
Annotate for file src/hello-world-quit.lisp
2009-04-05 tobias
1
(in-package :qt.examples)
15:36:46 '
2
'
3
(defun hello-world-quit ()
'
4
"Quit on push-button click"
'
5
(qt:with-app
'
6
(let ((quit (make-instance 'qt:push-button :args '("Quit")))
'
7
(font (make-instance 'qt:font :args (list "Times"
'
8
18
'
9
(value qt:font.+bold+)))))
'
10
(cxx:resize quit 75 30)
'
11
(cxx:set-font quit font)
'
12
'
13
(qt:connect (qt:get-signal quit "pressed()")
'
14
#'(lambda ()
'
15
(format t "About to quit()~%")))
'
16
'
17
(qt:connect (qt:get-signal quit "clicked()")
'
18
(qt:get-slot (qt:app) "quit()"))
'
19
(cxx:show quit)
'
20
(qt:exec quit))))