From d25e53e582a794ea71ba2a1b6b76c9d7ec71be4d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 31 Jul 2022 11:37:21 -0500
Subject: [PATCH] ui.gadgets.search-tables: Fix background color of color-table

---
 basis/ui/gadgets/search-tables/search-tables.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/ui/gadgets/search-tables/search-tables.factor b/basis/ui/gadgets/search-tables/search-tables.factor
index 78c21ad2ab..437d2e05dd 100644
--- a/basis/ui/gadgets/search-tables/search-tables.factor
+++ b/basis/ui/gadgets/search-tables/search-tables.factor
@@ -32,6 +32,7 @@ TUPLE: search-field < track field ;
         { 5 5 } >>gap
         +baseline+ >>align
         swap <model-field> 10 >>min-cols "Search" >>default-text
+        white-interior
         [ >>field ] keep 1 track-add
         dup <clear-button> f track-add ;
 
@@ -53,7 +54,7 @@ M: search-field handle-gesture
         dup field>> { 2 2 } <filled-border> f track-add
         values search quot <string-search>
         renderer <table> f >>takes-focus? >>table
-        dup table>> <scroller> 1 track-add ; inline
+        dup table>> white-interior <scroller> 1 track-add ; inline
 
 M: search-table model-changed
     nip field>> clear-search-field ;
-- 
2.34.1