//
// CPT operator / SondeerGame 
// This source file is (c) by Deltares.
// - October 2014
//
//=============================================================================
// Date       Id   Modification
//
// /// jln - 11-09-2008 Simple alert/messagebox function
//=============================================================================
class dialogFinishSondering extends GeoGUIPage;

var automated GeoFrame	DialogBackground;
var automated GeoMultiLineLabel	TextBox;
var automated GeoButton	YesButton;
var automated GeoButton	NoButton;

function InitComponent(GUIController MyController, GUIComponent MyOwner)
{
	Super.InitComponent(MyController, MyOwner);

	TextBox.SetContent( IL8N("Text") );

}

function bool ButtonClick(GUIComponent Sender)
{
	local string compname;
	
	
	compname = GeoPC.GetSondeercomputerclass();

	if (Sender == YesButton)
	{
		Log ( Controller.FindMenu(GeoPC.GetSondeercomputerclass(), true) ) ;
		if (compname ~= "dialogSondeerComputer_Geomil")
		{

			dialogSondeerComputer_GeoMil(Controller.FindMenu(GeoPC.GetSondeercomputerclass())).FinalNulMeting();
		} else {
			dialogSondeerComputer_APBerg(Controller.FindMenu(GeoPC.GetSondeercomputerclass())).FinalNulMeting();
		}

	}
	else if (Sender == NoButton)
	{
		if (compname ~=  "dialogSondeerComputer_Geomil")
		{
	        dialogSondeerComputer_GeoMil(Controller.FindMenu(GeoPC.GetSondeercomputerclass())).AllowSelect = true;

		} else {
		    dialogSondeerComputer_APBerg(Controller.FindMenu(GeoPC.GetSondeercomputerclass())).AllowSelect = true;
		}

		Controller.CloseMenu(false);
	}


	return true;
}	


//=============================================================================
// Date       Id   Modification
//=============================================================================
defaultproperties
{

	Begin Object Class=GeoFrame name=TDialogBackground
		WinWidth=1.0
		WinLeft=0.0
		WinTop=0.35
		WinHeight=0.3
	End Object
	

    Begin Object class=GeoMultiLineLabel name=TTextBox
		StyleName="MultiLineLabel"
		bNeverFocus=true
		WinTop=0.43
		WinLeft=0.1
		WinHeight=0.1
		WinWidth=1.0
	End Object


    Begin Object class=GeoButton Name=TYesButton
        IniOption="TYesButton"
        WinWidth=0.12
		WinLeft=0.36
        WinTop=0.52
        OnClick=ButtonClick
    End Object

    Begin Object class=GeoButton Name=TNoButton
        IniOption="TNoButton"
        WinWidth=0.12
		WinLeft=0.5
        WinTop=0.52
        OnClick=ButtonClick
    End Object


	DialogBackground = TDialogBackground
	TextBox = TTextBox
	YesButton = TYesButton
	NoButton = TNoButton

	AllowSelect = true
	bAllowedAsLast=true
    bDisconnectOnOpen=false
    bPersistent=false

}