//
// CPT operator / SondeerGame 
// This source file is (c) by Deltares.
// - October 2014
//
//*************************************************
//
//   Class for button of QUIT
//
//*************************************************

class dialogStopGamePage extends GeoGUIPage;

var bool bIgnoreEsc;

var automated GeoFrame QuitBackground;
var automated GeoButton YesButton;
var automated GeoButton NoButton;
var automated GeoLabel QuitDesc;

function bool MyKeyEvent(out byte Key,out byte State,float delta)
{
	local PlayerController pc;
	local int SizeArray;

	pc = PlayerOwner();

	//ESC
	if(Key == 0x1B)
	{
		if(bIgnoreEsc)
		{
			bIgnoreEsc=false;
			return true;
		} else {
			
			SizeArray = Controller.MenuStack.Length;
		
			if (SizeArray > 1)
			{
				MenuMainMenu(Controller.MenuStack[(SizeArray-2)]).ChangeAllow(true);
			}
		
	        GeoPC.ConsoleCommand( "DISCONNECT" );

			//pc.ConsoleCommand("OutMenu");
			Controller.CloseMenu();
		
			return true;
		}
	}
	
	return false;
}

function bool InternalOnClick(GUIComponent Sender)
{
	local int SizeArray;

	if (Sender == YesButton)
	{
	//	Controller.CloseMenu(true);
        GeoPC.ConsoleCommand( "DISCONNECT" );
//        Controller.OpenMenu(Controller.GetMainMenuClass());
//		Controller.OpenMenu("GeoInterface.MenuMainMenu");

	} 
	else 
	{
		SizeArray = Controller.MenuStack.Length;
	
		if (SizeArray > 1)
		{   
			MenuMainMenu(Controller.MenuStack[(SizeArray-2)]).ChangeAllow(true);
		}
	
		Controller.CloseMenu(false);
	}

	return true;
}


defaultproperties
{
	Begin Object Class=GeoFrame name=TQuitBackground
		WinWidth=1.0
		WinHeight=0.3
		WinTop=0.35
		WinLeft=0.0
	End Object


	Begin Object Class=GeoButton Name=TYesButton
		IniOption="TYesButton"
		WinWidth=0.12
		WinLeft=0.35
		WinTop=0.53
		OnClick=InternalOnClick
	End Object


	Begin Object Class=GeoButton Name=TNoButton
		IniOption="TNoButton"
		WinWidth=0.12
		WinLeft=0.53
		WinTop=0.53
		OnClick=InternalOnClick
	End Object

	Begin Object class=GeoLabel Name=TQuitDesc
		IniOption="TQuitDesc"
		TextALign=TXTA_Center
		TextColor=(R=220,G=180,B=0,A=255)
		TextFont="GeoLargeFont"
		WinLeft=0.0
		WinWidth=1.0
		WinTop=0.42
		WinHeight=0.08
	End Object

	QuitBackground = TQuitBackground
	YesButton = TYesButton
	NoButton = TNoButton
	QuitDesc = TQuitDesc

	bRequire640x480=false
	bIgnoreEsc=true
	OnKeyEvent=MyKeyEvent
}