Commit 3ae04d20: More cleaning

SysImageList.cs

+53

/BExplorer/BetterExplorer/ArchiveView/SysImageList.cs

Public Class BindingEvaluator

Inherits FrameworkElement

#Region "Fields"

Public Shared ReadOnly ValueProperty As DependencyProperty = DependencyProperty.Register("Value", GetType(String), GetType(BindingEvaluator), New FrameworkPropertyMetadata(String.Empty))

Private _valueBinding As Binding

#End Region 'Fields

#Region "Constructors"

Public Sub New(ByVal binding As Binding)

ValueBinding = binding

SetBinding(ValueProperty, binding)

End Sub

#End Region 'Constructors

#Region "Properties"

Public Property Value() As String

Get

Return GetValue(ValueProperty)

End Get

Set(ByVal value As String)

SetValue(ValueProperty, value)

End Set

End Property

Public Property ValueBinding() As Binding

Get

Return _valueBinding

End Get

Set(ByVal value As Binding)

_valueBinding = value

End Set

End Property

#End Region 'Properties

#Region "Methods"

Public Function Evaluate(ByVal dataItem As Object) As String

Me.DataContext = dataItem

Return Value

End Function

#End Region 'Methods

End Class

BreadcrumbButton.cs

+53

/BreadcrumbBar/BreadcrumbBar/BreadcrumbButton.cs

View

Public Class BindingEvaluator

Inherits FrameworkElement

#Region "Fields"

Public Shared ReadOnly ValueProperty As DependencyProperty = DependencyProperty.Register("Value", GetType(String), GetType(BindingEvaluator), New FrameworkPropertyMetadata(String.Empty))

Private _valueBinding As Binding

#End Region 'Fields

#Region "Constructors"

Public Sub New(ByVal binding As Binding)

ValueBinding = binding

SetBinding(ValueProperty, binding)

End Sub

#End Region 'Constructors

#Region "Properties"

Public Property Value() As String

Get

Return GetValue(ValueProperty)

End Get

Set(ByVal value As String)

SetValue(ValueProperty, value)

End Set

End Property

Public Property ValueBinding() As Binding

Get

Return _valueBinding

End Get

Set(ByVal value As Binding)

_valueBinding = value

End Set

End Property

#End Region 'Properties

#Region "Methods"

Public Function Evaluate(ByVal dataItem As Object) As String

Me.DataContext = dataItem

Return Value

End Function

#End Region 'Methods

End Class

ShellItem.cs

+53

/Shell/ShellItem.cs

View

Public Class BindingEvaluator

Inherits FrameworkElement

#Region "Fields"

Public Shared ReadOnly ValueProperty As DependencyProperty = DependencyProperty.Register("Value", GetType(String), GetType(BindingEvaluator), New FrameworkPropertyMetadata(String.Empty))

Private _valueBinding As Binding

#End Region 'Fields

#Region "Constructors"

Public Sub New(ByVal binding As Binding)

ValueBinding = binding

SetBinding(ValueProperty, binding)

End Sub

#End Region 'Constructors

#Region "Properties"

Public Property Value() As String

Get

Return GetValue(ValueProperty)

End Get

Set(ByVal value As String)

SetValue(ValueProperty, value)

End Set

End Property

Public Property ValueBinding() As Binding

Get

Return _valueBinding

End Get

Set(ByVal value As Binding)

_valueBinding = value

End Set

End Property

#End Region 'Properties

#Region "Methods"

Public Function Evaluate(ByVal dataItem As Object) As String

Me.DataContext = dataItem

Return Value

End Function

#End Region 'Methods

End Class

ShellNotificationListener.cs

+53

/Shell/ShellNotificationListener.cs

View

Public Class BindingEvaluator

Inherits FrameworkElement

#Region "Fields"

Public Shared ReadOnly ValueProperty As DependencyProperty = DependencyProperty.Register("Value", GetType(String), GetType(BindingEvaluator), New FrameworkPropertyMetadata(String.Empty))

Private _valueBinding As Binding

#End Region 'Fields

#Region "Constructors"

Public Sub New(ByVal binding As Binding)

ValueBinding = binding

SetBinding(ValueProperty, binding)

End Sub

#End Region 'Constructors

#Region "Properties"

Public Property Value() As String

Get

