/*
**	ScreenPanel.c
**
**	Editing panel for screen configuration
**
**	Copyright © 1990-1993 by Olaf `Olsen' Barthel & MXM
**		All Rights Reserved
*/

#include "termGlobal.h"

enum	{	GAD_MODES,GAD_MODE,GAD_NEWMODE,GAD_COLOUR,GAD_PALETTE,GAD_RED,GAD_GREEN,GAD_BLUE,GAD_STANDARD,
		GAD_CURRENTFONT,GAD_NEWFONT,GAD_MAKEPUBLIC,GAD_SHANGHAI,GAD_BLINKING,GAD_FASTER_LAYOUT,
		GAD_TITLEBAR,GAD_USE_WORKBENCH,GAD_PUBSCREEN_NAME,GAD_PICKSCREEN,GAD_STATUS_LINE,
		GAD_TIMEDISPLAY,GAD_USE,GAD_CANCEL,GAD_DEFAULT };

struct ModeNode
{
	struct Node	VanillaNode;
	ULONG		DisplayID;
};

STATIC STRPTR		StatusType[4],
			ColourType[5],
			TimeType[4];

STATIC struct List	ModeList;
STATIC BYTE		ModeLimited;

	/* ModeFilter(register __a1 ULONG ID):
	 *
	 *	Screen display mode filter, rejects all
	 *	modes unapproriate for screen display.
	 */

STATIC ULONG __saveds __asm
ModeFilter(register __a1 ULONG ID)
{
	struct DimensionInfo DimensionInfo;

	if(GetDisplayInfoData(NULL,(APTR)&DimensionInfo,sizeof(struct DimensionInfo),DTAG_DIMS,ID))
	{
		if(DimensionInfo . TxtOScan . MaxX - DimensionInfo . TxtOScan . MinX + 1 >= 640)
		{
			if(ModeLimited)
				return((ULONG)ModeOkay(ID));
			else
				return(TRUE);
		}
	}

	return(FALSE);
}

	/* SelectDisplayMode(struct Window *Window,ULONG *Mode):
	 *
	 *	Select a screen display mode using asl.library.
	 */

STATIC BYTE __regargs
SelectDisplayMode(struct Window *Window,ULONG *Mode)
{
	struct ScreenModeRequester	*Request;
	struct Hook			 FilterHook;
	BYTE				 Result = FALSE;
	LONG				 Left	= 0,
					 Top	= 0,
					 Width	= 0,
					 Height	= 0;

	GetWindowInfo(WINDOW_SCREEN,&Left,&Top,&Width,&Height,Window -> Width / 2,Window -> Height / 2);

	FilterHook . h_Entry	= (LONG (*)())ModeFilter;
	FilterHook . h_SubEntry	= NULL;
	FilterHook . h_Data	= NULL;

	if(Request = (struct ScreenModeRequester *)AllocAslRequestTags(ASL_ScreenModeRequest,
		ASLSM_Window,		Window,
		ASLSM_InitialDisplayID,	*Mode,
		ASLSM_FilterFunc,	&FilterHook,
		ASLSM_PrivateIDCMP,	TRUE,
		ASL_LeftEdge,		Left,
		ASL_TopEdge,		Top,
		ASL_Width,		Width,
		ASL_Height,		Height,
	TAG_DONE))
	{
		if(AslRequestTags(Request,TAG_DONE))
		{
			PutWindowInfo(WINDOW_SCREEN,Request -> sm_LeftEdge,Request -> sm_TopEdge,Request -> sm_Width,Request -> sm_Height);

			*Mode = Request -> sm_DisplayID;

			Result = TRUE;
		}

		FreeAslRequest(Request);
	}

	return(Result);
}

