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

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

@@ -0,0 +1,263 @@
+/* $XConsortium: MainWindow.C /main/3 1995/11/06 09:42:36 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 "MainWindow.h"
+#include "Menu.h"
+#include "IconObj.h"
+#include "Button.h"
+#include "Sep.h"
+#include <Xm/MainW.h>
+#include <Xm/RowColumn.h>
+#include "Icon.h"
+
+
+XtActionsRec MainWindow::actions[] =
+{
+  {"PopupMenu", (XtActionProc) &MainWindow::KeyboardPopupMenu}
+};
+
+class PopupMenuContainer : public MotifUI
+{
+  public:
+
+   PopupMenuContainer(MotifUI *);
+};
+
+PopupMenuContainer::PopupMenuContainer(MotifUI *parent) : 
+      MotifUI(parent, "PopupMenuContainer", NULL)
+{
+   _w = parent->BaseWidget();
+}
+
+MainWindow::MainWindow(MotifUI *parent,
+		       char *name,
+		       char *widgetName,
+		       char *icon,
+		       char *icon_name)
+	: MotifUI(parent, name, NULL, widgetName)
+{
+   CreateMainWindow(parent, name, widgetName, icon, icon_name);
+}
+
+MainWindow::MainWindow(char *category,
+		       MotifUI *parent,
+		       char *name,
+		       char *widgetName,
+		       char *icon,
+		       char *icon_name)
+	: MotifUI(parent, name, category, widgetName)
+{
+   CreateMainWindow(parent, name, widgetName, icon, icon_name);
+}
+
+void MainWindow::CreateMainWindow(MotifUI *parent, char * /*name*/,
+				  char *widgetName, char *_icon,
+				  char *_icon_name)
+{
+   _w = XtVaCreateManagedWidget(widgetName, xmMainWindowWidgetClass, 
+			        parent->BaseWidget(), NULL);
+   XtAppAddActions(appContext, actions, XtNumber(actions));
+   trans = XtParseTranslationTable("#override\n <Key> osfMenu: PopupMenu()");
+   XtAddEventHandler(_w, ButtonPressMask, FALSE, PopupMenu, (XtPointer) this);
+   XtOverrideTranslations(_w, trans);
+   popups = new PopupMenuContainer(this);
+   XtVaSetValues(_w, XmNuserData, this, NULL);
+   LastPopupMenu = NULL;
+   icon = NULL;
+   icon_name = NULL;
+   IconFile(_icon);
+   IconName(_icon_name);
+   InstallHelpCB();
+}
+
+MainWindow::~MainWindow()
+{
+   delete icon;
+   delete icon_name;
+}
+
+void MainWindow::IconFile(char *_icon)
+{
+   if (_icon)
+    {
+      Pixmap pixmap, mask;
+      GetPixmaps(_w, _icon, &pixmap, &mask);
+      delete icon;
+      if (pixmap != XmUNSPECIFIED_PIXMAP)
+       {
+         if (depth == 1)
+            XtVaSetValues(XtParent(_w), XmNiconPixmap, pixmap, NULL);
+         else
+            XtVaSetValues(XtParent(_w), XmNiconPixmap, pixmap,
+		          (mask ? XmNiconMask : NULL), mask, NULL);
+         icon = STRDUP(_icon);
+       }
+      else
+	 icon = NULL;
+    }
+}
+
+void MainWindow::IconName(char *_icon_name)
+{
+   delete icon_name;
+   if (!_icon_name)
+      icon_name = STRDUP(Name());
+   else
+      icon_name = STRDUP(_icon_name);
+   if (icon_name)
+      XtVaSetValues(XtParent(_w), XmNiconName, icon_name, NULL);
+}
+
+void MainWindow::SetWorkWindow(MotifUI *obj)
+{
+   XtVaSetValues(_w, XmNworkWindow, obj->BaseWidget(), NULL);
+}
+
+Button *MainWindow::AddAction(char *name, char *category,
+			      ButtonCallback callback,
+			      void *callback_data, char *mnemonic,
+			      char *acceleratorText, char *accelerator)
+{
+   Menu *menu = (Menu *)popups->FindByCategory(category);
+   if (!menu)
+    {
+      menu = new Menu(category, popups, true, "", "", NULL, POPUP_MENU);
+      XtVaSetValues(menu->InnerWidget(), XmNpopupEnabled, False, NULL);
+    }
+   return new Button(category, menu, name, PUSH_BUTTON, callback, callback_data,
+	             mnemonic, acceleratorText, accelerator);
+}
+
+void MainWindow::RegisterPopup(MotifUI *obj)
+{
+   Menu *menu = (Menu *)popups->FindByCategory((char *)obj->Category());
+   if (!menu)
+    {
+      menu = new Menu((char *)obj->Category(), popups, true, "", "", 
+		      NULL, POPUP_MENU);
+      XtVaSetValues(menu->InnerWidget(), XmNpopupEnabled, False, NULL);
+    }
+   XtAddEventHandler(obj->InnerWidget(), ButtonPressMask, FALSE,
+		     PopupMenu, (XtPointer) this);
+   XtOverrideTranslations(obj->InnerWidget(), trans);
+   XtVaSetValues(obj->InnerWidget(), XmNuserData, obj, NULL);
+   if (obj->UIClass() == CONTAINER)
+    {
+      switch (obj->UISubClass())
+      {
+      case SCROLLED_CANVAS:
+      case SCROLLED_FORM:
+      case SCROLLED_VERTICAL_ROW_COLUMN:
+      case SCROLLED_HORIZONTAL_ROW_COLUMN:
+      case SCROLLED_PANE:
+      case SCROLLED_WORK_AREA:
+      case SCROLLED_ICON_LIST:
+         XtAddEventHandler(XtParent(obj->InnerWidget()), ButtonPressMask, FALSE,
+		           PopupMenu, (XtPointer) this);
+         XtOverrideTranslations(XtParent(obj->InnerWidget()), trans);
+         XtVaSetValues(XtParent(obj->InnerWidget()), XmNuserData, obj, NULL);
+      break;
+      }
+    }
+}
+
+void MainWindow::AddSep(char *category)
+{
+   Menu *menu = (Menu *)popups->FindByCategory(category);
+   if (!menu)
+    {
+      menu = new Menu(category, popups, true, "", "", NULL, POPUP_MENU);
+      XtVaSetValues(menu->InnerWidget(), XmNpopupEnabled, False, NULL);
+    }
+   new Sep(category, menu);
+}
+
+void MainWindow::KeyboardPopupMenu(Widget widget, XEvent *event, 
+                                   String * /*params*/,
+				   Cardinal * /*num_params*/)
+{
+   Widget focus_widget;
+
+   if (!(focus_widget = XmGetFocusWidget(widget)))
+      focus_widget = widget;
+
+   MotifUI *obj;
+   MainWindow *window;
+   XtVaGetValues(focus_widget, XmNuserData, &obj, NULL);
+   window = (MainWindow *) obj;
+   while (window->UIClass() != MAIN_WINDOW)
+      window = (MainWindow *) window->Parent();
+   window->PostMenu(obj, event);
+}
+
+void MainWindow::PopupMenu(Widget widget, XtPointer client_data, 
+                           XEvent *event, Boolean * /*continued*/)
+{
+   XRectangle          pixmap_rect, label_rect;
+   XButtonEvent *      ev;
+   Window              child, parent, root;
+   int                 root_x, root_y, win_x, win_y;
+   unsigned int        modMask;
+   Display *           display = XtDisplay(widget);
+
+   ev = (XButtonEvent *) event;
+   if (ev->button != MotifUI::bMenuButton)
+      return;
+   child = XtWindow(widget);
+   while (child)
+    {
+      parent = child;
+      XQueryPointer(display, parent, &root, 
+                    &child, &root_x, &root_y, &win_x, &win_y, &modMask);
+    } 
+   if (XtWindowToWidget(display, parent))
+      widget = XtWindowToWidget(display, parent);
+
+   MainWindow *window = (MainWindow *) client_data;
+   MotifUI *obj;
+   XtVaGetValues(widget, XmNuserData, &obj, NULL);
+   if (!obj)
+      obj = window;
+   if (obj->UIClass() == ICON)
+    { 
+      GuiIconGetRects(widget, &pixmap_rect, &label_rect);
+      if (!(PointInRect(pixmap_rect, win_x, win_y) ||
+          PointInRect(label_rect, win_x, win_y)))
+       {
+          XtVaGetValues(XtParent(widget), XmNuserData, &obj, NULL);
+       }
+    }
+   window->PostMenu(obj, event);
+}
+
+void MainWindow::PostMenu(MotifUI *obj, XEvent *event)
+{
+   BaseUI *popup_menu = popups->FindByCategory((char *)obj->Category());
+   if (LastPopupMenu)
+      XtVaSetValues(LastPopupMenu, XmNpopupEnabled, False, NULL);
+   Widget widget = NULL;
+   if (popup_menu)
+    {
+      popup_menu->Name((char *)obj->Name());
+      PopupObject = obj;
+      PopupObjectUniqueID = PopupObject->UniqueID();
+      widget = ((MotifUI *) popup_menu)->BaseWidget();
+      XtVaSetValues(widget, XmNpopupEnabled, True, NULL);
+      if (event->type == ButtonPress)
+        {
+          XmMenuPosition(widget, (XButtonPressedEvent *) event);
+          XtManageChild(widget);
+        }
+    } 
+   else
+    {
+      PopupObject = NULL;
+      PopupObjectUniqueID = 0;
+    }
+   LastPopupMenu = widget;
+}