1 ;;; Copyright 2009 Tobias Rautenkranz

2 ;;; License: X11 license

3

4 (in-package :qt.examples)

5

6 (defun hello-world-quit ()

7 "Quit on push-button click"

8 (qt:with-app ()

9 (let ((quit (make-instance 'qt:push-button :args '("Quit")))

10 (font (make-instance 'qt:font :args (list "Times"

11 18

12 qt:font.+bold+))))

13 (cxx:resize quit 75 30)

14 (setf (cxx:font quit) font)

15

16 (qt:connect (qt:get-signal quit "pressed()")

17 #'(lambda ()

18 (format t "About to quit()~%")))

19

20 (qt:connect (qt:get-signal quit "clicked()")

21 (qt:get-slot (qt:app) "quit()"))

22 (cxx:show quit)

23 (qt:exec))))