home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xaw / toggle.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-22  |  1.6 KB  |  47 lines
  1. #include "../xt/xt.h"
  2. #include <X11/Xaw/Toggle.h>
  3.  
  4. static XtArgVal C_Toggle_RadioData (x) Object x; {
  5.    return (XtArgVal)Get_Integer (x);
  6. }
  7.  
  8. static Object S_Toggle_RadioData (x) XtArgVal x; {
  9.    return Make_Integer ((int)x);
  10. }
  11.  
  12. static Object P_Toggle_Change_Radio_Group (w1, w2) Object w1, w2; {
  13.    Check_Widget_Class (w1, toggleWidgetClass);
  14.     Check_Widget_Class (w2, toggleWidgetClass);
  15.     XawToggleChangeRadioGroup (WIDGET(w1)->widget, WIDGET(w2)->widget);
  16.     return Void;
  17. }
  18.  
  19. static Object P_Toggle_Get_Current (w) Object w; {
  20.    Check_Widget_Class (w, toggleWidgetClass);
  21.     return Make_Integer ((int)XawToggleGetCurrent (WIDGET(w)->widget));
  22. }
  23.  
  24. static Object P_Toggle_Set_Current (w, x) Object w, x; {
  25.    Check_Widget_Class (w, toggleWidgetClass);
  26.     XawToggleSetCurrent (WIDGET(w)->widget, (caddr_t)Get_Integer (x));
  27.     return Void;
  28. }
  29.  
  30. static Object P_Toggle_Unset_Current (w) Object w; {
  31.    Check_Widget_Class (w, toggleWidgetClass);
  32.     XawToggleUnsetCurrent (WIDGET(w)->widget);
  33.     return Void;
  34. }
  35.  
  36. init_toggle () {
  37.     XtResourceList r = 0;
  38.     Define_Class ("toggle", toggleWidgetClass, r, 0);
  39.     Define_Callback ("toggle", "callback", 0);
  40.     Define_Primitive (P_Toggle_Unset_Current, "toggle-unset-current!", 1, 1, EVAL);
  41.     Define_Primitive (P_Toggle_Set_Current, "toggle-set-current!", 2, 2, EVAL);
  42.     Define_Primitive (P_Toggle_Get_Current, "toggle-get-current", 1, 1, EVAL);
  43.     Define_Primitive (P_Toggle_Change_Radio_Group, "toggle-change-radio-group!", 2, 2, EVAL);
  44.     Define_Converter_To_Scheme ("toggle-radioData", S_Toggle_RadioData);
  45.     Define_Converter_To_C ("toggle-radioData", C_Toggle_RadioData);
  46. }
  47.