/*
 *  FM_CoordReq_React.c
 *
 *  Requester for coordinates-request with reaction-support
 *  $VER: V2.1, 06.06.2002
 *  Coded by Edgar Schwan
 */

#include <intuition/gadgetclass.h>
#include <intuition/classusr.h>
#include <intuition/screens.h>
#include <classes/window.h>
#include <dos/dos.h>
#include <gadgets/string.h>
#include <gadgets/checkbox.h>

#include <clib/intuition_protos.h>
#include <clib/exec_protos.h>
#include <clib/graphics_protos.h>
#include <clib/alib_protos.h>

#include <pragmas/intuition_pragmas.h>
#include <pragmas/exec_pragmas.h>
#include <pragmas/graphics_pragmas.h>

#include <stdlib.h>
#include <stdio.h>

#include "FM_CoordReq_React.h"
#include "FM_ReactionBasics.h"
#include "FM_Reaction.h"
#include "FM_ReactionCD.h"
#include "flashmandel.h"

extern ULONG *PALETTE;

//typedef long double LDouble;

/* prototypes */
//void SaveCoords(struct Window *, BOOL);
//void AdjustRatio(LDouble *, LDouble *, LDouble *, LDouble *, WORD, WORD, BOOL);

struct ReactWinData *coord_rwd = NULL;

/* Data */
//long long double Tmp_RMIN, Tmp_IMAX, Tmp_RMAX, Tmp_IMIN, Tmp_JKRE, Tmp_JKIM;
long double Tmp_RMIN, Tmp_IMAX, Tmp_RMAX, Tmp_IMIN, Tmp_JKRE, Tmp_JKIM;

extern long double RMIN, RMAX, IMIN, IMAX;
//extern long long double JKRE, JKIM;
//extern long long double DEF_RMIN, DEF_RMAX, DEF_IMIN, DEF_IMAX;
//extern long long double DEF_JKRE, DEF_JKIM;
//extern long long double URMIN, URMAX, UIMIN, UIMAX, UJKRE, UJKIM;*/
extern long double JKRE, JKIM;
extern long double DEF_RMIN, DEF_RMAX, DEF_IMIN, DEF_IMAX;
extern long double DEF_JKRE, DEF_JKIM;
extern long double URMIN, URMAX, UIMIN, UIMAX, UJKRE, UJKIM;

/*	Do_CoordinatesRequest(): coordinates-requester (full handling).

		SYNOPSIS: BOOL res = Do_CoordinatesRequest
						(
						struct Window	  *Win;
						char				  *PubScreenName;
						WORD 					Left;
						WORD					Top;
						);

		INPUTS:		Win:
							Pointer to the parent-window.

						PubScreenName:
							name of the public-screen, where the window should appear.

						Left:
							Left edge of palette-window (not supported yet).

						Top:
							Top edge of palette-window (not supported yet).

		RETURNS:		res:
							Is TRUE, if changes are accepted.
*/

BOOL Do_CoordinatesRequest(struct Window *Win, char *PubScreenName, WORD Left, WORD Top)
{
BOOL rc = FALSE;
LONG result = RESULT_NOTHING;
BOOL KeepReal = TRUE;
ULONG waitsigs, mask;

Tmp_RMIN = RMIN; Tmp_IMAX = IMAX; Tmp_RMAX = RMAX; Tmp_IMIN = IMIN;

if (OpenCoordReqWindow(PubScreenName, &KeepReal) == TRUE) {
	waitsigs = coord_rwd->RWD_WSignals|SIGBREAKF_CTRL_C;

	while(result == RESULT_NOTHING) {
		mask = Wait(waitsigs);
#ifndef NDEBUG
		printf("mask: %lX\n", mask);
#endif /*NDEBUG*/
		if (mask & coord_rwd->RWD_WSignals) {
			result = HandleCoordReqWindow(Win, &KeepReal);
			}
		if (mask & SIGBREAKF_CTRL_C) {
			result = RESULT_CANCEL;
			}
		if (result == RESULT_OK) rc = TRUE;
		}

	CloseCoordReqWindow();
	} else DisplayError(Win, TXT_ERR_Window, 5L);

LoadRGB32(ViewPortAddress (Win), (APTR) PALETTE);
return(rc);
}

/*	OpenCoordReqWindow(): open window of coordinates-requester.

		SYNOPSIS: BOOL res = OpenCoordReqWindow
						(
						char  *PubScreenName;
						BOOL	*KeepReal;
						);

		INPUTS:		PubScreenName:
							name of the public-screen, where the window should appear.

						KeepReal:
							Is TRUE, if to keep the x-axis.

		RETURNS:		res:
							TRUE, if successfull.
*/