STATIC struct Gadget *
CreateAllGadgets(LONG *NumModes,struct Configuration *LocalConfig,struct Gadget **GadgetArray,struct Gadget **GadgetList,BYTE WrongMode,BYTE *Default)
{
	struct Gadget		*Gadget;
	struct NewGadget	 NewGadget;
	UWORD			 Counter = 0;
	LONG			 Mode;

	LocalizeString(StatusType,MSG_SCREENPANEL_STATUS_DISABLED_TXT,MSG_SCREENPANEL_STATUS_COMPACT_TXT);
	LocalizeString(ColourType,MSG_SCREENPANEL_COLOUR_AMIGA_TXT,MSG_SCREENPANEL_COLOUR_MONO_TXT);
	LocalizeString(TimeType,MSG_SCREENPANEL_TIME_ONLINETIME_TXT,MSG_SCREENPANEL_TIME_BOTH_TXT);

	SZ_SizeSetup(Window -> WScreen,&UserFont,TRUE);

	memset(&NewGadget,0,sizeof(struct NewGadget));

	if(Gadget = CreateContext(GadgetList))
	{
		NewList(&ModeList);

		if(LocalConfig -> ScreenConfig -> ColourMode == COLOUR_EIGHT || LocalConfig -> ScreenConfig -> ColourMode == COLOUR_SIXTEEN)
			ModeLimited = TRUE;
		else
			ModeLimited = FALSE;

		SZ_ResetMaxWidth();

		SZ_UpdateMaxWidth(BUTTON_KIND,LocaleString(MSG_GLOBAL_SELECT_NEW_DISPLAY_MODE_TXT),0,NULL);
		SZ_UpdateMaxWidth(BUTTON_KIND,LocaleString(MSG_SCREENPANEL_USE_DEFAULT_TXT),0,NULL);
		SZ_UpdateMaxWidth(BUTTON_KIND,LocaleString(MSG_SCREENPANEL_SELECT_NEW_FONT_TXT),0,NULL);
		SZ_UpdateMaxWidth(CYCLE_KIND,NULL,0,ColourType);

		if(AslBase -> lib_Version < 38)
		{
			ULONG			 SomeMode = INVALID_ID;
			struct DisplayInfo	 DisplayInfo;
			LONG			 Len,Max = 0;

			*NumModes = Mode = 0;

			while((SomeMode = NextDisplayInfo(SomeMode)) != INVALID_ID)
			{
				if(ModeLimited)
				{
					if(!ModeOkay(SomeMode))
						continue;
				}

				if(GetDisplayInfoData(NULL,(APTR)&DisplayInfo,sizeof(struct DisplayInfo),DTAG_DISP,SomeMode))
				{
					if(DisplayInfo . PropertyFlags & DIPF_IS_WB)
					{
						struct ModeNode	*Node;
						STRPTR		 Name;

						Name = GetModeName(SomeMode);

						if((Len = strlen(Name)) > Max)
							Max = Len;

						if(Node = (struct ModeNode *)AllocVec(sizeof(struct ModeNode) + Len + 1,MEMF_ANY | MEMF_CLEAR))
						{
							Node -> VanillaNode . ln_Name	= (char *)(Node + 1);
							Node -> DisplayID		= SomeMode;

							strcpy(Node -> VanillaNode . ln_Name,Name);

							AddTail(&ModeList,&Node -> VanillaNode);

							if(LocalConfig -> ScreenConfig -> DisplayMode == SomeMode)
								Mode = *NumModes;

							*NumModes = *NumModes + 1;
						}
					}
				}
			}

			SZ_UpdateMaxWidth(LISTVIEW_KIND,NULL,Max,NULL);
			SZ_SetWidth(SZ_ResetMaxWidth());

			SZ_AddLeftOffset(SZ_LeftOffsetN(MSG_SCREENPANEL_AVAILABLE_DISPLAY_MODES_GAD,MSG_SCREENPANEL_COLOUR_GAD,MSG_SCREENPANEL_EDIT_SCREEN_PALETTE_GAD,MSG_SCREENPANEL_RED_GAD,MSG_SCREENPANEL_GREEN_GAD,MSG_SCREENPANEL_BLUE_GAD,MSG_SCREENPANEL_SCREEN_FONT_GAD,-1));

			NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_AVAILABLE_DISPLAY_MODES_GAD);
			NewGadget . ng_GadgetID		= Counter;
			NewGadget . ng_Flags		= PLACETEXT_LEFT;

			GadgetArray[Counter] = Gadget = CreateGadget(LISTVIEW_KIND,Gadget,&NewGadget,
				SZ_Adjust,		TRUE,
				SZ_AutoWidth,		TRUE,
				SZ_Lines,		4,

				GTLV_Labels,		&ModeList,
				GTLV_ShowSelected,	NULL,
				GTLV_Selected,		Mode,
				GTLV_Top,		Mode,
			TAG_DONE);
		}
		else
		{
			ULONG			 SomeMode = INVALID_ID;
			struct DisplayInfo	 DisplayInfo;
			LONG			 Len,Max = 0;

			while((SomeMode = NextDisplayInfo(SomeMode)) != INVALID_ID)
			{
				if(ModeLimited)
				{
					if(!ModeOkay(SomeMode))
						continue;
				}

				if(GetDisplayInfoData(NULL,(APTR)&DisplayInfo,sizeof(struct DisplayInfo),DTAG_DISP,SomeMode))
				{
					if(DisplayInfo . PropertyFlags & DIPF_IS_WB)
					{
						if((Len = strlen(GetModeName(SomeMode))) > Max)
							Max = Len;
					}
				}
			}

			SZ_UpdateMaxWidth(TEXT_KIND,NULL,Max,NULL);

			SZ_SetWidth(SZ_ResetMaxWidth());

			SZ_AddLeftOffset(SZ_LeftOffsetN(MSG_SCREENPANEL_CURRENT_DISPLAY_MODE_GAD,MSG_SCREENPANEL_COLOUR_GAD,MSG_SCREENPANEL_EDIT_SCREEN_PALETTE_GAD,MSG_SCREENPANEL_RED_GAD,MSG_SCREENPANEL_GREEN_GAD,MSG_SCREENPANEL_BLUE_GAD,MSG_SCREENPANEL_SCREEN_FONT_GAD,-1));

			Counter = GAD_MODE;

			NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_CURRENT_DISPLAY_MODE_GAD);
			NewGadget . ng_GadgetID		= Counter;
			NewGadget . ng_Flags		= PLACETEXT_LEFT;

			if(ModeNotAvailable(LocalConfig -> ScreenConfig -> DisplayMode))
				LocalConfig -> ScreenConfig -> DisplayMode = HIRES_KEY;

			GadgetArray[Counter++] = Gadget = CreateGadget(TEXT_KIND,Gadget,&NewGadget,
				SZ_Adjust,	TRUE,
				SZ_AutoWidth,	TRUE,

				GTTX_Text,	GetModeName(LocalConfig -> ScreenConfig -> DisplayMode),
				GTTX_Border,	TRUE,
			TAG_DONE);

			NewGadget . ng_GadgetText	= LocaleString(MSG_GLOBAL_SELECT_NEW_DISPLAY_MODE_TXT);
			NewGadget . ng_GadgetID		= Counter;
			NewGadget . ng_Flags		= 0;

			GadgetArray[Counter] = Gadget = CreateGadget(BUTTON_KIND,Gadget,&NewGadget,
				SZ_Adjust,	TRUE,
				SZ_AutoWidth,	TRUE,
			TAG_DONE);
		}

		Counter = GAD_COLOUR;

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_COLOUR_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(CYCLE_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,

			GTCY_Labels,	ColourType,
			GTCY_Active,	LocalConfig -> ScreenConfig -> ColourMode,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_EDIT_SCREEN_PALETTE_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(PALETTE_KIND,Gadget,&NewGadget,
			SZ_Adjust,		TRUE,
			SZ_AutoWidth,		TRUE,
			SZ_AlignExtra,		TRUE,

			GTPA_Depth,		Config -> ScreenConfig -> ColourMode == COLOUR_EIGHT ? 3 : MIN(Window -> WScreen -> RastPort . BitMap -> Depth,4),
			GTPA_Color,		0,
			GA_Disabled,		WrongMode,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_RED_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(SLIDER_KIND,Gadget,&NewGadget,
			SZ_Adjust,		TRUE,
			SZ_AutoWidth,		TRUE,

			GTSL_Min,		0,
			GTSL_Max,		15,
			GTSL_Level,		0,
			GTSL_LevelFormat,	"%2ld",
			GTSL_MaxLevelLen,	2,
			GA_Disabled,		WrongMode,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_GREEN_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(SLIDER_KIND,Gadget,&NewGadget,
			SZ_Adjust,		TRUE,
			SZ_AutoWidth,		TRUE,

			GTSL_Min,		0,
			GTSL_Max,		15,
			GTSL_Level,		0,
			GTSL_LevelFormat,	"%2ld",
			GTSL_MaxLevelLen,	2,
			GA_Disabled,		WrongMode,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_BLUE_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(SLIDER_KIND,Gadget,&NewGadget,
			SZ_Adjust,		TRUE,
			SZ_AutoWidth,		TRUE,

			GTSL_Min,		0,
			GTSL_Max,		15,
			GTSL_Level,		0,
			GTSL_LevelFormat,	"%2ld",
			GTSL_MaxLevelLen,	2,
			GA_Disabled,		WrongMode,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_USE_DEFAULT_TXT);
		NewGadget . ng_GadgetID		= Counter;
		NewGadget . ng_Flags		= 0;

		GadgetArray[Counter++] = Gadget = CreateGadget(BUTTON_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,

			GA_Disabled,	WrongMode,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_SCREEN_FONT_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(TEXT_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,
			SZ_AlignExtra,	TRUE,

			GTTX_Border,	TRUE,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_SELECT_NEW_FONT_TXT);
		NewGadget . ng_GadgetID		= Counter;
		NewGadget . ng_Flags		= 0;

		GadgetArray[Counter++] = Gadget = CreateGadget(BUTTON_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,
			GA_Disabled,	LocalConfig -> ScreenConfig -> UseWorkbench,
		TAG_DONE);

		SZ_AddLeftOffset(SZ_LeftOffsetDelta(MSG_SCREENPANEL_MAKE_SCREEN_PUBLIC_GAD,MSG_SCREENPANEL_STATUS_LINE_GAD));

		SZ_ResetMaxWidth();

		SZ_UpdateMaxWidth(CYCLE_KIND,NULL,0,StatusType);
		SZ_UpdateMaxWidth(CYCLE_KIND,NULL,0,TimeType);

		SZ_SetWidth(SZ_ResetMaxWidth());

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_MAKE_SCREEN_PUBLIC_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(CHECKBOX_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,
			SZ_NewColumn,	TRUE,

			GTCB_Checked,	LocalConfig -> ScreenConfig -> MakeScreenPublic,
			GA_Disabled,	LocalConfig -> ScreenConfig -> UseWorkbench,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_SHANGHAI_WINDOWS_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(CHECKBOX_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,

			GTCB_Checked,	LocalConfig -> ScreenConfig -> ShanghaiWindows,
			GA_Disabled,	!LocalConfig -> ScreenConfig -> MakeScreenPublic || LocalConfig -> ScreenConfig -> UseWorkbench,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_BLINKING_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(CHECKBOX_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,
			SZ_AlignExtra,	TRUE,

			GTCB_Checked,	LocalConfig -> ScreenConfig -> Blinking,
			GA_Disabled,	LocalConfig -> ScreenConfig -> UseWorkbench,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_FASTER_LAYOUT_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(CHECKBOX_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,

			GTCB_Checked,	LocalConfig -> ScreenConfig -> FasterLayout,
			GA_Disabled,	LocalConfig -> ScreenConfig -> UseWorkbench,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_SCREEN_TITLE_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(CHECKBOX_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,

			GTCB_Checked,	LocalConfig -> ScreenConfig -> TitleBar,
			GA_Disabled,	LocalConfig -> ScreenConfig -> UseWorkbench,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_USE_WORKBENCH_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(CHECKBOX_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,

			GTCB_Checked,	LocalConfig -> ScreenConfig -> UseWorkbench,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_PUBSCREEN_NAME_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(STRING_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,
			SZ_LeaveFolder,	TRUE,

			GTST_MaxChars,	MAXPUBSCREENNAME,
			GTST_String,	LocalConfig -> ScreenConfig -> PubScreenName,
			GA_Disabled,	!LocalConfig -> ScreenConfig -> UseWorkbench,
		TAG_DONE);

		NewGadget . ng_GadgetID = Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(SCREEN_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,
			SZ_PlaceLeft,	TRUE,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_STATUS_LINE_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(CYCLE_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,

			GTCY_Labels,	StatusType,
			GTCY_Active,	LocalConfig -> ScreenConfig -> StatusLine,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_SCREENPANEL_ONLINE_TIME_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(CYCLE_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,
			SZ_AlignExtra,	TRUE,

			GTCY_Labels,	TimeType,
			GTCY_Active,	LocalConfig -> ScreenConfig -> TimeMode,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_GLOBAL_USE_GAD);
		NewGadget . ng_GadgetID		= Counter;
		NewGadget . ng_Flags		= 0;

		SZ_UpdateMaxWidth(BUTTON_KIND,LocaleString(MSG_GLOBAL_USE_GAD),0,NULL);
		SZ_UpdateMaxWidth(BUTTON_KIND,LocaleString(MSG_GLOBAL_CANCEL_GAD),0,NULL);
		SZ_UpdateMaxWidth(BUTTON_KIND,LocaleString(MSG_GLOBAL_DEFAULT_GAD),0,NULL);

		SZ_SetWidth(SZ_ResetMaxWidth());

		GadgetArray[Counter++] = Gadget = CreateGadget(BUTTON_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,
			SZ_AlignExtra,	TRUE,
			SZ_AlignLeft,	TRUE,
			SZ_AlignBottom,	TRUE,
		TAG_DONE);

		NewGadget . ng_GadgetText	= LocaleString(MSG_GLOBAL_CANCEL_GAD);
		NewGadget . ng_GadgetID		= Counter;

		GadgetArray[Counter++] = Gadget = CreateGadget(BUTTON_KIND,Gadget,&NewGadget,
			SZ_Adjust,	TRUE,
			SZ_AutoWidth,	TRUE,
			SZ_AlignRight,	TRUE,
		TAG_DONE);

		if(Default)
		{
			NewGadget . ng_GadgetText	= LocaleString(MSG_GLOBAL_DEFAULT_GAD);
			NewGadget . ng_GadgetID		= Counter;

			GadgetArray[Counter] = Gadget = CreateGadget(BUTTON_KIND,Gadget,&NewGadget,
				SZ_Adjust,	TRUE,
				SZ_AutoWidth,	TRUE,
				SZ_AlignCentre,	TRUE,
			TAG_DONE);
		}
	}

	return(Gadget);
}

STATIC BYTE
IsWrongMode(struct Configuration *MyConfig,WORD OriginalMode)
{
	if(Config -> ScreenConfig -> ColourMode != OriginalMode || MyConfig -> ScreenConfig -> UseWorkbench || Config -> ScreenConfig -> UseWorkbench || !Screen)
		return(TRUE);
	else
	{
		switch(MyConfig -> ScreenConfig -> ColourMode)
		{
			case COLOUR_AMIGA:

				if(Window -> WScreen -> RastPort . BitMap -> Depth < 2)
					return(TRUE);

				break;

			case COLOUR_EIGHT:

				if(Window -> WScreen -> RastPort . BitMap -> Depth < 3)
					return(TRUE);

				break;

			case COLOUR_SIXTEEN:

				if(Window -> WScreen -> RastPort . BitMap -> Depth < 4)
					return(TRUE);

				break;

			case COLOUR_MONO:

				if(Window -> WScreen -> RastPort . BitMap -> Depth > 1)
					return(TRUE);

				break;
		}

		return(FALSE);
	}
}

BYTE
ScreenPanel(struct Configuration *MyConfig,BYTE *Default)
{
	struct Window	*PanelWindow;
	struct Gadget	*GadgetList = NULL;
	struct Gadget	*GadgetArray[GAD_DEFAULT + 1];
	LONG		 NumModes;

	BYTE		 WrongMode;
	struct ModeNode	*Node,*Next;

	SaveConfig(MyConfig,PrivateConfig);

	WrongMode = IsWrongMode(MyConfig,PrivateConfig -> ScreenConfig -> ColourMode);

	if(CreateAllGadgets(&NumModes,MyConfig,GadgetArray,&GadgetList,WrongMode,Default))
	{
		if(PanelWindow = OpenWindowTags(NULL,
			WA_Left,	GetScreenLeft(Window) + (GetScreenWidth(Window) - SZ_GetWindowWidth()) / 2,
			WA_Top,		GetScreenTop(Window) + (GetScreenHeight(Window) - SZ_GetWindowHeight())	/ 2,
			WA_Width,	SZ_GetWindowWidth(),
			WA_Height,	SZ_GetWindowHeight(),

			WA_Activate,	TRUE,
			WA_DragBar,	TRUE,
			WA_DepthGadget,	TRUE,
			WA_RMBTrap,	TRUE,
			WA_DepthGadget,	TRUE,
			WA_CloseGadget,	TRUE,
			WA_CustomScreen,Window -> WScreen,

			WA_IDCMP,	IDCMP_GADGETDOWN | IDCMP_ACTIVEWINDOW | IDCMP_CLOSEWINDOW | IDCMP_VANILLAKEY | IDCMP_RAWKEY | STRINGIDCMP | SLIDERIDCMP | CHECKBOXIDCMP | LISTVIEWIDCMP | PALETTEIDCMP | BUTTONIDCMP | CYCLEIDCMP,

			WA_Title,	LocaleString(MSG_SCREENPANEL_SCREEN_PREFERENCES_TXT),
		TAG_DONE))
		{
			struct IntuiMessage	*Massage;
			ULONG			 IClass,Code;
			struct Gadget		*Gadget;
			BYTE			 Terminated = FALSE;

			LONG			 ColourNumber = 0;
			BYTE			 Red,Green,Blue;

			GuideContext(CONTEXT_SCREEN);

			PushWindow(PanelWindow);

			AddGList(PanelWindow,GadgetList,(UWORD)-1,(UWORD)-1,NULL);
			RefreshGList(GadgetList,PanelWindow,NULL,(UWORD)-1);
			GT_RefreshWindow(PanelWindow,NULL);

			if(!WrongMode)
			{
				Red	= (MyConfig -> ScreenConfig -> Colours[ColourNumber] >> 8) & 0xF;
				Green	= (MyConfig -> ScreenConfig -> Colours[ColourNumber] >> 4) & 0xF;
				Blue	= (MyConfig -> ScreenConfig -> Colours[ColourNumber]     ) & 0xF;

				GT_SetGadgetAttrs(GadgetArray[GAD_RED],PanelWindow,NULL,
					GTSL_Level,Red,
				TAG_DONE);

				GT_SetGadgetAttrs(GadgetArray[GAD_GREEN],PanelWindow,NULL,
					GTSL_Level,Green,
				TAG_DONE);

				GT_SetGadgetAttrs(GadgetArray[GAD_BLUE],PanelWindow,NULL,
					GTSL_Level,Blue,
				TAG_DONE);
			}

			SPrintf(SharedBuffer,"%s %ld",MyConfig -> ScreenConfig -> FontName,MyConfig -> ScreenConfig -> FontHeight);

			GT_SetGadgetAttrs(GadgetArray[GAD_CURRENTFONT],PanelWindow,NULL,
				GTTX_Text,	SharedBuffer,
			TAG_DONE);

			if(!WrongMode && Screen)
				LoadRGB4(VPort,NormalColours,PaletteSize);

			ActiveGadget = NULL;

			ClrSignal(SIG_BREAK);

			while(!Terminated)
			{
				if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
				{
					SaveConfig(PrivateConfig,MyConfig);

					if(!Config -> ScreenConfig -> UseWorkbench && Screen)
					{
						if(!memcmp(Config -> ScreenConfig -> Colours,MyConfig -> ScreenConfig -> Colours,sizeof(UWORD) * 16))
							PaletteSetup(MyConfig);
						else
							PaletteSetup(Config);

						LoadRGB4(VPort,NormalColours,PaletteSize);
					}

					break;
				}

				while(!Terminated && (Massage = (struct IntuiMessage *)GT_GetIMsg(PanelWindow -> UserPort)))
				{
					IClass	= Massage -> Class;
					Code	= Massage -> Code;
					Gadget	= (struct Gadget *)Massage -> IAddress;

					GT_ReplyIMsg(Massage);

					KeySelect(GadgetArray,GAD_CANCEL,Code,PanelWindow,&Gadget,&IClass,&Code);

					if(IClass == IDCMP_ACTIVEWINDOW && ActiveGadget)
						ActivateGadget(ActiveGadget,PanelWindow,NULL);

					if(IClass == IDCMP_GADGETDOWN)
					{
						if((Gadget -> GadgetType & GTYP_GTYPEMASK) == GTYP_STRGADGET)
							ActiveGadget = Gadget;
					}

					if(IClass == IDCMP_CLOSEWINDOW)
					{
						SaveConfig(PrivateConfig,MyConfig);

						if(!MyConfig -> ScreenConfig -> UseWorkbench && Screen)
						{
							if(!memcmp(Config -> ScreenConfig -> Colours,MyConfig -> ScreenConfig -> Colours,sizeof(UWORD) * 16))
								PaletteSetup(MyConfig);
							else
								PaletteSetup(Config);

							LoadRGB4(VPort,NormalColours,PaletteSize);
						}

						Terminated = TRUE;
					}

					if(IClass == IDCMP_MOUSEMOVE)
					{
						switch(Gadget -> GadgetID)
						{
							case GAD_RED:

								Red = Code;

								MyConfig -> ScreenConfig -> Colours[ColourNumber] = (Red << 8) | (Green << 4) | (Blue);

								PaletteSetup(MyConfig);
								LoadRGB4(VPort,NormalColours,PaletteSize);

								break;

							case GAD_GREEN:

								Green = Code;

								MyConfig -> ScreenConfig -> Colours[ColourNumber] = (Red << 8) | (Green << 4) | (Blue);

								PaletteSetup(MyConfig);
								LoadRGB4(VPort,NormalColours,PaletteSize);

								break;

							case GAD_BLUE:

								Blue = Code;

								MyConfig -> ScreenConfig -> Colours[ColourNumber] = (Red << 8) | (Green << 4) | (Blue);

								PaletteSetup(MyConfig);
								LoadRGB4(VPort,NormalColours,PaletteSize);

								break;
						}
					}

					if(IClass == IDCMP_GADGETUP)
					{
						switch(Gadget -> GadgetID)
						{
							case GAD_USE_WORKBENCH:

								if(SZ_GetChecked(Gadget))
								{
									MyConfig -> ScreenConfig -> UseWorkbench = TRUE;

									GT_SetGadgetAttrs(GadgetArray[GAD_NEWFONT],PanelWindow,NULL,
										GA_Disabled,TRUE,
									TAG_DONE);

									GT_SetGadgetAttrs(GadgetArray[GAD_BLINKING],PanelWindow,NULL,
										GA_Disabled,	TRUE,
										GTCB_Checked,	FALSE,
									TAG_DONE);

									GT_SetGadgetAttrs(GadgetArray[GAD_FASTER_LAYOUT],PanelWindow,NULL,
										GA_Disabled,	TRUE,
										GTCB_Checked,	FALSE,
									TAG_DONE);

									GT_SetGadgetAttrs(GadgetArray[GAD_TITLEBAR],PanelWindow,NULL,
										GA_Disabled,TRUE,
									TAG_DONE);

									GT_SetGadgetAttrs(GadgetArray[GAD_MAKEPUBLIC],PanelWindow,NULL,
										GA_Disabled,TRUE,
									TAG_DONE);

									GT_SetGadgetAttrs(GadgetArray[GAD_SHANGHAI],PanelWindow,NULL,
										GA_Disabled,TRUE,
									TAG_DONE);

									GT_SetGadgetAttrs(GadgetArray[GAD_PUBSCREEN_NAME],PanelWindow,NULL,
										GA_Disabled,FALSE,
									TAG_DONE);
								}
								else
								{
									MyConfig -> ScreenConfig -> UseWorkbench = FALSE;

									GT_SetGadgetAttrs(GadgetArray[GAD_NEWFONT],PanelWindow,NULL,
										GA_Disabled,FALSE,
									TAG_DONE);

									GT_SetGadgetAttrs(GadgetArray[GAD_BLINKING],PanelWindow,NULL,
										GA_Disabled,FALSE,
									TAG_DONE);

									GT_SetGadgetAttrs(GadgetArray[GAD_FASTER_LAYOUT],PanelWindow,NULL,
										GA_Disabled,FALSE,
									TAG_DONE);

									GT_SetGadgetAttrs(GadgetArray[GAD_TITLEBAR],PanelWindow,NULL,
										GA_Disabled,FALSE,
									TAG_DONE);

									GT_SetGadgetAttrs(GadgetArray[GAD_MAKEPUBLIC],PanelWindow,NULL,
										GA_Disabled,FALSE,
									TAG_DONE);

									GT_SetGadgetAttrs(GadgetArray[GAD_SHANGHAI],PanelWindow,NULL,
										GA_Disabled,!MyConfig -> ScreenConfig -> MakeScreenPublic,
									TAG_DONE);

									GT_SetGadgetAttrs(GadgetArray[GAD_PUBSCREEN_NAME],PanelWindow,NULL,
										GA_Disabled,TRUE,
									TAG_DONE);
								}

								break;

							case GAD_STATUS_LINE:

								MyConfig -> ScreenConfig -> StatusLine = Code;
								break;

							case GAD_TIMEDISPLAY:

								MyConfig -> ScreenConfig -> TimeMode = Code;
								break;

							case GAD_COLOUR:

								MyConfig -> ScreenConfig -> ColourMode = Code;

								if(!ModeOkay(MyConfig -> ScreenConfig -> DisplayMode) && MyConfig -> ScreenConfig -> ColourMode > COLOUR_AMIGA)
								{
									MyConfig -> ScreenConfig -> ColourMode = COLOUR_MONO;

									GT_SetGadgetAttrs(GadgetArray[GAD_COLOUR],PanelWindow,NULL,
										GTCY_Active,COLOUR_MONO,
									TAG_DONE);
								}

								WrongMode = IsWrongMode(MyConfig,PrivateConfig -> ScreenConfig -> ColourMode);

								GT_SetGadgetAttrs(GadgetArray[GAD_PALETTE],PanelWindow,NULL,
									GA_Disabled,WrongMode,
								TAG_DONE);

								GT_SetGadgetAttrs(GadgetArray[GAD_RED],PanelWindow,NULL,
									GA_Disabled,WrongMode,
								TAG_DONE);

								GT_SetGadgetAttrs(GadgetArray[GAD_GREEN],PanelWindow,NULL,
									GA_Disabled,WrongMode,
								TAG_DONE);

								GT_SetGadgetAttrs(GadgetArray[GAD_BLUE],PanelWindow,NULL,
									GA_Disabled,WrongMode,
								TAG_DONE);

								GT_SetGadgetAttrs(GadgetArray[GAD_STANDARD],PanelWindow,NULL,
									GA_Disabled,WrongMode,
								TAG_DONE);

								if(MyConfig -> ScreenConfig -> UseWorkbench)
								{
									GT_SetGadgetAttrs(GadgetArray[GAD_BLINKING],PanelWindow,NULL,
										GA_Disabled,	TRUE,
										GTCB_Checked,	FALSE,
									TAG_DONE);
								}
								else
								{
									if(MyConfig -> ScreenConfig -> ColourMode == COLOUR_MONO)
									{
										GT_SetGadgetAttrs(GadgetArray[GAD_BLINKING],PanelWindow,NULL,
											GA_Disabled,	TRUE,
											GTCB_Checked,	FALSE,
										TAG_DONE);
									}
								}

								break;

							case GAD_RED:

								Red = Code;

								MyConfig -> ScreenConfig -> Colours[ColourNumber] = (Red << 8) | (Green << 4) | (Blue);

								PaletteSetup(MyConfig);
								LoadRGB4(VPort,NormalColours,PaletteSize);

								break;

							case GAD_GREEN:

								Green = Code;

								MyConfig -> ScreenConfig -> Colours[ColourNumber] = (Red << 8) | (Green << 4) | (Blue);

								PaletteSetup(MyConfig);
								LoadRGB4(VPort,NormalColours,PaletteSize);

								break;

							case GAD_BLUE:

								Blue = Code;

								MyConfig -> ScreenConfig -> Colours[ColourNumber] = (Red << 8) | (Green << 4) | (Blue);

								PaletteSetup(MyConfig);
								LoadRGB4(VPort,NormalColours,PaletteSize);

								break;

							case GAD_STANDARD:

								switch(MyConfig -> ScreenConfig -> ColourMode)
								{
									case COLOUR_AMIGA:

										CopyMem(DefaultColours,MyConfig -> ScreenConfig -> Colours,16 * sizeof(UWORD));
										break;

									case COLOUR_EIGHT:

										CopyMem(ANSIColours,MyConfig -> ScreenConfig -> Colours,16 * sizeof(UWORD));
										break;

									case COLOUR_SIXTEEN:

										CopyMem(EGAColours,MyConfig -> ScreenConfig -> Colours,16 * sizeof(UWORD));
										break;

									case COLOUR_MONO:

										CopyMem(AtomicColours,MyConfig -> ScreenConfig -> Colours,16 * sizeof(UWORD));
										break;
								}

								Red	= (MyConfig -> ScreenConfig -> Colours[ColourNumber] >> 8) & 0xF;
								Green	= (MyConfig -> ScreenConfig -> Colours[ColourNumber] >> 4) & 0xF;
								Blue	= (MyConfig -> ScreenConfig -> Colours[ColourNumber]     ) & 0xF;

								GT_SetGadgetAttrs(GadgetArray[GAD_RED],PanelWindow,NULL,
									GTSL_Level,Red,
								TAG_DONE);

								GT_SetGadgetAttrs(GadgetArray[GAD_GREEN],PanelWindow,NULL,
									GTSL_Level,Green,
								TAG_DONE);

								GT_SetGadgetAttrs(GadgetArray[GAD_BLUE],PanelWindow,NULL,
									GTSL_Level,Blue,
								TAG_DONE);

								PaletteSetup(MyConfig);
								LoadRGB4(VPort,NormalColours,PaletteSize);

								break;

							case GAD_MAKEPUBLIC:

								if(!SZ_GetChecked(Gadget))
								{
									GT_SetGadgetAttrs(GadgetArray[GAD_SHANGHAI],PanelWindow,NULL,
										GTCB_Checked,	FALSE,
										GA_Disabled,	TRUE,
									TAG_DONE);
								}
								else
								{
									GT_SetGadgetAttrs(GadgetArray[GAD_SHANGHAI],PanelWindow,NULL,
										GA_Disabled,	FALSE,
									TAG_DONE);
								}

								break;

							case GAD_MODES:	

								if(Node = (struct ModeNode *)GetListNode(Code,&ModeList))
								{
									MyConfig -> ScreenConfig -> DisplayMode = Node -> DisplayID;

									if(!ModeOkay(MyConfig -> ScreenConfig -> DisplayMode) && MyConfig -> ScreenConfig -> ColourMode > COLOUR_AMIGA)
									{
										MyConfig -> ScreenConfig -> ColourMode = COLOUR_AMIGA;

										GT_SetGadgetAttrs(GadgetArray[GAD_COLOUR],PanelWindow,NULL,
											GTCY_Active,COLOUR_AMIGA,
										TAG_DONE);
									}
								}

								break;

							case GAD_NEWMODE:

								BlockWindow(PanelWindow);

								if(SelectDisplayMode(PanelWindow,&MyConfig -> ScreenConfig -> DisplayMode))
								{
									GT_SetGadgetAttrs(GadgetArray[GAD_MODE],PanelWindow,NULL,
										GTTX_Text,	GetModeName(MyConfig -> ScreenConfig -> DisplayMode),
									TAG_DONE);

									if(!ModeOkay(MyConfig -> ScreenConfig -> DisplayMode) && MyConfig -> ScreenConfig -> ColourMode > COLOUR_AMIGA)
									{
										MyConfig -> ScreenConfig -> ColourMode = COLOUR_AMIGA;

										GT_SetGadgetAttrs(GadgetArray[GAD_COLOUR],PanelWindow,NULL,
											GTCY_Active,COLOUR_AMIGA,
										TAG_DONE);
									}
								}

								ReleaseWindow(PanelWindow);

								break;

							case GAD_PALETTE:

								ColourNumber = Code;

SetPalette:							Red	= (MyConfig -> ScreenConfig -> Colours[ColourNumber] >> 8) & 0xF;
								Green	= (MyConfig -> ScreenConfig -> Colours[ColourNumber] >> 4) & 0xF;
								Blue	= (MyConfig -> ScreenConfig -> Colours[ColourNumber]     ) & 0xF;

								GT_SetGadgetAttrs(GadgetArray[GAD_RED],PanelWindow,NULL,
									GTSL_Level,Red,
								TAG_DONE);

								GT_SetGadgetAttrs(GadgetArray[GAD_GREEN],PanelWindow,NULL,
									GTSL_Level,Green,
								TAG_DONE);

								GT_SetGadgetAttrs(GadgetArray[GAD_BLUE],PanelWindow,NULL,
									GTSL_Level,Blue,
								TAG_DONE);

								break;

							case GAD_NEWFONT:

								BlockWindow(PanelWindow);

								if(PickFont(PanelWindow,MyConfig -> ScreenConfig -> FontName,&MyConfig -> ScreenConfig -> FontHeight,!Kick30))
								{
									SPrintf(SharedBuffer,"%s %ld",MyConfig -> ScreenConfig -> FontName,MyConfig -> ScreenConfig -> FontHeight);

									GT_SetGadgetAttrs(GadgetArray[GAD_CURRENTFONT],PanelWindow,NULL,
										GTTX_Text,	SharedBuffer,
									TAG_DONE);
								}

								ReleaseWindow(PanelWindow);

								break;

							case GAD_USE:

								Terminated = TRUE;

								if(!WrongMode)
									PaletteSetup(MyConfig);
								else
								{
									if(MyConfig -> ScreenConfig -> ColourMode != PrivateConfig -> ScreenConfig -> ColourMode)
									{
										switch(MyConfig -> ScreenConfig -> ColourMode)
										{
											case COLOUR_EIGHT:

												CopyMem(ANSIColours,MyConfig -> ScreenConfig -> Colours,16 * sizeof(UWORD));
												break;

											case COLOUR_SIXTEEN:

												CopyMem(EGAColours,MyConfig -> ScreenConfig -> Colours,16 * sizeof(UWORD));
												break;

											case COLOUR_AMIGA:

												CopyMem(DefaultColours,MyConfig -> ScreenConfig -> Colours,16 * sizeof(UWORD));
												break;

											case COLOUR_MONO:

												CopyMem(AtomicColours,MyConfig -> ScreenConfig -> Colours,16 * sizeof(UWORD));
												break;
										}
									}
								}

								MyConfig -> ScreenConfig -> MakeScreenPublic	= SZ_GetChecked(GadgetArray[GAD_MAKEPUBLIC]);
								MyConfig -> ScreenConfig -> ShanghaiWindows	= SZ_GetChecked(GadgetArray[GAD_SHANGHAI]);
								MyConfig -> ScreenConfig -> Blinking		= SZ_GetChecked(GadgetArray[GAD_BLINKING]);
								MyConfig -> ScreenConfig -> FasterLayout	= SZ_GetChecked(GadgetArray[GAD_FASTER_LAYOUT]);
								MyConfig -> ScreenConfig -> TitleBar		= SZ_GetChecked(GadgetArray[GAD_TITLEBAR]);
								MyConfig -> ScreenConfig -> UseWorkbench	= SZ_GetChecked(GadgetArray[GAD_USE_WORKBENCH]);

								strcpy(MyConfig -> ScreenConfig -> PubScreenName,SZ_GetString(GadgetArray[GAD_PUBSCREEN_NAME]));

								break;

							case GAD_PICKSCREEN:

								if(MyConfig -> ScreenConfig -> UseWorkbench)
								{
									UBYTE DummyBuffer[MAXPUBSCREENNAME + 1];

									BlockWindow(PanelWindow);

									strcpy(DummyBuffer,SZ_GetString(GadgetArray[GAD_PUBSCREEN_NAME]));
									strcpy(SharedBuffer,DummyBuffer);

									if(PickScreen(DummyBuffer))
									{
										if(strcmp(DummyBuffer,SharedBuffer))
										{
											GT_SetGadgetAttrs(GadgetArray[GAD_PUBSCREEN_NAME],PanelWindow,NULL,
												GTST_String,DummyBuffer,
											TAG_DONE);
										}
									}

									ReleaseWindow(PanelWindow);
								}

								break;

							case GAD_CANCEL:

								Terminated = TRUE;

								SaveConfig(PrivateConfig,MyConfig);

								if(!Config -> ScreenConfig -> UseWorkbench && Screen)
								{
									if(!memcmp(Config -> ScreenConfig -> Colours,MyConfig -> ScreenConfig -> Colours,sizeof(UWORD) * 16))
										PaletteSetup(MyConfig);
									else
										PaletteSetup(Config);

									LoadRGB4(VPort,NormalColours,PaletteSize);
								}

								break;

							case GAD_DEFAULT:

								*Default	= TRUE;

								Terminated	= TRUE;

								SaveConfig(PrivateConfig,MyConfig);

								if(!Config -> ScreenConfig -> UseWorkbench && Screen)
								{
									if(!memcmp(Config -> ScreenConfig -> Colours,MyConfig -> ScreenConfig -> Colours,sizeof(UWORD) * 16))
										PaletteSetup(MyConfig);
									else
										PaletteSetup(Config);

									LoadRGB4(VPort,NormalColours,PaletteSize);
								}

								break;
						}
					}
				}
			}

			RemoveGList(PanelWindow,GadgetList,(UWORD)-1);

			PopWindow();

			CloseWindow(PanelWindow);
		}
	}

	FreeGadgets(GadgetList);

	Node = (struct ModeNode *)ModeList . lh_Head;

	while(Next = (struct ModeNode *)Node -> VanillaNode . ln_Succ)
	{
		FreeVec(Node);

		Node = Next;
	}

	if(PrivateConfig -> ScreenConfig -> DisplayMode != MyConfig -> ScreenConfig -> DisplayMode || Stricmp(PrivateConfig -> ScreenConfig -> FontName,MyConfig -> ScreenConfig -> FontName) || PrivateConfig -> ScreenConfig -> FontHeight != MyConfig -> ScreenConfig -> FontHeight || PrivateConfig -> ScreenConfig -> ColourMode != MyConfig -> ScreenConfig -> ColourMode)
		return(TRUE);

	if(PrivateConfig -> ScreenConfig -> MakeScreenPublic != MyConfig -> ScreenConfig -> MakeScreenPublic || PrivateConfig -> ScreenConfig -> ShanghaiWindows != MyConfig -> ScreenConfig -> ShanghaiWindows)
		return(TRUE);

	if(PrivateConfig -> ScreenConfig -> Blinking != MyConfig -> ScreenConfig -> Blinking && (MyConfig -> ScreenConfig -> ColourMode == COLOUR_EIGHT || MyConfig -> ScreenConfig -> ColourMode == COLOUR_SIXTEEN))
		return(TRUE);

	if(PrivateConfig -> ScreenConfig -> FasterLayout != MyConfig -> ScreenConfig -> FasterLayout && MyConfig -> ScreenConfig -> ColourMode != COLOUR_MONO)
		return(TRUE);

	if(PrivateConfig -> ScreenConfig -> TitleBar != MyConfig -> ScreenConfig -> TitleBar || PrivateConfig -> ScreenConfig -> StatusLine != MyConfig -> ScreenConfig -> StatusLine || PrivateConfig -> ScreenConfig -> UseWorkbench != MyConfig -> ScreenConfig -> UseWorkbench)
		return(TRUE);

	if(strcmp(PrivateConfig -> ScreenConfig -> PubScreenName,MyConfig -> ScreenConfig -> PubScreenName) && MyConfig -> ScreenConfig -> UseWorkbench)
		return(TRUE);

	return(FALSE);
}