GIT: perform LF normalization

2013-02-28 17:15:46 +11:00
parent 989f08a24d
commit 7d9be5620d
729 changed files with 300734 additions and 300712 deletions
@@ -1,62 +1,62 @@
-Partial Public Class File
-    Inherits Page
-
-    Public Sub New()
-        InitializeComponent()
-    End Sub
-
-    Private _FileWindow As FileWindow
-    Private _ProcessFile As IO.FileInfo
-    Private _ProcessFiles As Queue(Of IO.FileInfo)
-
-    'Executes when the user navigates to this page.
-    Protected Overrides Sub OnNavigatedTo(ByVal e As System.Windows.Navigation.NavigationEventArgs)
-
-        _ProcessFiles = New Queue(Of IO.FileInfo)
-
-    End Sub
-
-    Private Sub ButtonBrowseForFile_Click(sender As Object, e As System.Windows.RoutedEventArgs) Handles ButtonBrowseForFile.Click
-
-        Dim ofd As New OpenFileDialog() With {.Multiselect = True}
-        If ofd.ShowDialog() Then
-            For Each f In ofd.Files
-                _ProcessFiles.Enqueue(f)
-            Next
-            StartProcessing()
-        End If
-
-    End Sub
-
-
-    Private Sub StartProcessing()
-
-        If _ProcessFiles.Count > 0 Then
-            _ProcessFile = _ProcessFiles.Dequeue
-
-            _FileWindow = New FileWindow(_ProcessFile)
-            AddHandler _FileWindow.Closed, AddressOf FileWindow_Closed
-            _FileWindow.Show()
-        End If
-
-    End Sub
-
-    Private Sub FileWindow_Closed(sender As Object, e As EventArgs)
-        If _FileWindow.DialogResult Then
-            Me.IsEnabled = False
-            Dim fs = _FileWindow.File.OpenRead
-            App.MainPage.UploadAttachment(fs, _FileWindow.Filename, "unknown/unknown", _FileWindow.Comments)
-            Me.IsEnabled = True
-        End If
-        StartProcessing()
-    End Sub
-
-    Private Sub DropTarget_Drop(sender As Object, e As System.Windows.DragEventArgs) Handles DropTarget.Drop
-
-        For Each f As IO.FileInfo In e.Data.GetData(DataFormats.FileDrop)
-            _ProcessFiles.Enqueue(f)
-        Next
-        StartProcessing()
-
-    End Sub
-End Class
+Partial Public Class File
+    Inherits Page
+
+    Public Sub New()
+        InitializeComponent()
+    End Sub
+
+    Private _FileWindow As FileWindow
+    Private _ProcessFile As IO.FileInfo
+    Private _ProcessFiles As Queue(Of IO.FileInfo)
+
+    'Executes when the user navigates to this page.
+    Protected Overrides Sub OnNavigatedTo(ByVal e As System.Windows.Navigation.NavigationEventArgs)
+
+        _ProcessFiles = New Queue(Of IO.FileInfo)
+
+    End Sub
+
+    Private Sub ButtonBrowseForFile_Click(sender As Object, e As System.Windows.RoutedEventArgs) Handles ButtonBrowseForFile.Click
+
+        Dim ofd As New OpenFileDialog() With {.Multiselect = True}
+        If ofd.ShowDialog() Then
+            For Each f In ofd.Files
+                _ProcessFiles.Enqueue(f)
+            Next
+            StartProcessing()
+        End If
+
+    End Sub
+
+
+    Private Sub StartProcessing()
+
+        If _ProcessFiles.Count > 0 Then
+            _ProcessFile = _ProcessFiles.Dequeue
+
+            _FileWindow = New FileWindow(_ProcessFile)
+            AddHandler _FileWindow.Closed, AddressOf FileWindow_Closed
+            _FileWindow.Show()
+        End If
+
+    End Sub
+
+    Private Sub FileWindow_Closed(sender As Object, e As EventArgs)
+        If _FileWindow.DialogResult Then
+            Me.IsEnabled = False
+            Dim fs = _FileWindow.File.OpenRead
+            App.MainPage.UploadAttachment(fs, _FileWindow.Filename, "unknown/unknown", _FileWindow.Comments)
+            Me.IsEnabled = True
+        End If
+        StartProcessing()
+    End Sub
+
+    Private Sub DropTarget_Drop(sender As Object, e As System.Windows.DragEventArgs) Handles DropTarget.Drop
+
+        For Each f As IO.FileInfo In e.Data.GetData(DataFormats.FileDrop)
+            _ProcessFiles.Enqueue(f)
+        Next
+        StartProcessing()
+
+    End Sub
+End Class