 ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.worlds
 ui.gestures ui.render ui.pens.solid ui.text ui.commands ui.images
 ui.gadgets.menus ui.gadgets.line-support models combinators
-combinators.short-circuit fonts locals strings sets sorting ;
+combinators.short-circuit fonts locals splitting strings sets
+sorting ;
 IN: ui.gadgets.tables
 
 ! Row rendererer protocol

! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs hashtables arrays colors colors.constants fry
kernel math math.functions math.ranges math.rectangles math.order

GENERIC: cell-padding ( cell -- y )
GENERIC: draw-cell ( font cell -- )

: single-line ( str -- str' )
    dup [ "\r\n" member? ] any? [ string-lines " " join ] when ;

M: string cell-width single-line text-width ;
M: string cell-height single-line text-height ceiling ;
M: string cell-padding drop 0 ;
M: string draw-cell single-line draw-text ;

CONSTANT: image-padding 2

