/* 

 * Motif

 *

 * Copyright (c) 1987-2012, The Open Group. All rights reserved.

 *

 * These libraries and programs are free software; you can

 * redistribute them and/or modify them under the terms of the GNU

 * Lesser General Public License as published by the Free Software

 * Foundation; either version 2 of the License, or (at your option)

 * any later version.

 *

 * These libraries and programs are distributed in the hope that

 * they will be useful, but WITHOUT ANY WARRANTY; without even the

 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR

 * PURPOSE. See the GNU Lesser General Public License for more

 * details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with these librararies and programs; if not, write

 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth

 * Floor, Boston, MA 02110-1301 USA

*/ 

/* 

 * HISTORY

*/ 

#ifdef REV_INFO

#ifndef lint

static char rcsid[] = "$TOG: CascadeB.c /main/27 1999/08/11 14:26:35 mgreess $"

#endif

#endif

/* (c) Copyright 1989, DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. */

/* (c) Copyright 1987, 1988, 1989, 1990, 1991, 1992 HEWLETT-PACKARD COMPANY */

#ifdef HAVE_CONFIG_H

#include <config.h>

#endif

#include "XmI.h"		/* ShellP.h doesn't define externalref. */

#include <X11/ShellP.h>

#include <X11/keysymdef.h>

#include <Xm/BaseClassP.h>

#include <Xm/DisplayP.h>

#include <Xm/DrawP.h>

#include <Xm/LabelGP.h>

#include <Xm/LabelP.h>

#include <Xm/MenuShellP.h>

#include <Xm/MenuStateP.h>

#include <Xm/MenuT.h>

#include <Xm/RowColumnP.h>

#include <Xm/TearOffP.h>

#include <Xm/TraitP.h>

#include <Xm/TransltnsP.h>

#include <Xm/VaSimpleP.h>

#include "CascadeBI.h"

#include "CascadeBGI.h"

#include "LabelI.h"

#include "GadgetUtiI.h"

#include "MenuStateI.h"

#include "MenuProcI.h"

#include "MenuUtilI.h"

#include "MessagesI.h"

#include "PrimitiveI.h"

#include "RCMenuI.h"

#include "TearOffI.h"

#include "TraversalI.h"

#include "UniqueEvnI.h"

#define FIX_1509

#define CASCADE_PIX_SPACE    4	 /* pixels between label and bit map */

#define MAP_DELAY_DEFAULT   180

#define EVENTS              ((unsigned int) (ButtonPressMask | \

			     ButtonReleaseMask | EnterWindowMask | \

			     LeaveWindowMask))

#define WRONGPARENT	_XmMMsgCascadeB_0000

#define WRONGSUBMENU	_XmMMsgCascadeB_0001

#define WRONGMAPDELAY	_XmMMsgCascadeB_0002

/********    Static Function Declarations    ********/

static void ClassInitialize( void ) ;

static void ClassPartInitialize( 

                        WidgetClass wc) ;

static void BorderHighlight( 

                        Widget wid) ;

static void BorderUnhighlight( 

                        Widget wid) ;

static void DrawShadow( 

                        register XmCascadeButtonWidget cb) ;

static void DrawCascade( 

                        register XmCascadeButtonWidget cb) ;

static void Redisplay( 

                        register Widget cb,

                        XEvent *event,

                        Region region) ;

static void Arm( 

                        register XmCascadeButtonWidget cb) ;

static void ArmAndPost( 

                        XmCascadeButtonWidget cb,

                        XEvent *event) ;

static void ArmAndActivate( 

                        Widget wid,

                        XEvent *event,

                        String *params,

                        Cardinal *num_params) ;

static void Disarm( 

                        register XmCascadeButtonWidget cb,

#if NeedWidePrototypes

                        int unpost) ;

#else

                        Boolean unpost) ;

#endif /* NeedWidePrototypes */

static void PostTimeout( 

                        XtPointer closure,

                        XtIntervalId *id) ;

static void DelayedArm( 

                        Widget wid,

                        XEvent *event,

                        String *param,

                        Cardinal *num_param) ;

