(in-package :eql-user)

(defvar *trafficlight* (qload-c++ (in-src "Qt_EQL/trafficlight/trafficlight")))
(defvar *lights*       (qfind-children *trafficlight* nil "LightWidget"))
(defvar *red*          (first *lights*))
(defvar *yellow*       (second *lights*))
(defvar *green*        (third *lights*))

(qapropos nil *trafficlight*)
(qapropos nil *red*)

;;; generate wrappers

(define-qt-wrappers *trafficlight*)
(define-qt-wrappers *red*)

;;; now you can do:
;;;
;;; (start *trafficlight*)
;;; (stop *trafficlight*)
;;;
;;; (turn-on *red*)
;;; (turn-off *green*)
