USING: accessors eval kernel math.vectors parser prettyprint
refs sequences ui.commands ui.gadgets ui.gadgets.editors
ui.gadgets.scrollers ui.gadgets.toolbar ui.gadgets.tracks
-ui.gestures ;
+ui.gestures ui.tools.common ;
IN: ui.gadgets.slots
TUPLE: update-object ;
add-toolbar
<source-editor> >>text
dup text>> <scroller> 1 track-add
- dup revert ;
+ dup revert white-interior ;
M: slot-editor pref-dim* call-next-method { 600 200 } vmin ;
models.mapping sequences system accessors fry ui.gadgets ui.render
ui.gadgets.packs ui.gadgets.labels ui.gadgets.editors ui.gadgets.borders ui.gadgets.buttons ui.gadgets.toolbar ui.gestures ui.commands assocs
ui.gadgets.tracks ui ui.tools.listener ui.tools.browser
-ui.gadgets.worlds ;
+ui.tools.common ui.gadgets.worlds ;
IN: ui.tools.deploy
TUPLE: deploy-gadget < pack vocab settings ;
: deploy-tool ( vocab -- )
vocab-name
- [ <deploy-gadget> { 10 10 } <border> ]
+ [ <deploy-gadget> { 10 10 } <border> white-interior ]
[
<world-attributes>
swap "Deploying “" "”" surround >>title