Mercurial > emacs
comparison lwlib/lwlib-Xlw.c @ 8786:20cb460b85d3
entered into RCS
| author | Paul Reilly <pmr@pajato.com> |
|---|---|
| date | Fri, 16 Sep 1994 18:39:54 +0000 |
| parents | 7988b8acd29f |
| children | 4da8b8ac5211 |
comparison
equal
deleted
inserted
replaced
| 8785:04ad11fb0a0f | 8786:20cb460b85d3 |
|---|---|
| 75 static Widget | 75 static Widget |
| 76 xlw_create_menubar (instance) | 76 xlw_create_menubar (instance) |
| 77 widget_instance* instance; | 77 widget_instance* instance; |
| 78 { | 78 { |
| 79 Widget widget; | 79 Widget widget; |
| 80 Arg al[1]; | 80 Arg al[5]; |
| 81 int ac = 0; | 81 int ac = 0; |
| 82 | 82 |
| 83 XtSetArg (al[ac], XtNmenu, instance->info->val); ac++; | 83 XtSetArg (al[ac], XtNmenu, instance->info->val); ac++; |
| 84 #ifdef emacs | |
| 85 XtSetArg (al[ac], XtNshowGrip, 0); ac++; | |
| 86 XtSetArg (al[ac], XtNresizeToPreferred, 1); ac++; | |
| 87 XtSetArg (al[ac], XtNallowResize, 1); ac++; | |
| 88 #endif | |
| 84 | 89 |
| 85 /* This used to use XtVaCreateWidget, but an old Xt version | 90 /* This used to use XtVaCreateWidget, but an old Xt version |
| 86 has a bug in XtVaCreateWidget that frees instance->info->name. */ | 91 has a bug in XtVaCreateWidget that frees instance->info->name. */ |
| 87 widget | 92 widget |
| 88 = XtCreateWidget (instance->info->name, xlwMenuWidgetClass, | 93 = XtCreateWidget (instance->info->name, xlwMenuWidgetClass, |