From 5bc1cfa9bc09e0be6718082eb9d0b12510cde7f4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Thu, 11 Apr 2024 17:05:41 +0200
Subject: [PATCH] * -r/chrome option

---
 utils/pas2js/webidl2pas.pp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/utils/pas2js/webidl2pas.pp b/utils/pas2js/webidl2pas.pp
index 40b2289454..7751cf34b4 100644
--- a/utils/pas2js/webidl2pas.pp
+++ b/utils/pas2js/webidl2pas.pp
@@ -142,7 +142,7 @@ var
 begin
   Terminate;
   // quick check parameters
-  ErrorMsg:=CheckOptions('ced::f:g:hi:m:n:o:pt:u:vw:x:', [
+  ErrorMsg:=CheckOptions('ced::f:g:hi:m:n:o:pt:u:vw:x:r', [
     'help',
     'constexternal',
     'dicttoclass::',
@@ -158,7 +158,8 @@ begin
     'unitname:',
     'verbose',
     'webidlversion:',
-    'extra:'
+    'extra:',
+    'chrome'
     ]);
   if (ErrorMsg<>'') or HasOption('h','help') then
     begin
@@ -195,7 +196,7 @@ begin
     TWebIDLToPas2js(FWebIDLToPas).DictionaryClassParent:=GetOptionValue('d','dicttoclass');
 
   CheckBaseOption(coExpandUnionTypeArgs,'e','expandunionargs');
-
+  CheckBaseOption(coChromeWindow,'r','chrome');
   // -f ?
 
   A:=GetOptionValue('g','globals');