Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/dtprintinfo/libUI/MotifUI/Menu.C

@@ -0,0 +1,136 @@
+/* $XConsortium: Menu.C /main/3 1995/11/06 09:42:58 rswiston $ */
+/*                                                                      *
+ * (c) Copyright 1993, 1994 Hewlett-Packard Company                     *
+ * (c) Copyright 1993, 1994 International Business Machines Corp.       *
+ * (c) Copyright 1993, 1994 Sun Microsystems, Inc.                      *
+ * (c) Copyright 1993, 1994 Novell, Inc.                                *
+ */
+
+#include "Menu.h"
+#include "MainWindow.h"
+
+#include <Xm/RowColumn.h>
+#include <Xm/Label.h>
+#include <Xm/Separator.h>
+#include <Xm/CascadeB.h>
+
+Menu::Menu(MotifUI *parent, char *name, char *mnemonic, MenuType menu_type)
+	: MotifUI(parent, name, NULL)
+{
+   CreateMenu(parent->InnerWidget(), name, NULL, mnemonic, menu_type);
+}
+
+Menu::Menu(MotifUI *parent, boolean /*has_title*/, char *title,
+	   char *name, char *mnemonic, MenuType menu_type)
+	: MotifUI(parent, name, NULL)
+{
+   CreateMenu(parent->InnerWidget(), name, NULL, mnemonic, menu_type);
+   CreateTitle(parent->InnerWidget(), NULL, title);
+}
+
+Menu::Menu(char *category, MotifUI *parent, char *name, char *mnemonic, 
+	   MenuType menu_type)
+	: MotifUI(parent, name, category)
+{
+   CreateMenu(parent->InnerWidget(), name, category, mnemonic, menu_type);
+}
+
+Menu::Menu(char *category, MotifUI *parent, boolean /*has_title*/,
+	   char *title, char *name, char *mnemonic, MenuType menu_type)
+	: MotifUI(parent, name, category)
+{
+   CreateMenu(parent->InnerWidget(), name, category, mnemonic, menu_type);
+   CreateTitle(parent->InnerWidget(), category, title);
+}
+
+void Menu::SetRadio(boolean flag)
+{
+   XtVaSetValues(_w, XmNradioBehavior, flag, NULL);
+}
+
+boolean Menu::SetActivity(boolean flag)
+{
+   XtSetSensitive(_cascadeButton, flag);
+   return true;
+}
+
+void Menu::CreateMenu(Widget parent, char *name, char * /*category*/,
+		      char *mnemonic, MenuType menu_type)
+{
+   XmString xm_string = StringCreate(name);
+
+   _title = NULL;
+   _sep = NULL;
+   switch (_menu_type = menu_type)
+   {
+   case PULLDOWN_MENU:
+      _w = XmCreatePulldownMenu(parent, "pulldown_menu", NULL, 0);
+      break;
+   case OPTION_MENU:
+      _w = XmCreateOptionMenu(parent, "option_menu", NULL, 0);
+      break;
+   case POPUP_MENU:
+      _w = XmCreatePopupMenu(parent, "popup_menu", NULL, 0);
+      XtVaSetValues(_w, XmNwhichButton, MotifUI::bMenuButton, NULL);
+      break;
+   }
+   if (_menu_type != POPUP_MENU)
+    {
+      _cascadeButton = XtVaCreateManagedWidget("cascadeButton",
+					       xmCascadeButtonWidgetClass,
+					       parent,
+					       XmNlabelString, xm_string,
+					       XmNsubMenuId, _w, NULL);
+      if (depth == 1)
+       {
+	 Pixel bg;
+	 XtVaGetValues(_cascadeButton, XmNbackground, &bg, NULL);
+	 if (bg == white)
+	  {
+	    XtVaSetValues(_w, XmNuserData, (XtPointer)this, NULL);
+	    XtAddCallback(_w, XmNmapCallback, &(Menu::MapCB), NULL);
+	    XtAddCallback(_w, XmNunmapCallback, &(Menu::MapCB), NULL);
+	  }
+       }
+    }
+   StringFree(xm_string);
+   if (mnemonic)
+      XtVaSetValues(_cascadeButton,
+		    XmNmnemonic, XStringToKeysym(mnemonic), NULL);
+   InstallHelpCB();
+}
+
+void Menu::CreateTitle(Widget /*parent*/, char *title, char * /*category*/)
+{
+   XmString xm_string = StringCreate(title);
+
+   if (_title)
+      XtVaSetValues(_title, XmNlabelString, xm_string, NULL);
+   else
+    {
+      _title = XtVaCreateManagedWidget("title", xmLabelWidgetClass, _w, 
+			               XmNlabelString, xm_string, NULL);
+      _sep = XtVaCreateManagedWidget("separator", xmSeparatorWidgetClass, _w, 
+			             XmNseparatorType, XmDOUBLE_LINE, NULL);
+    }
+   StringFree(xm_string);
+}
+
+boolean Menu::SetName(char *name)
+{
+   CreateTitle(_w, name, (char *) Category());
+   return true;
+}
+
+void Menu::MapCB(Widget w, XtPointer /*client_data*/, XtPointer /*call_data*/)
+{
+   Menu *obj;
+   XtVaGetValues(w, XmNuserData, &obj, NULL);
+   Pixel fg;
+   XtVaGetValues(obj->_cascadeButton, XmNforeground, &fg, NULL);
+   if (fg == white)
+      fg = black;
+   else
+      fg = white;
+   XtVaSetValues(obj->_cascadeButton, XmNforeground, fg, NULL);
+}