static void CheckDisarm( 

                        Widget wid,

                        XEvent *event,

                        String *param,

                        Cardinal *num_param) ;

static void StartDrag( 

                        Widget wid,

                        XEvent *event,

                        String *param,

                        Cardinal *num_param) ;

static void Select( 

                        register XmCascadeButtonWidget cb,

                        XEvent *event,

#if NeedWidePrototypes

                        int doCascade) ;

#else

                        Boolean doCascade) ;

#endif /* NeedWidePrototypes */

static void DoSelect( 

                        Widget wid,

                        XEvent *event,

                        String *param,

                        Cardinal *num_param) ;

static void KeySelect( 

                        Widget wid,

                        XEvent *event,

                        String *param,

                        Cardinal *num_param) ;

static void MenuBarSelect( 

                        Widget wid,

                        XEvent *event,

                        String *param,

                        Cardinal *num_param) ;

static void MenuBarEnter( 

                        Widget wid,

                        XEvent *event,

                        String *param,

                        Cardinal *num_param) ;

static void MenuBarLeave( 

                        Widget wid,

                        XEvent *event,

                        String *param,

                        Cardinal *num_param) ;

static void CleanupMenuBar( 

                        Widget wid,

                        XEvent *event,

                        String *param,

                        Cardinal *num_param) ;

static void PopdownGrandChildren( 

                        XmRowColumnWidget rowcol) ;

static void Cascading( 

                        Widget w,

                        XEvent *event) ;

static void Popup( 

                        Widget cb,

                        XEvent *event) ;

static void size_cascade( 

                        XmCascadeButtonWidget cascadebtn) ;

static void position_cascade( 

                        XmCascadeButtonWidget cascadebtn) ;

static void setup_cascade( 

                        XmCascadeButtonWidget cascadebtn,

#if NeedWidePrototypes

                        int adjustWidth,

                        int adjustHeight) ;

#else

                        Boolean adjustWidth,

                        Boolean adjustHeight) ;

#endif /* NeedWidePrototypes */

static void Destroy( 

                        Widget wid) ;

static void Resize( 

                        Widget cb) ;

static Boolean SetValuesPrehook( 

			Widget cw,

                        Widget rw,

                        Widget nw,

                        ArgList args,

                        Cardinal *num_args) ;

static Boolean SetValues( 

                        Widget cw,

                        Widget rw,

                        Widget nw,

                        ArgList args,

                        Cardinal *num_args) ;

static void InitializePrehook( 

                        Widget req,

                        Widget new_w,

                        ArgList args,

                        Cardinal *num_args) ;

static void InitializePosthook( 

                        Widget req,

                        Widget new_w,

                        ArgList args,

                        Cardinal *num_args) ;

static void GetArmGC( 

                        XmCascadeButtonWidget cb) ;

static void GetBackgroundGC( 

                        XmCascadeButtonWidget cb) ;

static void Initialize( 

                        Widget w_req,

                        Widget w_new,

                        ArgList args,

                        Cardinal *num_args) ;

/********    End Static Function Declarations    ********/

/*

 * event translation tables for cascadebutton.  There are different

 * ones for the different menus a cascadebutton widget can appear in

 */

static XtTranslations menubar_events_parsed;

#define menubar_events	_XmCascadeB_menubar_events

static XtTranslations p_events_parsed;

#define p_events 	_XmCascadeB_p_events

static XtActionsRec action_table [] =

{

    {"DelayedArm",	DelayedArm},

    {"CheckDisarm",	CheckDisarm},

    {"StartDrag",	StartDrag},

    {"DoSelect", 	DoSelect},

    {"KeySelect",	KeySelect},

    {"MenuBarSelect",	MenuBarSelect},

    {"MenuBarEnter",	MenuBarEnter},

    {"MenuBarLeave",	MenuBarLeave},

    {"MenuButtonTakeFocus", _XmMenuButtonTakeFocus },

    {"MenuButtonTakeFocusUp", _XmMenuButtonTakeFocusUp },

    {"CleanupMenuBar",	CleanupMenuBar},

    {"Help",		_XmCBHelp},

};

static XtResource resources[] = 

