;;; Copyright 2009 Tobias Rautenkranz
;;; License: X11 license

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

(defun hello-world ()
  "KDE Hello World"
  (kde:with-kde ("khelloworld" "Hello World" "0.1")
    (let* ((window (make-instance 'kde:push-button :args '("Hello world"))))
      (cxx:show window)
      (qt:exec))))