#include "../xt/xt.h"
#include <X11/Scroll.h>

static Object S_Scrollbar_ScrollProc (x) XtArgVal x; {
    return Make_Integer ((int)x);
}

static Object S_Scrollbar_JumpProc (x) XtArgVal x; {
    return Make_Reduced_Flonum ((double)*(float *)x);
}

static Object P_Scrollbar_Set_Thumb (w, t, s) Object w, t, s; {
   Check_Widget_Class (w, scrollbarWidgetClass);
    XtScrollBarSetThumb (WIDGET(w)->widget, Get_Double (t), Get_Double (s));
    return Void;
}

init_scrollbar () {
    XtResourceList r = 0;
    Define_Class ("scrollbar", scrollbarWidgetClass, r, 0);
    Define_Callback ("scrollbar", "jumpProc", 1);
    Define_Callback ("scrollbar", "scrollProc", 1);
    Define_Primitive (P_Scrollbar_Set_Thumb, "scrollbar-set-thumb!", 3, 3, EVAL);
    Define_Converter_To_Scheme ("scrollbar-jumpProc", S_Scrollbar_JumpProc);
    Define_Converter_To_Scheme ("scrollbar-scrollProc", S_Scrollbar_ScrollProc);
}