     row-rect [ { 0 1 } v* ] change-dim ;
 
 : (select-row) ( table n -- )
-    [ [ thin-row-rect ] [ drop ] 2bi scroll>rect ]
+    [ dup [ [ thin-row-rect ] [ drop ] 2bi scroll>rect ] [ 2drop ] if ]
     [ >>selected-index relayout-1 ]
     2bi ;
 

    [ show-row-summary ]
    2tri ;

: prev-row ( table -- )
    dup selected-index>> [ 1- ] [ 0 ] if* select-row ;

: next-row ( table -- )
    dup selected-index>> [ 1+ ] [ 0 ] if* select-row ;

: first-row ( table -- )
    0 select-row ;

    line-height /i ;

: validate-row ( m table -- n )
    control-value [ drop f ] [ length 1- min 0 max ] if-empty ;

: visible-row ( table quot -- n )
    '[
