diff --git a/basis/ui/gadgets/slots/slots.factor b/basis/ui/gadgets/slots/slots.factor index 4cfaa5079d..9bef311a7e 100644 --- a/basis/ui/gadgets/slots/slots.factor +++ b/basis/ui/gadgets/slots/slots.factor @@ -3,7 +3,7 @@ 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 ; @@ -68,7 +68,7 @@ TUPLE: slot-editor < track ref close-hook update-hook text ; 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 ; diff --git a/basis/ui/tools/deploy/deploy.factor b/basis/ui/tools/deploy/deploy.factor index b583bda7dd..5405063813 100644 --- a/basis/ui/tools/deploy/deploy.factor +++ b/basis/ui/tools/deploy/deploy.factor @@ -5,7 +5,7 @@ tools.deploy.config.editor tools.deploy vocabs namespaces 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 ; @@ -110,7 +110,7 @@ deploy-gadget "toolbar" f { : deploy-tool ( vocab -- ) vocab-name - [ <deploy-gadget> { 10 10 } <border> ] + [ <deploy-gadget> { 10 10 } <border> white-interior ] [ <world-attributes> swap "Deploying “" "”" surround >>title