MaskBox: Modifier keys do not hide selection anymore.

[GB.FORM]
* BUG: MaskBox: Modifier keys do not hide selection anymore.

comp/src/gb.form/.project

@@ -1,6 +1,6 @@
 # Gambas Project File 3.0
 Title=More controls for graphical components
-Startup=FTestFileView
+Startup=FTestDateChooser
 Icon=.hidden/icon.png
 Version=3.16.90
 VersionFile=1

comp/src/gb.form/.src/MaskBox.class

@@ -330,9 +330,7 @@ Public Sub TextBox_KeyPress()
   Dim bChange As Boolean
   
   If Not $sMaskOrg Then Return
-  If Me.ReadOnly Then
-    Return
-  Endif
+  If Me.ReadOnly Then Return
   
   sText = UnmaskText(Me.Text)
   sTextOrg = sText
@@ -371,7 +369,7 @@ Public Sub TextBox_KeyPress()
         bBefore = IsRightAlign(iPos) 
       Endif
     
-    Case Key.Tab, Key.BackTab, Key.Up, Key.Down, Key.Enter, Key.Return
+    Case Key.Tab, Key.BackTab, Key.Up, Key.Down, Key.Enter, Key.Return, Key.ControlKey, Key.AltKey, Key.ShiftKey, Key.AltGrKey
       Return
     
     Case Else

comp/src/gb.form/.src/Test/FTableView.form

@@ -1,17 +0,0 @@
-# Gambas Form File 3.0
-
-{ Form Form
-  MoveScaled(0,0,88,69)
-  Arrangement = Arrange.Fill
-  Margin = True
-  { Panel1 HSplit
-    MoveScaled(5,16,68,34)
-    { tvwMain TableView
-      MoveScaled(0,0,29,27)
-      Expand = True
-      Mode = Select.Single
-      ShowCursor = True
-      Header = GridView.Horizontal
-    }
-  }
-}

comp/src/gb.form/.src/Test/FTestTableView.form

@@ -0,0 +1,24 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,88,69)
+  Arrangement = Arrange.Vertical
+  Margin = True
+  { Panel2 Panel
+    MoveScaled(6,2,62,12)
+    { TextBox1 TextBox
+      MoveScaled(4,4,25,4)
+    }
+    { TextBox2 TextBox
+      MoveScaled(31,4,28,4)
+      Border = False
+    }
+  }
+  { tvwMain TableView
+    MoveScaled(6,21,29,27)
+    Expand = True
+    Mode = Select.Single
+    ShowCursor = True
+    Header = GridView.Horizontal
+  }
+}