;;; -*-Scheme-*-

(define-widget-type 'pbutton "PButton.h")

(define-widget-class 'push-button 'XwpushButtonWidgetClass)

(define-callback 'push-button 'select #f)
(define-callback 'push-button 'release #f)