Mercurial > hg > xemacs-beta
comparison lwlib/xlwmenu.c @ 217:d44af0c54775 r20-4b7
Import from CVS: tag r20-4b7
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:08:34 +0200 |
parents | e45d5e7c476e |
children | 262b8bb4a523 |
comparison
equal
deleted
inserted
replaced
216:43306a74e31c | 217:d44af0c54775 |
---|---|
2245 | 2245 |
2246 #if SLOPPY_TYPES == 1 | 2246 #if SLOPPY_TYPES == 1 |
2247 puts("==================================================================="); | 2247 puts("==================================================================="); |
2248 print_widget_value (following_item, 1, 0); | 2248 print_widget_value (following_item, 1, 0); |
2249 #endif | 2249 #endif |
2250 if (following_item | |
2251 && following_item->type == CASCADE_TYPE | |
2252 && following_item->contents | |
2253 && following_item->contents->type == INCREMENTAL_TYPE) | |
2254 { | |
2255 /* okay, we're now doing a lisp callback to incrementally generate | |
2256 more of the menu. */ | |
2257 XtCallCallbackList ((Widget)mw, | |
2258 mw->menu.open, | |
2259 (XtPointer)following_item->contents); | |
2260 #if SLOPPY_TYPES == 1 | |
2261 puts("==== NEW ==== NEW ==== NEW ==== NEW ==== NEW ==== NEW ==== NEW ===="); | |
2262 print_widget_value(following_item, 1, 0); | |
2263 #endif | |
2264 } | |
2265 | 2250 |
2266 if (hit) | 2251 if (hit) |
2267 *hit_return = NULL; | 2252 *hit_return = NULL; |
2268 | 2253 |
2269 where.x = mw->menu.shadow_thickness; | 2254 where.x = mw->menu.shadow_thickness; |
2540 ws->x = previous_ws->x + selection_position.x; | 2525 ws->x = previous_ws->x + selection_position.x; |
2541 ws->y = previous_ws->y + selection_position.y; | 2526 ws->y = previous_ws->y + selection_position.y; |
2542 | 2527 |
2543 /* take into account the slab around the new menu */ | 2528 /* take into account the slab around the new menu */ |
2544 ws->y -= mw->menu.shadow_thickness; | 2529 ws->y -= mw->menu.shadow_thickness; |
2530 | |
2531 { | |
2532 widget_value *val = mw->menu.old_stack [i]; | |
2533 if (val->contents->type == INCREMENTAL_TYPE) | |
2534 { | |
2535 /* okay, we're now doing a lisp callback to incrementally generate | |
2536 more of the menu. */ | |
2537 XtCallCallbackList ((Widget)mw, | |
2538 mw->menu.open, | |
2539 (XtPointer)val->contents); | |
2540 } | |
2541 } | |
2545 | 2542 |
2546 size_menu (mw, i); | 2543 size_menu (mw, i); |
2547 | 2544 |
2548 fit_to_screen (mw, ws, previous_ws, mw->menu.horizontal && i == 1); | 2545 fit_to_screen (mw, ws, previous_ws, mw->menu.horizontal && i == 1); |
2549 | 2546 |