From 3ff5d50aaaf9f8f1a8c448741fdc5ad1f0902297 Mon Sep 17 00:00:00 2001
From: DomingoGP <dgalmesp@gmail.com>
Date: Sat, 25 Nov 2023 12:05:23 +0100
Subject: [PATCH] Jedi code format:  recognize "sealed" / "abstract" for
 inheriting objects.

---
 components/jcf2/Parse/BuildParseTree.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/components/jcf2/Parse/BuildParseTree.pas b/components/jcf2/Parse/BuildParseTree.pas
index 7cc5740d4f..ce9ba55935 100644
--- a/components/jcf2/Parse/BuildParseTree.pas
+++ b/components/jcf2/Parse/BuildParseTree.pas
@@ -4597,6 +4597,12 @@ begin
 
   Recognise(ttObject);
 
+  if fcTokenList.FirstSolidTokenType = ttSealed then
+    Recognise(ttSealed);
+
+  if fcTokenList.FirstSolidTokenType = ttAbstract then
+    Recognise(ttAbstract);
+
   if fcTokenList.FirstSolidTokenType = ttOpenBracket then
     RecogniseObjHeritage;