/** * * $Id: CascadeBG.c,v 1.41 1997/08/25 23:34:26 miers Exp $ * * Copyright (C) 1995 Free Software Foundation, Inc. * * This file is part of the GNU LessTif Library. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Library General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Library General Public License for more details. * * You should have received a copy of the GNU Library General Public * License along with this library; if not, write to the Free * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * **/ static char rcsid[] = "$Id: CascadeBG.c,v 1.41 1997/08/25 23:34:26 miers Exp $"; #include #include #include #include #include /* For XmCascadeButtonHighlight */ #include #include #include #include #include #include #include #include #include #define DO_SANITY /* Forward Declarations */ static void class_initialize(); static void class_part_initialize(WidgetClass w_class); static void initialize(Widget request, Widget new_w, ArgList args, Cardinal *num_args); static void resize(Widget w); static void destroy(Widget w); static void expose(Widget w, XEvent *event, Region region); static XtGeometryResult query_geometry(Widget w, XtWidgetGeometry *proposed, XtWidgetGeometry *answer); static Boolean set_values(Widget current, Widget request, Widget new_w, ArgList args, Cardinal *num_args); static void get_values_hook(Widget w, ArgList args, Cardinal *num_args); static void input_dispatch(Widget gadget, XEvent *event, Mask event_mask); static void secondary_object_create(Widget request, Widget new_w, ArgList args, Cardinal *num_args); static void initialize_prehook(Widget request, Widget new_w, ArgList args, Cardinal *num_args); static void initialize_posthook(Widget request, Widget new_w, ArgList args, Cardinal *num_args); static Boolean set_values_prehook(Widget old, Widget request, Widget new_w, ArgList args, Cardinal *num_args); static Boolean set_values_posthook(Widget old, Widget request, Widget new_w, ArgList args, Cardinal *num_args); static void get_values_prehook(Widget new_w, ArgList args, Cardinal *num_args); static void get_values_posthook(Widget new_w, ArgList args, Cardinal *num_args); static Cardinal get_sec_res_data(WidgetClass wc, XmSecondaryResourceData **data); extern int _XmCascadeBCacheCompare(XtPointer A, XtPointer B); static void _XmCBGCalcDimensions(Widget w); static void DelayedArm(Widget w, XEvent *event, String *params, Cardinal *num_params); static void CheckDisarm(Widget w, XEvent *event, String *params, Cardinal *num_params); /* * cache resources */ #define Offset(field) XtOffsetOf(XmCascadeButtonGCacheObjRec, \ cascade_button_cache.field) static XtResource cache_resources[] = { { XmNcascadePixmap, XmCPixmap, XmRGadgetPixmap, sizeof(Pixmap), Offset(cascade_pixmap), XmRImmediate, (XtPointer)XmUNSPECIFIED_PIXMAP }, { XmNmappingDelay, XmCMappingDelay, XmRInt, sizeof(int), Offset(map_delay), XmRImmediate, (XtPointer)180 } }; /* *INDENT-OFF* */ XmCascadeButtonGCacheObjClassRec xmCascadeButtonGCacheObjClassRec = { /* Object class part */ { /* superclass */ (WidgetClass) &xmLabelGCacheObjClassRec, /* class_name */ "XmCascadeButtonGCacheObjClass", /* widget_size */ sizeof(XmCascadeButtonGCacheObjRec), /* class_initialize */ NULL, /* class_part_initialize */ NULL, /* class_inited */ False, /* initialize */ NULL, /* initialize_hook */ NULL, /* realize */ NULL, /* actions */ NULL, /* num_actions */ 0, /* resources */ cache_resources, /* num_resources */ XtNumber(cache_resources), /* xrm_class */ NULLQUARK, /* compress_motion */ 0, /* compress_exposure */ 0, /* compress_enterleave */ 0, /* visible_interest */ 0, /* destroy */ NULL, /* resize */ NULL, /* expose */ NULL, /* set_values */ NULL, /* set_values_hook */ NULL, /* set_values_almost */ NULL, /* get_values_hook */ NULL, /* accept_focus */ NULL, /* version */ XtVersion, /* callback offsets */ NULL, /* tm_table */ NULL, /* query_geometry */ NULL, /* display_accelerator */ NULL, /* extension */ NULL }, /* XmExtObject part */ { /* syn_resources */ NULL, /* num_syn_resources */ 0, /* extension */ NULL }, /* LabelGCacheObj part */ { /* foo */ 0 }, /* CascadeButtonGCacheObj part */ { /* foo */ 0 } }; /* * Resources for the cascadebutton class */ #undef Offset #define Offset(field) XtOffsetOf(XmCascadeButtonGadgetRec, cascade_button.field) #define GOffset(field) XtOffsetOf(XmCascadeButtonGadgetRec, gadget.field) static XtResource resources[] = { { XmNactivateCallback, XmCCallback, XmRCallback, sizeof(XtCallbackList), Offset(activate_callback), XmRCallback, (XtPointer)NULL }, { XmNcascadingCallback, XmCCallback, XmRCallback, sizeof(XtCallbackList), Offset(cascade_callback), XmRCallback, (XtPointer)NULL }, { XmNsubMenuId, XmCMenuWidget, XmRMenuWidget, sizeof(Widget), Offset(submenu), XmRMenuWidget, (XtPointer)NULL }, /* resources we override from XmGadget */ { XmNshadowThickness, XmCShadowThickness, XmRHorizontalDimension, sizeof(Dimension), GOffset(shadow_thickness), XmRImmediate, (XtPointer)2 }, { XmNtraversalOn, XmCTraversalOn, XmRBoolean, sizeof(Boolean), GOffset(traversal_on), XmRImmediate, (XtPointer)True }, { XmNhighlightThickness, XmCHighlightThickness, XmRHorizontalDimension, sizeof(Dimension), GOffset(highlight_thickness), XmRImmediate, (XtPointer)2 }, }; static XmBaseClassExtRec _XmCascadeBGRectClassExtRec = { /* next_extension */ NULL, /* record_type */ NULLQUARK, /* version */ XmBaseClassExtVersion, /* size */ sizeof(XmBaseClassExtRec), /* initialize_prehook */ initialize_prehook, /* set_values_prehook */ set_values_prehook, /* initialize_posthook */ initialize_posthook, /* set_values_posthook */ set_values_posthook, /* secondary_object_class */ (WidgetClass)&xmCascadeButtonGCacheObjClassRec, /* secondary_object_create */ secondary_object_create, /* get_secondary_resources */ get_sec_res_data, /* fast_subclass */ { 0 }, /* get_values_prehook */ get_values_prehook, /* get_values_posthook */ get_values_posthook, /* class_part_init_prehook */ NULL, /* class_part_init_posthook */ NULL, /* ext_resources */ NULL, /* compiled_ext_resources */ NULL, /* num_ext_resources */ 0, /* use_sub_resources */ False, /* widget_navigable */ 0,/********XmInheritWidgetNavigable,*/ /* focus_change */ 0,/*********XmInheritFocusChange,*/ /* wrapper_data */ NULL }; static XmCacheClassPart cache_part = { /* cache head part */ { /* next */ NULL, /* prev */ NULL, /* ref_count */ 0 }, _XmCacheCopy, _XmCacheDelete, _XmCascadeBCacheCompare }; static XmGadgetClassExtRec _XmCascadeBGGadgetClassExtRec = { /* next_extension */ NULL, /* record_type */ NULLQUARK, /* version */ XmGadgetClassExtVersion, /* size */ sizeof(XmGadgetClassExtRec), /* widget_baseline_proc */ 0,/**********XmInheritBaselineProc,*/ /* display_rect_proc */ 0,/*********XmInheritDisplayRectProc,*/ }; XmCascadeButtonGadgetClassRec xmCascadeButtonGadgetClassRec = { /* RectObj class part */ { /* superclass */ (WidgetClass) &xmLabelGadgetClassRec, /* class_name */ "XmCascadeButtonGadget", /* widget_size */ sizeof(XmCascadeButtonGadgetRec), /* class_initialize */ class_initialize, /* class_part_initialize */ class_part_initialize, /* class_inited */ False, /* initialize */ initialize, /* initialize_hook */ NULL, /* realize */ NULL, /* actions */ NULL, /* num_actions */ 0, /* resources */ resources, /* num_resources */ XtNumber(resources), /* xrm_class */ NULLQUARK, /* compress_motion */ False, /* compress_exposure */ XtExposeCompressMaximal, /* compress_enterleave */ False, /* visible_interest */ False, /* destroy */ destroy, /* resize */ resize, /* expose */ expose, /* set_values */ set_values, /* set_values_hook */ NULL, /* set_values_almost */ 0,/************XtInheritSetValuesAlmost,*/ /* get_values_hook */ get_values_hook, /* accept_focus */ NULL, /* version */ XtVersion, /* callback offsets */ NULL, /* tm_table */ NULL, /* query_geometry */ query_geometry, /* display_accelerator */ NULL, /* extension */ (XtPointer)&_XmCascadeBGRectClassExtRec }, /* XmGadget part */ { /* border_highlight */ 0,/************XmInheritBorderHighlight,*/ /* border_unhighlight */ 0,/**********XmInheritBorderUnhighlight,*/ /* FIX ME */ /* arm_and_activate */ NULL, /* FIX ME */ /* input_dispatch */ input_dispatch, /* visual_change */ NULL, /* FIX ME */ /* syn_resources */ NULL, /* num_syn_resources */ 0, /* cache_part */ &cache_part, /* extension */ (XtPointer)&_XmCascadeBGGadgetClassExtRec }, /* XmLabelGadget part */ { /* setOverrideCallback */ NULL, /* FIX ME */ /* menuProcs */ NULL, /* FIX ME */ /* extension */ NULL }, /* XmCascadeButtonGadget part */ { /* extension */ NULL }, }; /* *INDENT-ON* */ int AMIWIN_CascadeBG(void) { _XmCascadeBGGadgetClassExtRec.widget_baseline=XmInheritBaselineProc; _XmCascadeBGGadgetClassExtRec.widget_display_rect=XmInheritDisplayRectProc; _XmCascadeBGRectClassExtRec.widgetNavigable=XmInheritWidgetNavigable; _XmCascadeBGRectClassExtRec.focusChange=XmInheritFocusChange; xmCascadeButtonGadgetClassRec.set_values_almost=XtInheritSetValuesAlmost; xmCascadeButtonGadgetClassRec.border_highlight=XmInheritBorderHighlight; xmCascadeButtonGadgetClassRec.border_unhighlight=XmInheritBorderUnhighlight; return(0); } WidgetClass xmCascadeButtonGadgetClass = (WidgetClass)&xmCascadeButtonGadgetClassRec; /********************************* CACHE PART *******************************/ static void secondary_object_create(Widget request, Widget new_w, ArgList args, Cardinal *num_args) { XmBaseClassExt *bce; XtPointer nsec, rsec; XmWidgetExtData ed; int size; DEBUGOUT(XdbDebug(__FILE__, new_w, "CascadeButtonGCacheRec %s being initialized.\n", XtName(new_w))); bce = _XmGetBaseClassExtPtr(XtClass(new_w), XmQmotif); size = (*bce)->secondaryObjectClass->core_class.widget_size; nsec = _XmExtObjAlloc(size); rsec = _XmExtObjAlloc(size); ((XmExtRec *)nsec)->object.self = (Widget)nsec; ((XmExtRec *)nsec)->object.widget_class = (*bce)->secondaryObjectClass; ((XmExtRec *)nsec)->object.parent = XtParent(new_w); ((XmExtRec *)nsec)->object.xrm_name = new_w->core.xrm_name; ((XmExtRec *)nsec)->object.being_destroyed = False; ((XmExtRec *)nsec)->object.destroy_callbacks = NULL; ((XmExtRec *)nsec)->object.constraints = NULL; ExtObj_LogicalParent(nsec) = new_w; ExtObj_ExtensionType(nsec) = XmCACHE_EXTENSION; XtGetSubresources(new_w, nsec, NULL, NULL, (*bce)->secondaryObjectClass->core_class.resources, (*bce)->secondaryObjectClass->core_class.num_resources, args, *num_args); ed = (XmWidgetExtData)XtMalloc(sizeof(XmWidgetExtDataRec)); ed->widget = (Widget)nsec; ed->reqWidget = (Widget)rsec; bcopy(nsec, rsec, size); ((XmExtRec *)rsec)->object.self = (Widget)rsec; _XmPushWidgetExtData(new_w, ed, XmCACHE_EXTENSION); LabG_Cache(new_w) = &(((XmLabelGCacheObject)nsec)->label_cache); LabG_Cache(request) = &(((XmLabelGCacheObject)rsec)->label_cache); CBG_Cache(new_w) = &(((XmCascadeButtonGCacheObject)nsec)->cascade_button_cache); CBG_Cache(request) = &(((XmCascadeButtonGCacheObject)rsec)->cascade_button_cache); } int _XmCascadeBCacheCompare(XtPointer A, XtPointer B) { return !bcmp(((XmCascadeButtonGCacheObjPart *)A), ((XmCascadeButtonGCacheObjPart *)B), sizeof(XmCascadeButtonGCacheObjPart)); } int _XmArrowPixmapCacheCompare(XtPointer A, XtPointer B) { return 0; } void _XmArrowPixmapCacheDelete(XtPointer data) { } /* * Assumes that the existing pixmaps are freed. * * Note : added pixmaps for Option Menu; you can hardly call these arrows. * Danny 26/2/97. */ void _XmCreateArrowPixmaps(Widget w) { Pixmap apm, pm; GC bgc, tgc, fgc; Display *dpy; int depth; Dimension ww, hh, st; Screen *scr; Window win; Pixel tsc, bsc; XGCValues values; XtGCMask mask, dynamic, dontcare; int arrow; int mt; tsc = XmParentTopShadowColor(w); /* top shadow color */ bsc = XmParentBottomShadowColor(w); /* bottom shadow color */ values.foreground = bsc; values.background = XmParentBackground(w); mask = GCForeground | GCBackground; dynamic = GCClipMask | GCClipXOrigin | GCClipYOrigin; dontcare = ~(mask | dynamic); bgc = XtAllocateGC(w, 0, mask, &values, dynamic, dontcare); values.foreground = tsc; values.background = XmParentBackground(w); mask = GCForeground | GCBackground; dynamic = GCClipMask | GCClipXOrigin | GCClipYOrigin; dontcare = ~(mask | dynamic); tgc = XtAllocateGC(w, 0, mask, &values, dynamic, dontcare); values.foreground = values.background = XmParentBackground(w); mask = GCForeground | GCBackground; dynamic = GCForeground | GCClipMask | GCClipXOrigin | GCClipYOrigin; dontcare = ~(mask | dynamic); fgc = XtAllocateGC(w, 0, mask, &values, dynamic, dontcare); dpy = XtDisplay(w); scr = XtScreen(w); depth = DefaultDepthOfScreen(scr); if (XmIsGadget(w)) { ww = 2 * LabG_TextRect_height(w) / 3; hh = LabG_TextRect_height(w) & ~1; CBG_Cascade_width(w) = LabG_TextRect_height(w) /* rws & ~1 */; CBG_Cascade_height(w) = LabG_TextRect_height(w) & ~1; } else { ww = 2 * Lab_TextRect_height(w) / 3; hh = Lab_TextRect_height(w) & ~1; CB_Cascade_width(w) = Lab_TextRect_height(w) & ~1; CB_Cascade_height(w) = Lab_TextRect_height(w) & ~1; } st = 2; win = RootWindowOfScreen(scr); mt = XmIsGadget(w) ? LabG_MenuType(w) : Lab_MenuType(w); arrow = (mt != XmMENU_OPTION); /* Create pixmaps, fill them up with _XmDrawArrow/Shadows */ if (hh == 0) { hh = 1; } pm = XCreatePixmap(dpy, win, hh, hh, depth); apm = XCreatePixmap(dpy, win, hh, hh, depth); XFillRectangle(dpy, pm, fgc, 0, 0, hh, hh); XFillRectangle(dpy, apm, fgc, 0, 0, hh, hh); DEBUGOUT(XdbDebug(__FILE__, w, "_XmCreateArrowPixmaps(%s) => %s\n", XdbMenuType2String(mt), arrow ? "arrows" : "rectangles")); if (arrow) { /* Arrows */ _XmDrawArrow(dpy, pm, bgc, tgc, fgc, 0, 0, ww, hh, st, XmARROW_RIGHT); _XmDrawArrow(dpy, apm, tgc, bgc, fgc, 0, 0, ww, hh, st, XmARROW_RIGHT); } else { /* Rectangles */ _XmDrawShadows(dpy, pm, tgc, bgc, 0, (hh - ww + 1) / 2, hh - st, ww - st, st, XmSHADOW_OUT); _XmDrawShadows(dpy, apm, bgc, tgc, 0, (hh - ww + 1) / 2, hh - st, ww - st, st, XmSHADOW_OUT); } /* Copy them into the widget/gadget */ if (XmIsGadget(w)) { CBG_ArmedPixmap(w) = apm; CBG_CascadePixmap(w) = pm; } else { CB_ArmedPixmap(w) = apm; CB_CascadePixmap(w) = pm; } /* Caching ?? */ XtReleaseGC(w, bgc); XtReleaseGC(w, fgc); XtReleaseGC(w, tgc); } /******************************** GADGET PART *******************************/ static void class_initialize() { XtResourceList combined, labels; int ncom; Cardinal nlabels; /* don't let the nulls fool you. look at the header file -- the arg * isn't used. */ ClassCacheHead(CBG_ClassCachePart(NULL)).prev = &ClassCacheHead(CBG_ClassCachePart(NULL)); ClassCacheHead(CBG_ClassCachePart(NULL)).next = &ClassCacheHead(CBG_ClassCachePart(NULL)); _XmCascadeBGRectClassExtRec.record_type = XmQmotif; /* * Label subclasses (ToggleBG, PushBG, CascadeBG) have a problem. Since * we do all the subpart manipulation in the pre- and post- hooks, and * since those hooks aren't chained, we have to either make multiple * calls to XtGetSubresources/Xt[Get|Set]Subvalues, or merge the resource * lists. Since I just wrote _XmTransformSubresources, seems like a * waste not to use it. */ ncom = XtNumber(cache_resources) + xmLabelGCacheObjClassRec.object_class.num_resources; _XmTransformSubResources(xmLabelGCacheObjClassRec.object_class.resources, xmLabelGCacheObjClassRec.object_class.num_resources, &labels, &nlabels); combined = (XtResourceList)XtMalloc(sizeof(XtResource) * ncom); bcopy(labels, combined, nlabels * sizeof(XtResource)); bcopy(cache_resources, &combined[nlabels], XtNumber(cache_resources) * sizeof(XtResource)); XtFree((char *)labels); xmCascadeButtonGCacheObjClassRec.object_class.resources = combined; xmCascadeButtonGCacheObjClassRec.object_class.num_resources = ncom; } static void class_part_initialize(WidgetClass widget_class) { _XmFastSubclassInit(widget_class, XmCASCADE_BUTTON_GADGET_BIT); } static void initialize_prehook(Widget request, Widget new_w, ArgList args, Cardinal *num_args) { DEBUGOUT(XdbDebug(__FILE__, new_w, "CascadeBG InitializePrehook\n")); } static void initialize_posthook(Widget request, Widget new_w, ArgList args, Cardinal *num_args) { XmWidgetExtData ext; DEBUGOUT(XdbDebug(__FILE__, new_w, "CascadeBG InitializePosthook\n")); /* don't let the null fool you */ LabG_Cache(new_w) = (XmLabelGCacheObjPart *) _XmCachePart(LabG_ClassCachePart(NULL), (XtPointer)LabG_Cache(new_w), sizeof(XmLabelGCacheObjPart)); CBG_Cache(new_w) = (XmCascadeButtonGCacheObjPart *) _XmCachePart(CBG_ClassCachePart(NULL), (XtPointer)CBG_Cache(new_w), sizeof(XmCascadeButtonGCacheObjPart)); _XmPopWidgetExtData(new_w, &ext, XmCACHE_EXTENSION); _XmExtObjFree((XtPointer)ext->widget); _XmExtObjFree((XtPointer)ext->reqWidget); XtFree((char *)ext); } static void initialize(Widget request, Widget new_w, ArgList args, Cardinal *num_args) { if (!XmIsManager(XtParent(new_w))) { _XmError(new_w, "parent should be manager."); } CBG_Cascade_x(new_w) = 0; CBG_Cascade_y(new_w) = 0; CBG_Cascade_width(new_w) = 0; CBG_Cascade_height(new_w) = 0; CBG_SetArmed(new_w, False); if (LabG_MenuType(new_w) == XmMENU_BAR || LabG_MenuType(new_w) == XmMENU_POPUP || LabG_MenuType(new_w) == XmMENU_PULLDOWN) { LabG_Highlight(new_w) = 0; } else if (LabG_MenuType(new_w) != XmMENU_OPTION) { _XmError(new_w, "Cascade gadget parent is incorrect type."); } if (LabG_MenuType(new_w) == XmMENU_BAR) { LabG_MarginWidth(new_w) = G_ShadowThickness(new_w) + Xm3D_ENHANCE_PIXEL * 2; } else { LabG_MarginWidth(new_w) = G_ShadowThickness(new_w); } if (LabG_MenuType(new_w) == XmMENU_OPTION) { #if 0 /* rws */LabG_MarginLeft(new_w) = G_HighlightThickness(new_w); #endif /* rws */LabG_MarginWidth(new_w) = G_ShadowThickness(new_w); LabG_MarginHeight(new_w) = G_ShadowThickness(new_w); LabG_MarginTop(new_w) = G_HighlightThickness(new_w); LabG_MarginBottom(new_w) = G_HighlightThickness(new_w); } if (LabG_MenuType(new_w) == XmMENU_POPUP || LabG_MenuType(new_w) == XmMENU_PULLDOWN || LabG_MenuType(new_w) == XmMENU_OPTION) /* rws 23 Mar 1997 */ { _XmCreateArrowPixmaps(new_w); _XmCBGCalcDimensions(new_w); } CBG_Timer(new_w) = 0; if (CBG_Submenu(new_w)) { /* Make sure the RC also knows how to locate us */ if (LabG_MenuType(new_w) == XmMENU_OPTION && CBG_Submenu(new_w) != NULL && XmIsRowColumn(CBG_Submenu(new_w))) { RC_CascadeBtn(CBG_Submenu(new_w)) = new_w; _XmFixOptionMenu(XtParent(new_w), False); } } G_EventMask(new_w) = XmARM_EVENT | XmACTIVATE_EVENT | XmENTER_EVENT | XmLEAVE_EVENT | XmFOCUS_IN_EVENT | XmFOCUS_OUT_EVENT | XmHELP_EVENT | XmBDRAG_EVENT; G_TraversalOn(new_w) = True; /* Danny 18/5/1996 - FIX ME (not sure) */ } static void _XmCBGCalcDimensions(Widget w) { Dimension cw, ch, width, height; if (RC_Type(XtParent(w)) == XmMENU_OPTION || RC_Type(XtParent(w)) == XmMENU_PULLDOWN || RC_Type(XtParent(w)) == XmMENU_POPUP) { /* Cascade_width is computed in CreateArrowPixmaps */ LabG_MarginRight(w) = CBG_Cascade_width(w) + 4 * LabG_MarginWidth(w); } XtWidth(w) = XtHeight(w) = 0; if (LabG_IsText(w)) { if (_XmStringIsXmString((XmString)LabG_Label(w))) { DEBUGOUT(XdbDebug(__FILE__, w, "_XmCBGCalcDimensions: convert LabG_Label to _XmString\n")); LabG_Label(w) = _XmStringCreate((XmString)LabG_Label(w)); } _XmStringExtent(LabG_Font(w), LabG_Label(w), &cw, &ch); /* rws 16 Aug 1997 Do not let a cascade button be shorter than the height of one character. This is to make sure that the pixmap can be drawn correctly. This shows in Mosaic with option buttons in a form. */ { XmString string; string = XmStringCreateSimple("M"); if (ch < XmStringHeight(LabG_Font(w), string)) ch = XmStringHeight(LabG_Font(w), string); XmStringFree(string); } } /* pixmap */ else { _XmLabelGetPixmapSize(w, LabG_Pixmap(w), &cw, &ch); } if (RC_Type(XtParent(w)) == XmMENU_OPTION && CBG_Submenu(w) && XtWidth(CBG_Submenu(w)) > cw) { cw = XtWidth(CBG_Submenu(w)); /* rws */cw -= 2 * LabG_MarginWidth(w); /* rws */cw -= 2 * LabG_MarginWidth(w); LabG_TextRect_width(w) = cw; } #if 0 /* rws 9 Aug 1997 This seems to be needed to make form/test4 correct but screws up rowcolumn/test28 */ ch -= 2 * LabG_MarginHeight(w); #endif width = (LabG_Highlight(w) + LabG_Shadow(w) + LabG_MarginLeft(w) + LabG_MarginWidth(w) + cw + LabG_MarginWidth(w) + LabG_MarginRight(w) + LabG_Shadow(w) + LabG_Highlight(w)); height = (LabG_Highlight(w) + LabG_Shadow(w) + LabG_MarginTop(w) + LabG_MarginHeight(w) + ch + LabG_MarginHeight(w) + LabG_MarginBottom(w) + LabG_Shadow(w) + LabG_Highlight(w)); XtWidth(w) = width; XtHeight(w) = height; CBG_Cascade_x(w) = XtWidth(w) - CBG_Cascade_width(w) - 2 * G_ShadowThickness(w) - G_HighlightThickness(w); CBG_Cascade_y(w) = LabG_TextRect_y(w); } static void resize(Widget w) { #define superclass (&xmLabelGadgetClassRec) (*superclass->rect_class.resize) (w); #undef superclass CBG_Cascade_x(w) = XtWidth(w) - CBG_Cascade_width(w) - 2 * G_ShadowThickness(w) - G_HighlightThickness(w); CBG_Cascade_y(w) = LabG_TextRect_y(w); } static void destroy(Widget w) { _XmCacheDelete((XtPointer)CBG_Cache(w)); } static Boolean set_values_prehook(Widget old, Widget request, Widget new_w, ArgList args, Cardinal *num_args) { XmBaseClassExt *bce; XmWidgetExtData ed; int size; XtPointer nsec, rsec; bce = _XmGetBaseClassExtPtr(XtClass(new_w), XmQmotif); size = (*bce)->secondaryObjectClass->core_class.widget_size; nsec = _XmExtObjAlloc(size); rsec = _XmExtObjAlloc(size); ((XmExtRec *)nsec)->object.self = (Widget)nsec; ((XmExtRec *)nsec)->object.widget_class = (*bce)->secondaryObjectClass; ((XmExtRec *)nsec)->object.parent = XtParent(new_w); ((XmExtRec *)nsec)->object.xrm_name = new_w->core.xrm_name; ((XmExtRec *)nsec)->object.being_destroyed = False; ((XmExtRec *)nsec)->object.destroy_callbacks = NULL; ((XmExtRec *)nsec)->object.constraints = NULL; ExtObj_LogicalParent(nsec) = new_w; ExtObj_ExtensionType(nsec) = XmCACHE_EXTENSION; bcopy(LabG_Cache(new_w), &((XmLabelGCacheObject)nsec)->label_cache, sizeof(XmLabelGCacheObjPart)); bcopy(CBG_Cache(new_w), &((XmCascadeButtonGCacheObject)nsec)->cascade_button_cache, sizeof(XmCascadeButtonGCacheObjPart)); ed = (XmWidgetExtData)XtMalloc(sizeof(XmWidgetExtDataRec)); ed->widget = (Widget)nsec; ed->reqWidget = (Widget)rsec; _XmPushWidgetExtData(new_w, ed, XmCACHE_EXTENSION); _XmGadgetImportSecondaryArgs(new_w, args, num_args); XtSetSubvalues((XtPointer)nsec, (*bce)->secondaryObjectClass->core_class.resources, (*bce)->secondaryObjectClass->core_class.num_resources, args, *num_args); bcopy(nsec, rsec, size); LabG_Cache(new_w) = &(((XmCascadeButtonGCacheObject)nsec)->label_cache); LabG_Cache(request) = &(((XmCascadeButtonGCacheObject)rsec)->label_cache); CBG_Cache(new_w) = &(((XmCascadeButtonGCacheObject)nsec)->cascade_button_cache); CBG_Cache(request) = &(((XmCascadeButtonGCacheObject)rsec)->cascade_button_cache); _XmExtImportArgs((Widget)nsec, args, num_args); return False; } static Boolean set_values_posthook(Widget old, Widget request, Widget new_w, ArgList args, Cardinal *num_args) { XmWidgetExtData ext; if (!_XmLabelCacheCompare((XtPointer)LabG_Cache(new_w), (XtPointer)LabG_Cache(old))) { _XmCacheDelete((XtPointer)LabG_Cache(old)); LabG_Cache(new_w) = (XmLabelGCacheObjPart *) _XmCachePart(LabG_ClassCachePart(NULL), (XtPointer)LabG_Cache(new_w), sizeof(XmLabelGCacheObjPart)); } else { LabG_Cache(new_w) = LabG_Cache(old); } if (!_XmCascadeBCacheCompare((XtPointer)CBG_Cache(new_w), (XtPointer)CBG_Cache(old))) { _XmCacheDelete((XtPointer)CBG_Cache(old)); CBG_Cache(new_w) = (XmCascadeButtonGCacheObjPart *) _XmCachePart(CBG_ClassCachePart(NULL), (XtPointer)CBG_Cache(new_w), sizeof(XmCascadeButtonGCacheObjPart)); } else { CBG_Cache(new_w) = CBG_Cache(old); } _XmPopWidgetExtData(new_w, &ext, XmCACHE_EXTENSION); _XmExtObjFree((XtPointer)ext->widget); _XmExtObjFree((XtPointer)ext->reqWidget); XtFree((char *)ext); return False; } static Boolean set_values(Widget old, Widget request, Widget new_w, ArgList args, Cardinal *num_args) { Boolean refresh_needed = False; DEBUGOUT(XdbDebug(__FILE__, new_w, "set_values()\n")); if (CBG_CascadePixmap(old) != CBG_CascadePixmap(new_w)) { _XmFreeScratchPixmap((XmScreen)XmGetXmScreen(XtScreenOfObject(old)), CBG_CascadePixmap(old)); _XmFreeScratchPixmap((XmScreen)XmGetXmScreen(XtScreenOfObject(old)), CBG_ArmedPixmap(old)); _XmCreateArrowPixmaps(new_w); _XmCBGCalcDimensions(new_w); refresh_needed = True; } if (LabG_Label(new_w) != LabG_Label(old)) { _XmCBGCalcDimensions(new_w); refresh_needed = True; } if (CBG_Submenu(old) != CBG_Submenu(new_w)) { /* Make sure the RC also knows how to locate us */ if (LabG_MenuType(new_w) == XmMENU_OPTION && CBG_Submenu(new_w) != NULL && XmIsRowColumn(CBG_Submenu(new_w))) { RC_CascadeBtn(CBG_Submenu(new_w)) = new_w; _XmFixOptionMenu(XtParent(new_w), False); } } return refresh_needed; } static void get_values_prehook(Widget new_w, ArgList args, Cardinal *num_args) { XmBaseClassExt *bce; XmWidgetExtData ed; int size; XtPointer nsec; bce = _XmGetBaseClassExtPtr(XtClass(new_w), XmQmotif); size = (*bce)->secondaryObjectClass->core_class.widget_size; nsec = _XmExtObjAlloc(size); bcopy(LabG_Cache(new_w), &((XmLabelGCacheObject)nsec)->label_cache, sizeof(XmLabelGCacheObjPart)); bcopy(CBG_Cache(new_w), &((XmCascadeButtonGCacheObject)nsec)->cascade_button_cache, sizeof(XmCascadeButtonGCacheObjPart)); /* * don't do this and ResInd will blow up. */ ((XmExtRec *)nsec)->object.self = (Widget)nsec; ((XmExtRec *)nsec)->object.widget_class = (*bce)->secondaryObjectClass; ((XmExtRec *)nsec)->object.parent = XtParent(new_w); ((XmExtRec *)nsec)->object.xrm_name = new_w->core.xrm_name; ((XmExtRec *)nsec)->object.being_destroyed = False; ((XmExtRec *)nsec)->object.destroy_callbacks = NULL; ((XmExtRec *)nsec)->object.constraints = NULL; ExtObj_LogicalParent(nsec) = new_w; ExtObj_ExtensionType(nsec) = XmCACHE_EXTENSION; ed = (XmWidgetExtData)XtMalloc(sizeof(XmWidgetExtDataRec)); ed->widget = (Widget)nsec; _XmPushWidgetExtData(new_w, ed, XmCACHE_EXTENSION); XtGetSubvalues((XtPointer)nsec, (*bce)->secondaryObjectClass->core_class.resources, (*bce)->secondaryObjectClass->core_class.num_resources, args, *num_args); _XmExtGetValuesHook((Widget)nsec, args, num_args); } static void get_values_posthook(Widget new_w, ArgList args, Cardinal *num_args) { XmWidgetExtData ext; _XmPopWidgetExtData(new_w, &ext, XmCACHE_EXTENSION); _XmExtObjFree((XtPointer)ext->widget); XtFree((char *)ext); } static void get_values_hook(Widget w, ArgList args, Cardinal *num_args) { DEBUGOUT(XdbDebug(__FILE__, w, "get_values_hook()\n")); } static void expose(Widget w, XEvent *event, Region region) { #define superclass (&xmLabelGadgetClassRec) (*superclass->rect_class.expose) (w, event, region); #undef superclass DEBUGOUT(XdbDebug(__FILE__, w, "expose() Armed(%d) type %s\n", CBG_IsArmed(w), XdbMenuType2String(LabG_MenuType(w)))); resize(w); if (CBG_IsArmed(w) || LabG_MenuType(w) == XmMENU_OPTION) { XmCascadeButtonGadgetHighlight(w, True); } else { XmCascadeButtonGadgetHighlight(w, False); } } static XtGeometryResult query_geometry(Widget w, XtWidgetGeometry *proposed, XtWidgetGeometry *answer) { XtWidgetGeometry a; /* Standin for answer if NULL parameter */ Dimension wd, ht; wd = XtWidth(w); ht = XtHeight(w); /* rws 28 Feb 1997 * Setting height and width to 0 will calculate the minimum * size of the label. If recompute is false we do not want to * do that. This helps form/test4 (and some of my own apps) * This, however requires a change to the initialize * * rws 22 Mar 1997 * As Mitch suspects recompute size is only dealt with in set_values */ if (proposed->request_mode & CWWidth) { XtWidth(w) = proposed->width; } if (proposed->request_mode & CWHeight) { XtHeight(w) = proposed->height; } if (!LabG_RecomputeSize(w)) { a.width = XtWidth(w); a.height = XtHeight(w); a.request_mode = CWWidth | CWHeight; XtWidth(w) = wd; XtHeight(w) = ht; if ((proposed->request_mode & (CWWidth | CWHeight)) == (CWWidth | CWHeight) && proposed->width == answer->width && proposed->height == answer->height) { return XtGeometryYes; } else if (answer->width == XtWidth(w) && answer->height == XtHeight(w)) { return XtGeometryNo; } else { return XtGeometryAlmost; } } _XmCBGCalcDimensions(w); a.width = XtWidth(w); a.height = XtHeight(w); a.request_mode = CWWidth | CWHeight; DEBUGOUT(XdbDebug(__FILE__, w, "CascadeButtonGadget queried for size: reporting %d %d %08x\n", XtWidth(w), XtHeight(w), answer)); XtWidth(w) = wd; XtHeight(w) = ht; if (answer) { *answer = a; } if ((proposed->request_mode & (CWWidth | CWHeight)) == (CWWidth | CWHeight) && proposed->width >= answer->width && proposed->height >= answer->height) { return XtGeometryYes; } else if (answer->width == XtWidth(w) && answer->height == XtHeight(w)) { return XtGeometryNo; } else { return XtGeometryAlmost; } } static Cardinal get_sec_res_data(WidgetClass wc, XmSecondaryResourceData **data) { /* FIX ME */ return _XmSecondaryResourceData(&_XmCascadeBGRectClassExtRec, data, NULL, NULL, NULL, NULL); } static void DoSelect(Widget w, XEvent *event, String *params, Cardinal *num_params) { Widget submenu; submenu = CBG_Submenu(w); DEBUGOUT(XdbDebug(__FILE__, w, "DoSelect()\n")); /* quene events until the next button event. */ XAllowEvents(XtDisplay(w), SyncPointer, CurrentTime); _XmRecordEvent(event); /* if we have a submenu attached, call the cascading callback, post the submenu and allow keyboard traversal of it. */ if (submenu) { /* Turn on keyboard traversal */ _XmSetInDragMode(w, False); DEBUGOUT(XdbDebug0(__FILE__, submenu, "RC_CascadeBtn(%s)-> %s\n", XtName(submenu), XtName(w))); RC_CascadeBtn(submenu) = w; RC_PopupPosted(XtParent(w)) = submenu; DEBUGOUT(XdbDebug0(__FILE__, w, "RC_PopupPosted(%s) set to %s\n", XtName(XtParent(w)), submenu ? XtName(submenu) : "(null)")); } CBG_SetArmed(w, False); } static void StartDrag(Widget w, XEvent *event, String *params, Cardinal *num_params) { XmCascadeButtonGadget cw = (XmCascadeButtonGadget)w; DEBUGOUT(XdbDebug(__FILE__, w, "StartDrag()\n")); XAllowEvents(XtDisplay(w), SyncPointer, CurrentTime); _XmRecordEvent(event); /* If the submenu is already active, disable keyboard traversal and set it to mouse traversal */ if (CBG_Submenu(cw) == NULL) { DEBUGOUT(XdbDebug(__FILE__, w, "StartDrag: no CBG_Submenu\n")); return; } if (CBG_Submenu(w) && XmIsMenuShell(XtParent(CBG_Submenu(cw)))) { /* FIX ME: check for identity */ if (RC_PopupPosted(XtParent(w)) != NULL) { /* Unpost the current menu */ /* FIX ME: cb might be a gadget */ Widget cb = RC_CascadeBtn(RC_PopupPosted(XtParent(w))); XtUnmanageChild(RC_PopupPosted(XtParent(w))); CBG_SetArmed(cb, False); XmCascadeButtonHighlight(cb, False); } _XmCascadingPopup(w, event, True); } else { _XmWarning(w, "CascadeButton's popup must be a subclass of XmMenuShell\n"); return; } CBG_SetArmed(cw, True); expose(w, NULL, (Region)NULL); } static void CascadePopupHandler(XtPointer clientData, XtIntervalId *id) { Widget w = (Widget)clientData; CBG_Timer(w) = 0; if (CBG_Submenu(w) && XmIsMenuShell(XtParent(CBG_Submenu(w)))) { _XmCascadingPopup(w, NULL, True); /* FIX ME: NULL? */ } else if (CBG_Submenu(w)) { _XmWarning(w, "CascadeButton's popup must be a subclass of XmMenuShell\n"); return; } } static void DelayedArm(Widget w, XEvent *event, String *params, Cardinal *num_params) { DEBUGOUT(XdbDebug(__FILE__, w, "DelayedArm()\n")); XAllowEvents(XtDisplay(w), SyncPointer, CurrentTime); if (_XmGetInDragMode(w)) { CBG_Timer(w) = XtAppAddTimeOut(XtWidgetToApplicationContext(w), CBG_MapDelay(w), CascadePopupHandler, (XtPointer)w); CBG_SetArmed(w, True); XmCascadeButtonHighlight(w, True); MGR_SelectedGadget(XtParent(w)) = (XmGadget)w; } } static void CheckDisarm(Widget w, XEvent *event, String *params, Cardinal *num_params) { int x = ((XLeaveWindowEvent *)event)->x; int y = ((XLeaveWindowEvent *)event)->y; DEBUGOUT(XdbDebug(__FILE__, w, "CheckDisarm()\n")); XAllowEvents(XtDisplay(w), SyncPointer, CurrentTime); if (_XmGetInDragMode(w)) { if (CBG_Timer(w)) { XtRemoveTimeOut(CBG_Timer(w)); CBG_Timer(w) = 0; } /* * If a submenu is already popped up, pop it down unless * we've left on the right edge. * The test is a bit elaborate because the right edge is * not a straight line (at least, in M*tif: FIX ME). */ if ((x <= XtX(w) || y <= XtY(w) || y >= XtY(w) + XtHeight(w)) && RC_PopupPosted(XtParent(w)) != NULL) { XtUnmanageChild(RC_PopupPosted(XtParent(w))); RC_PopupPosted(XtParent(w)) = NULL; /* FIX ME: more (disarm, RC_CascadeBtn) */ } CBG_SetArmed(w, False); XmCascadeButtonHighlight(w, False); } } static void MenuBarSelect(Widget w, XEvent *event, String *params, Cardinal *num_params) { Widget menu, shell, mb; Boolean was_torn = False; /* first thing we do is free up the next button event. */ XAllowEvents(XtDisplay(w), SyncPointer, CurrentTime); _XmRecordEvent(event); mb = XtParent(w); menu = CBG_Submenu(w); if (!menu) return; shell = XtParent(menu); /* * If this button is already armed, remove only any cascaded sub-menus * and then simply enable drag mode. */ /* * Check for torn-off menu */ #ifdef RESTORE_TEAR_OFFS if (RC_TearOffModel(menu) == XmTEAR_OFF_ENABLED) { DEBUGOUT(XdbDebug(__FILE__, w, "MenuBarSelect: restoring tear off menu to menu shell\n")); if (RC_TornOff(menu)) was_torn = True; _XmRestoreTearOffToMenuShell(menu, event); shell = XtParent(menu); } #else if (RC_TornOff(menu)) { DEBUGOUT(XdbDebug(__FILE__, w, "MenuBarSelect: menu was torn off; can't cope with that.\n")); return; } #endif if (!RC_IsArmed(mb)) { (*xmRowColumnClassRec.row_column_class.menuProcedures) (XmMENU_ARM, mb, NULL); } /* * Check if our menu is already up */ if (((ShellWidget)shell)->shell.popped_up && !was_torn) { DEBUGOUT(XdbDebug(__FILE__, w, "MenuBarSelect: Menu is already up (Shell %s, Menu Pane %s)\n", shell ? XtName(shell) : "(null)", menu ? XtName(menu) : "(null)")); DEBUGOUT(XdbDebug(__FILE__, w, "MenuBarSelect: shell popped up %d, armed CB %d\n", ((ShellWidget)shell)->shell.popped_up, CBG_IsArmed(w))); /* Popdown any sub menu levels */ /* FIX ME */ XtCallActionProc(shell, "MenuShellPopdownDone", event, NULL, 0); } else { Widget popupShell = _XmGetRC_PopupPosted(XtParent(w)); /* popup any submenus (besides ours) that are already popped up. */ if (popupShell) { (*xmLabelClassRec.label_class.menuProcs) (XmMENU_SHELL_POPDOWN, (Widget)popupShell, NULL, event, NULL); } DEBUGOUT(XdbDebug(__FILE__, w, "MenuBarSelect : need to popup menu (Shell %s, MenuPane %s)\n", shell ? XtName(shell) : "(null)", menu ? XtName(menu) : "(null)")); /* Set drag mode */ _XmSetInDragMode(w, True); CBG_SetArmed(w, True); /* highlight the cascade button. */ XmCascadeButtonHighlight(w, True); _XmCascadingPopup(w, event, True); } } static void ArmAndPost(Widget w, XEvent *event, String *params, Cardinal *num_params) { _XmCascadingPopup(w, event, True); } static void MenuBarEnter(Widget w, XEvent *event, String *params, Cardinal *num_params) { /* if we're not dragging, do nothing. */ if (!_XmGetInDragMode(w)) { return; } /* if we're already armed, do nothing */ if (CBG_IsArmed(w)) { return; } MenuBarSelect(w, event, NULL, num_params); } static void Help(Widget w, XEvent *event, String *params, Cardinal *num_params) { Widget cur = w; XmAnyCallbackStruct cbs; cbs.reason = XmCR_HELP; cbs.event = event; while (cur != NULL) { if (XtHasCallbacks(w, XmNhelpCallback) == XtCallbackHasSome) { XtCallCallbacks(w, XmNhelpCallback, (XtPointer)&cbs); return; } cur = XtParent(cur); } } static void input_dispatch(Widget gadget, XEvent *event, Mask event_mask) { Cardinal num_params = 0; switch (event_mask) { case XmARM_EVENT: if (LabG_MenuType(gadget) == XmMENU_BAR) { MenuBarSelect(gadget, event, NULL, &num_params); } else if (LabG_MenuType(gadget) == XmMENU_OPTION) { ArmAndPost(gadget, event, NULL, &num_params); } else { StartDrag(gadget, event, NULL, &num_params); } break; case XmACTIVATE_EVENT: DoSelect(gadget, event, NULL, &num_params); break; case XmENTER_EVENT: if ((LabG_MenuType(gadget) == XmMENU_PULLDOWN) || (LabG_MenuType(gadget) == XmMENU_POPUP)) /* rws 23 Mar 1997 */ { DelayedArm(gadget, event, NULL, &num_params); } else if (LabG_MenuType(gadget) == XmMENU_BAR) { MenuBarEnter(gadget, event, NULL, &num_params); } break; case XmLEAVE_EVENT: if ((LabG_MenuType(gadget) == XmMENU_PULLDOWN) || (LabG_MenuType(gadget) == XmMENU_POPUP)) /* rws 23 Mar 1997 */ { CheckDisarm(gadget, event, NULL, &num_params); } #if 0 /* FIX ME */ else if (LabG_MenuType(gadget) == XmMENU_BAR) { MenuBarLeave(gadget, event, NULL, &num_params); } #endif break; case XmFOCUS_IN_EVENT: _XmFocusInGadget(gadget, event, NULL, &num_params); break; case XmFOCUS_OUT_EVENT: _XmFocusOutGadget(gadget, event, NULL, &num_params); break; case XmBDRAG_EVENT: /* FIX ME: MLM - is this right? */ _XmProcessDrag(gadget, event, NULL, NULL); break; case XmHELP_EVENT: Help(gadget, event, NULL, &num_params); break; } } void XmCascadeButtonGadgetHighlight(Widget cb, Boolean highlight) { DEBUGOUT(XdbDebug(__FILE__, cb, "XmCascadeButtonGadgetHighlight(hl %d, armed %d," " apm 0x%X, cpm 0x%X), %s, geo %d %d %dx%d\n", highlight, XmIsPrimitive(cb) ? CB_IsArmed(cb) : CBG_IsArmed(cb), XmIsPrimitive(cb) ? CB_ArmedPixmap(cb) : CBG_ArmedPixmap(cb), XmIsPrimitive(cb) ? CB_CascadePixmap(cb) : CBG_CascadePixmap(cb), XdbMenuType2String(LabG_MenuType(cb)), XtX(cb), XtY(cb), XtWidth(cb), XtHeight(cb) )); if (!XtIsRealized(cb)) { return; } if (XmIsPrimitive(cb)) { XmCascadeButtonHighlight(cb, highlight); return; } else if (!XmIsGadget(cb)) { _XmError(cb, "XmCascadeButtonHighlight called with non-cascade button widget"); return; } #ifdef DO_SANITY if (CBG_CascadePixmap(cb) == 0) { DEBUGOUT(XdbDebug(__FILE__, cb, "CascadePixmap has NULL value\n")); } if (CBG_ArmedPixmap(cb) == 0) { DEBUGOUT(XdbDebug(__FILE__, cb, "ArmedPixmap has NULL value\n")); } #endif /* SANITY */ if (LabG_MenuType(cb) == XmMENU_OPTION) { /* Still figuring out what to do here */ _XmDrawShadows(XtDisplayOfObject(cb), XtWindowOfObject(cb), XmParentTopShadowGC(cb), XmParentBottomShadowGC(cb), XtX(cb) + LabG_Highlight(cb), XtY(cb) + LabG_Highlight(cb), XtWidth(cb) - 2 * LabG_Highlight(cb), XtHeight(cb) - 2 * LabG_Highlight(cb), LabG_Shadow(cb), (int)XmSHADOW_OUT); } else { _XmDrawShadows(XtDisplayOfObject(cb), XtWindowOfObject(cb), XmParentTopShadowGC(cb), XmParentBottomShadowGC(cb), XtX(cb) + LabG_Highlight(cb), XtY(cb) + LabG_Highlight(cb), XtWidth(cb) - 2 * LabG_Highlight(cb), XtHeight(cb) - 2 * LabG_Highlight(cb), LabG_Shadow(cb), highlight ? (int)XmSHADOW_OUT : (int)XmNO_LINE); } /* now draw the pixmap */ switch (LabG_MenuType(cb)) { case XmMENU_POPUP: case XmMENU_PULLDOWN: case XmMENU_OPTION: /* Added - LabG_Shadow(cb) to X, untested... */ if (CBG_IsArmed(cb)) { if (CBG_ArmedPixmap(cb) != XmUNSPECIFIED_PIXMAP && CBG_ArmedPixmap(cb) != 0) { DEBUGOUT(XdbDebug(__FILE__, cb, "XCopyArea 0x%X -> 0x%X geo %d %d %dx%d\n", CBG_ArmedPixmap(cb), XtWindow(XtParent(cb)), CBG_Cascade_width(cb), CBG_Cascade_height(cb), XtX(cb) + CBG_Cascade_x(cb), XtY(cb) + CBG_Cascade_y(cb))); XCopyArea(XtDisplay(cb), CBG_ArmedPixmap(cb), XtWindow(cb), LabG_NormalGC(cb), 0, 0, CBG_Cascade_width(cb), CBG_Cascade_height(cb), XtX(cb) + CBG_Cascade_x(cb), XtY(cb) + CBG_Cascade_y(cb)); } } else if (CBG_CascadePixmap(cb) != XmUNSPECIFIED_PIXMAP && CBG_CascadePixmap(cb) != 0) { DEBUGOUT(XdbDebug(__FILE__, cb, "XCopyArea 0x%X -> 0x%X geo %d %d %dx%d\n", CBG_CascadePixmap(cb), XtWindow(XtParent(cb)), CBG_Cascade_width(cb), CBG_Cascade_height(cb), XtX(cb) + CBG_Cascade_x(cb), XtY(cb) + CBG_Cascade_y(cb))); XCopyArea(XtDisplay(cb), CBG_CascadePixmap(cb), XtWindow(XtParent(cb)), LabG_NormalGC(cb), 0, 0, CBG_Cascade_width(cb), CBG_Cascade_height(cb), XtX(cb) + CBG_Cascade_x(cb), XtY(cb) + CBG_Cascade_y(cb)); } break; /* Add other types of menu here... */ } } Widget XmCreateCascadeButtonGadget(Widget parent, char *name, Arg *arglist, Cardinal argcount) { return XtCreateWidget(name, xmCascadeButtonGadgetClass, parent, arglist, argcount); }