;;; -*-Scheme-*-

(define-widget-type 'scrollbar "ScrollBar.h")

(define-widget-class 'scrollbar 'XwscrollbarWidgetClass)

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

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