{

    {	XmNactivateCallback, 

	XmCCallback, 

	XmRCallback,

	sizeof (XtCallbackList),

	XtOffsetOf( struct _XmCascadeButtonRec, cascade_button.activate_callback), 

	XmRCallback,

	NULL

    },

    {	XmNcascadingCallback, 

	XmCCallback, 

	XmRCallback,

	sizeof (XtCallbackList),

	XtOffsetOf( struct _XmCascadeButtonRec, cascade_button.cascade_callback), 

	XmRCallback,

	NULL

    },

    {	XmNsubMenuId, 

	XmCMenuWidget,				/* submenu */

	XmRMenuWidget, 

	sizeof (Widget),

	XtOffsetOf( struct _XmCascadeButtonRec, cascade_button.submenu), 

	XmRMenuWidget, 

	(XtPointer) NULL

    },

    {	XmNcascadePixmap, 

	XmCPixmap, 

	XmRDynamicPixmap,

	sizeof(Pixmap),

	XtOffsetOf( struct _XmCascadeButtonRec, cascade_button.cascade_pixmap), 

	XmRImmediate,

	(XtPointer) XmUNSPECIFIED_PIXMAP

    },

    {   XmNmappingDelay,

	XmCMappingDelay,

	XmRInt,

	sizeof (int),

	XtOffsetOf( struct _XmCascadeButtonRec, cascade_button.map_delay),

	XmRImmediate,

	(XtPointer) MAP_DELAY_DEFAULT

    },

    {

        XmNshadowThickness,

        XmCShadowThickness,

        XmRHorizontalDimension,

        sizeof (Dimension),

        XtOffsetOf( struct _XmCascadeButtonRec, primitive.shadow_thickness),

        XmRCallProc,

        (XtPointer) _XmSetThickness

    },

    {

	XmNtraversalOn,

	XmCTraversalOn,

	XmRBoolean,

	sizeof(Boolean),

	XtOffsetOf( struct _XmPrimitiveRec, primitive.traversal_on),

	XmRImmediate,

	(XtPointer) True

    },

    {

        XmNhighlightThickness,

        XmCHighlightThickness,

        XmRHorizontalDimension,

        sizeof (Dimension),

        XtOffsetOf( struct _XmPrimitiveRec, primitive.highlight_thickness),

        XmRCallProc,

        (XtPointer) _XmSetThickness

    },

    {

 	XmNmarginWidth, 

	XmCMarginWidth, 

	XmRHorizontalDimension, 

	sizeof (Dimension),

	XtOffsetOf( struct _XmLabelRec, label.margin_width), 

	XmRImmediate,

	(XtPointer) XmINVALID_DIMENSION

    },

};       

/*

 * static initialization of the cascade button widget class record, 

 * must do each field

 */

static XmBaseClassExtRec       cascadeBBaseClassExtRec = {

    NULL,                                     /* Next extension       */

    NULLQUARK,                                /* record type XmQmotif */

    XmBaseClassExtVersion,                    /* version              */

    sizeof(XmBaseClassExtRec),                /* size                 */

    InitializePrehook,                        /* initialize prehook   */

    SetValuesPrehook,			      /* set_values prehook   */

    InitializePosthook,                       /* initialize posthook  */

    XmInheritSetValuesPosthook,               /* set_values posthook  */

    XmInheritClass,                           /* secondary class      */

    XmInheritSecObjectCreate,                 /* creation proc        */

    XmInheritGetSecResData,                   /* getSecResData        */

    {0},                                      /* fast subclass        */

    XmInheritGetValuesPrehook,                /* get_values prehook   */

    XmInheritGetValuesPosthook,               /* get_values posthook  */

    NULL,                                     /* classPartInitPrehook */

    NULL,                                     /* classPartInitPosthook*/

    NULL,                                     /* ext_resources        */

    NULL,                                     /* compiled_ext_resources*/

    0,                                        /* num_ext_resources    */

    FALSE,                                    /* use_sub_resources    */

    XmInheritWidgetNavigable,                 /* widgetNavigable      */

    XmInheritFocusChange,                     /* focusChange          */

};

externaldef(xmcascadebuttonclassrec) XmCascadeButtonClassRec xmCascadeButtonClassRec = 

