10 lines
282 B
D
10 lines
282 B
D
|
;;; -*-Scheme-*-
|
||
|
|
|
||
|
|
(define-widget-type 'drawingarea "DrawingA.h")
|
||
|
|
|
||
|
|
(define-widget-class 'drawing-area 'xmDrawingAreaWidgetClass)
|
||
|
|
|
||
|
|
(define-callback 'drawing-area 'exposeCallback #t)
|
||
|
|
(define-callback 'drawing-area 'inputCallback #t)
|
||
|
|
(define-callback 'drawing-area 'resizeCallback #t)
|