;;; -*-Scheme-*-

(define-widget-type 'valuator "Valuator.h")

(define-widget-class 'valuator 'XwvaluatorWidgetClass)

(define-callback 'valuator 'sliderMoved #t)
(define-callback 'valuator 'sliderReleased #t)
(define-callback 'valuator 'areaSelected #t)

(c->scheme 'valuator-sliderMoved
"    return Make_Integer ((int)x);")
(c->scheme 'valuator-sliderReleased
"    return Make_Integer ((int)x);")
(c->scheme 'valuator-areaSelected
"    return Make_Integer ((int)x);")