{

    {			/* core class record */

	(WidgetClass) &xmLabelClassRec,		/* superclass ptr	*/

	"XmCascadeButton",			/* class_name	*/

	sizeof (XmCascadeButtonWidgetRec),	/* size of Pulldown widget */

	ClassInitialize,			/* class init proc */

	ClassPartInitialize,			/* chained class init */

	FALSE,					/* class is not init'ed */

	Initialize,				/* widget init proc */

	NULL,					/* init_hook proc */

    	XtInheritRealize,       		/* widget realize proc */

    	action_table,				/* class action table */

    	XtNumber (action_table),

	resources,				/* this class's resource list*/

	XtNumber (resources),			/*  "	  " resource_count */

    	NULLQUARK,				/* xrm_class	        */

    	TRUE,					/* compress motion */

    	XtExposeCompressMaximal,		/* compress exposure */

	TRUE,					/* compress enter-leave */

   	FALSE,					/* no VisibilityNotify */

	Destroy,				/* class destroy proc */

	Resize,					/* class resize proc */

	Redisplay,				/* expose proc */

	SetValues,				/* set_value proc */

	NULL,					/* set_value_hook proc */

	XtInheritSetValuesAlmost,		/* set_value_almost proc */

	NULL,					/* get_values_hook */

	NULL,					/* class accept focus proc */

	XtVersion,				/* current version */

    	NULL,					/* callback offset list */

    	NULL,					/* default translation table */

						  /* this is manually set */

	XtInheritQueryGeometry,			/* query geo proc */

	NULL,				        /* display accelerator*/

	(XtPointer)&cascadeBBaseClassExtRec,	/* extension */

    },

	{

			/* Primitive Class record */

	BorderHighlight,			/* border_highlight */

	BorderUnhighlight,			/* border_uhighlight */

	XtInheritTranslations,		        /* translations */

	ArmAndActivate,				/* arm & activate */

	NULL,					/* get resources */

	0,					/* num get_resources */

	NULL,	                                /* extension */

	},

    {			/* Label Class record */

	XmInheritWidgetProc,		        /* set override callback */

	XmInheritMenuProc,		        /* menu procedures       */

	XtInheritTranslations,		        /* menu traversal xlation */

	NULL,					/* extension */

    },

    {			/* cascade_button class record */

        NULL,					/* extension */  

    }

};

/*

 * now make a public symbol that points to this class record

 */

externaldef(xmcascadebuttonwidgetclass) WidgetClass xmCascadeButtonWidgetClass = (WidgetClass) &xmCascadeButtonClassRec;

/* Menu Savvy trait record */

static XmMenuSavvyTraitRec MenuSavvyRecord = {

    /* version: */

    -1,

    NULL,

    NULL,

    NULL,

    _XmCBNameActivate,

};

/*

 * parse the translation tables for the different menutypes

 */

static void 

ClassInitialize( void )

{

    menubar_events_parsed  = XtParseTranslationTable (menubar_events);

    p_events_parsed	   = XtParseTranslationTable (p_events);

   /* set up base class extension quark */

   cascadeBBaseClassExtRec.record_type = XmQmotif;

}

/*

 * set up fast subclassing

 */

static void 

ClassPartInitialize(

        WidgetClass wc )

{

  _XmFastSubclassInit (wc, XmCASCADE_BUTTON_BIT);

  /* Install the menu savvy trait record,  copying fields from XmLabel */

  _XmLabelCloneMenuSavvy (wc, &MenuSavvyRecord);

}

/*

 * The button is armed (does not pop up submenus).

 */

static void 

BorderHighlight(

        Widget wid )

{

      Arm ((XmCascadeButtonWidget) wid);

}

/*

 * The button is disarmed (does not pop down submenus).

 */

static void 

BorderUnhighlight(

        Widget wid )

