From d2b82a2735be87841723f404c405252338f45f8d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <benoit.minisini@gambas-basic.org>
Date: Wed, 25 May 2022 20:40:31 +0200
Subject: [PATCH] Default and cancel buttons work again.

[GB.WEB.GUI]
* BUG: Default and cancel buttons work again.
---
 comp/src/gb.web.gui/.project           | 2 +-
 comp/src/gb.web.gui/.src/WebForm.class | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/comp/src/gb.web.gui/.project b/comp/src/gb.web.gui/.project
index 05431db74..5d9a67dd7 100644
--- a/comp/src/gb.web.gui/.project
+++ b/comp/src/gb.web.gui/.project
@@ -1,6 +1,6 @@
 # Gambas Project File 3.0
 Title=Web application development using processes as session
-Startup=Webform3
+Startup=Webform1
 Icon=.hidden/webform.png
 Version=3.17.90
 VersionFile=1
diff --git a/comp/src/gb.web.gui/.src/WebForm.class b/comp/src/gb.web.gui/.src/WebForm.class
index dbbc80c8b..37d453af2 100644
--- a/comp/src/gb.web.gui/.src/WebForm.class
+++ b/comp/src/gb.web.gui/.src/WebForm.class
@@ -1531,6 +1531,9 @@ Private Sub DisableShortcuts()
     Next
   Endif
   
+  If $iDefault Then cShortcut["ENTER"] = True
+  If $iCancel Then cShortcut["ESCAPE"] = True
+  
   If cShortcut.Count = 0 Then Return
   
   _AddJavascript("gw.shortcuts = " & JS(cShortcut))