:initial-value (switch-on widget) ))))
(model-interface model))))
+(defun sliders (model)
+ (remove nil
+ (mapcar
+ (lambda (widget)
+ (typecase widget
+ (slider
+ (list
+ :left (slider-left widget)
+ :top (slider-top widget)
+ :width (- (slider-right widget) (slider-left widget))
+ :var (intern (string-upcase (slider-varname widget)) :keyword)
+ :display (slider-varname widget)
+ :min (slider-min widget)
+ :max (slider-max widget)
+ :step (slider-step widget)
+ :initial-value (slider-default widget)))))
+ (model-interface model))))
+
(defun view (model)
"VIEW MODEL => VIEW-DEF