function?AcEnvCallback（）
%Callback?function?for?acoustic?environment?GUI?interface
%Action?is?determined?by?tag.
%
%This?really?should?go?in?the?@AcEnvironment?method?directory?but?Matlab?can‘t?find?it?there.

[Cntrl?Fig]?=?gcbo;

MyData?=?get（Fig?‘UserData‘）;
Obj?=?MyData.Obj;

ThisTag?=?get（Cntrl?‘Tag‘）;

switch?ThisTag
case?‘AcEnvName‘
???Obj?=?SetName（Obj?get（Cntrl?‘String‘））;
???
case?‘MinBottomBounce‘
???Obj?=?SetMinBottomBounce（Obj?str2num（get（Cntrl?‘String‘）））;
???
case?‘Gravity‘
???Obj?=?SetGravity（Obj?str2num（get（Cntrl?‘String‘）））;
???
case?‘VapourPressure‘???
???Obj?=?SetVapourPressure（Obj?str2num（get（Cntrl?‘String‘）））;
???
case?‘AtmoshphericPressure‘
???Obj?=?SetAtmosphericPressure（Obj?str2num（get（Cntrl?‘String‘）））;
???
case?‘layerList‘
???switch?get（Fig?‘SelectionType‘）
???case?‘open‘
	???List?=?findobj（Fig?‘Tag‘?‘layerList‘）;
???
???	Index?=?get（List?‘Value‘）;
	???if?Index?>=?1
???	???Obj?=?Editlayer（Obj?Index）;
??????end
???end
???
??????
???
case?{‘Editlayer‘?‘InsertBefore‘?‘InsertAfter‘?‘MoveUp‘?‘MoveDown‘}
???List?=?findobj（Fig?‘Tag‘?‘layerList‘）;
???
???Index?=?get（List?‘Value‘）;
???if?Index?>=?1
??????switch?ThisTag
??????case?‘Editlayer‘
?????????Obj?=?Editlayer（Obj?Index）;
??????case?{‘InsertBefore‘‘InsertAfter‘}
?????????Obj?=?Insertlayer（Obj?Index?ThisTag）;
??????case?{‘MoveUp‘?‘MoveDown‘}
?????????Obj?=?Movelayer（Obj?Index?ThisTag）;
??????end
??????
???end
???
???
case?‘Deletelayer‘
???List?=?findobj（Fig?‘Tag‘?‘layerList‘）;
???
???Index?=?get（List?‘Value‘）;
???if?Index?>=?1
??????Obj?=?Deletelayer（Obj?Index）;
???end
???
???
case?‘OKButton‘
???MyData.IsOK?=?1;
???MyData.IsDone?=?1;
???
case?‘CancelButton‘
???MyData.IsOK?=?0;
???MyData.IsDone?=?1;
end

MyData.Obj?=?Obj;
set（Fig?‘UserData‘?MyData）;

switch?ThisTag
case?{‘Editlayer‘?‘Deletelayer‘?‘layerList‘?‘InsertBefore‘?‘InsertAfter‘?‘MoveUp‘?‘MoveDown‘}
???if?strcmpi（ThisTag?‘layerList‘）
??????if?strcmpi（get（Fig?‘SelectionType‘）?‘open‘）
?????????Redraw?=?1;
??????else
?????????Redraw?=?0;
??????end
???else
??????Redraw?=?1;
???end
???
???if?Redraw
	???%Re-draw?the?list?of?layers
???	List?=?findobj（Fig?‘Tag‘?‘layerList‘）;
??????Str?=?GetlayerNames（Obj）;
??????set（List?‘Value‘?1）;
		set（List?‘String‘?Str）;
???end
???
case?{‘OKButton‘?‘CancelButton‘}
???uiresume（Fig）;
end