module cb procedure print(string); quit(); object Hello : XmPushButton { callbacks { XmNactivateCallback = procedure print("hello"); }; }; object Goodbye : XmPushButton { callbacks { XmNactivateCallback = procedures { print("goobye!"); quit(); }; }; }; object root : XmRowColumn { controls { XmPushButton Hello; XmPushButton Goodbye; }; }; end module;