Circular Refs

&AtClient
Procedure MakeCircularRefs(Command)

	AttachIdleHandler("MakeCircularRefsAtClient", 1);

EndProcedure // MakeCircularRefs()

&AtClient
Procedure MakeCircularRefsAtClient() Export

    MakeCircularRefAtServer();

EndProcedure // MakeCircularRefsAtClient()

&AtClient
Procedure MakeCircularRef(Command)

	MakeCircularRefAtServer()

EndProcedure // MakeCircularRef()

&AtServer
Procedure MakeCircularRefAtServer()

	S1 = New Structure("S2Ref");
	S2 = New Structure("S1Ref");

	S1.S2Ref = S2;
	S2.S1Ref = S1;

	S2 = Undefined;

	If
		CheckScriptCircularRefs
		And CheckScriptCircularRefs().Count() > 0 Then

		Message = New UserMessage();
		Message.Text = "There are circular refs!";

		Message.Message();

	EndIf;

EndProcedure // MakeCircularRefAtServer()