190930

Pilz.Collections/Pilz.Collections.vbproj

@@ -98,7 +98,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="SimpleHistory\Enums.vb" />
+    <Compile Include="SimpleHistory\ObjectValueType.vb" />
     <Compile Include="SimpleHistory\HistoryPoint.vb" />
     <Compile Include="SimpleHistory\MemberLists.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />

Pilz.Collections/SimpleHistory/ObjectValueType.vb

@@ -0,0 +1,12 @@
+Namespace SimpleHistory
+
+    ''' <summary>
+    ''' Specify which member types you would include.
+    ''' </summary>
+    Public Enum ObjectValueType
+        None = 0
+        Field = 1
+        [Property] = 2
+    End Enum
+
+End Namespace

Pilz.Collections/SimpleHistory/SimpleHistory.vb

@@ -32,15 +32,12 @@ Namespace SimpleHistory
             Dim ret As HistoryPoint
 
             If stackPast.Count > 0 Then
-
                 Dim hp As HistoryPoint = stackPast.Pop
                 hp.Undo()
                 stackFuture.Push(hp)
                 ret = hp
-
             Else
                 ret = Nothing
-
             End If
 
             Return ret
@@ -53,15 +50,12 @@ Namespace SimpleHistory
             Dim ret As HistoryPoint
 
             If stackFuture.Count > 0 Then
-
                 Dim hp As HistoryPoint = stackFuture.Pop
                 hp.Redo()
                 stackPast.Push(hp)
                 ret = hp
-
             Else
                 ret = Nothing
-
             End If
 
             Return ret