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

var automated GeoFrame	DialogBackground;
var automated GeoLabel	TextLabel;
var automated GeoButton	YesButton;
var automated GeoButton	NoButton;
var automated GeoImage	Picture;

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

	/// Stop with sondering?
	TextLabel.Caption = GeoPC.IL8N("stopsonderen", "ingame");
}

function bool ButtonClick(GUIComponent Sender)
{
	/// jln - 05-09-2008 Close window:
	if (Sender == YesButton)
	{
        GeoPC.ClientCloseMenu(true);
	}


	if (Sender == NoButton)
	{
		/// Only this dialog:
        GeoPC.ClientcloseMenu(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=GeoLabel name=TTextOne
		IniOption="TTextOne"
		TextAlign=TXTA_Center
		WinTop=0.41
		WinLeft=0.0
		WinHeight=0.1
		WinWidth=1.0
		TextFont="GeoLargeFont"
	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

	Begin Object class=GeoImage name=TPicture
		WinHeight=0.2
		WinWidth=0.2
		WinTop=0.43
		WinLeft=0.83
	End Object

	DialogBackground = TDialogBackground
	TextLabel = TTextOne
	YesButton = TYesButton
	NoButton = TNoButton
	Picture = TPicture;

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

}