33 lines
1.8 KiB
Factor
Executable File
33 lines
1.8 KiB
Factor
Executable File
USING: ui.gadgets help.markup help.syntax arrays ;
|
|
IN: ui.gadgets.grids
|
|
|
|
HELP: grid
|
|
{ $class-description "A grid gadget lays out its children so that all gadgets in a column have equal width and all gadgets in a row have equal height."
|
|
$nl
|
|
"The " { $link grid-gap } " slot stores a pair of integers, the horizontal and vertical gap between children, respectively."
|
|
$nl
|
|
"The " { $link grid-fill? } " slot stores a boolean, indicating if grid cells should assume their preferred size, or if they should fill the dimensions of the cell. The default is " { $link t } "."
|
|
$nl
|
|
"Grids are created by calling " { $link <grid> } " and children are managed with " { $link grid-add } " and " { $link grid-remove } "."
|
|
$nl
|
|
"The " { $link add-gadget } ", " { $link unparent } " and " { $link clear-gadget } " words should not be used to manage child gadgets of grids." } ;
|
|
|
|
HELP: <grid>
|
|
{ $values { "children" "a sequence of sequences of gadgets" } { "grid" "a new " { $link grid } } }
|
|
{ $description "Creates a new " { $link grid } " gadget with the given children." } ;
|
|
|
|
HELP: grid-child
|
|
{ $values { "grid" grid } { "i" "non-negative integer" } { "j" "non-negative integer" } { "gadget" gadget } }
|
|
{ $description "Outputs the child gadget at the " { $snippet "i" } "," { $snippet "j" } "th position of the grid." }
|
|
{ $errors "Throws an error if the indices are out of bounds." } ;
|
|
|
|
HELP: grid-add
|
|
{ $values { "gadget" gadget } { "grid" grid } { "i" "non-negative integer" } { "j" "non-negative integer" } }
|
|
{ $description "Adds a child gadget at the specified location." }
|
|
{ $side-effects "grid" } ;
|
|
|
|
HELP: grid-remove
|
|
{ $values { "grid" grid } { "i" "non-negative integer" } { "j" "non-negative integer" } }
|
|
{ $description "Removes a child gadget from the specified location." }
|
|
{ $side-effects "grid" } ;
|