Raymond Toy pushed to branch issue-399-motif-server-fedora-42 at cmucl / cmucl Commits: cd4f7b84 by Raymond Toy at 2025-04-20T07:50:46-07:00 Fix extern declarations Updated extern declarations for message_write_int, message_write_translation_table, and message_write_accelerator_table. Also, in translations.c, there's the call `message_write_int(reply,event,int_tag)` where `event` is an `XEvent*`. That's not an int, so I changed it to `event->type`. Not sure if that's correct or not. - - - - - 2 changed files: - src/motif/server/datatrans.h - src/motif/server/translations.c Changes: ===================================== src/motif/server/datatrans.h ===================================== @@ -15,12 +15,12 @@ #define combine_type_and_data(type,data) ((type<<24)|data) extern void message_write_string(message_t message,String string,int type_tag); -extern void message_write_widget(); +extern void message_write_widget(message_t message,Widget widget,int type_tag); extern void message_write_widget_class(); extern void message_write_function(); extern void message_write_short(); extern void message_write_boolean(); -extern void message_write_int(); +extern void message_write_int(message_t message,int value,int type_tag); extern void message_write_xid(); extern void message_write_atom(); extern void message_write_string_token(); @@ -29,8 +29,8 @@ extern void message_write_xm_string(); extern void message_write_enum(); extern void message_write_resource_names(); extern void message_write_widget_list(); -extern void message_write_translation_table(); -extern void message_write_accelerator_table(); +extern void message_write_translation_table(message_t m,XtTranslations t,int tag); +extern void message_write_accelerator_table(message_t m,XtAccelerators a,int tag); extern void message_write_font_list(); extern void message_write_string_table(); extern void message_write_xm_string_table(); ===================================== src/motif/server/translations.c ===================================== @@ -36,7 +36,7 @@ void LispActionProc(Widget w,XEvent *event,String *params,Cardinal *num_params) message_add_packet(reply); message_put_dblword(reply,ACTION_REPLY); message_write_widget(reply,w,widget_tag); - message_write_int(reply,event,int_tag); + message_write_int(reply,event->type,int_tag); message_write_string(reply,params[0],string_tag); message_send(client_socket,reply); View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cd4f7b84c076c525efe3fd7c... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cd4f7b84c076c525efe3fd7c... You're receiving this email because of your account on gitlab.common-lisp.net.