Mercurial > emacs
comparison src/xfns.c @ 15720:f1549b7501af
(Fx_create_frame): Do xlwmenu hack only if USE_LUCID.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 16 Jul 1996 23:13:51 +0000 |
| parents | bf891f379d9f |
| children | f207637cf4b4 |
comparison
equal
deleted
inserted
replaced
| 15719:fdac027af4e1 | 15720:f1549b7501af |
|---|---|
| 87 | 87 |
| 88 /* Unique id counter for widgets created by the Lucid Widget | 88 /* Unique id counter for widgets created by the Lucid Widget |
| 89 Library. */ | 89 Library. */ |
| 90 extern LWLIB_ID widget_id_tick; | 90 extern LWLIB_ID widget_id_tick; |
| 91 | 91 |
| 92 #ifdef USE_LUCID | |
| 92 /* This is part of a kludge--see lwlib/xlwmenu.c. */ | 93 /* This is part of a kludge--see lwlib/xlwmenu.c. */ |
| 93 extern XFontStruct *xlwmenu_default_font; | 94 extern XFontStruct *xlwmenu_default_font; |
| 95 #endif | |
| 94 | 96 |
| 95 extern void free_frame_menubar (); | 97 extern void free_frame_menubar (); |
| 96 #endif /* USE_X_TOOLKIT */ | 98 #endif /* USE_X_TOOLKIT */ |
| 97 | 99 |
| 98 #define min(a,b) ((a) < (b) ? (a) : (b)) | 100 #define min(a,b) ((a) < (b) ? (a) : (b)) |
| 3145 | 3147 |
| 3146 x_default_parameter (f, parms, Qfont, font, | 3148 x_default_parameter (f, parms, Qfont, font, |
| 3147 "font", "Font", string); | 3149 "font", "Font", string); |
| 3148 } | 3150 } |
| 3149 | 3151 |
| 3150 #ifdef USE_X_TOOLKIT | 3152 #ifdef USE_LUCID |
| 3151 /* Prevent lwlib/xlwmenu.c from crashing because of a bug | 3153 /* Prevent lwlib/xlwmenu.c from crashing because of a bug |
| 3152 whereby it fails to get any font. */ | 3154 whereby it fails to get any font. */ |
| 3153 xlwmenu_default_font = f->output_data.x->font; | 3155 xlwmenu_default_font = f->output_data.x->font; |
| 3154 #endif | 3156 #endif |
| 3155 | 3157 |