/*====================================================================*\
FILE    : TestWindow.c
PURPOSE : Window function testing for Pro/TOOLKIT.

HISTORY..
DATE      BUILD   AUTHOR   MODIFICATIONS
17-Dec-96 H-01-21 Bojan    $$1  Created.
17-Dec-96 H-01-21 Jerry    $$2 Cast ProMenubuttonAction for ProMenubuttonActionSet
20-Jan-97 H-01-21 Pavel    $$3 Added calls some function
31-Jan-97 H-01-25 Pavel    $$4 Some changes in ProTestObjNamesGet, added function 
			       ProTestNotImplemented	
05-Feb-97 H-01-25 Pavel    $$5 Added ProTestWinClose
17-Sep-97 H-03-23 Pavel	   $$6 Removed most functions, since most window 
			       functions alredy tested in another places
			       ProTestObjWinMenu now tested ProWindowsVisit
19-Oct-97 H-03-27 Pavel	   $$7 added TEST_CALL_REPORT
27-Oct-97 H-03-28 Pavel	   $$8 Correct args in TEST_CALL_REPORTs
01-Jul-98 I-01-13 AKH      $$9 Add support for PT/Products Toolkit
\*====================================================================*/

/*--------------------------------------------------------------------*\
Pro/TOOLKIT includes
\*--------------------------------------------------------------------*/
#include <ProToolkit.h>
#include <ProMdl.h>
#include <ProMenu.h>
#include <ProWindows.h>
#include <ProView.h>
#include <ProUtil.h>

/*--------------------------------------------------------------------*\
C System includes
\*--------------------------------------------------------------------*/

/*--------------------------------------------------------------------*\
Application includes
\*--------------------------------------------------------------------*/
#include "TestError.h"
#include "TestMenu.h"
#include "UtilFiles.h"
#include "UtilCollect.h"

/*====================================================================*\
    FUNCTION :  ProTestObjWinMenu()
    PURPOSE  :  Set view test menu.
\*====================================================================*/
int ProTestObjWinMenu()
{
    ProMdl    mdl;
    ProMatrix matrix;
    ProError  err;
    int	*w_id, i, j, k, l, cur_win, num_win;
    char name[PRO_NAME_SIZE];
    double scale[3] = {0.5, 0.5, 4};
    ProName w_name;
    ProPath w_path;
    FILE *fp;


    err = ProUtilCollectWindowIds(&w_id);
    if (err != PRO_TK_NO_ERROR)
    {
	ProUtilMsgPrint("gen", "TEST %0s", "No windows found");
	return (0);
    }

    err = ProWindowCurrentGet(&cur_win);
    TEST_CALL_REPORT("ProWindowCurrentGet()", "ProTestObjWinMenu()",
						err, err != PRO_TK_NO_ERROR);

    fp = fopen("win_info.log", "w");
    ProStringToWstring(w_path, "win_info.log");

    err = ProArraySizeGet((ProArray)w_id, &num_win);
    for (i=0; i<num_win; i++)
    {
#ifndef PT_PRODUCTS_BUILD
	err = ProWindowCurrentSet(w_id[i]);
	TEST_CALL_REPORT("ProWindowCurrentSet()", "ProTestObjWinMenu()",
						err, err != PRO_TK_NO_ERROR);
#endif
	fprintf(fp ,"Window Id %d (%s)\n\n", w_id[i], w_id[i] == cur_win ?
	    "active" : "not active");

	err = ProWindowMdlGet(w_id[i], &mdl);
	TEST_CALL_REPORT("ProWindowMdlGet()", "ProTestObjWinMenu()",
						err, err != PRO_TK_NO_ERROR);

	if (err == PRO_TK_NO_ERROR)
	{
	    err = ProMdlNameGet(mdl, w_name);
	    TEST_CALL_REPORT("ProMdlNameGet()", "ProTestObjWinMenu()",
						err, err != PRO_TK_NO_ERROR);
	    ProWstringToString(name, w_name);
	    fprintf(fp, "Contains model %s\n", name);

	    err = ProWindowCurrentMatrixGet(matrix);
	    TEST_CALL_REPORT("ProWindowCurrentMatrixGet()", 
			    "ProTestObjWinMenu()", err, err != PRO_TK_NO_ERROR);

	    for (k=0; k<3; k++)
	    {
		/* Change model scale to check window matrix functions */
		for (j=0; j<3; j++)
		    for (l=0; l<3; l++)
			matrix[j][l] *= scale[k];

		err = ProWindowPanZoomMatrixSet(w_id[i], matrix);
		TEST_CALL_REPORT("ProWindowPanZoomMatrixSet()", 
			    "ProTestObjWinMenu()", err, err != PRO_TK_NO_ERROR);

		err = ProWindowRepaint(	w_id[i]);
		TEST_CALL_REPORT("ProWindowRepaint()", 
			    "ProTestObjWinMenu()", err, err != PRO_TK_NO_ERROR);
		sleep(1);

	    }
    
	    fprintf(fp, "Window matrix:\n");
	    for (j=0; j<4; j++)
		fprintf(fp, "%8.4f %8.4f %8.4f\n", 
		    matrix[j][0], matrix[j][1], matrix[j][2]);

	    fprintf(fp, "\n\n");

	}

    }
    fclose(fp);

#ifndef PT_PRODUCTS_BUILD
    err = ProWindowCurrentSet(cur_win);
    TEST_CALL_REPORT("ProWindowCurrentSet()", "ProTestObjWinMenu()",
					    err, err != PRO_TK_NO_ERROR);
#endif

    err = ProInfoWindowDisplay(w_path, NULL, NULL);
    TEST_CALL_REPORT("ProInfoWindowDisplay()", 
			    "ProTestObjWinMenu()", err, err != PRO_TK_NO_ERROR);

    return (0);
}