13 lines
322 B
D
13 lines
322 B
D
|
;;; -*-Scheme-*-
|
||
|
|
|
||
|
|
(define-widget-type 'panner "Panner.h")
|
||
|
|
|
||
|
|
(define-widget-class 'panner 'pannerWidgetClass)
|
||
|
|
|
||
|
|
(define-callback 'panner 'reportCallback #t)
|
||
|
|
|
||
|
|
(c->scheme 'callback:panner-reportCallback
|
||
|
|
" XawPannerReport *p = (XawPannerReport *)x;
|
||
|
|
|
||
|
|
return Cons (Make_Integer (p->slider_x), Make_Integer (p->slider_y));")
|