(ql:quickload '(:qtopengl))
(in-package :cl+qt)
(in-readtable :qtools)

(define-widget context (QGLWidget)
  ())

(defmethod construct ((context context))
  (let ((format (q+:make-qglformat)))
    (setf (q+:profile format) (q+:qglformat.core-profile)
          (q+:version format) (values 3 3))
    (new context format)
    (format T "Format version: ~a.~a"
            (q+:major-version (q+:format context))
            (q+:minor-version (q+:format context)))))

(defun main ()
  (with-main-window (w 'context)))