new-table ( model class -- table )

Vocabulary

ui.gadgets.controls

Inputs

model	an object
class	an object

Outputs

table

an object

Definition

USING: accessors kernel models models.combinators
ui.gadgets.tables ;

IN: ui.gadgets.controls

: new-table ( model class -- table )
    f swap new-table dup >>renderer f <basic> >>actions
    dup actions>> [ set-model ] curry >>action ;