Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports DevExpress.Xpf.DemoBase.DemoTesting
Imports System
Imports DevExpress.Xpf.Bars
Imports System.Reflection
Imports DevExpress.Xpf.Core.Native
Imports System.Windows
Imports System.Windows.Controls
Namespace RibbonDemo.Tests
	Public Class RibbonCheckAllDemosFixture
		Inherits CheckAllDemosFixture
		Private skipMemoryLeaksCheckModules() As Type = { GetType(RibbonSimplePad) }
		Protected Overrides Function CheckMemoryLeaks(ByVal moduleTyle As Type) As Boolean
			Return ((Not EnumeratorHelper.Exists(Of Type)(skipMemoryLeaksCheckModules, moduleTyle)))
		End Function
	End Class
	Public Class RibbonDemoModulesAccessor
		Inherits DemoModulesAccessor(Of RibbonDemoModule)
		Public Sub New(ByVal fixture As BaseDemoTestingFixture)
			MyBase.New(fixture)
		End Sub
		Public ReadOnly Property Manager() As BarManager
			Get
				Return DemoModule.Manager
			End Get
		End Property
	End Class

	Public MustInherit Class BaseRibbonDemoTestingFixture
		Inherits BaseDemoTestingFixture
		Private ReadOnly modulesAccessor As RibbonDemoModulesAccessor
		Public Sub New()
			modulesAccessor = New RibbonDemoModulesAccessor(Me)
		End Sub
		Public ReadOnly Property Manager() As BarManager
			Get
				Return modulesAccessor.Manager
			End Get
		End Property
	End Class

	Public Class CheckDemoOptionsFixture
		Inherits BaseRibbonDemoTestingFixture

	End Class
End Namespace