/* $XConsortium: DNDdropSiteD.c /main/5 1995/07/15 21:00:25 drk $ */
/*
 * Motif
 *
 * Copyright (c) 1987-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these librararies and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 * 
 */
/*
 * HISTORY
 */

#include <testlib.h>
#include "../Toolkit/bitmaps/gnu.bmp"
#include "DNDdropSiteD.h"

/*
 * Client data structure
 */

typedef struct {
		
		Pixel TestPixel;
		Pixmap TestPixmap;
		XmString TestString;
		Widget	TestWidget[2];
		
		
		int    TestInt;
		char *TestChar;
	        
	      } DropClientData;		


/*
 * Local functions
 */

static void
DragProc (Widget, XtPointer, XtPointer);

static void
DropProc (Widget, XtPointer, XtPointer);

/*
 * This is the drop site being  tested
 */

Widget DropSite;

void
main (int argc, char **argv)
{


  	Arg args[10];
  	int n;
	Widget Frame1;

	int num_widgets = XtNumber (WidgetStruct);  /* Number of widgets. */
	int w;
	

	/*
	 * dropSiteData related variables
	 */

	DropClientData MyClientData;
	Widget FormD1;
	
	Widget MyWidget[2];
	XmString MyString;
	Pixel MyPixel;
	Pixmap MyPixmap;

	int MyInt;
	char *MyChar;


	CommonTestInit (argc, argv);
	n=0;
	Frame1 = XmCreateFrame (Shell1, "Frame1", args, n);
	XtManageChild (Frame1);

	/*
	 * Create PushButton as default
	 */

	if (UserData == NULL)
	  {
	    n=0;
	    DropSite = XmCreatePushButton (Frame1, "DropSite", args, n);
	  }
	
	else
	  {
	    /*
	     * Create widget which user wants
	     */

	    w=0;
	    while (strcmp (UserData, WidgetStruct[w].name) != 0 && 
	       (w < num_widgets))
	      w++;

	    if (w==num_widgets) 
	      {
           	printf ("Not a valid widget!\n");
      		exit(0);
	      }
  
	    DropSite = (*WidgetStruct[w].CreateFunction)(Frame1,"DropSite"
							 ,args,n);
	   
	  }
	
	XtManageChild (DropSite);
   
   	/*
    	 * Initialize client data structure
    	 */
	
	n=0;
	FormD1 = XmCreateFormDialog (Shell1, "FormD1", args, n);
	XtManageChild (FormD1);

	
	n=0;
	XtSetArg (args[n], XmNtopAttachment, XmATTACH_FORM); n++;
	MyWidget[0]=
	XmCreatePushButton (FormD1, "PushB", args, n);
	XtManageChild (MyWidget[0]);

	n=0;
	XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
	XtSetArg (args[n], XmNtopWidget, MyWidget[0]); n++;
	XtSetArg (args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
	MyWidget[1]=
	XmCreatePushButton (FormD1, "PushB", args, n);
	XtManageChild (MyWidget[1]);	

	MyPixel = CommonGetColor ("Red");

	MyPixmap =  XCreatePixmapFromBitmapData(display,
                                DefaultRootWindow(display),
                                gnu_bits, gnu_width, gnu_height,
                                WhitePixel(display,DefaultScreen(display)),
                                BlackPixel(display,DefaultScreen(display)),
                                DefaultDepth(display,DefaultScreen(display)));
	MyString = XmStringCreate ("MyString", XmSTRING_DEFAULT_CHARSET);
	
	MyInt = 2;
	MyChar = ("The sixth sick sheikh's sixth sheep's sick\n");


	MyClientData.TestWidget[0] = MyWidget[0];
	MyClientData.TestWidget[1] = MyWidget[1];
	MyClientData.TestPixel = MyPixel;
	MyClientData.TestPixmap = MyPixmap;

	MyClientData.TestInt = MyInt;
	MyClientData.TestChar = MyChar;
	
	
	/*
	 * Create the drop site
	 */

      	n=0;
      	XtSetArg (args[n], XmNdragProc, DragProc); n++;
      	XtSetArg (args[n], XmNdropProc, DropProc); n++;
      	XtSetArg (args[n], XmNdropSiteData, (XtPointer)MyClientData); n++;
      	XmDropSiteRegister (DropSite, args, n);

      	XtRealizeWidget (Shell1);

	CommonPause();

	XtAppMainLoop(app_context);
  
}


static void
DragProc (Widget w, XtPointer call_data, XtPointer client_data)	
{
        int n;
	Arg args[10];
	
	DropClientData GetData;

	n=0;
	XtSetArg (args[n], XmNdropSiteData, &GetData);
	XmDropSiteRetrieve (w, args, n);

	if (call_data.reason == XmCR_DROP_SITE_ENTER_MESSAGE)
	   {
	   	printf ("%s\n", GetData.TestChar);
		printf ("The magic number is %d\n", GetData.TestInt);
	        XtSetArg (args[n], XmNbackground, GetData.TestPixel); n++;
	        XtSetArg (args[n], XmNlabelString, GetData.TestString); n++;
	        XtSetArg (args[n], XmNlabelPixmap, GetData.TestPixmap); n++;
		XtSetValues (GetData.TestWidget[0], args, n);
	   } 
}



static void
DropProc (Widget w, XtPointer call_data, XtPointer client_data)	
{
	
	DropClientData GetData;
	Arg args[10];
	int n;

	n=0;
	XtSetArg (args[n], XmNdropSiteData, &GetData);
	XmDropSiteRetrieve (w, args, n);

	if (call_data.reason == XmCR_DROP_SITE_ENTER_MESSAGE)
	   {
	   	printf ("%s\n", GetData.TestChar);
		printf ("The magic number is %d\n", GetData.TestInt);
	        XtSetArg (args[n], XmNbackground, GetData.TestPixel); n++;
	        XtSetArg (args[n], XmNlabelString, GetData.TestString); n++;
	        XtSetArg (args[n], XmNlabelPixmap, GetData.TestPixmap); n++;
		XtSetValues (GetData.TestWidget[1], args, n);
	   }

}