12 lines
392 B
D
12 lines
392 B
D
|
;;; -*-Scheme-*-
|
||
|
|
|
||
|
|
(define-widget-type 'drawnbutton "DrawnB.h")
|
||
|
|
|
||
|
|
(define-widget-class 'drawn-button 'xmDrawnButtonWidgetClass)
|
||
|
|
|
||
|
|
(define-callback 'drawn-button 'activateCallback #t)
|
||
|
|
(define-callback 'drawn-button 'armCallback #t)
|
||
|
|
(define-callback 'drawn-button 'disarmCallback #t)
|
||
|
|
(define-callback 'drawn-button 'exposeCallback #t)
|
||
|
|
(define-callback 'drawn-button 'resizeCallback #t)
|