Return GetValue(ValueProperty)

End Get

Set(ByVal value As String)

SetValue(ValueProperty, value)

End Set

End Property

Public Property ValueBinding() As Binding

Get

Return _valueBinding

End Get

Set(ByVal value As Binding)

_valueBinding = value

End Set

End Property

#End Region 'Properties

#Region "Methods"

Public Function Evaluate(ByVal dataItem As Object) As String

Me.DataContext = dataItem

Return Value

End Function

#End Region 'Methods

End Class

ShellViewEx.cs

+53

/Shell/ShellViewEx.cs

View

Public Class BindingEvaluator

Inherits FrameworkElement

#Region "Fields"

Public Shared ReadOnly ValueProperty As DependencyProperty = DependencyProperty.Register("Value", GetType(String), GetType(BindingEvaluator), New FrameworkPropertyMetadata(String.Empty))

Private _valueBinding As Binding

#End Region 'Fields

#Region "Constructors"

Public Sub New(ByVal binding As Binding)

ValueBinding = binding

SetBinding(ValueProperty, binding)

End Sub

#End Region 'Constructors

#Region "Properties"

Public Property Value() As String

Get

Return GetValue(ValueProperty)

End Get

Set(ByVal value As String)

SetValue(ValueProperty, value)

End Set

End Property

Public Property ValueBinding() As Binding

Get

Return _valueBinding

End Get

Set(ByVal value As Binding)

_valueBinding = value

End Set

End Property

#End Region 'Properties

#Region "Methods"

Public Function Evaluate(ByVal dataItem As Object) As String

Me.DataContext = dataItem

Return Value

End Function

#End Region 'Methods

End Class

TabControl.cs

+53

/TabControl/TabControl.cs

View

Public Class BindingEvaluator

Inherits FrameworkElement

#Region "Fields"

Public Shared ReadOnly ValueProperty As DependencyProperty = DependencyProperty.Register("Value", GetType(String), GetType(BindingEvaluator), New FrameworkPropertyMetadata(String.Empty))

Private _valueBinding As Binding

#End Region 'Fields

#Region "Constructors"

Public Sub New(ByVal binding As Binding)

ValueBinding = binding

SetBinding(ValueProperty, binding)

End Sub

#End Region 'Constructors

#Region "Properties"

Public Property Value() As String

Get

Return GetValue(ValueProperty)

End Get

Set(ByVal value As String)

SetValue(ValueProperty, value)

End Set

End Property

Public Property ValueBinding() As Binding

Get

Return _valueBinding

End Get

Set(ByVal value As Binding)

_valueBinding = value

End Set

End Property

#End Region 'Properties

#Region "Methods"

Public Function Evaluate(ByVal dataItem As Object) As String

Me.DataContext = dataItem

Return Value

End Function

#End Region 'Methods

End Class

TabEventArgs.cs

+53

/TabControl/TabEventArgs.cs

View

Public Class BindingEvaluator

Inherits FrameworkElement

#Region "Fields"

Public Shared ReadOnly ValueProperty As DependencyProperty = DependencyProperty.Register("Value", GetType(String), GetType(BindingEvaluator), New FrameworkPropertyMetadata(String.Empty))

Private _valueBinding As Binding

#End Region 'Fields

#Region "Constructors"

Public Sub New(ByVal binding As Binding)

ValueBinding = binding

SetBinding(ValueProperty, binding)

End Sub

#End Region 'Constructors

#Region "Properties"

Public Property Value() As String

Get

Return GetValue(ValueProperty)

End Get

Set(ByVal value As String)

SetValue(ValueProperty, value)

End Set

End Property

Public Property ValueBinding() As Binding

Get

Return _valueBinding

End Get

Set(ByVal value As Binding)

_valueBinding = value

End Set

End Property

#End Region 'Properties

#Region "Methods"

Public Function Evaluate(ByVal dataItem As Object) As String

Me.DataContext = dataItem

Return Value

End Function

#End Region 'Methods

End Class



	BExplorer/BetterExplorer/ArchiveView
	SysImageList.cs
	BreadcrumbBar/BreadcrumbBar
	BreadcrumbButton.cs
	Shell
	ShellItem.cs
	ShellNotificationListener.cs
	ShellViewEx.cs
	TabControl
	TabControl.cs
	TabEventArgs.cs