BOOL OpenCoordReqWindow(char *PubScreenName, BOOL *KeepReal)
{
TEXT String [MAXCHARS];

if (coord_rwd = OpenReactionWindow(WIN_COORD_ID, GROUP_Coord_ID, PubScreenName)) {
	sprintf (String, "%+2.16f", IMAX);
	SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_Top], coord_rwd->RWD_IWindow, NULL,
						STRINGA_TextVal, &String, TAG_DONE);
	sprintf (String, "%+2.16f", RMIN);
	SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_Left], coord_rwd->RWD_IWindow, NULL,
						STRINGA_TextVal, &String, TAG_DONE);
	sprintf (String, "%+2.16f", RMAX);
	SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_Right], coord_rwd->RWD_IWindow, NULL,
						STRINGA_TextVal, &String, TAG_DONE);
	sprintf (String, "%+2.16f", IMIN);
	SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_Bottom], coord_rwd->RWD_IWindow, NULL,
						STRINGA_TextVal, &String, TAG_DONE);
	sprintf (String, "%+2.16f", JKRE);
	SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_JuliaReal], coord_rwd->RWD_IWindow, NULL,
						STRINGA_TextVal, &String, TAG_DONE);
	sprintf (String, "%+2.16f", JKIM);
	SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_JuliaImag], coord_rwd->RWD_IWindow, NULL,
						STRINGA_TextVal, &String, TAG_DONE);
	SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_CHECKBOX_KeepAxis], coord_rwd->RWD_IWindow, NULL,
						CHECKBOX_Checked, *KeepReal, TAG_DONE);
	return(TRUE);
	}
return(FALSE);
}

/*	CloseCoordReqWindow(): close window of coordinates-requester.

		SYNOPSIS: void = CloseCoordReqWindow
						(
						void
						);

		INPUTS:		-

		RETURNS:		-
*/

void CloseCoordReqWindow(void)
{
CloseReactionWindow(coord_rwd);
}

/*	HandleCoordReqWindow(): Handle the messages of the coordinates-requester.

		SYNOPSIS: LONG res = HandlePalettePrefWindow
						(
						struct Window	*Win;
						);

		INPUTS:		Win:
							Pointer to a window-structure.

						KeepReal:
							.

		RETURNS:		res:
							result of messages:	RESULT_NOTHING -> nothing happens.
														RESULT_CANCEL  -> user wants to quit without a change.
														RESULT_OK      -> accept changes and quit.
*/

