Francois Gouget : testbot/cgi: Allow overriding the collection block's property list.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 38745b4ac3445615c966c4bee226c4b6b2a42548
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=38745b4ac3445615c966c4be...

Author: Francois Gouget 
Date:   Tue May  3 19:47:59 2022 +0200

testbot/cgi: Allow overriding the collection block's property list.

GetPropertyDescriptors() can now be redefined which allows reordering
the item's properties and inserting extra 'synthetic' ones.
Neither of these was possible by redefining DisplayProperty().

Signed-off-by: Francois Gouget 
Signed-off-by: Alexandre Julliard

---

testbot/lib/ObjectModel/CGI/CollectionBlock.pm | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/testbot/lib/ObjectModel/CGI/CollectionBlock.pm b/testbot/lib/ObjectModel/CGI/CollectionBlock.pm
index 594ed56..08844d0 100644
--- a/testbot/lib/ObjectModel/CGI/CollectionBlock.pm
+++ b/testbot/lib/ObjectModel/CGI/CollectionBlock.pm
@@ -161,6 +161,29 @@ sub GenerateErrorPopup($)
 # Individual item property support
 #

+
+=pod
+=over 12
+
+=item C<GetPropertyDescriptors()>
+
+Returns the list of columns for the collection table.
+
+By default this matches the property list of the items in the collection and
+that list is then pruned by DisplayProperty().
+
+However it is possible to redefine this method to reorder the columns or add
+extra columns where the values will be synthesized by GenerateDataView().
+
+=back
+=cut
+
+sub GetPropertyDescriptors($)
+{
+  my ($self) = @_;
+  return $self->{Collection}->GetPropertyDescriptors();
+}
+
 =pod
 =over 12

@@ -430,7 +453,7 @@ sub GenerateList($)
   my ($self) = @_;

my $Collection = $self->{Collection};
-  my $PropertyDescriptors = $Collection->GetPropertyDescriptors();
+  my $PropertyDescriptors = $self->GetPropertyDescriptors();

my $ColIndex = 0;
   my (@Cols, $HasDT);