/* $TOG: DNDClientData.c /main/6 1997/11/20 12:42:05 csn $ */
/*
 * 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 <Xm/DragDrop.h>
#include "../Toolkit/bitmaps/gnu.bmp"


#define NUM_DROPSITES 5


/*
 * Local functions
 */


static void
HandleDrop (Widget, XtPointer, XtPointer);

static void
DropTransfer (Widget w, XtPointer closure, Atom *seltype, Atom *type, XtPointer value, unsigned long *length, int format);

/*
 * These are the drop sites being  tested
 */

Widget DropSite[5];

Atom COMPOUND_TEXT;

/*
 * Client data structure
 */

typedef struct {  int id;
		  XtPointer data;
	       } ClientData, *ClientDataPointer;


/*
 * dropSiteData related variables
 */

Pixmap MyPixmap;
XmString MyCompString;
char *MyChar;
int MyInt;
Pixel MyPixel;
ClientData TestData1, TestData2, TestData3, TestData4, TestData5, *cdata;



Widget RowCol1;
Widget FormD1, PushB1;

Widget xmDisplay;
Atom importList[1];



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

  Arg args[10];
  	int i,n;

	CommonTestInit (argc, argv);

	n=0;
	FormD1 = XmCreateFormDialog (Shell1, "FormD1", args, n);
	XtManageChild (FormD1);

	n=0;
	XtSetArg (args[n], XmNrightAttachment, XmATTACH_FORM); n++;
	XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM); n++;
	XtSetArg (args[n], XmNtopAttachment, XmATTACH_FORM); n++;
	XtSetArg (args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
	PushB1 = XmCreatePushButton (FormD1, "Drag Source", args, n);
	XtManageChild (PushB1);


	
		
	n=0;
	XtSetArg (args[n], XmNpacking, XmPACK_COLUMN); n++;
	XtSetArg (args[n], XmNnumColumns, 1); n++;
	RowCol1 = XmCreateRowColumn (Shell1, "Row", args, n);
	XtManageChild (RowCol1);


	n=0;
	DropSite[0] = XmCreateToggleButton(RowCol1, "ToggleBtn1", args, n);
	XtManageChild (DropSite[0]);

	n=0;
	DropSite[1] = XmCreateLabel(RowCol1, "Label1", args, n);
	XtManageChild (DropSite[1]);

	n=0;
	DropSite[2] = XmCreateList(RowCol1, "List1", args, n);
	XtManageChild (DropSite[2]);

	n=0;
	XtSetArg (args[n], XmNshowValue, True); n++;
	XtSetArg (args[n], XmNorientation, XmHORIZONTAL); n++;
	DropSite[3] = XmCreateScale(RowCol1, "Scale1", args, n);
	XtManageChild (DropSite[3]);

	n=0;
	DropSite[4] = XmCreatePushButton(RowCol1, "PushBtn1", args, n);
	XtManageChild (DropSite[4]);

   
	
	/*
	 * Create the drop site
	 */

	COMPOUND_TEXT = XmInternAtom (display, "COMPOUND_TEXT",
				      False);
        importList[0] = COMPOUND_TEXT;
	
        /*
         * Create dropsites
         */

	for (i=0; i < NUM_DROPSITES; i++)
	  {
	    n=0;
	    XtSetArg (args[n], XmNimportTargets, importList); n++;
	    XtSetArg (args[n], XmNnumImportTargets,1); n++;
	    XtSetArg (args[n], XmNdropProc, HandleDrop); n++;
	    XtSetArg (args[n], XmNdropSiteOperations, XmDROP_COPY); n++;
	    XmDropSiteRegister (DropSite[i], args, n);
	    
	  }


   	/*
    	 * Initialize client data structure
    	 */
	
	/*
	 * First
	 */

	MyPixel = CommonGetColor ("Red");
	TestData1.id = 1;
	TestData1.data = (XtPointer)&MyPixel;

	n=0;
	XtSetArg (args[n], XmNclientData, (XtPointer)&TestData1);  n++;
	XmDropSiteUpdate (DropSite[0],args,n);



	/*
	 * Second
	 */

	

	MyPixmap =  XCreatePixmapFromBitmapData(display,
                                DefaultRootWindow(display),
                                gnu_bits, gnu_width, gnu_height,
                                WhitePixel(display,DefaultScreen(display)),
                                BlackPixel(display,DefaultScreen(display)),
                                DefaultDepth(display,DefaultScreen(display)));


	TestData2.id = 2;
	TestData2.data = (XtPointer)&MyPixmap;



	n=0;
	XtSetArg (args[n], XmNclientData, (XtPointer)&TestData2);  n++; 
	XmDropSiteUpdate (DropSite[1],args,n);

	

	/*
	 * Third
	 */


	MyCompString = XmStringCreate ("ListItem", 
					XmSTRING_DEFAULT_CHARSET);

	TestData3.id = 3;
	TestData3.data = (XtPointer)&MyCompString;

	n=0;
	XtSetArg (args[n], XmNclientData, (XtPointer)&TestData3);  n++;
	XmDropSiteUpdate (DropSite[2],args,n);

	

	/*
	 * Fourth
	 */

	MyInt = 2;
	TestData4.id = 4;
	TestData4.data = (XtPointer)&MyInt;
	
	n=0;
	XtSetArg (args[n], XmNclientData, (XtPointer)&TestData4);  n++;
	XmDropSiteUpdate (DropSite[3],args,n);

	/*
	 * Fifth
         */

	MyChar = "Another Label";
	TestData5.id = 5;
	TestData5.data = (XtPointer)&MyChar;
	
	n=0;
	XtSetArg (args[n], XmNclientData, (XtPointer)&TestData5);  n++;
	XmDropSiteUpdate (DropSite[4],args,n); 



	XtRealizeWidget (Shell1);



	CommonPause();
	CommonPause();
	CommonPause();
	CommonPause();
	CommonPause();
	CommonPause();
	CommonPause();
	CommonPause();

	XtAppMainLoop(app_context);
  
      }






