1 ;;; Copyright 2009 Tobias Rautenkranz

2 ;;; License: X11 license

3

4 (in-package :cl-smoke.kde.examples)

5

6 (defun hello-world ()

7 "KDE Hello World"

8 (kde:with-kde ("khelloworld" "Hello World" "0.1")

9 (let* ((window (make-instance 'kde:push-button :args '("Hello world"))))

10 (cxx:show window)

11 (qt:exec))))

12