mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-15 14:50:58 -08:00
23 lines
566 B
Common Lisp
23 lines
566 B
Common Lisp
(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*)
|