From 4c8c1f96266c85c6af7ff62b8734142a58492917 Mon Sep 17 00:00:00 2001 From: Sam Anklesaria Date: Tue, 28 Apr 2009 22:00:21 -0500 Subject: [PATCH] frp-table fixes --- extra/ui/frp/frp.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/ui/frp/frp.factor b/extra/ui/frp/frp.factor index 38e4f77084..9648652784 100644 --- a/extra/ui/frp/frp.factor +++ b/extra/ui/frp/frp.factor @@ -10,9 +10,9 @@ IN: ui.frp TUPLE: frp-table < table quot val-quot color-quot column-titles column-alignment ; M: frp-table column-titles column-titles>> ; M: frp-table column-alignment column-alignment>> ; -M: frp-table row-columns quot>> call( a -- b ) ; -M: frp-table row-value val-quot>> call( a -- b ) ; -M: frp-table row-color color-quot>> call( a -- b ) ; +M: frp-table row-columns quot>> [ call( a -- b ) ] [ drop f ] if* ; +M: frp-table row-value val-quot>> [ call( a -- b ) ] [ drop f ] if* ; +M: frp-table row-color color-quot>> [ call( a -- b ) ] [ drop f ] if* ; : ( model quot -- table ) frp-table new-line-gadget dup >>renderer swap >>quot swap >>model