/Doctor/My Project/MyExtensions/MyWpfExtension.vb

#If _MyType <> "Empty" Then



Namespace My

    ''' <summary>

    ''' Module used to define the properties that are available in the My Namespace for WPF

    ''' </summary>

    ''' <remarks></remarks>

    <Global.Microsoft.VisualBasic.HideModuleName()> _

    Module MyWpfExtension

        Private s_Computer As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.Devices.Computer)

        Private s_User As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.ApplicationServices.User)

        Private s_Windows As New ThreadSafeObjectProvider(Of MyWindows)

        Private s_Log As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.Logging.Log)

        ''' <summary>

        ''' Returns the application object for the running application

        ''' </summary>

        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")>  _

        Friend ReadOnly Property Application() As Application

            Get

                Return CType(Global.System.Windows.Application.Current, Application)

            End Get

        End Property

        ''' <summary>

        ''' Returns information about the host computer.

        ''' </summary>

        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")>  _

        Friend ReadOnly Property Computer() As Global.Microsoft.VisualBasic.Devices.Computer

            Get

                Return s_Computer.GetInstance()

            End Get

        End Property

        ''' <summary>

        ''' Returns information for the current user.  If you wish to run the application with the current 

        ''' Windows user credentials, call My.User.InitializeWithWindowsUser().

        ''' </summary>

        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")>  _

        Friend ReadOnly Property User() As Global.Microsoft.VisualBasic.ApplicationServices.User

            Get

                Return s_User.GetInstance()

            End Get

        End Property

        ''' <summary>

        ''' Returns the application log. The listeners can be configured by the application's configuration file.

        ''' </summary>

        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")>  _

        Friend ReadOnly Property Log() As Global.Microsoft.VisualBasic.Logging.Log

            Get

                Return s_Log.GetInstance()

            End Get

        End Property



        ''' <summary>

        ''' Returns the collection of Windows defined in the project.

        ''' </summary>

        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")>  _

        Friend ReadOnly Property Windows() As MyWindows

            <Global.System.Diagnostics.DebuggerHidden()> _

            Get

                Return s_Windows.GetInstance()

            End Get

        End Property

        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _

        <Global.Microsoft.VisualBasic.MyGroupCollection("System.Windows.Window", "Create__Instance__", "Dispose__Instance__", "My.MyWpfExtenstionModule.Windows")> _

        Friend NotInheritable Class MyWindows

            <Global.System.Diagnostics.DebuggerHidden()> _

            Private Shared Function Create__Instance__(Of T As {New, Global.System.Windows.Window})(ByVal Instance As T) As T

                If Instance Is Nothing Then

                    If s_WindowBeingCreated IsNot Nothing Then

                        If s_WindowBeingCreated.ContainsKey(GetType(T)) = True Then

                            Throw New Global.System.InvalidOperationException("The window cannot be accessed via My.Windows from the Window constructor.")

                        End If

                    Else

                        s_WindowBeingCreated = New Global.System.Collections.Hashtable()

                    End If

                    s_WindowBeingCreated.Add(GetType(T), Nothing)

                    Return New T()

                    s_WindowBeingCreated.Remove(GetType(T))

                Else

                    Return Instance

                End If

            End Function

            <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1822:MarkMembersAsStatic")>  _

            <Global.System.Diagnostics.DebuggerHidden()> _

            Private Sub Dispose__Instance__(Of T As Global.System.Windows.Window)(ByRef instance As T)

                instance = Nothing

            End Sub

            <Global.System.Diagnostics.DebuggerHidden()> _

            <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _

            Public Sub New()

                MyBase.New()

            End Sub

            <Global.System.ThreadStatic()> Private Shared s_WindowBeingCreated As Global.System.Collections.Hashtable

            <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> Public Overrides Function Equals(ByVal o As Object) As Boolean

                Return MyBase.Equals(o)

            End Function

            <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> Public Overrides Function GetHashCode() As Integer

                Return MyBase.GetHashCode

            End Function

            <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1822:MarkMembersAsStatic")>  _

            <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _

            Friend Overloads Function [GetType]() As Global.System.Type

                Return GetType(MyWindows)

            End Function

            <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> Public Overrides Function ToString() As String

                Return MyBase.ToString

            End Function

        End Class

    End Module

End Namespace

Partial Class Application

    Inherits Global.System.Windows.Application

    <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _

    <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1822:MarkMembersAsStatic")> _

    Friend ReadOnly Property Info() As Global.Microsoft.VisualBasic.ApplicationServices.AssemblyInfo

        <Global.System.Diagnostics.DebuggerHidden()> _

        Get

            Return New Global.Microsoft.VisualBasic.ApplicationServices.AssemblyInfo(Global.System.Reflection.Assembly.GetExecutingAssembly())

        End Get

    End Property

End Class

#End If