static void
HandleDrop (Widget w, XtPointer client_data, XtPointer call_data)	
{
	XmDropProcCallback DropProc;
        Widget dc;
        XmDropTransferEntryRec transferEntries[2];
        XmDropTransferEntry transferList;
        Atom *importTargets;
        Arg args[MAX_ARGS];
        int n;
        Arg cargs[MAX_ARGS];
        int cn;
        ClientData *cdata;        

	int which_widget;
	XmString tcs, ListItems[1];

	DropProc = (XmDropProcCallback)call_data;
        dc = DropProc->dragContext;
        
	n=0;
	if ((DropProc->dropAction != XmDROP) || 
	    (DropProc->operation != XmDROP_COPY))
	  {
	      XtSetArg(args[n], XmNtransferStatus, XmTRANSFER_FAILURE); n++;
	  } 

	cn=0;
	XtSetArg (cargs[n], XmNclientData, &cdata);  cn++;
	XmDropSiteRetrieve (w, cargs, cn);

	which_widget = cdata->id;
	
	cn = 0;
	switch (which_widget)
	  {
	   case 1:
	     XtSetArg(cargs[cn], XmNbackground, *((Pixel *)cdata->data)); cn++;
	     break;

	   case 2:
	     XtSetArg(cargs[cn], XmNlabelType, XmPIXMAP); cn++;
  	     XtSetArg(cargs[cn], XmNlabelPixmap,*((Pixmap *)cdata->data));cn++; 
	     break;

	   case 3:
	     ListItems[0] = *((XmString *)cdata->data);
	     XmListAddItem (w, ListItems[0], 1);
	     break;

	   case 4:
	     XtSetArg(cargs[cn], XmNvalue,*((int *)cdata->data)); cn++; 
	     break;

	   case 5:
	     tcs = XmStringCreate (*((char **)cdata->data),
                   XmFONTLIST_DEFAULT_TAG); cn++;
	     XtSetArg(cargs[cn], XmNlabelString, tcs); cn++;
	     break;
	
	   default:
	     break;
	     }

	if (cn > 0)
	  XtSetValues (w,cargs,cn);

	XmDropTransferStart(dc,args,n); 
      }