(in-package :lol)


(defclass marker ()
  ((function :initarg :func :initform nil :accessor func)
   )
  )


(defclass w (dynamic-views-dialog)
  ())


(defclass moving-marker-view (moving-static-text-view)
  ()
  )

(setq z
(make-instance 'w))


(part-color-list (make-instance 'moving-marker-view))


(inspect z)

(add-subviews z (make-instance 'moving-marker-view :part-color-list '(:fore *red-color*)))