;;; -*-Scheme-*-

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

(define-widget-class 'scrollbar 'scrollbarWidgetClass)

(define-callback 'scrollbar 'scrollProc #t)
(define-callback 'scrollbar 'jumpProc #t)

(c->scheme 'scrollbar-scrollProc
"    return Make_Integer ((int)x);")

(c->scheme 'scrollbar-jumpProc
"    return Make_Reduced_Flonum ((double)*(float *)x);")

(define-primitive 'scrollbar-set-thumb! '(w t s)
"   Check_Widget_Class (w, scrollbarWidgetClass);
    XtScrollBarSetThumb (WIDGET(w)->widget, Get_Double (t), Get_Double (s));
    return Void;")