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

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> ;

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{

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