From fa46b5c9a658a6d1d7fe2e803c15e52f7a59e433 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sun, 3 Dec 2023 13:16:12 +0100
Subject: [PATCH] * Make 2 demos use the new unit names

---
 demo/rtl/democanvas2d.pas   | 2 +-
 demo/rtl/democlasstopas.pas | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/demo/rtl/democanvas2d.pas b/demo/rtl/democanvas2d.pas
index ea2f95b..bdf3e3a 100644
--- a/demo/rtl/democanvas2d.pas
+++ b/demo/rtl/democanvas2d.pas
@@ -1,6 +1,6 @@
 program democanvas2d;
 
-uses Web, Classes, JS, SysUtils;
+uses BrowserApi.Web, System.Classes, JSApi.JS, System.SysUtils;
 
 Type
   TForm = Class
diff --git a/demo/rtl/democlasstopas.pas b/demo/rtl/democlasstopas.pas
index 97d26d6..6478949 100644
--- a/demo/rtl/democlasstopas.pas
+++ b/demo/rtl/democlasstopas.pas
@@ -1,6 +1,10 @@
 program democlasstopas;
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.SysUtils, System.Types, BrowserApi.Web, System.Classes, JSApi.JS, Browser.Console, System.Class2Pas;
+{$ELSE FPC_DOTTEDUNITS}
 uses Sysutils, Types, Web, Classes, JS, browserconsole, class2pas;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Type