Improved contents table in Inspector

db4
nicolas-p 2015-07-25 11:53:00 +02:00 committed by John Benediktsson
parent 80307926f6
commit f240f189e1
3 changed files with 4 additions and 4 deletions

View File

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

View File

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

View File

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