Handbook
Glossary
<frames-section> ( -- gadget )
Vocabulary
ui-demo
Inputs
None
Outputs
gadget
an
object
Definition
USING:
accessors
colors
ui.gadgets
ui.gadgets.borders
ui.gadgets.frames
ui.gadgets.grids
;
IN:
ui-demo
:
<frames-section>
( -- gadget )
<section>
"A frame is a grid with one filled cell, which soaks up all th..."
<prose>
add-gadget
3 3
<frame>
{
1 1
}
>>filled-cell
{
4 4
}
>>gap
COLOR:
DodgerBlue
{
60 24
}
<color-box>
{
1 0
}
grid-add
COLOR:
DodgerBlue
{
60 24
}
<color-box>
{
1 2
}
grid-add
COLOR:
MediumSeaGreen
{
24 60
}
<color-box>
{
0 1
}
grid-add
COLOR:
MediumSeaGreen
{
24 60
}
<color-box>
{
2 1
}
grid-add
COLOR:
chocolate1
{
0 0
}
<color-box>
{
1 1
}
grid-add
{
0 0
}
<filled-border>
{
0 180
}
>>min-dim
add-gadget
"The orange cell is the one { 1 1 } >>filled-cell names."
<note>
add-gadget
<page>
;