1 ;;; Copyright 2009 Tobias Rautenkranz

2 ;;; License: X11 license

3

4 (in-package :qt.examples)

5

6 (defun hello-world ()

7 "Hello world"

8 (qt:with-app ()

9 (let ((widget (make-instance 'qt:push-button :args '("Hello world"))))

10 (cxx:show widget)

11 (qt:exec))))