From bdf175aee15b2a0038946be829ea840a5685f4ff Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <gambas@users.sourceforge.net>
Date: Wed, 18 Jun 2014 00:39:36 +0000
Subject: [PATCH] [GB.FORM] * BUG: TableView.Clear now hides the current edited
 cell.

git-svn-id: svn://localhost/gambas/trunk@6327 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 comp/src/gb.form/.info                | 4 ++++
 comp/src/gb.form/.src/TableView.class | 7 +++++++
 2 files changed, 11 insertions(+)

diff --git a/comp/src/gb.form/.info b/comp/src/gb.form/.info
index 6ae0eae74..550a95865 100644
--- a/comp/src/gb.form/.info
+++ b/comp/src/gb.form/.info
@@ -2373,6 +2373,10 @@ Timer_Timer
 m
 
 
+Clear
+m
+
+
 #ToolPanel
 UserContainer
 C
diff --git a/comp/src/gb.form/.src/TableView.class b/comp/src/gb.form/.src/TableView.class
index dad99255d..49d346869 100644
--- a/comp/src/gb.form/.src/TableView.class
+++ b/comp/src/gb.form/.src/TableView.class
@@ -485,3 +485,10 @@ Private Sub NoKeyboard_Write(Value As Boolean)
   $bNoKeyboard = Value
   
 End
+
+Public Sub Clear()
+  
+  Cancel
+  Super.Clear
+  
+End