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 / command.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-22  |  750 b   |  21 lines
  1. #include "../xt/xt.h"
  2. #include <Xm/Xm.h>
  3. #include <Xm/Command.h>
  4.  
  5. static Object S_Command_CommandChangedCallback (x) XtArgVal x; {
  6.    return Get_Selection_CB ((XmCommandCallbackStruct *)x);
  7. }
  8.  
  9. static Object S_Command_CommandEnteredCallback (x) XtArgVal x; {
  10.    return Get_Selection_CB ((XmCommandCallbackStruct *)x);
  11. }
  12.  
  13. init_command () {
  14.     XtResourceList r = 0;
  15.     Define_Class ("command", xmCommandWidgetClass, r, 0);
  16.     Define_Callback ("command", "commandEnteredCallback", 1);
  17.     Define_Callback ("command", "commandChangedCallback", 1);
  18.     Define_Converter_To_Scheme ("command-commandEnteredCallback", S_Command_CommandEnteredCallback);
  19.     Define_Converter_To_Scheme ("command-commandChangedCallback", S_Command_CommandChangedCallback);
  20. }
  21.