From 1ce733ef72920446a6f8d5e17c07ccb62b786809 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 16 Jul 2016 10:16:29 -0700
Subject: [PATCH] ui: some more dark theme polish.

---
 basis/ui/gadgets/slots/slots.factor | 4 ++--
 basis/ui/tools/deploy/deploy.factor | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

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