From 15d5b68de70d3c466273e3b49d974370db3bb75d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sat, 15 Mar 2025 15:07:56 +0100
Subject: [PATCH] * Correctly define TJSInputEvent

---
 packages/rtl/src/web.pas | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/packages/rtl/src/web.pas b/packages/rtl/src/web.pas
index 2ee7684..7e55713 100644
--- a/packages/rtl/src/web.pas
+++ b/packages/rtl/src/web.pas
@@ -3073,6 +3073,21 @@ Type
     property shiftKey : Boolean read FShiftKey;
   end;
 
+  { TJSInputEvent }
+
+  TJSInputEvent = class external name 'InputEvent' (TJSUIEvent)
+  private
+    FData: string; external name 'data';
+    FDataTransfer: TJSDataTransfer; external name 'dataTransfer';
+    FInput: string; external name 'input';
+    FIsComposing: boolean; external name 'isComposing';
+  public
+    property Data : string read FData;
+    property DataTransfer : TJSDataTransfer read FDataTransfer;
+    property InputType : string read FInput;
+    property isComposing : boolean read FIsComposing;
+  end;
+
   { MutationObserver }
 
   TJSMutationObserver = Class;