Improved contents table in Inspector

diff --git a/basis/ui/gadgets/colors/colors.factor b/basis/ui/gadgets/colors/colors.factor
index 8d18322dbe05f10471b11e5c71a586ab52cd2d44..8a5447a3567f3d4b9617772a07da18f150bfef59 100644 (file)
--- a/basis/ui/gadgets/colors/colors.factor
+++ b/basis/ui/gadgets/colors/colors.factor
@@ -13,6 +13,8 @@ CONSTANT: status-bar-foreground COLOR: white
 
 CONSTANT: line-color COLOR: grey75
 
+CONSTANT: column-title-background COLOR: grey95
+
 CONSTANT: source-files-color COLOR: NavajoWhite
 CONSTANT: errors-color COLOR: chocolate1
 CONSTANT: details-color COLOR: SlateGray2

diff --git a/basis/ui/gadgets/tables/tables.factor b/basis/ui/gadgets/tables/tables.factor
index 8a88000de726fb11b0009ebefb8f28e745c795a0..a994b9ed8ca3d6722d43ab03d92766087d58a340 100644 (file)
--- a/basis/ui/gadgets/tables/tables.factor
+++ b/basis/ui/gadgets/tables/tables.factor
@@ -4,7 +4,7 @@ USING: accessors arrays colors colors.constants combinators
 combinators.short-circuit fonts fry kernel locals math
 math.functions math.order math.rectangles math.vectors models
 namespaces opengl sequences splitting strings ui.commands
-ui.gadgets ui.gadgets.line-support ui.gadgets.menus
+ui.gadgets ui.gadgets.colors ui.gadgets.line-support ui.gadgets.menus
 ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.worlds
 ui.gestures ui.images ui.pens.solid ui.render ui.text ;
 IN: ui.gadgets.tables
@@ -81,8 +81,6 @@ M: image-name draw-cell nip draw-image ;
 : column-offsets ( widths gap -- x xs )
     [ 0 ] dip '[ _ + + ] accumulate ;
 
-CONSTANT: column-title-background COLOR: light-gray
-
 : column-title-font ( font -- font' )
     column-title-background font-with-background t >>bold? ;
 

diff --git a/basis/ui/tools/inspector/inspector.factor b/basis/ui/tools/inspector/inspector.factor
index 04071798ad2f1742d2dd6bc60a0c03b5a00bd2c5..efd686cb3cad0331f2b0919874069528f38250a9 100644 (file)
--- a/basis/ui/tools/inspector/inspector.factor
+++ b/basis/ui/tools/inspector/inspector.factor
@@ -87,7 +87,7 @@ M: hashtable make-slot-descriptions
         swap >>model
         dup model>> <inspector-table> >>table
         dup model>> <summary-gadget> margins white-interior "Object" object-color <labeled> f track-add
-        dup table>> <scroller> white-interior "Contents" contents-color <labeled> 1 track-add ;
+        dup table>> <scroller> margins white-interior "Contents" contents-color <labeled> 1 track-add ;
 
 M: inspector-gadget focusable-child*
     table>> ;