ui.gadgets.table: mouse-color uses theme.

diff --git a/basis/ui/gadgets/tables/tables.factor b/basis/ui/gadgets/tables/tables.factor
index 58252100ef9d36c5631daf5ce67a63c456b3669b..88f1e8476e0b7b7e4c63e9813c11cd99a3ceb640 100644 (file)
--- a/basis/ui/gadgets/tables/tables.factor
+++ b/basis/ui/gadgets/tables/tables.factor
@@ -40,7 +40,7 @@ single-click?
 { gap initial: 2 }
 column-widths total-width
 focus-border-color
-{ mouse-color initial: COLOR: black }
+mouse-color
 column-line-color
 selection-required?
 selection-index
@@ -142,7 +142,7 @@ M: table layout*
 
 : draw-moused-row ( table -- )
     dup mouse-index>> [
-        dup mouse-color>> gl-color
+        dup mouse-color>> [ text-color ] unless* gl-color
         dup mouse-index>> row-bounds gl-rect
     ] [ drop ] if ;