@@ -5,6 +5,7 @@ Imports CompactGUI.Core
55Imports System.Threading
66Imports System.Collections.Specialized
77Imports System.Runtime
8+ Imports System.ComponentModel
89
910Public Class Watcher : Inherits ObservableObject
1011
@@ -89,9 +90,11 @@ Public Class Watcher : Inherits ObservableObject
8990 End If
9091
9192 If immediateFlushToDisk Then WriteToFile()
93+ OnPropertyChanged( NameOf (TotalSaved))
9294
9395 End Sub
9496
97+
9598 Public Sub RemoveWatched(item As WatchedFolder)
9699
97100 Dim x = Watchers.Find( Function (f) f.Folder = item.Folder)
@@ -102,7 +105,7 @@ Public Class Watcher : Inherits ObservableObject
102105
103106 WatchedFolders.Remove(item)
104107 WriteToFile()
105-
108+ OnPropertyChanged( NameOf (TotalSaved))
106109
107110 End Sub
108111
@@ -114,7 +117,7 @@ Public Class Watcher : Inherits ObservableObject
114117 For Each f In WatchedFolders
115118 f.RefreshProperties()
116119 Next
117-
120+ OnPropertyChanged( NameOf (TotalSaved))
118121 End Sub
119122
120123 Private Async Function GetWatchedFoldersFromJson() As Task( Of ObservableCollection( Of WatchedFolder))
@@ -171,7 +174,7 @@ Public Class Watcher : Inherits ObservableObject
171174
172175 WriteToFile()
173176 Debug.WriteLine( "" )
174-
177+ OnPropertyChanged( NameOf (TotalSaved))
175178
176179 IsActive = False
177180 End Function
@@ -206,6 +209,14 @@ Public Class Watcher : Inherits ObservableObject
206209 End Function
207210
208211
212+ Public ReadOnly Property TotalSaved As Long
213+ Get
214+ Return WatchedFolders.Sum( Function (f) f.LastUncompressedSize - f.LastCheckedSize)
215+ End Get
216+ End Property
217+
218+
219+
209220End Class
210221
211222Public Class WatchedFolder : Inherits ObservableObject
0 commit comments