{

    XmCascadeButtonWidget cb = (XmCascadeButtonWidget) wid;

    Boolean popdown;

    if (Lab_IsMenupane(cb) &&

	(((XmManagerWidget)XtParent(cb))->manager.active_child == wid) &&

	CB_Submenu(cb))

    {

	XmMenuShellWidget mshell =

	    (XmMenuShellWidget) XtParent(CB_Submenu(cb));

	if ((mshell->composite.children[0] == CB_Submenu(cb)) &&

	    (XmIsMenuShell(mshell)) &&

	    (mshell->shell.popped_up))

	{

	    popdown = True;

	}

	else

	    popdown = False;

    }

    else

	popdown = False;

    Disarm ((XmCascadeButtonWidget) wid, popdown);

}

/*

 * Draw the 3D shadow around the widget if its is armed.

 */

static void 

DrawShadow(

        register XmCascadeButtonWidget cb )

{

  XmDisplay dpy = (XmDisplay) XmGetXmDisplay(XtDisplay((Widget) cb));

  Boolean etched_in = dpy -> display.enable_etched_in_menu;

  if (CB_IsArmed(cb))

    {

      if (XtIsRealized((Widget)cb))

      {

	 XmeDrawShadows (XtDisplay (cb), XtWindow (cb),

			cb->primitive.top_shadow_GC,

			cb->primitive.bottom_shadow_GC,

			cb->primitive.highlight_thickness,

			cb->primitive.highlight_thickness,

			cb->core.width - 2 * 

			cb->primitive.highlight_thickness,

			cb->core.height - 2 * 

			cb->primitive.highlight_thickness,

			cb->primitive.shadow_thickness,

			etched_in ? XmSHADOW_IN : XmSHADOW_OUT);

      }

   }

}

static void 

DrawCascade(

        register XmCascadeButtonWidget cb )

{

   if ((CB_HasCascade(cb)) && (CB_Cascade_width(cb) != 0))

   {

      Pixmap pixmap ;

      int depth ;

      pixmap = CB_IsArmed(cb) && 

	  (CB_ArmedPixmap(cb) != XmUNSPECIFIED_PIXMAP) ? 

	      CB_ArmedPixmap(cb) : CB_CascadePixmap(cb) ;

      XmeGetPixmapData(XtScreen(cb),

		       pixmap,

		       NULL,    

		       &depth,

		       NULL, NULL,

		       NULL, NULL,

		       NULL, NULL); 

      if (depth == cb->core.depth)

	  XCopyArea (XtDisplay(cb), 

		     pixmap, 

		     XtWindow(cb),

		     cb->label.normal_GC, 0, 0, 

		     CB_Cascade_width(cb), CB_Cascade_height(cb),

		     CB_Cascade_x(cb), CB_Cascade_y(cb));

      else 

      if (depth == 1) 

	  XCopyPlane (XtDisplay(cb), 

		      pixmap, 

		      XtWindow(cb),

		      cb->label.normal_GC, 0, 0, 

		      CB_Cascade_width(cb), CB_Cascade_height(cb),

		      CB_Cascade_x(cb), CB_Cascade_y(cb), 1);

  }

}

/*

 * redisplay the widget

 */

static void 

Redisplay(

        register Widget cb,

        XEvent *event,

        Region region )

