From 5f495b670b80cd67437abd633a7d06555d8018ee Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sun, 12 May 2024 14:02:02 +0200
Subject: [PATCH] * Window descends from globalscope

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

diff --git a/packages/rtl/src/web.pas b/packages/rtl/src/web.pas
index a51273e..52b76d1 100644
--- a/packages/rtl/src/web.pas
+++ b/packages/rtl/src/web.pas
@@ -1503,7 +1503,7 @@ Type
 
   { TJSWindow }
 
-  TJSWindow = class external name 'Window' (TJSObject)
+  TJSWindow = class external name 'Window' (TWindowOrWorkerGlobalScope)
   Private
     FClosed: boolean; external name 'closed';
     FConsole : TJSConsole;  external name 'console';
@@ -1661,6 +1661,7 @@ Type
     function showSaveFilePicker: TJSFileSystemFileHandle; async; overload;
     function showSaveFilePicker(options: TJSShowSaveFilePickerOptions): TJSFileSystemFileHandle; async; overload;
     function FileSystemDirectoryHandle: TJSFileSystemDirectoryHandleArray; async;
+
     { public properties }
     property console : TJSConsole Read FConsole;
     property closed : boolean read FClosed;
@@ -2449,6 +2450,7 @@ Type
     Function toDataURL : String; overload;
     Function toDataURL(aMimeType : String) : String; overload;
     Function toDataURL(aMimeType : String; aQuality : Double) : String; overload;
+
   end;