Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows
Imports DevExpress.Xpf.Core.Native
Imports DevExpress.Xpf.DemoBase.DemoTesting
Imports DevExpress.Xpf.Docking
Imports DevExpress.Xpf.Layout.Core
Imports DevExpress.Xpf.Core
Imports DevExpress.Xpf.Bars

Namespace DockingDemo.Tests
	#Region "DockingDemoModulesAccessor"
	Public Class DockingDemoModulesAccessor
		Inherits DemoModulesAccessor(Of DockingDemoModule)
		Public Sub New(ByVal fixture As BaseDemoTestingFixture)
			MyBase.New(fixture)
		End Sub
		Private manager As DockLayoutManager
		Public ReadOnly Property DockLayoutManager() As DockLayoutManager
			Get
				If manager Is Nothing Then
					manager = TryCast(LayoutHelper.FindElement(DemoModule, AddressOf Criteria), DockLayoutManager)
				End If
				Return manager
			End Get
		End Property
		Private Function Criteria(ByVal element As FrameworkElement) As Boolean
			Return TypeOf element Is DevExpress.Xpf.Docking.DockLayoutManager
		End Function
		Public Sub ResetDockLayoutManager()
			manager = Nothing
		End Sub
		Public ReadOnly Property IDEComplexLayoutModule() As IDEComplexLayout
			Get
				Return TryCast(DemoModule, IDEComplexLayout)
			End Get
		End Property
		Public ReadOnly Property RowColumnLayoutModule() As RowColumnLayout
			Get
				Return TryCast(DemoModule, RowColumnLayout)
			End Get
		End Property
	End Class
	#End Region ' DockingDemoModulesAccessor
	Public MustInherit Class BaseDockingDemoTestingFixture
		Inherits BaseDemoTestingFixture
		Private ReadOnly modulesAccessor As DockingDemoModulesAccessor
		Public Sub New()
			modulesAccessor = New DockingDemoModulesAccessor(Me)
		End Sub
		Public ReadOnly Property DockLayoutManager() As DockLayoutManager
			Get
				Return modulesAccessor.DockLayoutManager
			End Get
		End Property
		Protected Sub ResetDockLayoutManager()
			modulesAccessor.ResetDockLayoutManager()
		End Sub
		Public ReadOnly Property IDEComplexLayoutModule() As IDEComplexLayout
			Get
				Return modulesAccessor.IDEComplexLayoutModule
			End Get
		End Property
		Public ReadOnly Property RowColumnLayoutModule() As RowColumnLayout
			Get
				Return modulesAccessor.RowColumnLayoutModule
			End Get
		End Property
	End Class
	Public Class DockingCheckAllDemosFixture
		Inherits CheckAllDemosFixture
		Private skipMemoryLeaksCheckModules() As Type = { GetType(IDEComplexLayout), GetType(VS2010Docking) }
		Protected Overrides Function CheckMemoryLeaks(ByVal moduleTyle As Type) As Boolean
			Return True
		End Function
		Protected Overrides Sub CreateSwitchAllThemesActions()
			MyBase.CreateSwitchAllThemesActions()
		End Sub
	End Class
End Namespace