/***********************************************************************/
/* Open Visualization Data Explorer                                    */
/* (C) Copyright IBM Corp. 1989,1999                                   */
/* ALL RIGHTS RESERVED                                                 */
/* This code licensed under the                                        */
/*    "IBM PUBLIC LICENSE - Open Visualization Data Explorer"          */
/***********************************************************************/

#include <dxconfig.h>


#include "defines.h"
#include "Application.h"
#include "Dialog.h"

#include <Xm/Protocols.h>
#include <Xm/AtomMgr.h>
#include <Xm/DialogS.h>
#include <Xm/Form.h>
#include <Xm/Label.h>
#include <Xm/Text.h>
#include <Xm/Separator.h>
#include <Xm/PushB.h>

boolean Dialog::ClassInitialized = FALSE;


extern "C" void Dialog_OkCB(Widget, XtPointer clientData, XtPointer)
{
    Dialog 	      *dialog = (Dialog*)clientData;

    if (dialog->okCallback(dialog))
        dialog->unmanage();
}
extern "C" void Dialog_CancelCB(Widget, XtPointer clientData, XtPointer)
{
    Dialog 	      *dialog = (Dialog*)clientData;

    dialog->cancelCallback(dialog);
    dialog->unmanage();
}
extern "C" void Dialog_HelpCB(Widget widget,
	        XtPointer clientData,
	        XtPointer)
{
    Dialog 	      *dialog = (Dialog*)clientData;

    dialog->helpCallback(dialog);
}

Dialog::Dialog(const char *name, Widget parent) : 
    UIComponent(name)
{
    this->parent = parent;

    this->managed = FALSE;

    this->help = NULL;
    this->ok = NULL;
    this->cancel = NULL;
}
void Dialog::installDefaultResources(Widget  baseWidget)
{
}
void Dialog::initialize()
{
}

void Dialog::post()
{
    theApplication->setBusyCursor(TRUE);
    if (this->getRootWidget() == NULL)
    {
	this->initialize();
	this->setRootWidget(this->createDialog(this->parent));

	Widget shell = XtParent(this->getRootWidget());
	XtVaSetValues(shell, XmNdeleteResponse, XmDO_NOTHING, NULL);
	Atom WM_DELETE_WINDOW = XmInternAtom(XtDisplay(shell),
					    "WM_DELETE_WINDOW", False);
	XmAddWMProtocolCallback(shell, WM_DELETE_WINDOW,
				    (XtCallbackProc)Dialog_CancelCB,
				    caddr_t(this));


	if (this->ok != NULL)
	    XtAddCallback(this->ok,
			  XmNactivateCallback,
			  (XtCallbackProc)Dialog_OkCB,
			  (XtPointer)this);
	if (this->help != NULL)
	    XtAddCallback(this->help,
			  XmNactivateCallback,
			  (XtCallbackProc)Dialog_HelpCB,
			  (XtPointer)this);
	if (this->cancel != NULL)
	    XtAddCallback(this->cancel,
			  XmNactivateCallback,
			  (XtCallbackProc)Dialog_CancelCB,
			  (XtPointer)this);
    }

    this->manage();
    theApplication->setBusyCursor(FALSE);

    XmUpdateDisplay(this->getRootWidget());
}

Widget Dialog::createDialog(Widget)
{
    return NULL;
}

//
// 10/6/95  The dec has a really big problem with using the old code.  Any Dialog
// which childs off a MainWindow always takes the size of the parent when the parent
// is resized.  The old code looks as though it should no longer be necessary.
// Martin
//
#define XmFormDialogWorks 1


#ifndef XmFormDialogWorks
//
// Used by Dialog::CreateMainForm() below
//
extern "C" void DestroyParentCB(Widget w, XtPointer , XtPointer)
{
   XtDestroyWidget (XtParent (w));
}
#endif // XmFormDialogWorks
//
//
//  This is a fix of XmCreateFormDialog() which causes memory fault
//  on SGI indigo with Motif 1.1 and X11R4.
//  The original code was copied from Xm/Form.c.
//  NOTE:  This function creates a form contained by a shell which
//         takes popup/popdownCallback resources BUT minWidth/Height.
//
// FIXME: We may use different methods to create a FormDialog
// 	  on different platforms(by #ifdef) if neccesary.
//	  Right now I just use XmUtility:CreateFormDialog(),
//	  hoping it's OK on all platforms.
// 
Widget Dialog::CreateMainForm(Widget parent, String name, 
                              ArgList arglist, Cardinal argcount)
{
#ifdef XmFormDialogWorks
   return XmCreateFormDialog(parent,name,arglist,argcount);
#else
   Widget form_shell;
   Widget form;
   Arg shell_arglist[2];
   int shell_argcount = 0;
   char buffer[256];

   /*  Create a pop-up shell for the form box.  */

   sprintf(buffer,"%sPopup",name);
   XtSetArg (shell_arglist[0], XmNallowShellResize, True);
   /* This function causes problem on indigo.
    * form_shell = XmCreateDialogShell (parent, buffer,
    *                                 shell_arglist, 1);
    */
   /* Use the following instead of the above */
   form_shell = XtCreateWidget(buffer, xmDialogShellWidgetClass,
                                parent, shell_arglist, 1);

   /*  Create the widget  */

   form = XtCreateWidget (name, xmFormWidgetClass,
                          form_shell, arglist, argcount);
   XtAddCallback (form, XmNdestroyCallback, (XtCallbackProc)DestroyParentCB, NULL);
   return form;
#endif // XmFormDialogWorks

}

void Dialog::manage()
{
    this->managed = TRUE;

    Widget w = this->getRootWidget();

    while(!XtIsShell(w))
        w = XtParent(w);

    XWindowAttributes attr;
    XGetWindowAttributes(XtDisplay(w), XtWindow(XtParent(w)), &attr);

    //
    // MapRaise its parent only when it's unviewable or iconified.
    //
    if(XtParent(w) && (XtParent(w) != theApplication->getRootWidget())
       && (attr.map_state==IsUnviewable || attr.map_state==IsUnmapped))
        XMapRaised(XtDisplay(w), XtWindow(XtParent(w)));

    this->UIComponent::manage();
    XMapRaised(XtDisplay(w), XtWindow(w));
}

void Dialog::unmanage()
{
    this->UIComponent::unmanage();
    this->managed = FALSE;
}

boolean Dialog::isManaged()
{
    return this->managed;
}
//
// Set the title of the dialog after this->root has been created.
// Ignored if this->root has not been created yet.
//
void Dialog::setDialogTitle(const char *title)
{
    Widget shell;

    if (shell = this->getRootWidget()) {
    	while(NOT XtIsShell(shell))
	     shell = XtParent(shell);

	if (shell)
	    XtVaSetValues(shell,  XmNtitle, title , NULL); 
    }
}