Wednesday 9 November 2011

Qt 4.6 tutorial in Lisp

;;
;; first qt tutorial
;;

(defpackage :qt-tutorial1
  (:use :cl :qt)
  (:export :main))

(in-package :qt-tutorial1)
(named-readtables:in-readtable :qt)

(defvar *qapp*)

(defun main ()
  (let ((hello-button (#_new QPushButton "Hello world!")))
    (#_resize hello-button 100 30)
    (#_show hello-button)))