compute-grid-lines ( grid -- lines )

Vocabulary

ui.gadgets.grid-lines.private

Inputs

grid

an object

Outputs

lines

an object

Definition

USING: kernel sequences ui.gadgets ui.gadgets.grids.private ;

IN: ui.gadgets.grid-lines.private

: compute-grid-lines ( grid -- lines )
    dup <grid-layout>
    [ accumulate-cell-xs horizontal (compute-grid-lines) ]
    [ accumulate-cell-ys vertical (compute-grid-lines) ] 2bi
    append ;