Tools/WinSN5.0Ver.iso/NETSCAP.50/WIN1998.ZIP/ns/cmd/xfe/src/PopupMenu.cpp

C/C++ Source or Header | 1998-04-08 | 4.7 KB | 208 lines

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*-
 *
 * The contents of this file are subject to the Netscape Public License
 * Version 1.0 (the "NPL"); you may not use this file except in
 * compliance with the NPL.  You may obtain a copy of the NPL at
 * http://www.mozilla.org/NPL/
 *
 * Software distributed under the NPL is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
 * for the specific language governing rights and limitations under the
 * NPL.
 *
 * The Initial Developer of this code under the NPL is Netscape
 * Communications Corporation.  Portions created by Netscape are
 * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
 * Reserved.
 */
/*
   PopupMenu.cpp -- implementation file for PopupMenu
   Created: Chris Toshok <[e-mail]>, 7-Aug-96.
 */



#if DEBUG_toshok
#define D(x) x
#else
#define D(x)
#endif

#include "Frame.h"
#include "PopupMenu.h"
#include "DisplayFactory.h"

#include <Xm/RowColumn.h>
#include <Xfe/Xfe.h>

MenuSpec XFE_PopupMenu::title_spec[] = {
  //  { "title", LABEL },
  //MENU_SEPARATOR,
  { NULL }
};

extern "C"
{
    // Needed to determine the colormap used by the floating shell colormap
    Colormap fe_getColormap(fe_colormap *colormap);
}

XFE_PopupMenu::XFE_PopupMenu(String            name,
                             XFE_Frame *    parent_frame,
                             Widget            parent,
                             MenuSpec *        spec) :
    XFE_Menu(parent_frame,
             NULL,
             NULL)
{
    // Create the popup menu
    Widget popup_menu = XFE_PopupMenu::CreatePopupMenu(parent,name,NULL,0);

    setBaseWidget(popup_menu);

    setMenuSpec(spec);

    if (spec)
        createWidgets(spec);
}

static XtPointer
fe_popup_destroy_mappee(Widget widget, XtPointer data)
{
    Widget menu;

    if (XtIsSubclass(widget, xmCascadeButtonGadgetClass)) {
        XtVaGetValues(widget, XmNsubMenuId, &menu, 0);
        if (menu != 0)
            fe_WidgetTreeWalk(menu, fe_popup_destroy_mappee, NULL);
    }

    XtDestroyWidget(widget);

    return 0;
}

XFE_PopupMenu::~XFE_PopupMenu()
{
    //
    // we need to destroy the shell parent of our base widget, which
    // happens to be the row column.
    // In case the popup has submenus, walk the tree following
    // cascade/sub-menu linkages.
    //
    fe_WidgetTreeWalk(XtParent(m_widget), fe_popup_destroy_mappee, NULL);

    m_widget = NULL;
}

void
XFE_PopupMenu::position(XEvent *event)
{
  XP_ASSERT(event->type == ButtonPress);

  XmMenuPosition(m_widget, (XButtonPressedEvent*)event);
}

void
XFE_PopupMenu::show()
{
  update();

  XFE_Menu::show();
}

/* static */ Widget
XFE_PopupMenu::CreatePopupMenu(Widget pw,String name,ArgList av,Cardinal ac)
{
    Widget            popup;
    ArgList            new_av;
    Cardinal        new_ac;
    Cardinal        i;

    XP_ASSERT( XfeIsAlive(pw) );
    XP_ASSERT( name != NULL );

    new_ac = ac + 3;

    new_av = (ArgList) XtMalloc(sizeof(Arg) * new_ac);

    for (i = 0; i < ac; i++)
    {
        XtSetArg(new_av[i],av[i].name,av[i].value);
    }

    // Make sure the display factory is running
    fe_startDisplayFactory(FE_GetToplevelWidget());

    fe_colormap *    colormap;
    Colormap        x_colormap;
    Visual *        visual;
    int                depth;

    // Obtain the colormap / depth / and visual
    colormap    = XFE_DisplayFactory::theFactory()->getSharedColormap();
    x_colormap    = fe_getColormap(colormap);
    depth        = XFE_DisplayFactory::theFactory()->getVisualDepth();
    visual        = XFE_DisplayFactory::theFactory()->getVisual();

    XtSetArg(new_av[ac + 0],XmNcolormap,x_colormap);
    XtSetArg(new_av[ac + 1],XmNvisual,visual);
    XtSetArg(new_av[ac + 2],XmNdepth,depth);

    popup = XmCreatePopupMenu(pw,name,new_av,new_ac);

    XtFree((char *) new_av);

    return popup;
}

// Remove the osfLeft and osfRight translations of the popup's children.
// For bug 71620.  See the bug description for details.  Basically, for
// some strange reason, motif assumes that either a left or a right
// naviation widget exists for this popup menu and core dumps trying
// to dereference a NULL widget.

static char _leftRightTranslations[] = "\
:<Key>osfLeft:            \n\
:<Key>osfRight:            ";

void
XFE_PopupMenu::removeLeftRightTranslations()
{
    WidgetList    children;
    Cardinal    num_children;
    Cardinal    i;

    XP_ASSERT( XfeIsAlive(m_widget) );
    XP_ASSERT( XmIsRowColumn(m_widget) );

    if (!XfeIsAlive(m_widget))
    {
        return;
    }

    XfeChildrenGet(m_widget,&children,&num_children);

    if (!children || !num_children)
    {
        return;
    }

    for(i = 0; i < num_children; i++)
    {
        if (XmIsPrimitive(children[i]))
        {
            XfeOverrideTranslations(children[i],_leftRightTranslations);
        }
    }
}

void
XFE_PopupMenu::raise()
{
    XP_ASSERT( isAlive() );

    XRaiseWindow(XtDisplay(XtParent(m_widget)),
                 XtWindow(XtParent(m_widget)));
}