<gml-editor> ( -- gadget )

Vocabulary

gml.ui

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors euler.b-rep gml.runtime kernel models
ui.gadgets.editors ui.gadgets.frames ui.gadgets.grids ;

IN: gml.ui

: <gml-editor> ( -- gadget )
    2 3 gml-editor new-frame <gml> >>gml <b-rep> >>b-rep
    dup b-rep>> <model> >>b-rep-model
    dup gml>> operand-stack>> <model> >>stack-model
    { 20 20 } >>gap { 0 0 } >>filled-cell
    <source-editor> >>editor dup editor>> <editor-panel>
    { 0 0 } grid-add dup stack-model>> <stack-display>
    { 0 1 } grid-add <control-buttons> { 0 2 } grid-add
    <example-buttons> { 1 0 } grid-add ;