#include "../xt/xt.h"
#include <Xm/Xm.h>
#include <Xm/Command.h>

static Object S_Command_CommandChangedCallback (x) XtArgVal x; {
   return Get_Selection_CB ((XmCommandCallbackStruct *)x);
}

static Object S_Command_CommandEnteredCallback (x) XtArgVal x; {
   return Get_Selection_CB ((XmCommandCallbackStruct *)x);
}

init_command () {
    XtResourceList r = 0;
    Define_Class ("command", xmCommandWidgetClass, r, 0);
    Define_Callback ("command", "commandEnteredCallback", 1);
    Define_Callback ("command", "commandChangedCallback", 1);
    Define_Converter_To_Scheme ("command-commandEnteredCallback", S_Command_CommandEnteredCallback);
    Define_Converter_To_Scheme ("command-commandChangedCallback", S_Command_CommandChangedCallback);
}
