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 EditorsDemo.Tests
	Public Class EditorsCheckAllDemosFixture
		Inherits CheckAllDemosFixture
		Private Const EditorsGroupName As String = "Editors"
		Private Const ControlsGroupName As String = "Controls"

		Private skipMemoryLeaksCheckModules() As Type = { }
		Protected Overrides Function CheckMemoryLeaks(ByVal moduleTyle As Type) As Boolean
			Return Not EnumeratorHelper.Exists(Of Type)(skipMemoryLeaksCheckModules, moduleTyle)
		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 = EditorsGroupName OrElse [module].GroupName = ControlsGroupName
		End Function
	End Class
End Namespace