menu.cpp

Go to the documentation of this file.

#ifndef MENU_IMPLEMENTATION_FILE
#define MENU_IMPLEMENTATION_FILE

/*****************************************************************************\
*                                                                             *
*  Name   : menu                                                              *
*  Author : Chris Koeritz                                                     *
*                                                                             *
*******************************************************************************
* Copyright (c) 1991-$now By Author.  This program is free software; you can  *
* redistribute it and/or modify it under the terms of the GNU General Public  *
* License as published by the Free Software Foundation; either version 2 of   *
* the License or (at your option) any later version.  This is online at:      *
*     http://www.fsf.org/copyleft/gpl.html                                    *
* Please send any updates to: fred@gruntose.com                               *
\*****************************************************************************/

#include "menu.h"

#include <basis/function.h>
#include <wp_passive/wp_implementation.h>

#include <Xm/CascadeB.h>
#include <Xm/Label.h>
#include <Xm/MenuShell.h>
#include <Xm/PushB.h>
#include <Xm/RowColumn.h>
#include <Xm/Separator.h>

menu::menu(manager &root, const c_point &origin, const char *title,
    const color &foreground, const color &background)
: worker(root, c_rectangle(origin, origin),
     XmCreateMenuBar(root.self(), const_cast<char *>(title), NIL, 0),
     foreground, background),
  menu_list(0), _title(title)
{ engage(); }

menu::~menu()
{
// should go through recursively destroying the submenus and removing
// the callbacks on menu items.
}

void menu::draw()
{
  if (realized()) return;
  recursively_create(self(), _title.s(), &menu_list);
  worker::draw();
}

void menu::recursively_create(window_handle parent, const char *title,
    amorph<wp_menu_item> *menulist)
{
  color f = foreground(); color b = background();
  if (title) {
    window_handle a1 = XtCreateManagedWidget
      (title, xmLabelWidgetClass, parent, NULL, 0);
    window_handle a2 = XtCreateManagedWidget
      ("separator", xmSeparatorWidgetClass, parent, NULL, 0);
    nub temp1(a1, a1); temp1.set_foreground(f); temp1.set_background(b);
    nub temp2(a2, a2); temp2.set_foreground(f); temp2.set_background(b);
  }

  for (int i = 0; i < menulist->elements(); i++) {
    wp_menu_item *menulist_i = menulist->borrow(i);
    if (!menulist_i->name.length()) {
      // An empty name means insert a separator.
      menulist_i->self(XtCreateManagedWidget
          ("separator", xmSeparatorWidgetClass, parent, NULL, 0));
      nub temp(menulist_i->self(), menulist_i->self());
      temp.set_foreground(f); temp.set_background(b);
    } else if (menulist_i->i_am_label) {
      // a label is an unselectable text blob in the menu.
      menulist_i->self(XtCreateWidget
          (menulist_i->name.s(), xmLabelWidgetClass, parent, NULL, 0));
      nub temp(menulist_i->self(), menulist_i->self());
      temp.set_foreground(f); temp.set_background(b);
    } else if (!menulist_i->sub_menus.elements()) {
      // this is a selectable item without a submenu.
      menulist_i->self(XtCreateWidget
        (menulist_i->name.s(), xmPushButtonWidgetClass, parent, NULL, 0));
      nub temp(menulist_i->self(), menulist_i->self());
      temp.set_foreground(f); temp.set_background(b);
      XtAddCallback(menulist_i->self(), XmNactivateCallback, 
          XtCallbackProc(wp_menu_item_callback), XtPointer(menulist_i));
    } else {
      // Recursive call to create sub-menu.
      window_handle sub_menu = XmCreatePulldownMenu(parent,
          menulist_i->sub_menu_title.s(), NULL, 0);
        // the window_handle "sub_menu" is currently being ignored once it is
        // used.  it may prove necessary to keep track of it at some future
        // time...?
      nub temp1(sub_menu, sub_menu);
      temp1.set_foreground(f); temp1.set_background(b);
      argument_list wargs;
      wargs.add(XmNsubMenuId, XtArgVal(sub_menu));
      menulist_i->self(XtCreateWidget
        (menulist_i->name.s(), xmCascadeButtonWidgetClass, parent,
         wargs.generate(), wargs.number()));
      nub temp2(menulist_i->self(), menulist_i->self());
      temp2.set_foreground(f); temp2.set_background(b);
      recursively_create
          (sub_menu, menulist_i->sub_menu_title.s(), &menulist_i->sub_menus);
    }
    // manage all wp_menu_items except separators.
    if (menulist_i->name.length()) XtManageChild(menulist_i->self());
  }
}

void menu::add(wp_menu_item *to_add) { menu_list.append(to_add); }

void menu::wp_menu_item_callback(window_handle , wp_menu_item *the_item, caddr_t )
{ the_item->item_selected_event(); }


wp_menu_item::wp_menu_item(menu &parent_in, const char *name_in, bool label)
: nub(parent.self(), NIL), name(name_in), i_am_label(label), sub_menus(0),
  parent(parent_in)
{}

wp_menu_item::~wp_menu_item() {}

void wp_menu_item::item_selected_event()
{
  FUNCDEF("item_selected_event");
  LOG("blank wp_menu_item event");
}

void wp_menu_item::submenu_name(const istring &name)
{ sub_menu_title = name; }

void wp_menu_item::connect(wp_menu_item *to_connect)
{ sub_menus.append(to_connect); }


#endif //MENU_IMPLEMENTATION_FILE

---