with-gml-editor ( gml-editor quot -- )


Vocabulary
gml.ui

Inputs
gml-editoran object
quotan object


Outputs
None

Definition
USING: accessors euler.b-rep gml kernel namespaces ;

IN: gml.ui

: with-gml-editor ( gml-editor quot -- )
[ [ [ gml>> gml set ] [ b-rep>> b-rep set ] bi ] ] dip
compose [ [ update-models ] bi ] curry with-scope ; inline