ZooFlow: clean up classes, use base class

GUIs.ZooFlow/ClassDragDrop.vb

@@ -4,19 +4,21 @@ Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
 Imports DigitalData.Modules.Logging
 
 Public Class ClassDragDrop
+    Inherits Base.BaseClass
+
     Private downHitInfo As GridHitInfo = Nothing
     Private _Logger As Logger
-    Public Sub New()
-        _Logger = My.LogConfig.GetLogger
+    Public Sub New(LogConfig As LogConfig)
+        MyBase.New(LogConfig)
     End Sub
 
     Public Sub AddGridView(view As GridView)
-        AddHandler view.MouseDown, AddressOf view_MouseDown
-        AddHandler view.MouseMove, AddressOf view_MouseMove
-        AddHandler view.GridControl.DragOver, AddressOf grid_DragOver
+        AddHandler view.MouseDown, AddressOf View_MouseDown
+        AddHandler view.MouseMove, AddressOf View_MouseMove
+        AddHandler view.GridControl.DragOver, AddressOf GridControl_DragOver
     End Sub
 
-    Private Sub view_MouseDown(sender As Object, e As MouseEventArgs)
+    Private Sub View_MouseDown(sender As Object, e As MouseEventArgs)
         Dim view As GridView = sender
         downHitInfo = Nothing
         Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y))
@@ -30,7 +32,7 @@ Public Class ClassDragDrop
         End If
     End Sub
 
-    Private Sub view_MouseMove(sender As Object, e As MouseEventArgs)
+    Private Sub View_MouseMove(sender As Object, e As MouseEventArgs)
         Try
             Dim view As GridView = sender
             Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y))
@@ -67,18 +69,18 @@ Public Class ClassDragDrop
 
                             DevExpress.Utils.DXMouseEventArgs.GetMouseArgs(e).Handled = True
                         Catch ex As Exception
-                            _Logger.Error(ex)
+                            Logger.Error(ex)
                         End Try
                     End If
                 End If
             End If
         Catch ex As Exception
-            _Logger.Error(ex)
+            Logger.Error(ex)
             MsgBox("Error in view_MouseMove: " & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
 
-    Private Sub grid_DragOver(sender As Object, e As DragEventArgs)
+    Private Sub GridControl_DragOver(sender As Object, e As DragEventArgs)
         If e.Data.GetDataPresent(DataFormats.Text) Then
             Dim data As String = e.Data.GetData(DataFormats.Text)
             Dim source = data.Split("|")(1)