;;; -*-Scheme-*-

(define-widget-type 'arrow "Arrow.h")

(define-widget-class 'arrow 'XwarrowWidgetClass)

(define-callback 'arrow 'select #f)
(define-callback 'arrow 'release #f)