13 lines
471 B
Scheme
13 lines
471 B
Scheme
;;; -*-Scheme-*-
|
|
|
|
(define-widget-type 'cascadebutton '("CascadeB.h" "CascadeBG.h"))
|
|
|
|
(define-widget-class 'cascade-button 'xmCascadeButtonWidgetClass)
|
|
(define-widget-class 'cascade-button-gadget 'xmCascadeButtonGadgetClass)
|
|
|
|
(define-callback 'cascade-button 'activateCallback #t)
|
|
(define-callback 'cascade-button 'cascadingCallback #t)
|
|
|
|
(define-callback 'cascade-button-gadget 'activateCallback #t)
|
|
(define-callback 'cascade-button-gadget 'cascadingCallback #t)
|