ui.gadgets.tables: adding row-summary.

This allows each table row to provide a "summary" object.

diff --git a/basis/ui/gadgets/tables/tables-docs.factor b/basis/ui/gadgets/tables/tables-docs.factor
index e93cc178664e4314d8c6bb2b420a87a484bb21e2..d99b236cc2d98330db534ba3e764b277d2458f35 100644 (file)
--- a/basis/ui/gadgets/tables/tables-docs.factor
+++ b/basis/ui/gadgets/tables/tables-docs.factor
@@ -11,6 +11,7 @@ $nl
     row-color
     row-value
     row-value?
+    row-summary
 }
 "The following optional generic words allow the renderer to provide some information about the display of all rows:"
 { $subsections

diff --git a/basis/ui/gadgets/tables/tables.factor b/basis/ui/gadgets/tables/tables.factor
index 98ddb3fcf6af827d3953a35c9b3928879aa96958..ce3f29b606d100ba19cffd142ba93fb95ed4c3cb 100644 (file)
--- a/basis/ui/gadgets/tables/tables.factor
+++ b/basis/ui/gadgets/tables/tables.factor
@@ -17,6 +17,7 @@ GENERIC: column-titles ( renderer -- strings )
 
 GENERIC: row-columns ( row renderer -- columns )
 GENERIC: row-value ( row renderer -- object )
+GENERIC: row-summary ( row renderer -- object )
 GENERIC: row-color ( row renderer -- color )
 GENERIC: row-value? ( value row renderer -- ? )
 
@@ -29,6 +30,7 @@ M: object column-titles drop f ;
 
 M: trivial-renderer row-columns drop ;
 M: object row-value drop ;
+M: object row-summary drop ;
 M: object row-color 2drop f ;
 M: object row-value? drop eq? ;
 
@@ -240,7 +242,7 @@ PRIVATE>
 
 : show-row-summary ( table n -- )
     over nth-row
-    [ swap [ renderer>> row-value ] keep show-summary ]
+    [ swap [ renderer>> row-summary ] keep show-summary ]
     [ drop hide-status ]
     if ;