home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xaw / panner.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-22  |  464 b   |  16 lines
  1. #include "../xt/xt.h"
  2. #include <X11/Xaw/Panner.h>
  3.  
  4. static Object S_Panner_ReportCallback (x) XtArgVal x; {
  5.    XawPannerReport *p = (XawPannerReport *)x;
  6.  
  7.     return Cons (Make_Fixnum (p->slider_x), Make_Fixnum (p->slider_y));
  8. }
  9.  
  10. init_panner () {
  11.     XtResourceList r = 0;
  12.     Define_Class ("panner", pannerWidgetClass, r, 0);
  13.     Define_Callback ("panner", "reportCallback", 1);
  14.     Define_Converter_To_Scheme ("panner-reportCallback", S_Panner_ReportCallback);
  15. }
  16.