aeon.lisp

(in-package #:aeon)
(named-readtables:in-readtable :qtools)


(define-widget aeon (QWidget) ())
(define-widget first-box (QHBoxLayout) ())
(define-widget start-button (QPushButton) ())

(define-subwidget (first-box start-button) (make-instance 'start-button))

(define-subwidget (aeon first-box) (make-instance 'first-box)
  (q+:add-widget first-box start-button))

(define-subwidget (aeon layout) (q+:make-qvboxlayout aeon)
  (setf (q+:window-title aeon) "Aeon")
  (q+:add-widget layout first-box))

(defun main ()
  (with-main-window (window (make-instance 'aeon))))

(in-package #:aeon)
(named-readtables:in-readtable :qtools)

(define-widget aeon (QWidget) ())

(define-subwidget (aeon start-button) (q+:make-qpushbutton))

(define-subwidget (aeon layout) (q+:make-qvboxlayout aeon)
  (setf (q+:window-title aeon) "Aeon")
  (let ((inner (q+:make-qhboxlayout)))
    (q+:add-widget inner start-button)
    (q+:add-layout layout inner)))

(defun main ()
  (with-main-window (window (make-instance 'aeon))))