#include "../xt/xt.h"
#include <X11/Xaw/Panner.h>

static Object S_Panner_ReportCallback (x) XtArgVal x; {
   XawPannerReport *p = (XawPannerReport *)x;

    return Cons (Make_Fixnum (p->slider_x), Make_Fixnum (p->slider_y));
}

init_panner () {
    XtResourceList r = 0;
    Define_Class ("panner", pannerWidgetClass, r, 0);
    Define_Callback ("panner", "reportCallback", 1);
    Define_Converter_To_Scheme ("panner-reportCallback", S_Panner_ReportCallback);
}
