From cfe1da9cb653b2c77af101868c8cc8d65b4b4ee1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sun, 31 Dec 2023 17:12:23 +0100
Subject: [PATCH] * Correct .Assign for styleclasses

---
 packages/bootstrap/src/bootstraptablewidget.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/packages/bootstrap/src/bootstraptablewidget.pp b/packages/bootstrap/src/bootstraptablewidget.pp
index 40b1e75..3f52a02 100644
--- a/packages/bootstrap/src/bootstraptablewidget.pp
+++ b/packages/bootstrap/src/bootstraptablewidget.pp
@@ -508,6 +508,9 @@ begin
     FEditClass:=IC.FEditClass;
     FInfoClass:=IC.FInfoClass;
     FReadonlyEditClass:=IC.FReadonlyEditClass;
+    FButtonGroupClass:=IC.FButtonGroupClass;
+    FGroupedButtonExtraTag:=IC.FGroupedButtonExtraTag;
+    FGroupedButtonExtraTagClass:=IC.FGroupedButtonExtraTagClass;
     end
   else
     inherited Assign(Source);
@@ -523,7 +526,6 @@ end;
 procedure TBSColumnAction.SetExtraAttributes(AValue: String);
 begin
   if FExtraAttributes=AValue then Exit;
-  Writeln('Setting extra attributes : ',aValue);
   FExtraAttributes:=AValue;
 end;
 
@@ -541,7 +543,6 @@ begin
   if Source is TBSColumnAction then
   begin
     Name:=aSource.Name;
-    Writeln('Copying ',ExtraAttributes,':=',aSource.ExtraAttributes);
     ExtraAttributes:=aSource.ExtraAttributes;
     ButtonURLTarget:=aSource.ButtonURLTarget;
     ButtonURL:=aSource.ButtonURL;
@@ -1074,7 +1075,6 @@ begin
     RenderData[i].ButtonURLTarget:=A.ButtonURLTarget;
     RenderData[i].ExtraAttributes:=A.ExtraAttributes+Format(' data-action-index="%d"',[I]);
     PrepareButtonRender(RenderData[I]);
-    Writeln('Attributes : ',I,': ',a.Name,' -> ',A.ExtraAttributes);
     if Assigned(aTableCol.OnButtonClick) then
       begin
       Result.events:=TJSObject.new;