From 2c30b2f243d7b91c6671f2766240b600fe4b1cb7 Mon Sep 17 00:00:00 2001 From: Alexander Iljin Date: Thu, 11 Aug 2016 01:47:20 +0300 Subject: [PATCH] ui.gadgets.tables: implement cell-dim and draw-cell for the f class --- basis/ui/gadgets/tables/tables.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/basis/ui/gadgets/tables/tables.factor b/basis/ui/gadgets/tables/tables.factor index 8cdb3bda62..1d1e68b30c 100644 --- a/basis/ui/gadgets/tables/tables.factor +++ b/basis/ui/gadgets/tables/tables.factor @@ -67,6 +67,9 @@ rows ; GENERIC: cell-dim ( font cell -- width height padding ) GENERIC: draw-cell ( font cell -- ) +M: f cell-dim 2drop 0 0 0 ; +M: f draw-cell 2drop ; + : single-line ( str -- str' ) dup [ "\r\n" member? ] any? [ string-lines " " join ] when ;