DayPilot Gantt Chart for ASP.NET

'
'Copyright � 2010 - 2015 Annpoint, s.r.o.
'
'Licensed under the Apache License, Version 2.0 (the "License");
'you may not use this file except in compliance with the License.
'You may obtain a copy of the License at
'
'http://www.apache.org/licenses/LICENSE-2.0
'
'Unless required by applicable law or agreed to in writing, software
'distributed under the License is distributed on an "AS IS" BASIS,
'WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'See the License for the specific language governing permissions and
'limitations under the License.
'
'-------------------------------------------------------------------------
'
'NOTE: Reuse requires the following acknowledgement (see also NOTICE):
'This product includes DayPilot (http://www.daypilot.org) developed by Annpoint, s.r.o.
'

Imports System.Text
Imports System.Web.Script.Serialization
Imports System.Web.UI

Namespace Util

	''' <summary>
	''' Summary description for Modal
	''' </summary>
	Public Class Modal

		Public Shared Sub Close(ByVal page As Page)
			Close(page, Nothing)
		End Sub

		Public Shared Function Script(ByVal result As Object) As String
			Dim sb As New StringBuilder()
			sb.Append("<script type='text/javascript'>")
			sb.Append("if (parent && parent.DayPilot && parent.DayPilot.ModalStatic) {")
			sb.Append("parent.DayPilot.ModalStatic.close(" & (New JavaScriptSerializer()).Serialize(result) & ");")
			sb.Append("}")
			sb.Append("</script>")

			Return sb.ToString()
		End Function

		Public Shared Sub Close(ByVal page As Page, ByVal result As Object)
			page.ClientScript.RegisterStartupScript(GetType(Page), "close", Script(result))
			Return
		End Sub

	End Class

End Namespace