From e8dc8eb5fc39ae34cdf40cce23eb79ea615ba2c1 Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Wed, 26 Jul 2023 00:04:46 +0200
Subject: [PATCH] TTaskDialog: fix widgetset registration.

---
 lcl/interfaces/carbon/carbonwsfactory.pas           | 1 +
 lcl/interfaces/cocoa/cocoawsfactory.pas             | 1 +
 lcl/interfaces/customdrawn/customdrawnwsfactory.pas | 1 +
 lcl/interfaces/fpgui/fpguiwsfactory.pas             | 1 +
 lcl/interfaces/gtk/gtkwsfactory.pas                 | 1 +
 lcl/interfaces/gtk2/gtk2wsfactory.pas               | 1 +
 lcl/interfaces/gtk3/gtk3wsfactory.pas               | 1 +
 lcl/interfaces/mui/muiwsfactory.pas                 | 1 +
 lcl/interfaces/qt/qtwsfactory.pas                   | 1 +
 lcl/interfaces/qt5/qtwsfactory.pas                  | 1 +
 lcl/interfaces/qt6/qtwsfactory.pas                  | 1 +
 lcl/interfaces/wince/wincewsfactory.pas             | 1 +
 12 files changed, 12 insertions(+)

diff --git a/lcl/interfaces/carbon/carbonwsfactory.pas b/lcl/interfaces/carbon/carbonwsfactory.pas
index 5b6986a6af..d97d4102b2 100644
--- a/lcl/interfaces/carbon/carbonwsfactory.pas
+++ b/lcl/interfaces/carbon/carbonwsfactory.pas
@@ -257,6 +257,7 @@ end;
 
 function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
 begin
+  RegisterWSComponent(TTaskDialog, TCarbonWSTaskDialog);
   Result := False;
 end;
 
diff --git a/lcl/interfaces/cocoa/cocoawsfactory.pas b/lcl/interfaces/cocoa/cocoawsfactory.pas
index 25b34ffe48..dc673b39e8 100644
--- a/lcl/interfaces/cocoa/cocoawsfactory.pas
+++ b/lcl/interfaces/cocoa/cocoawsfactory.pas
@@ -268,6 +268,7 @@ end;
 
 function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
 begin
+  RegisterWSComponent(TTaskDialog, TCocoaWSTaskDialog);
   Result := False;
 end;
 
diff --git a/lcl/interfaces/customdrawn/customdrawnwsfactory.pas b/lcl/interfaces/customdrawn/customdrawnwsfactory.pas
index dee099a147..36c084fd04 100644
--- a/lcl/interfaces/customdrawn/customdrawnwsfactory.pas
+++ b/lcl/interfaces/customdrawn/customdrawnwsfactory.pas
@@ -268,6 +268,7 @@ end;
 
 function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
 begin
+  RegisterWSComponent(TTaskDialog, TCDWSTaskDialog);
   Result := False;
 end;
 
diff --git a/lcl/interfaces/fpgui/fpguiwsfactory.pas b/lcl/interfaces/fpgui/fpguiwsfactory.pas
index cae26fe983..4aa7cb7a38 100644
--- a/lcl/interfaces/fpgui/fpguiwsfactory.pas
+++ b/lcl/interfaces/fpgui/fpguiwsfactory.pas
@@ -264,6 +264,7 @@ end;
 
 function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
 begin
+  RegisterWSComponent(TTaskDialog, TFpGuiWSTaskDialog);
   Result := False;
 end;
 
diff --git a/lcl/interfaces/gtk/gtkwsfactory.pas b/lcl/interfaces/gtk/gtkwsfactory.pas
index 62b89dc994..7d8ed52354 100644
--- a/lcl/interfaces/gtk/gtkwsfactory.pas
+++ b/lcl/interfaces/gtk/gtkwsfactory.pas
@@ -295,6 +295,7 @@ end;
 
 function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
 begin
+  RegisterWSComponent(TTaskDialog, TGtkWSTaskDialog);
   Result := False;
 end;
 
diff --git a/lcl/interfaces/gtk2/gtk2wsfactory.pas b/lcl/interfaces/gtk2/gtk2wsfactory.pas
index 82a210bf49..1071dc724a 100644
--- a/lcl/interfaces/gtk2/gtk2wsfactory.pas
+++ b/lcl/interfaces/gtk2/gtk2wsfactory.pas
@@ -295,6 +295,7 @@ end;
 
 function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
 begin
+  RegisterWSComponent(TTaskDialog, TGtk2WSTaskDialog);
   Result := False;
 end;
 
diff --git a/lcl/interfaces/gtk3/gtk3wsfactory.pas b/lcl/interfaces/gtk3/gtk3wsfactory.pas
index dc37e94841..2d073179b9 100644
--- a/lcl/interfaces/gtk3/gtk3wsfactory.pas
+++ b/lcl/interfaces/gtk3/gtk3wsfactory.pas
@@ -306,6 +306,7 @@ end;
 
 function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
 begin
+  RegisterWSComponent(TTaskDialog, TGtk3WSTaskDialog);
   Result := False;
 end;
 
diff --git a/lcl/interfaces/mui/muiwsfactory.pas b/lcl/interfaces/mui/muiwsfactory.pas
index 796a6eeeb8..b45ebd6870 100644
--- a/lcl/interfaces/mui/muiwsfactory.pas
+++ b/lcl/interfaces/mui/muiwsfactory.pas
@@ -257,6 +257,7 @@ end;
 
 function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
 begin
+  RegisterWSComponent(TTaskDialog, TMuiWSTaskDialog);
   Result := False;
 end;
 
diff --git a/lcl/interfaces/qt/qtwsfactory.pas b/lcl/interfaces/qt/qtwsfactory.pas
index ad4f8a07bd..294b1dfdfa 100644
--- a/lcl/interfaces/qt/qtwsfactory.pas
+++ b/lcl/interfaces/qt/qtwsfactory.pas
@@ -272,6 +272,7 @@ end;
 
 function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
 begin
+  RegisterWSComponent(TTaskDialog, TQtWSTaskDialog);
   Result := False;
 end;
 
diff --git a/lcl/interfaces/qt5/qtwsfactory.pas b/lcl/interfaces/qt5/qtwsfactory.pas
index b619a04992..e64b0d58e2 100644
--- a/lcl/interfaces/qt5/qtwsfactory.pas
+++ b/lcl/interfaces/qt5/qtwsfactory.pas
@@ -275,6 +275,7 @@ end;
 
 function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
 begin
+  RegisterWSComponent(TTaskDialog, TQtWSTaskDialog);
   Result := False;
 end;
 
diff --git a/lcl/interfaces/qt6/qtwsfactory.pas b/lcl/interfaces/qt6/qtwsfactory.pas
index b619a04992..e64b0d58e2 100644
--- a/lcl/interfaces/qt6/qtwsfactory.pas
+++ b/lcl/interfaces/qt6/qtwsfactory.pas
@@ -275,6 +275,7 @@ end;
 
 function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
 begin
+  RegisterWSComponent(TTaskDialog, TQtWSTaskDialog);
   Result := False;
 end;
 
diff --git a/lcl/interfaces/wince/wincewsfactory.pas b/lcl/interfaces/wince/wincewsfactory.pas
index 6c8b2dcbfb..57011ce95a 100644
--- a/lcl/interfaces/wince/wincewsfactory.pas
+++ b/lcl/interfaces/wince/wincewsfactory.pas
@@ -266,6 +266,7 @@ end;
 
 function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
 begin
+  RegisterWSComponent(TTaskDialog, TWinCEWSTaskDialog);
   Result := False;
 end;