{

#ifdef FIX_1395

    Pixel tmpc;

#endif

    if (XtIsRealized (cb)) 

    {

	XmDisplay dpy = (XmDisplay) XmGetXmDisplay(XtDisplay(cb));

	Boolean etched_in = dpy->display.enable_etched_in_menu;

	GC tmpGC = NULL;

	XtExposeProc expose;

	if (etched_in) {

#ifdef FIX_1509

		if (CB_IsArmed(cb))

		    XFillRectangle(XtDisplay(cb), XtWindow(cb), CB_ArmGC(cb),

				   0, 0, cb->core.width, cb->core.height);

		else

	        XClearArea(XtDisplay(cb), XtWindow(cb),

				0, 0, cb->core.width, cb->core.height, False);

#else

	    XFillRectangle(XtDisplay(cb), XtWindow(cb),

		           CB_IsArmed(cb) ? CB_ArmGC(cb) : CB_BackgroundGC(cb),

			   0, 0, cb->core.width, cb->core.height);

#endif

#ifdef USE_XFT

	} else if (Lab_MenuType(cb) != XmWORK_AREA) { /* adeed with XFT support */

        XClearArea(XtDisplay(cb), XtWindow(cb),

			0, 0, cb->core.width, cb->core.height, False);

#endif

	}

	if (etched_in && CB_IsArmed(cb)) {

	    Pixel junk, select_pix;

	    Boolean replaceGC = False;

	    XmGetColors(XtScreen(cb), cb->core.colormap,

			cb->core.background_pixel,

			&junk, &junk, &junk, &select_pix);

	    if (select_pix == 

		((XmCascadeButtonWidget)cb)->primitive.foreground) {

		replaceGC = True;

		tmpGC = ((XmCascadeButtonWidget)cb)->label.normal_GC;

		((XmCascadeButtonWidget)cb)->label.normal_GC = 

		    CB_BackgroundGC(cb);

	    }

#ifdef FIX_1395

	    /* 1395:

	     By default (if not etched and not armed) window (widget) have 

	     background color that used to draw widget bg. When widget is 

	     etched, background selected correctly (as selected color), 

	     but label exposr method will use default background color 

	     to fill area bellow lable text. Result is ugly menus.

	     We should replace colors before expose from label

	     and change it back after repainting.

	    */

            tmpc = cb->core.background_pixel;

            XSetWindowBackground(XtDisplay(cb), XtWindow(cb), select_pix);

#endif

	    _XmProcessLock();

	    expose = xmLabelClassRec.core_class.expose;

	    _XmProcessUnlock();

	    (*expose)((Widget) cb, event, region);

#ifdef FIX_1395

	    /*

	     Set correct window background (label is repainted, role back)

	    */

	    XSetWindowBackground(XtDisplay(cb), XtWindow(cb), tmpc);

	    if (cb->core.background_pixmap != XmUNSPECIFIED_PIXMAP)

	    	XSetWindowBackgroundPixmap(XtDisplay(cb), XtWindow(cb),

	    			cb->core.background_pixmap);

#endif

	    if (replaceGC)

		((XmCascadeButtonWidget)cb)->label.normal_GC = tmpGC;

	}

	else {

	    /* Label class does most of the work */

	    _XmProcessLock();

	    expose = xmLabelClassRec.core_class.expose;

	    _XmProcessUnlock();

	    (*expose)(cb, event, region);

	}

	DrawCascade((XmCascadeButtonWidget) cb);

	DrawShadow ((XmCascadeButtonWidget) cb);

    }

}

/*

 * Arming the cascadebutton consists of setting the armed bit

 * and drawing the 3D shadow.

 */

static void 

Arm(

        register XmCascadeButtonWidget cb )

{

  if (!CB_IsArmed(cb))

    {

      XmDisplay dpy = (XmDisplay) XmGetXmDisplay(XtDisplay(cb));

      Boolean etched_in = dpy->display.enable_etched_in_menu;

      CB_SetArmed(cb, TRUE);

      if (etched_in) 

	  Redisplay((Widget) cb, NULL, NULL);

      else {

	  DrawCascade(cb);

	  DrawShadow (cb);

      }

    }

  XmProcessTraversal((Widget) cb, XmTRAVERSE_CURRENT);

}

/*

 * Post the submenu and then arm the button.  The arming is done

 * second so that the post can be quickly as possible.

 */

static void 

ArmAndPost(

        XmCascadeButtonWidget cb,

        XEvent *event )

{

   if (!CB_IsArmed(cb))

   {

      _XmCascadingPopup ((Widget) cb, event, TRUE);

      Arm (cb);

   }

}

/*

 * class function to cause the cascade button to be armed and selected

 */

/*ARGSUSED*/

static void 

ArmAndActivate(

        Widget wid,

        XEvent *event,

        String *params,		/* unused */

        Cardinal *num_params )	/* unused */

