Raymond Toy pushed to branch issue-399-motif-server-fedora-42 at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/motif/server/datatrans.h
    ... ... @@ -15,12 +15,12 @@
    15 15 
     #define combine_type_and_data(type,data) ((type<<24)|data)
    16 16
    17 17 
     extern void message_write_string(message_t message,String string,int type_tag);
    18 
    -extern void message_write_widget();
    18 
    +extern void message_write_widget(message_t message,Widget widget,int type_tag);
    19 19 
     extern void message_write_widget_class();
    20 20 
     extern void message_write_function();
    21 21 
     extern void message_write_short();
    22 22 
     extern void message_write_boolean();
    23 
    -extern void message_write_int();
    23 
    +extern void message_write_int(message_t message,int value,int type_tag);
    24 24 
     extern void message_write_xid();
    25 25 
     extern void message_write_atom();
    26 26 
     extern void message_write_string_token();
    ... ... @@ -29,8 +29,8 @@ extern void message_write_xm_string();
    29 29 
     extern void message_write_enum();
    30 30 
     extern void message_write_resource_names();
    31 31 
     extern void message_write_widget_list();
    32 
    -extern void message_write_translation_table();
    33 
    -extern void message_write_accelerator_table();
    32 
    +extern void message_write_translation_table(message_t m,XtTranslations t,int tag);
    33 
    +extern void message_write_accelerator_table(message_t m,XtAccelerators a,int tag);
    34 34 
     extern void message_write_font_list();
    35 35 
     extern void message_write_string_table();
    36 36 
     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)
    36 36 
       message_add_packet(reply);
    37 37 
       message_put_dblword(reply,ACTION_REPLY);
    38 38 
       message_write_widget(reply,w,widget_tag);
    39 
    -  message_write_int(reply,event,int_tag);
    39 
    +  message_write_int(reply,event->type,int_tag);
    40 40 
       message_write_string(reply,params[0],string_tag);
    41 41
    42 42 
       message_send(client_socket,reply);

    • —
    View it on GitLab.
    You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications · Help