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

class dialogQuitPage extends GeoGUIPage;

var bool bIgnoreEsc;

//var GeoPlayerController GeoPC;


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);
			}
		
			pc.ConsoleCommand("OutMenu");
			Controller.CloseMenu();
		
			return true;
		}
	}
	
	return false;
}

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

	if (Sender == YesButton)
	{
		PlayerOwner().ConsoleCommand("exit");
	} 
	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=1.0
		WinTop=0.0
		WinLeft=0.0
		bBoundToParent=true
		bScaleToParent=true
	End Object

	
	Begin Object Class=GeoButton Name=TYesButton
		IniOption="TYesButton"
		WinWidth=0.14
		WinLeft=0.3
		WinTop=0.6
		bBoundToParent=true
		OnClick=InternalOnClick
	End Object


	Begin Object Class=GeoButton Name=TNoButton
		IniOption="TNoButton"
		WinWidth=0.14
		WinLeft=0.56
		WinTop=0.6
		bBoundToParent=true
		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"
		WinWidth=1
		WinLeft=0
		WinTop=0.44
		WinHeight=32
	End Object

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

	WinLeft=0.0
	WinTop=0.375
	WinWidth=1.0
	WinHeight=0.25
	bRequire640x480=false
	bIgnoreEsc=true
	OnKeyEvent=MyKeyEvent
}