Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports DevExpress.Xpf.DemoBase.DemoTesting
Imports System.Threading
Imports System.Windows.Threading
Imports System
Imports DevExpress.Xpf.Core.Native
Imports DevExpress.Xpf.Editors
Imports DevExpress.Xpf.Editors.Helpers
Imports System.Windows
Imports System.Globalization
Imports DevExpress.Xpf.Core
Imports DevExpress.Xpf.DemoBase

Namespace PropertyGridDemo.Tests
	Public Class PropertyGridCheckAllDemosFixture
		Inherits CheckAllDemosFixture
		Private Const PropertyGridGroupName As String = "PropertyGrid"
		Private Const ControlsGroupName As String = "Controls"

		Private skipMemoryLeaksCheckModules() As Type = { }
		Protected Overrides Function CheckMemoryLeaks(ByVal moduleType As Type) As Boolean
			Return False
		End Function
		Protected Overrides Function SwitchAllThemes(ByVal moduleType As Type) As Boolean
			If MyBase.SwitchAllThemes(moduleType) Then
				Return True
			End If
			Dim [module] As ModuleDescription = DemoBaseTesting.GetModuleByModuleType(moduleType)
			Return [module].GroupName = PropertyGridGroupName OrElse [module].GroupName = ControlsGroupName
		End Function
	End Class
	Public Class PropertyGridDemoModulesAccessor
		Inherits DemoModulesAccessor(Of PropertyGridDemoModule)
		Public Sub New(ByVal fixture As BaseDemoTestingFixture)
			MyBase.New(fixture)
		End Sub
	End Class
	Public MustInherit Class BasePropertyGridDemoTestingFixture
		Inherits BaseDemoTestingFixture
		Private privateModuleAccessor As PropertyGridDemoModulesAccessor
		Protected Property ModuleAccessor() As PropertyGridDemoModulesAccessor
			Get
				Return privateModuleAccessor
			End Get
			Private Set(ByVal value As PropertyGridDemoModulesAccessor)
				privateModuleAccessor = value
			End Set
		End Property
		Public Sub New()
			ModuleAccessor = GetModulesAccessor()
		End Sub
		Protected MustOverride Function GetModulesAccessor() As PropertyGridDemoModulesAccessor
	End Class
End Namespace