{

    XmCascadeButtonWidget cb = (XmCascadeButtonWidget) wid ;

    XmRowColumnWidget parent = (XmRowColumnWidget) XtParent(cb);

    XmMenuSystemTrait menuSTrait;

    Time _time;

    /* check if event has been processed  - if it's NULL, override processing */

    if (event && !_XmIsEventUnique(event))

       return;

    _time = _XmGetDefaultTime(wid, event);

    menuSTrait = (XmMenuSystemTrait) 

      XmeTraitGet((XtPointer) XtClass(XtParent(wid)), XmQTmenuSystem);

    if (menuSTrait == NULL) {

      /* We're in trouble.  This isn't a valid menu that we're 

	 in and Arm and Activate has been called.  Abort ! */

      return;

    }

    switch (Lab_MenuType (cb))

    {

       case XmMENU_BAR:

       {

          ShellWidget myShell = NULL;

          /* Shared menupanes require some additional checks */

          if (CB_Submenu(cb))

              myShell = (ShellWidget)XtParent(CB_Submenu(cb));

          if (myShell && 

	      XmIsMenuShell(myShell) &&         /* not torn ?! */

	      (myShell->shell.popped_up) &&

	      (myShell->composite.children[0] == CB_Submenu(cb)) &&

	      (cb == (XmCascadeButtonWidget)RC_CascadeBtn(CB_Submenu(cb))))

          {

	     menuSTrait -> popdown((Widget) parent, event);

	     Disarm (cb, FALSE);

	  }

          else 

          {

             /* call the cascading callbacks first thing */

             Cascading ((Widget) cb, event);

	     /*

	      * check if the traversing flag is set true.  This indicates

	      * that we are in a traverse and don't want to activate if

	      * there is no submenu attached.  Set during KDown in menubar.

	      */

	     if (CB_Traversing(cb) && !CB_Submenu(cb))

		 return;

             if (! RC_IsArmed (parent))

	     {

		_XmMenuFocus((Widget) parent, XmMENU_BEGIN, _time);

		menuSTrait -> arm((Widget) cb);

	     }

             else

	       menuSTrait -> menuBarCleanup((Widget) parent);

             /* do the select without calling the cascading callbacks again */

             Select (cb, event, FALSE);

	     /* To support menu replay, keep the pointer in sync mode */

	     XAllowEvents(XtDisplay(cb), SyncPointer, CurrentTime);

             if (CB_Submenu(cb))

             {

                /*

                 * if XmProcessTraversal() fails, it's possible that the pane

                 * has no traversable children, so reset the focus to the pane.

                 */

                if (!XmProcessTraversal(CB_Submenu(cb), XmTRAVERSE_CURRENT))

		{

		   /* Must clear focus path first for shared menushells.

		    * Otherwise, moving the focus back will have old stale

		    * (old) focus_item.

		    */

		   _XmClearFocusPath(CB_Submenu(cb));

                   XtSetKeyboardFocus(XtParent(CB_Submenu(cb)), CB_Submenu(cb));

		}

             }

             else

             {

	        menuSTrait -> disarm((Widget) parent);

		_XmMenuFocus(XtParent(cb), XmMENU_END, _time);

                XtUngrabPointer( (Widget) cb, _time);

             }

          }

          break;

       }

       case XmMENU_PULLDOWN:

       case XmMENU_POPUP:

       {

	  /* In case the tear off is active but not armed or grabbed */

	  menuSTrait -> tearOffArm((Widget) parent);

          Select (cb, event, TRUE);

	  if (CB_Submenu(cb))

	  {

             /*

              * if XmProcessTraversal() fails, it's possible that the pane

              * has no traversable children, so reset the focus to the pane.

              */

             if (!XmProcessTraversal(CB_Submenu(cb), XmTRAVERSE_CURRENT))

	     {

		/* Must clear focus path first for shared menushells.

		 * Otherwise, moving the focus back will have old stale

		 * (old) focus_item.

		 */

		_XmClearFocusPath(CB_Submenu(cb));

                XtSetKeyboardFocus(XtParent(CB_Submenu(cb)), CB_Submenu(cb));

	     }

	  }

          break;

       }

    }

    /* Record so spring loaded DispatchEvent() doesn't recall this routine.  */

    if (event)

       _XmRecordEvent(event);

}

/*

 * disarm the menu.  This may include popping down any submenu that is up or

 * removing the timeout to post a submenu

 */

static void 

Disarm(

        register XmCascadeButtonWidget cb,

#if NeedWidePrototypes