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