diff options
Diffstat (limited to 'libXaw/src/SimpleMenu.c')
| -rw-r--r-- | libXaw/src/SimpleMenu.c | 3664 |
1 files changed, 1830 insertions, 1834 deletions
diff --git a/libXaw/src/SimpleMenu.c b/libXaw/src/SimpleMenu.c index b7ed28651..cfde9df29 100644 --- a/libXaw/src/SimpleMenu.c +++ b/libXaw/src/SimpleMenu.c @@ -1,1834 +1,1830 @@ -/* $Xorg: SimpleMenu.c,v 1.4 2001/02/09 02:03:45 xorgcvs Exp $ */ - -/* -Copyright 1989, 1994, 1998 The Open Group - -Permission to use, copy, modify, distribute, and sell this software and its -documentation for any purpose is hereby granted without fee, provided that -the above copyright notice appear in all copies and that both that -copyright notice and this permission notice appear in supporting -documentation. - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN -CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of The Open Group shall not be -used in advertising or otherwise to promote the sale, use or other dealings -in this Software without prior written authorization from The Open Group. - */ - -/* $XFree86: xc/lib/Xaw/SimpleMenu.c,v 3.21 2001/03/23 23:59:15 paulo Exp $ */ - -/* - * SimpleMenu.c - Source code file for SimpleMenu widget. - * - * Date: April 3, 1989 - * - * By: Chris D. Peterson - * MIT X Consortium - * kit@expo.lcs.mit.edu - */ - -#ifdef HAVE_CONFIG_H -#include <config.h> -#endif -#include <stdio.h> -#include <X11/IntrinsicP.h> -#include <X11/StringDefs.h> -#include <X11/Xmu/Initer.h> -#include <X11/Xmu/SysUtil.h> -#include <X11/Xaw/Cardinals.h> -#include <X11/Xaw/SimpleMenP.h> -#include <X11/Xaw/SmeBSBP.h> -#include <X11/Xaw/XawInit.h> -#include "Private.h" - -#define streq(a, b) (strcmp((a), (b)) == 0) - -#define ForAllChildren(smw, childP) \ -for ((childP) = (SmeObject *)(smw)->composite.children; \ - (childP) < (SmeObject *)((smw)->composite.children \ - + (smw)->composite.num_children); \ - (childP)++) - -#ifndef OLDXAW -#define SMW_UNMAPPING 0x01 -#define SMW_POPLEFT 0x02 -#endif - -/* - * Class Methods - */ -static void XawSimpleMenuChangeManaged(Widget); -static void XawSimpleMenuClassInitialize(void); -static void XawSimpleMenuClassPartInitialize(WidgetClass); -static XtGeometryResult XawSimpleMenuGeometryManager(Widget, XtWidgetGeometry*, - XtWidgetGeometry*); -static void XawSimpleMenuInitialize(Widget, Widget, ArgList, Cardinal*); -static void XawSimpleMenuRealize(Widget, XtValueMask*, XSetWindowAttributes*); -static void XawSimpleMenuRedisplay(Widget, XEvent*, Region); -static void XawSimpleMenuResize(Widget); -static Boolean XawSimpleMenuSetValues(Widget, Widget, Widget, - ArgList, Cardinal*); -static Boolean XawSimpleMenuSetValuesHook(Widget, ArgList, Cardinal*); -#ifndef OLDXAW -static void PopupSubMenu(SimpleMenuWidget); -static void PopdownSubMenu(SimpleMenuWidget); -static void PopupCB(Widget, XtPointer, XtPointer); -#endif - -/* - * Prototypes - */ -static void AddPositionAction(XtAppContext, XPointer); -static void CalculateNewSize(Widget, Dimension*, Dimension*); -static void ChangeCursorOnGrab(Widget, XtPointer, XtPointer); -static void CreateLabel(Widget); -static SmeObject DoGetEventEntry(Widget, int, int); -static Widget FindMenu(Widget, String); -static SmeObject GetEventEntry(Widget, XEvent*); -static void Layout(Widget, Dimension*, Dimension*); -static void MakeResizeRequest(Widget); -static void MakeSetValuesRequest(Widget, unsigned int, unsigned int); -static void MoveMenu(Widget, int, int); -static void PositionMenu(Widget, XPoint*); - -/* - * Actions - */ -static void Highlight(Widget, XEvent*, String*, Cardinal*); -static void Notify(Widget, XEvent*, String*, Cardinal*); -#ifndef OLDXAW -static void Popdown(Widget, XEvent*, String*, Cardinal*); -#endif -static void PositionMenuAction(Widget, XEvent*, String*, Cardinal*); -static void Unhighlight(Widget, XEvent*, String*, Cardinal*); - -/* - * Initialization - */ -#define offset(field) XtOffsetOf(SimpleMenuRec, simple_menu.field) - -static XtResource resources[] = { - /* label */ - { - XtNlabel, - XtCLabel, - XtRString, - sizeof(String), - offset(label_string), - XtRString, - NULL - }, - { - XtNlabelClass, - XtCLabelClass, - XtRPointer, - sizeof(WidgetClass), - offset(label_class), - XtRImmediate, - NULL - }, - - /* layout */ - { - XtNrowHeight, - XtCRowHeight, - XtRDimension, - sizeof(Dimension), - offset(row_height), - XtRImmediate, - (XtPointer)0 - }, - { - XtNtopMargin, - XtCVerticalMargins, - XtRDimension, - sizeof(Dimension), - offset(top_margin), - XtRImmediate, - (XtPointer)0 - }, - { - XtNbottomMargin, - XtCVerticalMargins, - XtRDimension, - sizeof(Dimension), - offset(bottom_margin), - XtRImmediate, - (XtPointer)0 - }, -#ifndef OLDXAW - { - XtNleftMargin, - XtCHorizontalMargins, - XtRDimension, - sizeof(Dimension), - offset(left_margin), - XtRImmediate, - (XtPointer)0 - }, - { - XtNrightMargin, - XtCHorizontalMargins, - XtRDimension, - sizeof(Dimension), - offset(right_margin), - XtRImmediate, - (XtPointer)0 - }, -#endif - - /* misc */ - { - XtNallowShellResize, - XtCAllowShellResize, - XtRBoolean, - sizeof(Boolean), - XtOffsetOf(SimpleMenuRec, shell.allow_shell_resize), - XtRImmediate, - (XtPointer)True - }, - { - XtNcursor, - XtCCursor, - XtRCursor, - sizeof(Cursor), - offset(cursor), - XtRImmediate, - (XtPointer)None - }, - { - XtNmenuOnScreen, - XtCMenuOnScreen, - XtRBoolean, - sizeof(Boolean), - offset(menu_on_screen), - XtRImmediate, - (XtPointer)True - }, - { - XtNpopupOnEntry, - XtCPopupOnEntry, - XtRWidget, - sizeof(Widget), - offset(popup_entry), - XtRWidget, - NULL - }, - { - XtNbackingStore, - XtCBackingStore, - XtRBackingStore, - sizeof(int), - offset(backing_store), - XtRImmediate, - (XtPointer)(Always + WhenMapped + NotUseful) - }, -#ifndef OLDXAW - { - XawNdisplayList, - XawCDisplayList, - XawRDisplayList, - sizeof(XawDisplayList*), - offset(display_list), - XtRImmediate, - NULL - }, -#endif -}; -#undef offset - -static char defaultTranslations[] = -"<Enter>:" "highlight()\n" -"<Leave>:" "unhighlight()\n" -"<BtnMotion>:" "highlight()\n" -#ifndef OLDXAW -"<BtnUp>:" "popdown() notify() unhighlight()\n" -#else -"<BtnUp>:" "MenuPopdown() notify() unhighlight()\n" -#endif -; - -static XtActionsRec actionsList[] = -{ - {"notify", Notify}, - {"highlight", Highlight}, - {"unhighlight", Unhighlight}, -#ifndef OLDXAW - {"popdown", Popdown}, - {"set-values", XawSetValuesAction}, - {"get-values", XawGetValuesAction}, - {"declare", XawDeclareAction}, - {"call-proc", XawCallProcAction}, -#endif -}; - -static CompositeClassExtensionRec extension_rec = { - NULL, /* next_extension */ - NULLQUARK, /* record_type */ - XtCompositeExtensionVersion, /* version */ - sizeof(CompositeClassExtensionRec), /* record_size */ - True, /* accepts_objects */ -}; - -#define Superclass (&overrideShellClassRec) -SimpleMenuClassRec simpleMenuClassRec = { - /* core */ - { - (WidgetClass)Superclass, /* superclass */ - "SimpleMenu", /* class_name */ - sizeof(SimpleMenuRec), /* size */ - XawSimpleMenuClassInitialize, /* class_initialize */ - XawSimpleMenuClassPartInitialize, /* class_part_initialize */ - False, /* class_inited */ - XawSimpleMenuInitialize, /* initialize */ - NULL, /* initialize_hook */ - XawSimpleMenuRealize, /* realize */ - actionsList, /* actions */ - XtNumber(actionsList), /* num_actions */ - resources, /* resources */ - XtNumber(resources), /* num_resources */ - NULLQUARK, /* xrm_class */ - True, /* compress_motion */ - True, /* compress_exposure */ - True, /* compress_enterleave */ - False, /* visible_interest */ - NULL, /* destroy */ - XawSimpleMenuResize, /* resize */ - XawSimpleMenuRedisplay, /* expose */ - XawSimpleMenuSetValues, /* set_values */ - XawSimpleMenuSetValuesHook, /* set_values_hook */ - XtInheritSetValuesAlmost, /* set_values_almost */ - NULL, /* get_values_hook */ - NULL, /* accept_focus */ - XtVersion, /* intrinsics version */ - NULL, /* callback offsets */ - defaultTranslations, /* tm_table */ - NULL, /* query_geometry */ - NULL, /* display_accelerator */ - NULL, /* extension */ - }, - /* composite */ - { - XawSimpleMenuGeometryManager, /* geometry_manager */ - XawSimpleMenuChangeManaged, /* change_managed */ - XtInheritInsertChild, /* insert_child */ - XtInheritDeleteChild, /* delete_child */ - NULL, /* extension */ - }, - /* shell */ - { - NULL, /* extension */ - }, - /* override */ - { - NULL, /* extension */ - }, - /* simple_menu */ - { - NULL, /* extension */ - }, -}; - -WidgetClass simpleMenuWidgetClass = (WidgetClass)&simpleMenuClassRec; - -/* - * Implementation - */ -/* - * Function: - * XawSimpleMenuClassInitialize - * - * Description: - * Class Initialize routine, called only once. - */ -static void -XawSimpleMenuClassInitialize(void) -{ - XawInitializeWidgetSet(); - XtAddConverter(XtRString, XtRBackingStore, XmuCvtStringToBackingStore, - NULL, 0); - XtSetTypeConverter(XtRBackingStore, XtRString, XmuCvtBackingStoreToString, - NULL, 0, XtCacheNone, NULL); - XmuAddInitializer(AddPositionAction, NULL); -} - -/* - * Function: - * XawSimpleMenuClassPartInitialize - * Arguments: wc - the widget class of the subclass. - * - * Description: - * Class Part Initialize routine, called for every subclass. Makes - * sure that the subclasses pick up the extension record. - */ -static void -XawSimpleMenuClassPartInitialize(WidgetClass wc) -{ - SimpleMenuWidgetClass smwc = (SimpleMenuWidgetClass)wc; - - /* - * Make sure that our subclass gets the extension rec too - */ - extension_rec.next_extension = smwc->composite_class.extension; - smwc->composite_class.extension = (XtPointer) &extension_rec; -} - -/* - * Function: - * XawSimpleMenuInitialize - * - * Parameters: - * request - widget requested by the argument list - * cnew - new widget with both resource and non resource values - * - * Description: - * Initializes the simple menu widget. - */ -/*ARGSUSED*/ -static void -XawSimpleMenuInitialize(Widget request, Widget cnew, - ArgList args, Cardinal *num_args) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)cnew; - Dimension width, height; - - XmuCallInitializers(XtWidgetToApplicationContext(cnew)); - - if (smw->simple_menu.label_class == NULL) - smw->simple_menu.label_class = smeBSBObjectClass; - - smw->simple_menu.label = NULL; - smw->simple_menu.entry_set = NULL; - smw->simple_menu.recursive_set_values = False; -#ifndef OLDXAW - smw->simple_menu.sub_menu = NULL; - smw->simple_menu.state = 0; - - XtAddCallback(cnew, XtNpopupCallback, PopupCB, NULL); -#endif - - if (smw->simple_menu.label_string != NULL) - CreateLabel(cnew); - - width = height = 0; - CalculateNewSize(cnew, &width, &height); - - smw->simple_menu.menu_width = True; - - if (XtWidth(smw) == 0) { - smw->simple_menu.menu_width = False; - XtWidth(smw) = width; - } - - smw->simple_menu.menu_height = True; - - if (XtHeight(smw) == 0) { - smw->simple_menu.menu_height = False; - XtHeight(smw) = height; - } - - /* - * Add a popup_callback routine for changing the cursor - */ - XtAddCallback(cnew, XtNpopupCallback, ChangeCursorOnGrab, NULL); -} - -/* - * Function: - * XawSimpleMenuRedisplay - * - * Parameters: - * w - simple menu widget - * event - X event that caused this redisplay - * region - region the needs to be repainted - * - * Description: - * Redisplays the contents of the widget. - */ -/*ARGSUSED*/ -static void -XawSimpleMenuRedisplay(Widget w, XEvent *event, Region region) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; - SmeObject *entry; - SmeObjectClass cclass; - - if (region == NULL) - XClearWindow(XtDisplay(w), XtWindow(w)); - -#ifndef OLDXAW - if (smw->simple_menu.display_list) - XawRunDisplayList(w, smw->simple_menu.display_list, event, region); -#endif - - /* - * Check and Paint each of the entries - including the label - */ - ForAllChildren(smw, entry) { - if (!XtIsManaged((Widget)*entry)) - continue; - - if (region != NULL) - switch(XRectInRegion(region, XtX(*entry),XtY(*entry), - XtWidth(*entry), XtHeight(*entry))) { - case RectangleIn: - case RectanglePart: - break; - default: - continue; - } - - cclass = (SmeObjectClass)(*entry)->object.widget_class; - - if (cclass->rect_class.expose != NULL) - (cclass->rect_class.expose)((Widget)*entry, NULL, NULL); - } -} - -/* - * Function: - * XawSimpleMenuRealize - * - * Parameters: - * w - simple menu widget - * mask - value mask for the window to create - * attrs - attributes for the window to create - * - * Description: - * Realizes the widget. - */ -static void -XawSimpleMenuRealize(Widget w, XtValueMask *mask, XSetWindowAttributes *attrs) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; -#ifndef OLDXAW - XawPixmap *pixmap; -#endif - - attrs->cursor = smw->simple_menu.cursor; - *mask |= CWCursor; - if (smw->simple_menu.backing_store == Always || - smw->simple_menu.backing_store == NotUseful || - smw->simple_menu.backing_store == WhenMapped) { - *mask |= CWBackingStore; - attrs->backing_store = smw->simple_menu.backing_store; - } - else - *mask &= ~CWBackingStore; - - (*Superclass->core_class.realize)(w, mask, attrs); - -#ifndef OLDXAW - if (w->core.background_pixmap > XtUnspecifiedPixmap) { - pixmap = XawPixmapFromXPixmap(w->core.background_pixmap, XtScreen(w), - w->core.colormap, w->core.depth); - if (pixmap && pixmap->mask) - XawReshapeWidget(w, pixmap); - } -#endif -} - -/* - * Function: - * XawSimpleMenuResize - * - * Parameters: - * w - simple menu widget - * - * Description: - * Handle the menu being resized. - */ -static void -XawSimpleMenuResize(Widget w) -{ - if (!XtIsRealized(w)) - return; - - Layout(w, NULL, NULL); - - XawSimpleMenuRedisplay(w, NULL, NULL); -} - -/* - * Function: - * XawSimpleMenuSetValues - * - * Parameters: - * current - current state of the widget - * request - what was requested - * cnew - what the widget will become - * - * Description: - * Relayout the menu when one of the resources is changed. - */ -/*ARGSUSED*/ -static Boolean -XawSimpleMenuSetValues(Widget current, Widget request, Widget cnew, - ArgList args, Cardinal *num_args) -{ - SimpleMenuWidget smw_old = (SimpleMenuWidget)current; - SimpleMenuWidget smw_new = (SimpleMenuWidget)cnew; - Boolean ret_val = False, layout = False; - - if (!XtIsRealized(current)) - return (False); - - if (!smw_new->simple_menu.recursive_set_values) { - if (XtWidth(smw_new) != XtWidth(smw_old)) { - smw_new->simple_menu.menu_width = XtWidth(smw_new) != 0; - layout = True; - } - if (XtHeight(smw_new) != XtHeight(smw_old)) { - smw_new->simple_menu.menu_height = XtHeight(smw_new) != 0; - layout = True; - } - } - - if (smw_old->simple_menu.cursor != smw_new->simple_menu.cursor) - XDefineCursor(XtDisplay(cnew), XtWindow(cnew), - smw_new->simple_menu.cursor); - - if (smw_old->simple_menu.label_string !=smw_new->simple_menu.label_string) { - if (smw_new->simple_menu.label_string == NULL) /* Destroy */ - XtDestroyWidget((Widget)smw_old->simple_menu.label); - else if (smw_old->simple_menu.label_string == NULL) /* Create */ - CreateLabel(cnew); - else { /* Change */ - Arg arglist[1]; - - XtSetArg(arglist[0], XtNlabel, smw_new->simple_menu.label_string); - XtSetValues((Widget)smw_new->simple_menu.label, arglist, ONE); - } - } - - if (smw_old->simple_menu.label_class != smw_new->simple_menu.label_class) - XtAppWarning(XtWidgetToApplicationContext(cnew), - "No Dynamic class change of the SimpleMenu Label."); - - if (smw_old->simple_menu.top_margin != smw_new->simple_menu.top_margin - || smw_old->simple_menu.bottom_margin - != smw_new->simple_menu.bottom_margin) { - layout = True; - ret_val = True; - } - -#ifndef OLDXAW - if (smw_old->core.background_pixmap != smw_new->core.background_pixmap) { - XawPixmap *opix, *npix; - - opix = XawPixmapFromXPixmap(smw_old->core.background_pixmap, - XtScreen(smw_old), smw_old->core.colormap, - smw_old->core.depth); - npix = XawPixmapFromXPixmap(smw_new->core.background_pixmap, - XtScreen(smw_new), smw_new->core.colormap, - smw_new->core.depth); - if ((npix && npix->mask) || (opix && opix->mask)) - XawReshapeWidget(cnew, npix); - } -#endif - - if (layout) - Layout(cnew, NULL, NULL); - - return (ret_val); -} - -/* - * Function: - * XawSimpleMenuSetValuesHook - * - * Parameters: - * w - menu widget - * arglist - argument list passed to XtSetValues - * num_args - number of args - * - * Description: - * To handle a special case, this is passed the actual arguments. - */ -static Boolean -XawSimpleMenuSetValuesHook(Widget w, ArgList arglist, Cardinal *num_args) -{ - Cardinal i; - Dimension width, height; - - width = XtWidth(w); - height = XtHeight(w); - - for (i = 0 ; i < *num_args ; i++) { - if (streq(arglist[i].name, XtNwidth)) - width = (Dimension)arglist[i].value; - if (streq(arglist[i].name, XtNheight)) - height = (Dimension) arglist[i].value; - } - - if (width != XtWidth(w) || height != XtHeight(w)) - MakeSetValuesRequest(w, width, height); - - return (False); -} - -/* - * Geometry Management routines - */ -/* - * Function: - * XawSimpleMenuGeometryManager - * - * Parameters: - * w - Menu Entry making the request - * request - requested new geometry - * reply - the allowed geometry. - * - * Description: - * This is the SimpleMenu Widget's Geometry Manager. - * - * Returns: - * XtGeometry{Yes, No, Almost} - */ -static XtGeometryResult -XawSimpleMenuGeometryManager(Widget w, XtWidgetGeometry *request, - XtWidgetGeometry *reply) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)XtParent(w); - SmeObject entry = (SmeObject)w; - XtGeometryMask mode = request->request_mode; - XtGeometryResult answer; - Dimension old_height, old_width; - - if (!(mode & CWWidth) && !(mode & CWHeight)) - return (XtGeometryNo); - - reply->width = request->width; - reply->height = request->height; - - old_width = XtWidth(entry); - old_height = XtHeight(entry); - - Layout(w, &reply->width, &reply->height); - - /* - * Since we are an override shell and have no parent there is no one to - * ask to see if this geom change is okay, so I am just going to assume - * we can do whatever we want. If you subclass be very careful with this - * assumption, it could bite you. - * - * Chris D. Peterson - Sept. 1989. - */ - if ((!(mode & CWWidth) || reply->width == request->width) - && (!(mode & CWHeight) || reply->height == request->height)) { - if (mode & XtCWQueryOnly) { /* Actually perform the layout */ - XtWidth(entry) = old_width; - XtHeight(entry) = old_height; - } - else - Layout((Widget)smw, NULL, NULL); - answer = XtGeometryDone; - } - else { - XtWidth(entry) = old_width; - XtHeight(entry) = old_height; - - if ((reply->width == request->width && !(mode & CWHeight)) - || (reply->height == request->height && !(mode & CWWidth)) - || (reply->width == request->width - && reply->height == request->height)) - answer = XtGeometryNo; - else { - answer = XtGeometryAlmost; - reply->request_mode = 0; - if (reply->width != request->width) - reply->request_mode |= CWWidth; - if (reply->height != request->height) - reply->request_mode |= CWHeight; - } - } - - return (answer); -} - -/* - * Function: - * XawSimpleMenuChangeManaged - * - * Parameters: - * w - simple menu widget - * - * Description: - * Called whenever a new child is managed. - */ -static void -XawSimpleMenuChangeManaged(Widget w) -{ - Layout(w, NULL, NULL); -} - -/* - * Global Action Routines - * - * These actions routines will be added to the application's - * global action list - */ -/* - * Function: - * PositionMenuAction - * - * Parameters: - * w - a widget (no the simple menu widget) - * event - the event that caused this action - * params - parameters passed to the routine. - * we expect the name of the menu here. - * num_params - "" - * - * Description: - * Positions the simple menu widget. - */ -/*ARGSUSED*/ -static void -PositionMenuAction(Widget w, XEvent *event, - String *params, Cardinal *num_params) -{ - Widget menu; - XPoint loc; - - if (*num_params != 1) { - XtAppWarning(XtWidgetToApplicationContext(w), - "SimpleMenuWidget: position menu action expects " - "only one parameter which is the name of the menu."); - return; - } - - if ((menu = FindMenu(w, params[0])) == NULL) { - char error_buf[BUFSIZ]; - - (void)XmuSnprintf(error_buf, sizeof(error_buf), - "SimpleMenuWidget: could not find menu named %s.", - params[0]); - XtAppWarning(XtWidgetToApplicationContext(w), error_buf); - return; - } - - switch (event->type) { - case ButtonPress: - case ButtonRelease: - loc.x = event->xbutton.x_root; - loc.y = event->xbutton.y_root; - PositionMenu(menu, &loc); - break; - case EnterNotify: - case LeaveNotify: - loc.x = event->xcrossing.x_root; - loc.y = event->xcrossing.y_root; - PositionMenu(menu, &loc); - break; - case MotionNotify: - loc.x = event->xmotion.x_root; - loc.y = event->xmotion.y_root; - PositionMenu(menu, &loc); - break; - default: - PositionMenu(menu, NULL); - break; - } -} - -/* - * Widget Action Routines - */ -/* - * Function: - * Unhighlight - * - * Parameters: - * w - simple menu widget - * event - event that caused this action - * params - not used - * num_params - "" - * - * Description: - * Unhighlights current entry. - */ -/*ARGSUSED*/ -static void -Unhighlight(Widget w, XEvent *event, String *params, Cardinal *num_params) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; - SmeObject entry = smw->simple_menu.entry_set; - - if (entry == NULL) - return; - -#ifndef OLDXAW - if (!smw->simple_menu.sub_menu) -#endif - { - SmeObjectClass cclass; - - smw->simple_menu.entry_set = NULL; - cclass = (SmeObjectClass)entry->object.widget_class; - (cclass->sme_class.unhighlight)((Widget)entry); - } -} - -/* - * Function: - * Highlight - * - * Parameters: - * w - simple menu widget - * event - event that caused this action - * params - not used - * num_params - "" - * - * Description: - * Highlights current entry. - */ -/*ARGSUSED*/ -static void -Highlight(Widget w, XEvent *event, String *params, Cardinal *num_params) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; - SmeObject entry; - - if (!XtIsSensitive(w)) - return; - - entry = GetEventEntry(w, event); - - if (entry == smw->simple_menu.entry_set) - return; - -#ifndef OLDXAW - if (!smw->simple_menu.sub_menu) -#endif - Unhighlight(w, event, params, num_params); - - if (entry == NULL) - return; - - if (!XtIsSensitive((Widget)entry)) - return; - -#ifndef OLDXAW - if (smw->simple_menu.sub_menu) - PopdownSubMenu(smw); -#endif - - Unhighlight(w, event, params, num_params); - -#ifndef OLDXAW - if (!(smw->simple_menu.state & SMW_UNMAPPING)) -#endif - { - SmeObjectClass cclass; - - smw->simple_menu.entry_set = entry; - cclass = (SmeObjectClass)entry->object.widget_class; - - (cclass->sme_class.highlight)((Widget)entry); - -#ifndef OLDXAW - if (XtIsSubclass((Widget)entry, smeBSBObjectClass)) - PopupSubMenu(smw); -#endif - } -} - -/* - * Function: - * Notify - * - * Parameters: - * w - simple menu widget - * event - event that caused this action - * params - not used - * num_params - "" - * - * Description: - * Notify user of current entry. - */ -/*ARGSUSED*/ -static void -Notify(Widget w, XEvent *event, String *params, Cardinal *num_params) -{ - SmeObject entry; - SmeObjectClass cclass; - - /* may be a propagated event from a sub menu, need to check it */ - if (XtWindow(w) != event->xany.window) - return; - entry = GetEventEntry(w, event); - if (entry == NULL || !XtIsSensitive((Widget)entry)) - return; - - cclass = (SmeObjectClass) entry->object.widget_class; - (cclass->sme_class.notify)((Widget)entry); -} - -/* - * Public Functions - */ -/* - * Function: - * XawSimpleMenuAddGlobalActions - * - * Arguments: - * app_con - appcontext - * - * Description: - * Adds the global actions to the simple menu widget. - */ -void -XawSimpleMenuAddGlobalActions(XtAppContext app_con) -{ - XtInitializeWidgetClass(simpleMenuWidgetClass); - XmuCallInitializers(app_con); -} - -/* - * Function: - * XawSimpleMenuGetActiveEntry - * - * Parameters: - * w - smw widget - * - * Description: - * Gets the currently active (set) entry. - * - * Returns: - * The currently set entry or NULL if none is set - */ -Widget -XawSimpleMenuGetActiveEntry(Widget w) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; - - return ((Widget)smw->simple_menu.entry_set); -} - -/* - * Function: - * XawSimpleMenuClearActiveEntry - * - * Parameters: - * w - smw widget - * - * Description: - * Unsets the currently active (set) entry. - */ -void -XawSimpleMenuClearActiveEntry(Widget w) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; - - smw->simple_menu.entry_set = NULL; -} - -/* - * Private Functions - */ -/* - * Function: - * CreateLabel - * - * Parameters: - * w - smw widget - * - * Description: - * Creates the label object and makes sure it is the first child in - * in the list. - */ -static void -CreateLabel(Widget w) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; - Widget *child, *next_child; - int i; - Arg args[2]; - - if (smw->simple_menu.label_string == NULL || - smw->simple_menu.label != NULL) { - XtAppWarning(XtWidgetToApplicationContext(w), - "Xaw Simple Menu Widget: label string is NULL or " - "label already exists, no label is being created."); - return; - } - - XtSetArg(args[0], XtNlabel, smw->simple_menu.label_string); - XtSetArg(args[1], XtNjustify, XtJustifyCenter); - smw->simple_menu.label = (SmeObject) - XtCreateManagedWidget("menuLabel", - smw->simple_menu.label_class, w, args, TWO); - - next_child = NULL; - for (child = smw->composite.children + smw->composite.num_children, - i = smw->composite.num_children; i > 0; i--, child--) { - if (next_child != NULL) - *next_child = *child; - next_child = child; - } - *child = (Widget)smw->simple_menu.label; -} - -/* - * Function: - * Layout - * - * Arguments: - * w - See below - * width_ret - returned width - * height_ret - returned height - * - * Note: - * if width == NULL || height == NULL then it assumes the you do not care - * about the return values, and just want a relayout. - * - * if this is not the case then it will set width_ret and height_ret - * to be width and height that the child would get if it were layed out - * at this time. - * - * "w" can be the simple menu widget or any of its object children. - */ -static void -Layout(Widget w, Dimension *width_ret, Dimension *height_ret) -{ - SmeObject current_entry; - SimpleMenuWidget smw; - Dimension width, height; - Boolean allow_change_size; - Widget kid; - Cardinal i, count, n; - int width_kid, height_kid, tmp_w, tmp_h; - short vadd, hadd, x_ins, y_ins; - Dimension *widths; - - height = 0; - - if (XtIsSubclass(w, simpleMenuWidgetClass)) { - smw = (SimpleMenuWidget)w; - current_entry = NULL; - } - else { - smw = (SimpleMenuWidget)XtParent(w); - current_entry = (SmeObject)w; - } - - allow_change_size = (!XtIsRealized((Widget)smw) - || smw->shell.allow_shell_resize); - - for (i = smw->simple_menu.label ? 1 : 0; - i < smw->composite.num_children; - i++) { - XtWidgetGeometry preferred; - - kid = smw->composite.children[i]; - if (!XtIsManaged(kid)) - continue; - if (smw->simple_menu.row_height != 0) - XtHeight(kid) = smw->simple_menu.row_height; - XtQueryGeometry(kid, NULL, &preferred); - if (preferred.request_mode & CWWidth) - XtWidth(kid) = preferred.width; - } - - if (smw->simple_menu.label - && XtIsManaged((Widget)smw->simple_menu.label)) { - XtWidgetGeometry preferred; - - kid = (Widget)smw->simple_menu.label; - XtQueryGeometry(kid, NULL, &preferred); - if (preferred.request_mode & CWWidth) - XtWidth(kid) = preferred.width; - if (preferred.request_mode & CWHeight) - XtHeight(kid) = preferred.height; - } - - /* reset */ - if (!smw->simple_menu.menu_width) - XtWidth(smw) = 0; - if (!smw->simple_menu.menu_height) - XtHeight(smw) = 0; - if (!XtWidth(smw) || !XtHeight(smw)) - MakeResizeRequest((Widget)smw); - - widths = (Dimension *)XtMalloc(sizeof(Dimension)); -#ifndef OLDXAW - hadd = smw->simple_menu.left_margin; -#else - hadd = 0; -#endif - vadd = smw->simple_menu.top_margin; - if (smw->simple_menu.label) - vadd += XtHeight(smw->simple_menu.label); - - count = 1; - width = tmp_w = tmp_h = n = 0; - height = vadd; - - for (i = smw->simple_menu.label ? 1 : 0; - i < smw->composite.num_children; - i++) { - kid = smw->composite.children[i]; - if (!XtIsManaged(kid)) - continue; - width_kid = XtWidth(kid); - height_kid = XtHeight(kid); - - if (n && (height + height_kid + smw->simple_menu.bottom_margin - > XtHeight(smw))) { - ++count; - widths = (Dimension *)XtRealloc((char *)widths, - sizeof(Dimension) * count); - widths[count - 1] = width_kid; - width += tmp_w; - tmp_w = width_kid; - height = height_kid + vadd; - } - else - height += height_kid; - if (height > tmp_h) - tmp_h = height; - if (width_kid > tmp_w) - widths[count - 1] = tmp_w = width_kid; - ++n; - } - - height = tmp_h + smw->simple_menu.bottom_margin; - width += tmp_w; - - if (smw->simple_menu.label && width < XtWidth(smw->simple_menu.label)) { - float inc; - - inc = (XtWidth(smw->simple_menu.label) - width) / (float)count; - width = XtWidth(smw->simple_menu.label); - for (n = 0; n < count; n++) - widths[n] += inc; - } - -#ifndef OLDXAW - width += hadd + smw->simple_menu.right_margin; -#endif - - x_ins = n = count = 0; - tmp_w = widths[0]; - tmp_h = vadd; - - for (i = smw->simple_menu.label ? 1 : 0; - i < smw->composite.num_children; - i++) { - kid = smw->composite.children[i]; - if (!XtIsManaged(kid)) - continue; - - height_kid = XtHeight(kid); - - if (n && (tmp_h + height_kid + smw->simple_menu.bottom_margin - > XtHeight(smw))) { - x_ins = tmp_w; - y_ins = vadd; - ++count; - tmp_w += widths[count]; - tmp_h = height_kid + vadd; - } - else { - y_ins = tmp_h; - tmp_h += height_kid; - } - ++n; - - XtX(kid) = x_ins + hadd; - XtY(kid) = y_ins; - XtWidth(kid) = widths[count]; - } - - XtFree((char *)widths); - - if (allow_change_size) - MakeSetValuesRequest((Widget) smw, width, height); - - if (smw->simple_menu.label) { - XtX(smw->simple_menu.label) = 0; - XtY(smw->simple_menu.label) = smw->simple_menu.top_margin; - XtWidth(smw->simple_menu.label) = XtWidth(smw) -#ifndef OLDXAW - - (smw->simple_menu.left_margin + smw->simple_menu.right_margin) -#endif - ; - } - if (current_entry) { - if (width_ret) - *width_ret = XtWidth(current_entry); - if (height_ret) - *height_ret = XtHeight(current_entry); - } -} - -/* - * Function: - * AddPositionAction - * - * Parameters: - * app_con - application context - * data - (not used) - * - * Description: - * Adds the XawPositionSimpleMenu action to the global - * action list for this appcon. - */ -/*ARGSUSED*/ -static void -AddPositionAction(XtAppContext app_con, XPointer data) -{ - static XtActionsRec pos_action[] = { - {"XawPositionSimpleMenu", PositionMenuAction}, - }; - - XtAppAddActions(app_con, pos_action, XtNumber(pos_action)); -} - -/* - * Function: - * FindMenu - * - * Parameters: - * widget - reference widget - * name - menu widget's name - * - * Description: - * Find the menu give a name and reference widget - * - * Returns: - * The menu widget or NULL. - */ -static Widget -FindMenu(Widget widget, String name) -{ - Widget w, menu; - - for (w = widget; w != NULL; w = XtParent(w)) - if ((menu = XtNameToWidget(w, name)) != NULL) - return (menu); - - return (NULL); -} - -/* - * Function: - * PositionMenu - * - * Parameters: - * w - simple menu widget - * location - pointer the the position or NULL - * - * Description: - * Places the menu - */ -static void -PositionMenu(Widget w, XPoint *location) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; - SmeObject entry; - XPoint t_point; - - if (location == NULL) { - Window temp1, temp2; - int root_x, root_y, tempX, tempY; - unsigned int tempM; - - location = &t_point; - if (XQueryPointer(XtDisplay(w), XtWindow(w), &temp1, &temp2, - &root_x, &root_y, &tempX, &tempY, &tempM) == False) { - XtAppWarning(XtWidgetToApplicationContext(w), - "Xaw Simple Menu Widget: " - "Could not find location of mouse pointer"); - return; - } - location->x = (short) root_x; - location->y = (short) root_y; - } - - /* - * The width will not be correct unless it is realized - */ - XtRealizeWidget(w); - - location->x -= XtWidth(w) >> 1; - - if (smw->simple_menu.popup_entry == NULL) - entry = smw->simple_menu.label; - else - entry = smw->simple_menu.popup_entry; - - if (entry != NULL) - location->y -= XtY(entry) + (XtHeight(entry) >> 1); - - MoveMenu(w, location->x, location->y); -} - -/* - * Function: - * MoveMenu - * - * Parameters: - * w - simple menu widget - * x - current location of the widget - * y - "" - * - * Description: - * Actually moves the menu, may force it to - * to be fully visable if menu_on_screen is True. - */ -static void -MoveMenu(Widget w, int x, int y) -{ - Arg arglist[2]; - Cardinal num_args = 0; - SimpleMenuWidget smw = (SimpleMenuWidget)w; - - if (smw->simple_menu.menu_on_screen) { - int width = XtWidth(w) + (XtBorderWidth(w) << 1); - int height = XtHeight(w) + (XtBorderWidth(w) << 1); - - if (x >= 0) { - int scr_width = WidthOfScreen(XtScreen(w)); - - if (x + width > scr_width) - x = scr_width - width; - } - if (x < 0) - x = 0; - - if (y >= 0) { - int scr_height = HeightOfScreen(XtScreen(w)); - - if (y + height > scr_height) - y = scr_height - height; - } - if (y < 0) - y = 0; - } - - XtSetArg(arglist[num_args], XtNx, x); num_args++; - XtSetArg(arglist[num_args], XtNy, y); num_args++; - XtSetValues(w, arglist, num_args); -} - -/* - * Function: - * ChangeCursorOnGrab - * - * Parameters: - * w - menu widget - * temp1 - not used - * temp2 - "" - * - * Description: - * Changes the cursor on the active grab to the one - * specified in out resource list. - */ -/*ARGSUSED*/ -static void -ChangeCursorOnGrab(Widget w, XtPointer temp1, XtPointer temp2) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; - - /* - * The event mask here is what is currently in the MIT implementation. - * There really needs to be a way to get the value of the mask out - * of the toolkit (CDP 5/26/89). - */ - XChangeActivePointerGrab(XtDisplay(w), ButtonPressMask | ButtonReleaseMask, - smw->simple_menu.cursor, - XtLastTimestampProcessed(XtDisplay(w))); -} - -/* - * Function: - * MakeSetValuesRequest - * - * Parameters: - * w - simple menu widget - * width - size requested - * height - "" - */ -static void -MakeSetValuesRequest(Widget w, unsigned int width, unsigned int height) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; - Arg arglist[2]; - Cardinal num_args = 0; - - if (!smw->simple_menu.recursive_set_values) { - if (XtWidth(smw) != width || XtHeight(smw) != height) { - smw->simple_menu.recursive_set_values = True; - XtSetArg(arglist[num_args], XtNwidth, width); num_args++; - XtSetArg(arglist[num_args], XtNheight, height); num_args++; - XtSetValues(w, arglist, num_args); - } - else if (XtIsRealized((Widget)smw)) - XawSimpleMenuRedisplay((Widget)smw, NULL, NULL); - } - smw->simple_menu.recursive_set_values = False; -} - -static SmeObject -DoGetEventEntry(Widget w, int x_loc, int y_loc) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; - SmeObject *entry; - - ForAllChildren(smw, entry) { - if (!XtIsManaged((Widget)*entry)) - continue; - - if (x_loc > XtX(*entry) - && x_loc <= XtX(*entry) + XtWidth(*entry) - && y_loc > XtY(*entry) - && y_loc <= XtY(*entry) + XtHeight(*entry)) { - if (*entry == smw->simple_menu.label) - return (NULL); /* cannot select the label */ - else - return (*entry); - } - } - - return (NULL); -} - -/* - * Function: - * GetEventEntry - * - * Parameters: - * w - simple menu widget - * event - X event - * - * Description: - * Gets an entry given an event that has X and Y coords. - * - * Returns: - * The entry that this point is in - */ -static SmeObject -GetEventEntry(Widget w, XEvent *event) -{ - int x_loc, y_loc, x_root; - SimpleMenuWidget smw = (SimpleMenuWidget)w; - SmeObject entry; - int warp, move; - - switch (event->type) { - case MotionNotify: - x_loc = event->xmotion.x; - y_loc = event->xmotion.y; - x_root = event->xmotion.x_root; - break; - case EnterNotify: - case LeaveNotify: - x_loc = event->xcrossing.x; - y_loc = event->xcrossing.y; - x_root = event->xcrossing.x_root; - break; - case ButtonPress: - case ButtonRelease: - x_loc = event->xbutton.x; - y_loc = event->xbutton.y; - x_root = event->xbutton.x_root; - break; - default: - XtAppError(XtWidgetToApplicationContext(w), - "Unknown event type in GetEventEntry()."); - return (NULL); - } - - if (x_loc < 0 || x_loc >= XtWidth(smw) || - y_loc < 0 || y_loc >= XtHeight(smw)) - return (NULL); - - /* Move the menu if it's outside the screen, does not check - * smw->simple_menu.menu_on_screen because menus is bigger than screen - */ - if (x_root == WidthOfScreen(XtScreen(w)) - 1 && - XtX(w) + XtWidth(w) + (XtBorderWidth(w)) > x_root) { - warp = -8; - if (smw->simple_menu.entry_set) { - entry = DoGetEventEntry(w, - XtX(smw->simple_menu.entry_set) - + XtWidth(smw->simple_menu.entry_set) + 1, - y_loc); - Unhighlight(w, event, NULL, NULL); - if (entry) { - warp = -(int)XtWidth(entry) >> 1; - move = x_loc - XtWidth(entry) - XtX(entry) + XtBorderWidth(w); - } - else { - warp = 0; - move = WidthOfScreen(XtScreen(w)) - - (XtX(w) + XtWidth(w) + (XtBorderWidth(w) << 1)); - } - } - else { - warp = 0; - move = WidthOfScreen(XtScreen(w)) - - (XtX(w) + XtWidth(w) + (XtBorderWidth(w) << 1)); - } - } - else if (x_root == 0 && XtX(w) < 0) { - warp = 8; - if (smw->simple_menu.entry_set) { - entry = DoGetEventEntry(w, XtX(smw->simple_menu.entry_set) - 1, - y_loc); - Unhighlight(w, event, NULL, NULL); - if (entry) { - warp = XtWidth(entry) >> 1; - move = x_loc - XtX(entry); - } - else - move = x_loc + XtBorderWidth(w); - } - else - move = x_loc + XtBorderWidth(w); - } - else - move = warp = 0; - - if (move) - XtMoveWidget(w, XtX(w) + move, XtY(w)); - if (warp) - XWarpPointer(XtDisplay(w), None, None, 0, 0, 0, 0, warp, 0); - - return (DoGetEventEntry(w, x_loc, y_loc)); -} - -static void -CalculateNewSize(Widget w, Dimension *width_return, Dimension *height_return) -{ - SimpleMenuWidget xaw = (SimpleMenuWidget)w; - Widget kid; - Cardinal i; - int width_kid, height_kid; - int width, height, tmp_w, tmp_h, max_dim; - short vadd, hadd; - int n, columns, test_h, num_children = 0; - Boolean try_layout = False; - -#ifndef OLDXAW - hadd = xaw->simple_menu.left_margin + xaw->simple_menu.right_margin; -#else - hadd = 0; -#endif - vadd = xaw->simple_menu.top_margin + xaw->simple_menu.bottom_margin; - if (xaw->simple_menu.label) - vadd += XtHeight(xaw->simple_menu.label); - - if (*height_return) - max_dim = *height_return; - else if (!XtHeight(w)) { - max_dim = HeightOfScreen(XtScreen(w)); - try_layout = True; - } - else - max_dim = XtHeight(w); - max_dim -= vadd; - - width = height = tmp_w = tmp_h = n = test_h = 0; - columns = 1; - for (i = xaw->simple_menu.label ? 1 : 0; - i < xaw->composite.num_children; - i++) { - kid = xaw->composite.children[i]; - if (!XtIsManaged(kid)) - continue; - ++num_children; - width_kid = XtWidth(kid); - height_kid = XtHeight(kid); - - if (try_layout) { - if (!test_h) - test_h = height_kid; - else if (test_h != height_kid) - try_layout = False; - } - - if (n && (height + height_kid > max_dim)) { - ++columns; - width += tmp_w; - tmp_w = width_kid; - height = height_kid; - } - else - height += height_kid; - if (height > tmp_h) - tmp_h = height; - if (width_kid > tmp_w) - tmp_w = width_kid; - ++n; - } - - height = tmp_h + vadd; - width += tmp_w + hadd; - - if (xaw->simple_menu.label) - width = XawMax(width, XtWidth(xaw->simple_menu.label) + hadd); - - *width_return = width; - *height_return = height; - - if (try_layout && columns > 1 && num_children > 2) { - int space; - - height = test_h * (xaw->simple_menu.label ? - num_children - 1 : - num_children); - - max_dim -= max_dim % test_h; - space = max_dim - (height % max_dim); - if (space >= test_h * columns) { - height = max_dim - space / columns; - if (height % test_h) - height += test_h - (height % test_h); - *height_return = height + vadd; - CalculateNewSize(w, width_return, height_return); - } - } -} - -static void -MakeResizeRequest(Widget w) -{ - int tries; - Dimension width, height; - - width = XtWidth(w); - height = XtHeight(w); - - for (tries = 0; tries < 100; tries++) { - CalculateNewSize(w, &width, &height); - if (width == XtWidth(w) && height == XtHeight(w)) - break; - if (XtMakeResizeRequest(w, width, height, &width, &height) == - XtGeometryNo) - break; - } -} - -#ifndef OLDXAW -static void -Popdown(Widget w, XEvent *event, String *params, Cardinal *num_params) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; - - while (XtParent(w) && - XtIsSubclass(XtParent(w), simpleMenuWidgetClass)) { - if (((SimpleMenuWidget)XtParent(w))->simple_menu.sub_menu == (Widget)w) { - w = XtParent(w); - smw = (SimpleMenuWidget)w; - smw->simple_menu.entry_set = NULL; - } - else - break; - } - - smw->simple_menu.state |= SMW_UNMAPPING; - if (smw->simple_menu.sub_menu) - PopdownSubMenu(smw); - XtCallActionProc(w, "XtMenuPopdown", event, params, *num_params); -} - -static void -PopupSubMenu(SimpleMenuWidget smw) -{ - Arg args[2]; - Cardinal num_args; - Widget menu; - SmeBSBObject entry = (SmeBSBObject)smw->simple_menu.entry_set; - Position menu_x, menu_y; - Bool popleft; - - if (entry->sme_bsb.menu_name == NULL) - return; - - if ((menu = FindMenu((Widget)smw, entry->sme_bsb.menu_name)) == NULL) - return; - - smw->simple_menu.sub_menu = menu; - - if (!XtIsRealized(menu)) - XtRealizeWidget(menu); - - popleft = (smw->simple_menu.state & SMW_POPLEFT) != 0; - - if (popleft) - XtTranslateCoords((Widget)smw, -(int)XtWidth(menu), - XtY(entry) - XtBorderWidth(menu), &menu_x, &menu_y); - else - XtTranslateCoords((Widget)smw, XtWidth(smw), XtY(entry) - - XtBorderWidth(menu), &menu_x, &menu_y); - - if (!popleft && menu_x >= 0) { - int scr_width = WidthOfScreen(XtScreen(menu)); - - if (menu_x + XtWidth(menu) > scr_width) { - menu_x -= XtWidth(menu) + XtWidth(smw); - popleft = True; - } - } - else if (popleft && menu_x < 0) { - menu_x = 0; - popleft = False; - } - if (menu_y >= 0) { - int scr_height = HeightOfScreen(XtScreen(menu)); - - if (menu_y + XtHeight(menu) > scr_height) - menu_y = scr_height - XtHeight(menu) - XtBorderWidth(menu); - } - if (menu_y < 0) - menu_y = 0; - - num_args = 0; - XtSetArg(args[num_args], XtNx, menu_x); num_args++; - XtSetArg(args[num_args], XtNy, menu_y); num_args++; - XtSetValues(menu, args, num_args); - - if (popleft) - ((SimpleMenuWidget)menu)->simple_menu.state |= SMW_POPLEFT; - else - ((SimpleMenuWidget)menu)->simple_menu.state &= ~SMW_POPLEFT; - - XtPopup(menu, XtGrabNone); -} - -static void -PopdownSubMenu(SimpleMenuWidget smw) -{ - SimpleMenuWidget menu = (SimpleMenuWidget)smw->simple_menu.sub_menu; - - if (!menu) - return; - - menu->simple_menu.state |= SMW_UNMAPPING; - PopdownSubMenu(menu); - - XtPopdown((Widget)menu); - - smw->simple_menu.sub_menu = NULL; -} - -/*ARGSUSED*/ -static void -PopupCB(Widget w, XtPointer client_data, XtPointer call_data) -{ - SimpleMenuWidget smw = (SimpleMenuWidget)w; - - smw->simple_menu.state &= ~(SMW_UNMAPPING | SMW_POPLEFT); -} -#endif /* OLDXAW */ +/*
+Copyright 1989, 1994, 1998 The Open Group
+
+Permission to use, copy, modify, distribute, and sell this software and its
+documentation for any purpose is hereby granted without fee, provided that
+the above copyright notice appear in all copies and that both that
+copyright notice and this permission notice appear in supporting
+documentation.
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of The Open Group shall not be
+used in advertising or otherwise to promote the sale, use or other dealings
+in this Software without prior written authorization from The Open Group.
+ */
+
+/*
+ * SimpleMenu.c - Source code file for SimpleMenu widget.
+ *
+ * Date: April 3, 1989
+ *
+ * By: Chris D. Peterson
+ * MIT X Consortium
+ * kit@expo.lcs.mit.edu
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include <stdio.h>
+#include <X11/IntrinsicP.h>
+#include <X11/StringDefs.h>
+#include <X11/Xmu/Initer.h>
+#include <X11/Xmu/SysUtil.h>
+#include <X11/Xaw/Cardinals.h>
+#include <X11/Xaw/SimpleMenP.h>
+#include <X11/Xaw/SmeBSBP.h>
+#include <X11/Xaw/XawInit.h>
+#include "Private.h"
+
+#define streq(a, b) (strcmp((a), (b)) == 0)
+
+#define ForAllChildren(smw, childP) \
+for ((childP) = (SmeObject *)(smw)->composite.children; \
+ (childP) < (SmeObject *)((smw)->composite.children \
+ + (smw)->composite.num_children); \
+ (childP)++)
+
+#ifndef OLDXAW
+#define SMW_UNMAPPING 0x01
+#define SMW_POPLEFT 0x02
+#endif
+
+/*
+ * Class Methods
+ */
+static void XawSimpleMenuChangeManaged(Widget);
+static void XawSimpleMenuClassInitialize(void);
+static void XawSimpleMenuClassPartInitialize(WidgetClass);
+static XtGeometryResult XawSimpleMenuGeometryManager(Widget, XtWidgetGeometry*,
+ XtWidgetGeometry*);
+static void XawSimpleMenuInitialize(Widget, Widget, ArgList, Cardinal*);
+static void XawSimpleMenuRealize(Widget, XtValueMask*, XSetWindowAttributes*);
+static void XawSimpleMenuRedisplay(Widget, XEvent*, Region);
+static void XawSimpleMenuResize(Widget);
+static Boolean XawSimpleMenuSetValues(Widget, Widget, Widget,
+ ArgList, Cardinal*);
+static Boolean XawSimpleMenuSetValuesHook(Widget, ArgList, Cardinal*);
+#ifndef OLDXAW
+static void PopupSubMenu(SimpleMenuWidget);
+static void PopdownSubMenu(SimpleMenuWidget);
+static void PopupCB(Widget, XtPointer, XtPointer);
+#endif
+
+/*
+ * Prototypes
+ */
+static void AddPositionAction(XtAppContext, XPointer);
+static void CalculateNewSize(Widget, Dimension*, Dimension*);
+static void ChangeCursorOnGrab(Widget, XtPointer, XtPointer);
+static void CreateLabel(Widget);
+static SmeObject DoGetEventEntry(Widget, int, int);
+static Widget FindMenu(Widget, String);
+static SmeObject GetEventEntry(Widget, XEvent*);
+static void Layout(Widget, Dimension*, Dimension*);
+static void MakeResizeRequest(Widget);
+static void MakeSetValuesRequest(Widget, unsigned int, unsigned int);
+static void MoveMenu(Widget, int, int);
+static void PositionMenu(Widget, XPoint*);
+
+/*
+ * Actions
+ */
+static void Highlight(Widget, XEvent*, String*, Cardinal*);
+static void Notify(Widget, XEvent*, String*, Cardinal*);
+#ifndef OLDXAW
+static void Popdown(Widget, XEvent*, String*, Cardinal*);
+#endif
+static void PositionMenuAction(Widget, XEvent*, String*, Cardinal*);
+static void Unhighlight(Widget, XEvent*, String*, Cardinal*);
+
+/*
+ * Initialization
+ */
+#define offset(field) XtOffsetOf(SimpleMenuRec, simple_menu.field)
+
+static XtResource resources[] = {
+ /* label */
+ {
+ XtNlabel,
+ XtCLabel,
+ XtRString,
+ sizeof(String),
+ offset(label_string),
+ XtRString,
+ NULL
+ },
+ {
+ XtNlabelClass,
+ XtCLabelClass,
+ XtRPointer,
+ sizeof(WidgetClass),
+ offset(label_class),
+ XtRImmediate,
+ NULL
+ },
+
+ /* layout */
+ {
+ XtNrowHeight,
+ XtCRowHeight,
+ XtRDimension,
+ sizeof(Dimension),
+ offset(row_height),
+ XtRImmediate,
+ (XtPointer)0
+ },
+ {
+ XtNtopMargin,
+ XtCVerticalMargins,
+ XtRDimension,
+ sizeof(Dimension),
+ offset(top_margin),
+ XtRImmediate,
+ (XtPointer)0
+ },
+ {
+ XtNbottomMargin,
+ XtCVerticalMargins,
+ XtRDimension,
+ sizeof(Dimension),
+ offset(bottom_margin),
+ XtRImmediate,
+ (XtPointer)0
+ },
+#ifndef OLDXAW
+ {
+ XtNleftMargin,
+ XtCHorizontalMargins,
+ XtRDimension,
+ sizeof(Dimension),
+ offset(left_margin),
+ XtRImmediate,
+ (XtPointer)0
+ },
+ {
+ XtNrightMargin,
+ XtCHorizontalMargins,
+ XtRDimension,
+ sizeof(Dimension),
+ offset(right_margin),
+ XtRImmediate,
+ (XtPointer)0
+ },
+#endif
+
+ /* misc */
+ {
+ XtNallowShellResize,
+ XtCAllowShellResize,
+ XtRBoolean,
+ sizeof(Boolean),
+ XtOffsetOf(SimpleMenuRec, shell.allow_shell_resize),
+ XtRImmediate,
+ (XtPointer)True
+ },
+ {
+ XtNcursor,
+ XtCCursor,
+ XtRCursor,
+ sizeof(Cursor),
+ offset(cursor),
+ XtRImmediate,
+ (XtPointer)None
+ },
+ {
+ XtNmenuOnScreen,
+ XtCMenuOnScreen,
+ XtRBoolean,
+ sizeof(Boolean),
+ offset(menu_on_screen),
+ XtRImmediate,
+ (XtPointer)True
+ },
+ {
+ XtNpopupOnEntry,
+ XtCPopupOnEntry,
+ XtRWidget,
+ sizeof(Widget),
+ offset(popup_entry),
+ XtRWidget,
+ NULL
+ },
+ {
+ XtNbackingStore,
+ XtCBackingStore,
+ XtRBackingStore,
+ sizeof(int),
+ offset(backing_store),
+ XtRImmediate,
+ (XtPointer)(Always + WhenMapped + NotUseful)
+ },
+#ifndef OLDXAW
+ {
+ XawNdisplayList,
+ XawCDisplayList,
+ XawRDisplayList,
+ sizeof(XawDisplayList*),
+ offset(display_list),
+ XtRImmediate,
+ NULL
+ },
+#endif
+};
+#undef offset
+
+static char defaultTranslations[] =
+"<Enter>:" "highlight()\n"
+"<Leave>:" "unhighlight()\n"
+"<BtnMotion>:" "highlight()\n"
+#ifndef OLDXAW
+"<BtnUp>:" "popdown() notify() unhighlight()\n"
+#else
+"<BtnUp>:" "MenuPopdown() notify() unhighlight()\n"
+#endif
+;
+
+static XtActionsRec actionsList[] =
+{
+ {"notify", Notify},
+ {"highlight", Highlight},
+ {"unhighlight", Unhighlight},
+#ifndef OLDXAW
+ {"popdown", Popdown},
+ {"set-values", XawSetValuesAction},
+ {"get-values", XawGetValuesAction},
+ {"declare", XawDeclareAction},
+ {"call-proc", XawCallProcAction},
+#endif
+};
+
+static CompositeClassExtensionRec extension_rec = {
+ NULL, /* next_extension */
+ NULLQUARK, /* record_type */
+ XtCompositeExtensionVersion, /* version */
+ sizeof(CompositeClassExtensionRec), /* record_size */
+ True, /* accepts_objects */
+};
+
+#define Superclass (&overrideShellClassRec)
+SimpleMenuClassRec simpleMenuClassRec = {
+ /* core */
+ {
+ (WidgetClass)Superclass, /* superclass */
+ "SimpleMenu", /* class_name */
+ sizeof(SimpleMenuRec), /* size */
+ XawSimpleMenuClassInitialize, /* class_initialize */
+ XawSimpleMenuClassPartInitialize, /* class_part_initialize */
+ False, /* class_inited */
+ XawSimpleMenuInitialize, /* initialize */
+ NULL, /* initialize_hook */
+ XawSimpleMenuRealize, /* realize */
+ actionsList, /* actions */
+ XtNumber(actionsList), /* num_actions */
+ resources, /* resources */
+ XtNumber(resources), /* num_resources */
+ NULLQUARK, /* xrm_class */
+ True, /* compress_motion */
+ True, /* compress_exposure */
+ True, /* compress_enterleave */
+ False, /* visible_interest */
+ NULL, /* destroy */
+ XawSimpleMenuResize, /* resize */
+ XawSimpleMenuRedisplay, /* expose */
+ XawSimpleMenuSetValues, /* set_values */
+ XawSimpleMenuSetValuesHook, /* set_values_hook */
+ XtInheritSetValuesAlmost, /* set_values_almost */
+ NULL, /* get_values_hook */
+ NULL, /* accept_focus */
+ XtVersion, /* intrinsics version */
+ NULL, /* callback offsets */
+ defaultTranslations, /* tm_table */
+ NULL, /* query_geometry */
+ NULL, /* display_accelerator */
+ NULL, /* extension */
+ },
+ /* composite */
+ {
+ XawSimpleMenuGeometryManager, /* geometry_manager */
+ XawSimpleMenuChangeManaged, /* change_managed */
+ XtInheritInsertChild, /* insert_child */
+ XtInheritDeleteChild, /* delete_child */
+ NULL, /* extension */
+ },
+ /* shell */
+ {
+ NULL, /* extension */
+ },
+ /* override */
+ {
+ NULL, /* extension */
+ },
+ /* simple_menu */
+ {
+ NULL, /* extension */
+ },
+};
+
+WidgetClass simpleMenuWidgetClass = (WidgetClass)&simpleMenuClassRec;
+
+/*
+ * Implementation
+ */
+/*
+ * Function:
+ * XawSimpleMenuClassInitialize
+ *
+ * Description:
+ * Class Initialize routine, called only once.
+ */
+static void
+XawSimpleMenuClassInitialize(void)
+{
+ XawInitializeWidgetSet();
+ XtAddConverter(XtRString, XtRBackingStore, XmuCvtStringToBackingStore,
+ NULL, 0);
+ XtSetTypeConverter(XtRBackingStore, XtRString, XmuCvtBackingStoreToString,
+ NULL, 0, XtCacheNone, NULL);
+ XmuAddInitializer(AddPositionAction, NULL);
+}
+
+/*
+ * Function:
+ * XawSimpleMenuClassPartInitialize
+ * Arguments: wc - the widget class of the subclass.
+ *
+ * Description:
+ * Class Part Initialize routine, called for every subclass. Makes
+ * sure that the subclasses pick up the extension record.
+ */
+static void
+XawSimpleMenuClassPartInitialize(WidgetClass wc)
+{
+ SimpleMenuWidgetClass smwc = (SimpleMenuWidgetClass)wc;
+
+ /*
+ * Make sure that our subclass gets the extension rec too
+ */
+ extension_rec.next_extension = smwc->composite_class.extension;
+ smwc->composite_class.extension = (XtPointer) &extension_rec;
+}
+
+/*
+ * Function:
+ * XawSimpleMenuInitialize
+ *
+ * Parameters:
+ * request - widget requested by the argument list
+ * cnew - new widget with both resource and non resource values
+ *
+ * Description:
+ * Initializes the simple menu widget.
+ */
+/*ARGSUSED*/
+static void
+XawSimpleMenuInitialize(Widget request, Widget cnew,
+ ArgList args, Cardinal *num_args)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)cnew;
+ Dimension width, height;
+
+ XmuCallInitializers(XtWidgetToApplicationContext(cnew));
+
+ if (smw->simple_menu.label_class == NULL)
+ smw->simple_menu.label_class = smeBSBObjectClass;
+
+ smw->simple_menu.label = NULL;
+ smw->simple_menu.entry_set = NULL;
+ smw->simple_menu.recursive_set_values = False;
+#ifndef OLDXAW
+ smw->simple_menu.sub_menu = NULL;
+ smw->simple_menu.state = 0;
+
+ XtAddCallback(cnew, XtNpopupCallback, PopupCB, NULL);
+#endif
+
+ if (smw->simple_menu.label_string != NULL)
+ CreateLabel(cnew);
+
+ width = height = 0;
+ CalculateNewSize(cnew, &width, &height);
+
+ smw->simple_menu.menu_width = True;
+
+ if (XtWidth(smw) == 0) {
+ smw->simple_menu.menu_width = False;
+ XtWidth(smw) = width;
+ }
+
+ smw->simple_menu.menu_height = True;
+
+ if (XtHeight(smw) == 0) {
+ smw->simple_menu.menu_height = False;
+ XtHeight(smw) = height;
+ }
+
+ /*
+ * Add a popup_callback routine for changing the cursor
+ */
+ XtAddCallback(cnew, XtNpopupCallback, ChangeCursorOnGrab, NULL);
+}
+
+/*
+ * Function:
+ * XawSimpleMenuRedisplay
+ *
+ * Parameters:
+ * w - simple menu widget
+ * event - X event that caused this redisplay
+ * region - region the needs to be repainted
+ *
+ * Description:
+ * Redisplays the contents of the widget.
+ */
+/*ARGSUSED*/
+static void
+XawSimpleMenuRedisplay(Widget w, XEvent *event, Region region)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+ SmeObject *entry;
+ SmeObjectClass cclass;
+
+ if (region == NULL)
+ XClearWindow(XtDisplay(w), XtWindow(w));
+
+#ifndef OLDXAW
+ if (smw->simple_menu.display_list)
+ XawRunDisplayList(w, smw->simple_menu.display_list, event, region);
+#endif
+
+ /*
+ * Check and Paint each of the entries - including the label
+ */
+ ForAllChildren(smw, entry) {
+ if (!XtIsManaged((Widget)*entry))
+ continue;
+
+ if (region != NULL)
+ switch(XRectInRegion(region, XtX(*entry),XtY(*entry),
+ XtWidth(*entry), XtHeight(*entry))) {
+ case RectangleIn:
+ case RectanglePart:
+ break;
+ default:
+ continue;
+ }
+
+ cclass = (SmeObjectClass)(*entry)->object.widget_class;
+
+ if (cclass->rect_class.expose != NULL)
+ (cclass->rect_class.expose)((Widget)*entry, NULL, NULL);
+ }
+}
+
+/*
+ * Function:
+ * XawSimpleMenuRealize
+ *
+ * Parameters:
+ * w - simple menu widget
+ * mask - value mask for the window to create
+ * attrs - attributes for the window to create
+ *
+ * Description:
+ * Realizes the widget.
+ */
+static void
+XawSimpleMenuRealize(Widget w, XtValueMask *mask, XSetWindowAttributes *attrs)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+#ifndef OLDXAW
+ XawPixmap *pixmap;
+#endif
+
+ attrs->cursor = smw->simple_menu.cursor;
+ *mask |= CWCursor;
+ if (smw->simple_menu.backing_store == Always ||
+ smw->simple_menu.backing_store == NotUseful ||
+ smw->simple_menu.backing_store == WhenMapped) {
+ *mask |= CWBackingStore;
+ attrs->backing_store = smw->simple_menu.backing_store;
+ }
+ else
+ *mask &= ~CWBackingStore;
+
+ (*Superclass->core_class.realize)(w, mask, attrs);
+
+#ifndef OLDXAW
+ if (w->core.background_pixmap > XtUnspecifiedPixmap) {
+ pixmap = XawPixmapFromXPixmap(w->core.background_pixmap, XtScreen(w),
+ w->core.colormap, w->core.depth);
+ if (pixmap && pixmap->mask)
+ XawReshapeWidget(w, pixmap);
+ }
+#endif
+}
+
+/*
+ * Function:
+ * XawSimpleMenuResize
+ *
+ * Parameters:
+ * w - simple menu widget
+ *
+ * Description:
+ * Handle the menu being resized.
+ */
+static void
+XawSimpleMenuResize(Widget w)
+{
+ if (!XtIsRealized(w))
+ return;
+
+ Layout(w, NULL, NULL);
+
+ XawSimpleMenuRedisplay(w, NULL, NULL);
+}
+
+/*
+ * Function:
+ * XawSimpleMenuSetValues
+ *
+ * Parameters:
+ * current - current state of the widget
+ * request - what was requested
+ * cnew - what the widget will become
+ *
+ * Description:
+ * Relayout the menu when one of the resources is changed.
+ */
+/*ARGSUSED*/
+static Boolean
+XawSimpleMenuSetValues(Widget current, Widget request, Widget cnew,
+ ArgList args, Cardinal *num_args)
+{
+ SimpleMenuWidget smw_old = (SimpleMenuWidget)current;
+ SimpleMenuWidget smw_new = (SimpleMenuWidget)cnew;
+ Boolean ret_val = False, layout = False;
+
+ if (!XtIsRealized(current))
+ return (False);
+
+ if (!smw_new->simple_menu.recursive_set_values) {
+ if (XtWidth(smw_new) != XtWidth(smw_old)) {
+ smw_new->simple_menu.menu_width = XtWidth(smw_new) != 0;
+ layout = True;
+ }
+ if (XtHeight(smw_new) != XtHeight(smw_old)) {
+ smw_new->simple_menu.menu_height = XtHeight(smw_new) != 0;
+ layout = True;
+ }
+ }
+
+ if (smw_old->simple_menu.cursor != smw_new->simple_menu.cursor)
+ XDefineCursor(XtDisplay(cnew), XtWindow(cnew),
+ smw_new->simple_menu.cursor);
+
+ if (smw_old->simple_menu.label_string !=smw_new->simple_menu.label_string) {
+ if (smw_new->simple_menu.label_string == NULL) /* Destroy */
+ XtDestroyWidget((Widget)smw_old->simple_menu.label);
+ else if (smw_old->simple_menu.label_string == NULL) /* Create */
+ CreateLabel(cnew);
+ else { /* Change */
+ Arg arglist[1];
+
+ XtSetArg(arglist[0], XtNlabel, smw_new->simple_menu.label_string);
+ XtSetValues((Widget)smw_new->simple_menu.label, arglist, ONE);
+ }
+ }
+
+ if (smw_old->simple_menu.label_class != smw_new->simple_menu.label_class)
+ XtAppWarning(XtWidgetToApplicationContext(cnew),
+ "No Dynamic class change of the SimpleMenu Label.");
+
+ if (smw_old->simple_menu.top_margin != smw_new->simple_menu.top_margin
+ || smw_old->simple_menu.bottom_margin
+ != smw_new->simple_menu.bottom_margin) {
+ layout = True;
+ ret_val = True;
+ }
+
+#ifndef OLDXAW
+ if (smw_old->core.background_pixmap != smw_new->core.background_pixmap) {
+ XawPixmap *opix, *npix;
+
+ opix = XawPixmapFromXPixmap(smw_old->core.background_pixmap,
+ XtScreen(smw_old), smw_old->core.colormap,
+ smw_old->core.depth);
+ npix = XawPixmapFromXPixmap(smw_new->core.background_pixmap,
+ XtScreen(smw_new), smw_new->core.colormap,
+ smw_new->core.depth);
+ if ((npix && npix->mask) || (opix && opix->mask))
+ XawReshapeWidget(cnew, npix);
+ }
+#endif
+
+ if (layout)
+ Layout(cnew, NULL, NULL);
+
+ return (ret_val);
+}
+
+/*
+ * Function:
+ * XawSimpleMenuSetValuesHook
+ *
+ * Parameters:
+ * w - menu widget
+ * arglist - argument list passed to XtSetValues
+ * num_args - number of args
+ *
+ * Description:
+ * To handle a special case, this is passed the actual arguments.
+ */
+static Boolean
+XawSimpleMenuSetValuesHook(Widget w, ArgList arglist, Cardinal *num_args)
+{
+ Cardinal i;
+ Dimension width, height;
+
+ width = XtWidth(w);
+ height = XtHeight(w);
+
+ for (i = 0 ; i < *num_args ; i++) {
+ if (streq(arglist[i].name, XtNwidth))
+ width = (Dimension)arglist[i].value;
+ if (streq(arglist[i].name, XtNheight))
+ height = (Dimension) arglist[i].value;
+ }
+
+ if (width != XtWidth(w) || height != XtHeight(w))
+ MakeSetValuesRequest(w, width, height);
+
+ return (False);
+}
+
+/*
+ * Geometry Management routines
+ */
+/*
+ * Function:
+ * XawSimpleMenuGeometryManager
+ *
+ * Parameters:
+ * w - Menu Entry making the request
+ * request - requested new geometry
+ * reply - the allowed geometry.
+ *
+ * Description:
+ * This is the SimpleMenu Widget's Geometry Manager.
+ *
+ * Returns:
+ * XtGeometry{Yes, No, Almost}
+ */
+static XtGeometryResult
+XawSimpleMenuGeometryManager(Widget w, XtWidgetGeometry *request,
+ XtWidgetGeometry *reply)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)XtParent(w);
+ SmeObject entry = (SmeObject)w;
+ XtGeometryMask mode = request->request_mode;
+ XtGeometryResult answer;
+ Dimension old_height, old_width;
+
+ if (!(mode & CWWidth) && !(mode & CWHeight))
+ return (XtGeometryNo);
+
+ reply->width = request->width;
+ reply->height = request->height;
+
+ old_width = XtWidth(entry);
+ old_height = XtHeight(entry);
+
+ Layout(w, &reply->width, &reply->height);
+
+ /*
+ * Since we are an override shell and have no parent there is no one to
+ * ask to see if this geom change is okay, so I am just going to assume
+ * we can do whatever we want. If you subclass be very careful with this
+ * assumption, it could bite you.
+ *
+ * Chris D. Peterson - Sept. 1989.
+ */
+ if ((!(mode & CWWidth) || reply->width == request->width)
+ && (!(mode & CWHeight) || reply->height == request->height)) {
+ if (mode & XtCWQueryOnly) { /* Actually perform the layout */
+ XtWidth(entry) = old_width;
+ XtHeight(entry) = old_height;
+ }
+ else
+ Layout((Widget)smw, NULL, NULL);
+ answer = XtGeometryDone;
+ }
+ else {
+ XtWidth(entry) = old_width;
+ XtHeight(entry) = old_height;
+
+ if ((reply->width == request->width && !(mode & CWHeight))
+ || (reply->height == request->height && !(mode & CWWidth))
+ || (reply->width == request->width
+ && reply->height == request->height))
+ answer = XtGeometryNo;
+ else {
+ answer = XtGeometryAlmost;
+ reply->request_mode = 0;
+ if (reply->width != request->width)
+ reply->request_mode |= CWWidth;
+ if (reply->height != request->height)
+ reply->request_mode |= CWHeight;
+ }
+ }
+
+ return (answer);
+}
+
+/*
+ * Function:
+ * XawSimpleMenuChangeManaged
+ *
+ * Parameters:
+ * w - simple menu widget
+ *
+ * Description:
+ * Called whenever a new child is managed.
+ */
+static void
+XawSimpleMenuChangeManaged(Widget w)
+{
+ Layout(w, NULL, NULL);
+}
+
+/*
+ * Global Action Routines
+ *
+ * These actions routines will be added to the application's
+ * global action list
+ */
+/*
+ * Function:
+ * PositionMenuAction
+ *
+ * Parameters:
+ * w - a widget (no the simple menu widget)
+ * event - the event that caused this action
+ * params - parameters passed to the routine.
+ * we expect the name of the menu here.
+ * num_params - ""
+ *
+ * Description:
+ * Positions the simple menu widget.
+ */
+/*ARGSUSED*/
+static void
+PositionMenuAction(Widget w, XEvent *event,
+ String *params, Cardinal *num_params)
+{
+ Widget menu;
+ XPoint loc;
+
+ if (*num_params != 1) {
+ XtAppWarning(XtWidgetToApplicationContext(w),
+ "SimpleMenuWidget: position menu action expects "
+ "only one parameter which is the name of the menu.");
+ return;
+ }
+
+ if ((menu = FindMenu(w, params[0])) == NULL) {
+ char error_buf[BUFSIZ];
+
+ (void)XmuSnprintf(error_buf, sizeof(error_buf),
+ "SimpleMenuWidget: could not find menu named %s.",
+ params[0]);
+ XtAppWarning(XtWidgetToApplicationContext(w), error_buf);
+ return;
+ }
+
+ switch (event->type) {
+ case ButtonPress:
+ case ButtonRelease:
+ loc.x = event->xbutton.x_root;
+ loc.y = event->xbutton.y_root;
+ PositionMenu(menu, &loc);
+ break;
+ case EnterNotify:
+ case LeaveNotify:
+ loc.x = event->xcrossing.x_root;
+ loc.y = event->xcrossing.y_root;
+ PositionMenu(menu, &loc);
+ break;
+ case MotionNotify:
+ loc.x = event->xmotion.x_root;
+ loc.y = event->xmotion.y_root;
+ PositionMenu(menu, &loc);
+ break;
+ default:
+ PositionMenu(menu, NULL);
+ break;
+ }
+}
+
+/*
+ * Widget Action Routines
+ */
+/*
+ * Function:
+ * Unhighlight
+ *
+ * Parameters:
+ * w - simple menu widget
+ * event - event that caused this action
+ * params - not used
+ * num_params - ""
+ *
+ * Description:
+ * Unhighlights current entry.
+ */
+/*ARGSUSED*/
+static void
+Unhighlight(Widget w, XEvent *event, String *params, Cardinal *num_params)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+ SmeObject entry = smw->simple_menu.entry_set;
+
+ if (entry == NULL)
+ return;
+
+#ifndef OLDXAW
+ if (!smw->simple_menu.sub_menu)
+#endif
+ {
+ SmeObjectClass cclass;
+
+ smw->simple_menu.entry_set = NULL;
+ cclass = (SmeObjectClass)entry->object.widget_class;
+ (cclass->sme_class.unhighlight)((Widget)entry);
+ }
+}
+
+/*
+ * Function:
+ * Highlight
+ *
+ * Parameters:
+ * w - simple menu widget
+ * event - event that caused this action
+ * params - not used
+ * num_params - ""
+ *
+ * Description:
+ * Highlights current entry.
+ */
+/*ARGSUSED*/
+static void
+Highlight(Widget w, XEvent *event, String *params, Cardinal *num_params)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+ SmeObject entry;
+
+ if (!XtIsSensitive(w))
+ return;
+
+ entry = GetEventEntry(w, event);
+
+ if (entry == smw->simple_menu.entry_set)
+ return;
+
+#ifndef OLDXAW
+ if (!smw->simple_menu.sub_menu)
+#endif
+ Unhighlight(w, event, params, num_params);
+
+ if (entry == NULL)
+ return;
+
+ if (!XtIsSensitive((Widget)entry))
+ return;
+
+#ifndef OLDXAW
+ if (smw->simple_menu.sub_menu)
+ PopdownSubMenu(smw);
+#endif
+
+ Unhighlight(w, event, params, num_params);
+
+#ifndef OLDXAW
+ if (!(smw->simple_menu.state & SMW_UNMAPPING))
+#endif
+ {
+ SmeObjectClass cclass;
+
+ smw->simple_menu.entry_set = entry;
+ cclass = (SmeObjectClass)entry->object.widget_class;
+
+ (cclass->sme_class.highlight)((Widget)entry);
+
+#ifndef OLDXAW
+ if (XtIsSubclass((Widget)entry, smeBSBObjectClass))
+ PopupSubMenu(smw);
+#endif
+ }
+}
+
+/*
+ * Function:
+ * Notify
+ *
+ * Parameters:
+ * w - simple menu widget
+ * event - event that caused this action
+ * params - not used
+ * num_params - ""
+ *
+ * Description:
+ * Notify user of current entry.
+ */
+/*ARGSUSED*/
+static void
+Notify(Widget w, XEvent *event, String *params, Cardinal *num_params)
+{
+ SmeObject entry;
+ SmeObjectClass cclass;
+
+ /* may be a propagated event from a sub menu, need to check it */
+ if (XtWindow(w) != event->xany.window)
+ return;
+ entry = GetEventEntry(w, event);
+ if (entry == NULL || !XtIsSensitive((Widget)entry))
+ return;
+
+ cclass = (SmeObjectClass) entry->object.widget_class;
+ (cclass->sme_class.notify)((Widget)entry);
+}
+
+/*
+ * Public Functions
+ */
+/*
+ * Function:
+ * XawSimpleMenuAddGlobalActions
+ *
+ * Arguments:
+ * app_con - appcontext
+ *
+ * Description:
+ * Adds the global actions to the simple menu widget.
+ */
+void
+XawSimpleMenuAddGlobalActions(XtAppContext app_con)
+{
+ XtInitializeWidgetClass(simpleMenuWidgetClass);
+ XmuCallInitializers(app_con);
+}
+
+/*
+ * Function:
+ * XawSimpleMenuGetActiveEntry
+ *
+ * Parameters:
+ * w - smw widget
+ *
+ * Description:
+ * Gets the currently active (set) entry.
+ *
+ * Returns:
+ * The currently set entry or NULL if none is set
+ */
+Widget
+XawSimpleMenuGetActiveEntry(Widget w)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+
+ return ((Widget)smw->simple_menu.entry_set);
+}
+
+/*
+ * Function:
+ * XawSimpleMenuClearActiveEntry
+ *
+ * Parameters:
+ * w - smw widget
+ *
+ * Description:
+ * Unsets the currently active (set) entry.
+ */
+void
+XawSimpleMenuClearActiveEntry(Widget w)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+
+ smw->simple_menu.entry_set = NULL;
+}
+
+/*
+ * Private Functions
+ */
+/*
+ * Function:
+ * CreateLabel
+ *
+ * Parameters:
+ * w - smw widget
+ *
+ * Description:
+ * Creates the label object and makes sure it is the first child in
+ * in the list.
+ */
+static void
+CreateLabel(Widget w)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+ Widget *child, *next_child;
+ int i;
+ Arg args[2];
+
+ if (smw->simple_menu.label_string == NULL ||
+ smw->simple_menu.label != NULL) {
+ XtAppWarning(XtWidgetToApplicationContext(w),
+ "Xaw Simple Menu Widget: label string is NULL or "
+ "label already exists, no label is being created.");
+ return;
+ }
+
+ XtSetArg(args[0], XtNlabel, smw->simple_menu.label_string);
+ XtSetArg(args[1], XtNjustify, XtJustifyCenter);
+ smw->simple_menu.label = (SmeObject)
+ XtCreateManagedWidget("menuLabel",
+ smw->simple_menu.label_class, w, args, TWO);
+
+ next_child = NULL;
+ for (child = smw->composite.children + smw->composite.num_children,
+ i = smw->composite.num_children; i > 0; i--, child--) {
+ if (next_child != NULL)
+ *next_child = *child;
+ next_child = child;
+ }
+ *child = (Widget)smw->simple_menu.label;
+}
+
+/*
+ * Function:
+ * Layout
+ *
+ * Arguments:
+ * w - See below
+ * width_ret - returned width
+ * height_ret - returned height
+ *
+ * Note:
+ * if width == NULL || height == NULL then it assumes the you do not care
+ * about the return values, and just want a relayout.
+ *
+ * if this is not the case then it will set width_ret and height_ret
+ * to be width and height that the child would get if it were layed out
+ * at this time.
+ *
+ * "w" can be the simple menu widget or any of its object children.
+ */
+static void
+Layout(Widget w, Dimension *width_ret, Dimension *height_ret)
+{
+ SmeObject current_entry;
+ SimpleMenuWidget smw;
+ Dimension width, height;
+ Boolean allow_change_size;
+ Widget kid;
+ Cardinal i, count, n;
+ int width_kid, height_kid, tmp_w, tmp_h;
+ short vadd, hadd, x_ins, y_ins;
+ Dimension *widths;
+
+ height = 0;
+
+ if (XtIsSubclass(w, simpleMenuWidgetClass)) {
+ smw = (SimpleMenuWidget)w;
+ current_entry = NULL;
+ }
+ else {
+ smw = (SimpleMenuWidget)XtParent(w);
+ current_entry = (SmeObject)w;
+ }
+
+ allow_change_size = (!XtIsRealized((Widget)smw)
+ || smw->shell.allow_shell_resize);
+
+ for (i = smw->simple_menu.label ? 1 : 0;
+ i < smw->composite.num_children;
+ i++) {
+ XtWidgetGeometry preferred;
+
+ kid = smw->composite.children[i];
+ if (!XtIsManaged(kid))
+ continue;
+ if (smw->simple_menu.row_height != 0)
+ XtHeight(kid) = smw->simple_menu.row_height;
+ XtQueryGeometry(kid, NULL, &preferred);
+ if (preferred.request_mode & CWWidth)
+ XtWidth(kid) = preferred.width;
+ }
+
+ if (smw->simple_menu.label
+ && XtIsManaged((Widget)smw->simple_menu.label)) {
+ XtWidgetGeometry preferred;
+
+ kid = (Widget)smw->simple_menu.label;
+ XtQueryGeometry(kid, NULL, &preferred);
+ if (preferred.request_mode & CWWidth)
+ XtWidth(kid) = preferred.width;
+ if (preferred.request_mode & CWHeight)
+ XtHeight(kid) = preferred.height;
+ }
+
+ /* reset */
+ if (!smw->simple_menu.menu_width)
+ XtWidth(smw) = 0;
+ if (!smw->simple_menu.menu_height)
+ XtHeight(smw) = 0;
+ if (!XtWidth(smw) || !XtHeight(smw))
+ MakeResizeRequest((Widget)smw);
+
+ widths = (Dimension *)XtMalloc(sizeof(Dimension));
+#ifndef OLDXAW
+ hadd = smw->simple_menu.left_margin;
+#else
+ hadd = 0;
+#endif
+ vadd = smw->simple_menu.top_margin;
+ if (smw->simple_menu.label)
+ vadd += XtHeight(smw->simple_menu.label);
+
+ count = 1;
+ width = tmp_w = tmp_h = n = 0;
+ height = vadd;
+
+ for (i = smw->simple_menu.label ? 1 : 0;
+ i < smw->composite.num_children;
+ i++) {
+ kid = smw->composite.children[i];
+ if (!XtIsManaged(kid))
+ continue;
+ width_kid = XtWidth(kid);
+ height_kid = XtHeight(kid);
+
+ if (n && (height + height_kid + smw->simple_menu.bottom_margin
+ > XtHeight(smw))) {
+ ++count;
+ widths = (Dimension *)XtRealloc((char *)widths,
+ sizeof(Dimension) * count);
+ widths[count - 1] = width_kid;
+ width += tmp_w;
+ tmp_w = width_kid;
+ height = height_kid + vadd;
+ }
+ else
+ height += height_kid;
+ if (height > tmp_h)
+ tmp_h = height;
+ if (width_kid > tmp_w)
+ widths[count - 1] = tmp_w = width_kid;
+ ++n;
+ }
+
+ height = tmp_h + smw->simple_menu.bottom_margin;
+ width += tmp_w;
+
+ if (smw->simple_menu.label && width < XtWidth(smw->simple_menu.label)) {
+ float inc;
+
+ inc = (XtWidth(smw->simple_menu.label) - width) / (float)count;
+ width = XtWidth(smw->simple_menu.label);
+ for (n = 0; n < count; n++)
+ widths[n] += inc;
+ }
+
+#ifndef OLDXAW
+ width += hadd + smw->simple_menu.right_margin;
+#endif
+
+ x_ins = n = count = 0;
+ tmp_w = widths[0];
+ tmp_h = vadd;
+
+ for (i = smw->simple_menu.label ? 1 : 0;
+ i < smw->composite.num_children;
+ i++) {
+ kid = smw->composite.children[i];
+ if (!XtIsManaged(kid))
+ continue;
+
+ height_kid = XtHeight(kid);
+
+ if (n && (tmp_h + height_kid + smw->simple_menu.bottom_margin
+ > XtHeight(smw))) {
+ x_ins = tmp_w;
+ y_ins = vadd;
+ ++count;
+ tmp_w += widths[count];
+ tmp_h = height_kid + vadd;
+ }
+ else {
+ y_ins = tmp_h;
+ tmp_h += height_kid;
+ }
+ ++n;
+
+ XtX(kid) = x_ins + hadd;
+ XtY(kid) = y_ins;
+ XtWidth(kid) = widths[count];
+ }
+
+ XtFree((char *)widths);
+
+ if (allow_change_size)
+ MakeSetValuesRequest((Widget) smw, width, height);
+
+ if (smw->simple_menu.label) {
+ XtX(smw->simple_menu.label) = 0;
+ XtY(smw->simple_menu.label) = smw->simple_menu.top_margin;
+ XtWidth(smw->simple_menu.label) = XtWidth(smw)
+#ifndef OLDXAW
+ - (smw->simple_menu.left_margin + smw->simple_menu.right_margin)
+#endif
+ ;
+ }
+ if (current_entry) {
+ if (width_ret)
+ *width_ret = XtWidth(current_entry);
+ if (height_ret)
+ *height_ret = XtHeight(current_entry);
+ }
+}
+
+/*
+ * Function:
+ * AddPositionAction
+ *
+ * Parameters:
+ * app_con - application context
+ * data - (not used)
+ *
+ * Description:
+ * Adds the XawPositionSimpleMenu action to the global
+ * action list for this appcon.
+ */
+/*ARGSUSED*/
+static void
+AddPositionAction(XtAppContext app_con, XPointer data)
+{
+ static XtActionsRec pos_action[] = {
+ {"XawPositionSimpleMenu", PositionMenuAction},
+ };
+
+ XtAppAddActions(app_con, pos_action, XtNumber(pos_action));
+}
+
+/*
+ * Function:
+ * FindMenu
+ *
+ * Parameters:
+ * widget - reference widget
+ * name - menu widget's name
+ *
+ * Description:
+ * Find the menu give a name and reference widget
+ *
+ * Returns:
+ * The menu widget or NULL.
+ */
+static Widget
+FindMenu(Widget widget, String name)
+{
+ Widget w, menu;
+
+ for (w = widget; w != NULL; w = XtParent(w))
+ if ((menu = XtNameToWidget(w, name)) != NULL)
+ return (menu);
+
+ return (NULL);
+}
+
+/*
+ * Function:
+ * PositionMenu
+ *
+ * Parameters:
+ * w - simple menu widget
+ * location - pointer the the position or NULL
+ *
+ * Description:
+ * Places the menu
+ */
+static void
+PositionMenu(Widget w, XPoint *location)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+ SmeObject entry;
+ XPoint t_point;
+
+ if (location == NULL) {
+ Window temp1, temp2;
+ int root_x, root_y, tempX, tempY;
+ unsigned int tempM;
+
+ location = &t_point;
+ if (XQueryPointer(XtDisplay(w), XtWindow(w), &temp1, &temp2,
+ &root_x, &root_y, &tempX, &tempY, &tempM) == False) {
+ XtAppWarning(XtWidgetToApplicationContext(w),
+ "Xaw Simple Menu Widget: "
+ "Could not find location of mouse pointer");
+ return;
+ }
+ location->x = (short) root_x;
+ location->y = (short) root_y;
+ }
+
+ /*
+ * The width will not be correct unless it is realized
+ */
+ XtRealizeWidget(w);
+
+ location->x -= XtWidth(w) >> 1;
+
+ if (smw->simple_menu.popup_entry == NULL)
+ entry = smw->simple_menu.label;
+ else
+ entry = smw->simple_menu.popup_entry;
+
+ if (entry != NULL)
+ location->y -= XtY(entry) + (XtHeight(entry) >> 1);
+
+ MoveMenu(w, location->x, location->y);
+}
+
+/*
+ * Function:
+ * MoveMenu
+ *
+ * Parameters:
+ * w - simple menu widget
+ * x - current location of the widget
+ * y - ""
+ *
+ * Description:
+ * Actually moves the menu, may force it to
+ * to be fully visable if menu_on_screen is True.
+ */
+static void
+MoveMenu(Widget w, int x, int y)
+{
+ Arg arglist[2];
+ Cardinal num_args = 0;
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+
+ if (smw->simple_menu.menu_on_screen) {
+ int width = XtWidth(w) + (XtBorderWidth(w) << 1);
+ int height = XtHeight(w) + (XtBorderWidth(w) << 1);
+
+ if (x >= 0) {
+ int scr_width = WidthOfScreen(XtScreen(w));
+
+ if (x + width > scr_width)
+ x = scr_width - width;
+ }
+ if (x < 0)
+ x = 0;
+
+ if (y >= 0) {
+ int scr_height = HeightOfScreen(XtScreen(w));
+
+ if (y + height > scr_height)
+ y = scr_height - height;
+ }
+ if (y < 0)
+ y = 0;
+ }
+
+ XtSetArg(arglist[num_args], XtNx, x); num_args++;
+ XtSetArg(arglist[num_args], XtNy, y); num_args++;
+ XtSetValues(w, arglist, num_args);
+}
+
+/*
+ * Function:
+ * ChangeCursorOnGrab
+ *
+ * Parameters:
+ * w - menu widget
+ * temp1 - not used
+ * temp2 - ""
+ *
+ * Description:
+ * Changes the cursor on the active grab to the one
+ * specified in out resource list.
+ */
+/*ARGSUSED*/
+static void
+ChangeCursorOnGrab(Widget w, XtPointer temp1, XtPointer temp2)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+
+ /*
+ * The event mask here is what is currently in the MIT implementation.
+ * There really needs to be a way to get the value of the mask out
+ * of the toolkit (CDP 5/26/89).
+ */
+ XChangeActivePointerGrab(XtDisplay(w), ButtonPressMask | ButtonReleaseMask,
+ smw->simple_menu.cursor,
+ XtLastTimestampProcessed(XtDisplay(w)));
+}
+
+/*
+ * Function:
+ * MakeSetValuesRequest
+ *
+ * Parameters:
+ * w - simple menu widget
+ * width - size requested
+ * height - ""
+ */
+static void
+MakeSetValuesRequest(Widget w, unsigned int width, unsigned int height)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+ Arg arglist[2];
+ Cardinal num_args = 0;
+
+ if (!smw->simple_menu.recursive_set_values) {
+ if (XtWidth(smw) != width || XtHeight(smw) != height) {
+ smw->simple_menu.recursive_set_values = True;
+ XtSetArg(arglist[num_args], XtNwidth, width); num_args++;
+ XtSetArg(arglist[num_args], XtNheight, height); num_args++;
+ XtSetValues(w, arglist, num_args);
+ }
+ else if (XtIsRealized((Widget)smw))
+ XawSimpleMenuRedisplay((Widget)smw, NULL, NULL);
+ }
+ smw->simple_menu.recursive_set_values = False;
+}
+
+static SmeObject
+DoGetEventEntry(Widget w, int x_loc, int y_loc)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+ SmeObject *entry;
+
+ ForAllChildren(smw, entry) {
+ if (!XtIsManaged((Widget)*entry))
+ continue;
+
+ if (x_loc > XtX(*entry)
+ && x_loc <= XtX(*entry) + XtWidth(*entry)
+ && y_loc > XtY(*entry)
+ && y_loc <= XtY(*entry) + XtHeight(*entry)) {
+ if (*entry == smw->simple_menu.label)
+ return (NULL); /* cannot select the label */
+ else
+ return (*entry);
+ }
+ }
+
+ return (NULL);
+}
+
+/*
+ * Function:
+ * GetEventEntry
+ *
+ * Parameters:
+ * w - simple menu widget
+ * event - X event
+ *
+ * Description:
+ * Gets an entry given an event that has X and Y coords.
+ *
+ * Returns:
+ * The entry that this point is in
+ */
+static SmeObject
+GetEventEntry(Widget w, XEvent *event)
+{
+ int x_loc, y_loc, x_root;
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+ SmeObject entry;
+ int warp, move;
+
+ switch (event->type) {
+ case MotionNotify:
+ x_loc = event->xmotion.x;
+ y_loc = event->xmotion.y;
+ x_root = event->xmotion.x_root;
+ break;
+ case EnterNotify:
+ case LeaveNotify:
+ x_loc = event->xcrossing.x;
+ y_loc = event->xcrossing.y;
+ x_root = event->xcrossing.x_root;
+ break;
+ case ButtonPress:
+ case ButtonRelease:
+ x_loc = event->xbutton.x;
+ y_loc = event->xbutton.y;
+ x_root = event->xbutton.x_root;
+ break;
+ default:
+ XtAppError(XtWidgetToApplicationContext(w),
+ "Unknown event type in GetEventEntry().");
+ return (NULL);
+ }
+
+ if (x_loc < 0 || x_loc >= XtWidth(smw) ||
+ y_loc < 0 || y_loc >= XtHeight(smw))
+ return (NULL);
+
+ /* Move the menu if it's outside the screen, does not check
+ * smw->simple_menu.menu_on_screen because menus is bigger than screen
+ */
+ if (x_root == WidthOfScreen(XtScreen(w)) - 1 &&
+ XtX(w) + XtWidth(w) + (XtBorderWidth(w)) > x_root) {
+ warp = -8;
+ if (smw->simple_menu.entry_set) {
+ entry = DoGetEventEntry(w,
+ XtX(smw->simple_menu.entry_set)
+ + XtWidth(smw->simple_menu.entry_set) + 1,
+ y_loc);
+ Unhighlight(w, event, NULL, NULL);
+ if (entry) {
+ warp = -(int)XtWidth(entry) >> 1;
+ move = x_loc - XtWidth(entry) - XtX(entry) + XtBorderWidth(w);
+ }
+ else {
+ warp = 0;
+ move = WidthOfScreen(XtScreen(w)) -
+ (XtX(w) + XtWidth(w) + (XtBorderWidth(w) << 1));
+ }
+ }
+ else {
+ warp = 0;
+ move = WidthOfScreen(XtScreen(w)) -
+ (XtX(w) + XtWidth(w) + (XtBorderWidth(w) << 1));
+ }
+ }
+ else if (x_root == 0 && XtX(w) < 0) {
+ warp = 8;
+ if (smw->simple_menu.entry_set) {
+ entry = DoGetEventEntry(w, XtX(smw->simple_menu.entry_set) - 1,
+ y_loc);
+ Unhighlight(w, event, NULL, NULL);
+ if (entry) {
+ warp = XtWidth(entry) >> 1;
+ move = x_loc - XtX(entry);
+ }
+ else
+ move = x_loc + XtBorderWidth(w);
+ }
+ else
+ move = x_loc + XtBorderWidth(w);
+ }
+ else
+ move = warp = 0;
+
+ if (move)
+ XtMoveWidget(w, XtX(w) + move, XtY(w));
+ if (warp)
+ XWarpPointer(XtDisplay(w), None, None, 0, 0, 0, 0, warp, 0);
+
+ return (DoGetEventEntry(w, x_loc, y_loc));
+}
+
+static void
+CalculateNewSize(Widget w, Dimension *width_return, Dimension *height_return)
+{
+ SimpleMenuWidget xaw = (SimpleMenuWidget)w;
+ Widget kid;
+ Cardinal i;
+ int width_kid, height_kid;
+ int width, height, tmp_w, tmp_h, max_dim;
+ short vadd, hadd;
+ int n, columns, test_h, num_children = 0;
+ Boolean try_layout = False;
+
+#ifndef OLDXAW
+ hadd = xaw->simple_menu.left_margin + xaw->simple_menu.right_margin;
+#else
+ hadd = 0;
+#endif
+ vadd = xaw->simple_menu.top_margin + xaw->simple_menu.bottom_margin;
+ if (xaw->simple_menu.label)
+ vadd += XtHeight(xaw->simple_menu.label);
+
+ if (*height_return)
+ max_dim = *height_return;
+ else if (!XtHeight(w)) {
+ max_dim = HeightOfScreen(XtScreen(w));
+ try_layout = True;
+ }
+ else
+ max_dim = XtHeight(w);
+ max_dim -= vadd;
+
+ width = height = tmp_w = tmp_h = n = test_h = 0;
+ columns = 1;
+ for (i = xaw->simple_menu.label ? 1 : 0;
+ i < xaw->composite.num_children;
+ i++) {
+ kid = xaw->composite.children[i];
+ if (!XtIsManaged(kid))
+ continue;
+ ++num_children;
+ width_kid = XtWidth(kid);
+ height_kid = XtHeight(kid);
+
+ if (try_layout) {
+ if (!test_h)
+ test_h = height_kid;
+ else if (test_h != height_kid)
+ try_layout = False;
+ }
+
+ if (n && (height + height_kid > max_dim)) {
+ ++columns;
+ width += tmp_w;
+ tmp_w = width_kid;
+ height = height_kid;
+ }
+ else
+ height += height_kid;
+ if (height > tmp_h)
+ tmp_h = height;
+ if (width_kid > tmp_w)
+ tmp_w = width_kid;
+ ++n;
+ }
+
+ height = tmp_h + vadd;
+ width += tmp_w + hadd;
+
+ if (xaw->simple_menu.label)
+ width = XawMax(width, XtWidth(xaw->simple_menu.label) + hadd);
+
+ *width_return = width;
+ *height_return = height;
+
+ if (try_layout && columns > 1 && num_children > 2) {
+ int space;
+
+ height = test_h * (xaw->simple_menu.label ?
+ num_children - 1 :
+ num_children);
+
+ max_dim -= max_dim % test_h;
+ space = max_dim - (height % max_dim);
+ if (space >= test_h * columns) {
+ height = max_dim - space / columns;
+ if (height % test_h)
+ height += test_h - (height % test_h);
+ *height_return = height + vadd;
+ CalculateNewSize(w, width_return, height_return);
+ }
+ }
+}
+
+static void
+MakeResizeRequest(Widget w)
+{
+ int tries;
+ Dimension width, height;
+
+ width = XtWidth(w);
+ height = XtHeight(w);
+
+ for (tries = 0; tries < 100; tries++) {
+ CalculateNewSize(w, &width, &height);
+ if (width == XtWidth(w) && height == XtHeight(w))
+ break;
+ if (XtMakeResizeRequest(w, width, height, &width, &height) ==
+ XtGeometryNo)
+ break;
+ }
+}
+
+#ifndef OLDXAW
+static void
+Popdown(Widget w, XEvent *event, String *params, Cardinal *num_params)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+
+ while (XtParent(w) &&
+ XtIsSubclass(XtParent(w), simpleMenuWidgetClass)) {
+ if (((SimpleMenuWidget)XtParent(w))->simple_menu.sub_menu == (Widget)w) {
+ w = XtParent(w);
+ smw = (SimpleMenuWidget)w;
+ smw->simple_menu.entry_set = NULL;
+ }
+ else
+ break;
+ }
+
+ smw->simple_menu.state |= SMW_UNMAPPING;
+ if (smw->simple_menu.sub_menu)
+ PopdownSubMenu(smw);
+ XtCallActionProc(w, "XtMenuPopdown", event, params, *num_params);
+}
+
+static void
+PopupSubMenu(SimpleMenuWidget smw)
+{
+ Arg args[2];
+ Cardinal num_args;
+ Widget menu;
+ SmeBSBObject entry = (SmeBSBObject)smw->simple_menu.entry_set;
+ Position menu_x, menu_y;
+ Bool popleft;
+
+ if (entry->sme_bsb.menu_name == NULL)
+ return;
+
+ if ((menu = FindMenu((Widget)smw, entry->sme_bsb.menu_name)) == NULL)
+ return;
+
+ smw->simple_menu.sub_menu = menu;
+
+ if (!XtIsRealized(menu))
+ XtRealizeWidget(menu);
+
+ popleft = (smw->simple_menu.state & SMW_POPLEFT) != 0;
+
+ if (popleft)
+ XtTranslateCoords((Widget)smw, -(int)XtWidth(menu),
+ XtY(entry) - XtBorderWidth(menu), &menu_x, &menu_y);
+ else
+ XtTranslateCoords((Widget)smw, XtWidth(smw), XtY(entry)
+ - XtBorderWidth(menu), &menu_x, &menu_y);
+
+ if (!popleft && menu_x >= 0) {
+ int scr_width = WidthOfScreen(XtScreen(menu));
+
+ if (menu_x + XtWidth(menu) > scr_width) {
+ menu_x -= XtWidth(menu) + XtWidth(smw);
+ popleft = True;
+ }
+ }
+ else if (popleft && menu_x < 0) {
+ menu_x = 0;
+ popleft = False;
+ }
+ if (menu_y >= 0) {
+ int scr_height = HeightOfScreen(XtScreen(menu));
+
+ if (menu_y + XtHeight(menu) > scr_height)
+ menu_y = scr_height - XtHeight(menu) - XtBorderWidth(menu);
+ }
+ if (menu_y < 0)
+ menu_y = 0;
+
+ num_args = 0;
+ XtSetArg(args[num_args], XtNx, menu_x); num_args++;
+ XtSetArg(args[num_args], XtNy, menu_y); num_args++;
+ XtSetValues(menu, args, num_args);
+
+ if (popleft)
+ ((SimpleMenuWidget)menu)->simple_menu.state |= SMW_POPLEFT;
+ else
+ ((SimpleMenuWidget)menu)->simple_menu.state &= ~SMW_POPLEFT;
+
+ XtPopup(menu, XtGrabNone);
+}
+
+static void
+PopdownSubMenu(SimpleMenuWidget smw)
+{
+ SimpleMenuWidget menu = (SimpleMenuWidget)smw->simple_menu.sub_menu;
+
+ if (!menu)
+ return;
+
+ menu->simple_menu.state |= SMW_UNMAPPING;
+ PopdownSubMenu(menu);
+
+ XtPopdown((Widget)menu);
+
+ smw->simple_menu.sub_menu = NULL;
+}
+
+/*ARGSUSED*/
+static void
+PopupCB(Widget w, XtPointer client_data, XtPointer call_data)
+{
+ SimpleMenuWidget smw = (SimpleMenuWidget)w;
+
+ smw->simple_menu.state &= ~(SMW_UNMAPPING | SMW_POPLEFT);
+}
+#endif /* OLDXAW */
|