home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xm / toggle-btn.d < prev   
Encoding:
Text File  |  1991-09-26  |  602 b   |  18 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (define-widget-type 'togglebutton "ToggleB.h")
  4.  
  5. (define-widget-class 'toggle-button 'xmToggleButtonWidgetClass)
  6.  
  7. (define-callback 'toggle-button 'armCallback          #t)
  8. (define-callback 'toggle-button 'disarmCallback       #t)
  9. (define-callback 'toggle-button 'valueChangedCallback #t)
  10.  
  11. ;;; Ignore the `set' field in all callback structs (can do a get-values
  12. ;;; on the widget passed to the callback function).
  13.  
  14. (define toggle-button-callback->scheme
  15. "   return Get_Any_CB ((XmAnyCallbackStruct *)x);")
  16.  
  17. (c->scheme 'toggle-button-valueChangedCallback toggle-button-callback->scheme)
  18.