src/cowl-progress.lisp

   1 (in-package #:cowl)
   2
   3 (defclass progress (widget)
   4   ((progress :type single-float :initform 0.0 :initarg :progress :accessor progress-of))
   5   (:documentation "Progress meter widget."))
   6
   7 (defmethod draw ((progress progress))
   8   (call-next-method)
   9   (apply #'gl:color-4f (foreground-colour-of progress))
  10   (gl:disable gl:+texture-2d+)
  11   (gl:rect-f 0 (current-size-of (y progress))
  12              (* (progress-of progress)
  13                 (current-size-of (x progress)))
  14              0))