jj: first usable version of lookup grid

LookupGrid/GridHandler.vb

@@ -1,18 +1,21 @@
 Imports System.Windows.Forms
 Imports DevExpress.XtraGrid.Views.Grid
 
+Namespace LookupGrid
+    Public Class GridHandler
+        Inherits Handler.GridHandler
 
-Public Class GridHandler
-    Inherits Handler.GridHandler
+        Public Sub New(ByVal gridView As GridView)
+            MyBase.New(gridView)
+        End Sub
 
-    Public Sub New(ByVal gridView As GridView)
-        MyBase.New(gridView)
-    End Sub
+        Protected Overrides Sub OnKeyDown(ByVal e As KeyEventArgs)
+            MyBase.OnKeyDown(e)
+            If e.KeyData = Keys.Delete AndAlso View.State = GridState.Normal Then
+                View.DeleteRow(View.FocusedRowHandle)
+            End If
+        End Sub
+    End Class
+
+End Namespace
 
-    Protected Overrides Sub OnKeyDown(ByVal e As KeyEventArgs)
-        MyBase.OnKeyDown(e)
-        If e.KeyData = Keys.Delete AndAlso View.State = GridState.Normal Then
-            View.DeleteRow(View.FocusedRowHandle)
-        End If
-    End Sub
-End Class