: control-value ( control -- value )
model>> value>> ;
-GENERIC: output-model ( gadget -- model )
-M: gadget output-model model>> ;
-
: set-control-value ( value control -- )
model>> set-model ;
USING: vocabs vocabs.loader ;
-"prettyprint" vocab [ "ui.gadgets.prettyprint" require ] when
\ No newline at end of file
+"prettyprint" vocab [ "ui.gadgets.prettyprint" require ] when