ui: use (poorly named) white-interior theme word in a few places.

diff --git a/basis/ui/gadgets/labeled/labeled.factor b/basis/ui/gadgets/labeled/labeled.factor
index f4392b8a783989287dc1c889dcba1b2ff63bf939..55ba11e59a6cd8468300d7037d88c7548a2b610e 100644 (file)
--- a/basis/ui/gadgets/labeled/labeled.factor
+++ b/basis/ui/gadgets/labeled/labeled.factor
@@ -60,7 +60,7 @@ PRIVATE>
     vertical <track>
     add-content
     { 5 5 } <border>
-    content-background <solid> >>interior
+    white-interior
     1 track-add
     labeled-border-color <solid> >>boundary
     { 3 3 } <border> ;

diff --git a/basis/ui/tools/browser/popups/popups.factor b/basis/ui/tools/browser/popups/popups.factor
index 63a961cbb6bc81c74964f1ad4aa30e043d6e39e1..5162cecfb98bd0a4ebd4d1d4dd8b74006c5c003f 100644 (file)
--- a/basis/ui/tools/browser/popups/popups.factor
+++ b/basis/ui/tools/browser/popups/popups.factor
@@ -1,11 +1,11 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs colors.constants
-definitions.icons fry help help.topics kernel math.rectangles
-models.arrow namespaces sequences tools.crossref ui.gadgets
-ui.gadgets.glass ui.gadgets.labeled ui.gadgets.search-tables
-ui.gadgets.tables ui.gadgets.wrappers ui.gestures ui.images
-ui.operations ui.pens.solid ui.theme ui.theme.images ;
+USING: accessors arrays assocs definitions.icons fry help
+help.topics kernel math.rectangles models.arrow namespaces
+sequences tools.crossref ui.gadgets ui.gadgets.glass
+ui.gadgets.labeled ui.gadgets.search-tables ui.gadgets.tables
+ui.gadgets.wrappers ui.gestures ui.images ui.operations ui.theme
+ui.tools.common ;
 FROM: ui.gadgets.wrappers => wrapper ;
 IN: ui.tools.browser.popups
 
@@ -32,7 +32,7 @@ TUPLE: links-popup < wrapper ;
         30 >>max-cols ;
 
 : <links-popup> ( model quot title -- gadget )
-    [ <links-table> content-background <solid> >>interior ] dip
+    [ <links-table> white-interior ] dip
     popup-color <labeled> links-popup new-wrapper ;
 
 links-popup H{

diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor
index 8054ed75e550568d085fbd665c6e4849249588fb..22910fd1ae38f115a95a8b779b5717069ba48f0c 100644 (file)
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@@ -150,7 +150,7 @@ GENERIC#: accept-completion-hook 1 ( item popup -- )
         dup '[ _ accept-completion ] >>action ;
 
 : <completion-scroller> ( completion-popup -- scroller )
-    table>> <scroller> content-background <solid> >>interior ;
+    table>> <scroller> white-interior ;
 
 : <completion-popup> ( interactor completion-mode -- popup )
     [ vertical completion-popup new-track ] 2dip