LONG HandleCoordReqWindow(struct Window *Win, BOOL *KeepReal)
{
LONG rc = RESULT_NOTHING;
ULONG result, code;
TEXT String [MAXCHARS];

while((result = DoMethod(coord_rwd->RWD_WindowObject, WM_HANDLEINPUT, &code)) != WMHI_LASTMSG) {

#ifndef NDEBUG
	printf("result: %ld\n", result);
#endif /*NDEBUG*/

	switch (result & WMHI_CLASSMASK) {
		case WMHI_CLOSEWINDOW:
			rc = RESULT_CANCEL;
			break;

		case WMHI_GADGETUP:
			switch (result & RL_GADGETMASK) {
				case Coord_STRING_Top:
					;
					break;
				case Coord_STRING_Left:
					;
					break;
				case Coord_STRING_Right:
					;
					break;
				case Coord_STRING_Bottom:
					;
					break;
				case Coord_STRING_JuliaReal:
					;
					break;
				case Coord_STRING_JuliaImag:
					;
					break;
				case Coord_CHECKBOX_KeepAxis:
					*KeepReal = !(*KeepReal);
					break;
				case Coord_BUTTON_Accept:
					{
					const char *str = NULL;
					GetAttr(STRINGA_TextVal, coord_rwd->RWD_GadgetArray[Coord_STRING_Top], (ULONG *) &str);
					Tmp_IMAX = strtod (str, NULL);
					GetAttr(STRINGA_TextVal, coord_rwd->RWD_GadgetArray[Coord_STRING_Left], (ULONG *) &str);
					Tmp_RMIN = strtod (str, NULL);
					GetAttr(STRINGA_TextVal, coord_rwd->RWD_GadgetArray[Coord_STRING_Right], (ULONG *) &str);
					Tmp_RMAX = strtod (str, NULL);
					GetAttr(STRINGA_TextVal, coord_rwd->RWD_GadgetArray[Coord_STRING_Bottom], (ULONG *) &str);
					Tmp_IMIN = strtod (str, NULL);
					GetAttr(STRINGA_TextVal, coord_rwd->RWD_GadgetArray[Coord_STRING_JuliaReal], (ULONG *) &str);
					Tmp_JKRE = strtod (str, NULL);
					GetAttr(STRINGA_TextVal, coord_rwd->RWD_GadgetArray[Coord_STRING_JuliaImag], (ULONG *) &str);
					Tmp_JKIM = strtod (str, NULL);

					if ((Tmp_RMIN >= Tmp_RMAX) || (Tmp_IMIN >= Tmp_IMAX)) DisplayBeep(Win->WScreen);
					else {
						SaveCoords (Win, FALSE);
						RMIN = Tmp_RMIN; IMAX = Tmp_IMAX; RMAX = Tmp_RMAX; IMIN = Tmp_IMIN;
						JKRE = Tmp_JKRE; JKIM = Tmp_JKIM;
						rc = RESULT_OK;
						}
					}
					break;
				
             case Coord_BUTTON_Ratio:
					AdjustRatio ((LDouble *) &Tmp_RMIN, (LDouble *) &Tmp_IMAX, (LDouble *) &Tmp_RMAX, (LDouble *) &Tmp_IMIN, Win->Width, Win->Height, *KeepReal);
					sprintf (String, "%+2.16f", Tmp_IMAX);
					SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_Top], coord_rwd->RWD_IWindow, NULL,
										STRINGA_TextVal, &String, TAG_DONE);
					sprintf (String, "%+2.16f", Tmp_RMIN);
					SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_Left], coord_rwd->RWD_IWindow, NULL,
										STRINGA_TextVal, &String, TAG_DONE);
					sprintf (String, "%+2.16f", Tmp_RMAX);
					SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_Right], coord_rwd->RWD_IWindow, NULL,
										STRINGA_TextVal, &String, TAG_DONE);
					sprintf (String, "%+2.16f", Tmp_IMIN);
					SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_Bottom], coord_rwd->RWD_IWindow, NULL,
										STRINGA_TextVal, &String, TAG_DONE);
					break;
				
				case Coord_BUTTON_Default:
					sprintf (String, "%+2.16f", DEF_IMAX);
					SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_Top], coord_rwd->RWD_IWindow, NULL,
										STRINGA_TextVal, &String, TAG_DONE);
					sprintf (String, "%+2.16f", DEF_RMIN);
					SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_Left], coord_rwd->RWD_IWindow, NULL,
										STRINGA_TextVal, &String, TAG_DONE);
					sprintf (String, "%+2.16f", DEF_RMAX);
					SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_Right], coord_rwd->RWD_IWindow, NULL,
										STRINGA_TextVal, &String, TAG_DONE);
					sprintf (String, "%+2.16f", DEF_IMIN);
					SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_Bottom], coord_rwd->RWD_IWindow, NULL,
										STRINGA_TextVal, &String, TAG_DONE);
					sprintf (String, "%+2.16f", DEF_JKRE);
					SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_JuliaReal], coord_rwd->RWD_IWindow, NULL,
										STRINGA_TextVal, &String, TAG_DONE);
					sprintf (String, "%+2.16f", DEF_JKIM);
					SetGadgetAttrs(coord_rwd->RWD_GadgetArray[Coord_STRING_JuliaImag], coord_rwd->RWD_IWindow, NULL,
										STRINGA_TextVal, &String, TAG_DONE);
					break;
				case Coord_BUTTON_Cancel:
					rc = RESULT_CANCEL;
					break;
#ifndef NDEBUG
				default:
					printf("unknown result: %lX\nunknown gadget: %lX\n", result, result & WMHI_GADGETMASK);
					DisplayBeep(NULL);
					break;
#endif /*NDEBUG*/
				}
			break;

		case WMHI_ICONIFY:
			DoMethod(coord_rwd->RWD_WindowObject, WM_ICONIFY);
			GetAttr(WINDOW_Window, coord_rwd->RWD_WindowObject, (ULONG *) &coord_rwd->RWD_IWindow);
			break;

		case WMHI_UNICONIFY:
			DoMethod(coord_rwd->RWD_WindowObject, WM_OPEN);
			GetAttr(WINDOW_Window, coord_rwd->RWD_WindowObject, (ULONG *) &coord_rwd->RWD_IWindow);
			break;
#ifndef NDEBUG
		default:
			printf("unknown result: %lX\nunknown class: %lX\n", result, result & WMHI_CLASSMASK);
			DisplayBeep(NULL);
			break;
#endif /*NDEBUG*/
		}
	}
return(rc);
}