steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/gadgets/colors/colors.factor
View File

@ -13,6 +13,8 @@ CONSTANT: status-bar-foreground COLOR: white
CONSTANT: line-color COLOR: grey75 CONSTANT: line-color COLOR: grey75
CONSTANT: column-title-background COLOR: grey95
CONSTANT: source-files-color COLOR: NavajoWhite CONSTANT: source-files-color COLOR: NavajoWhite
CONSTANT: errors-color COLOR: chocolate1 CONSTANT: errors-color COLOR: chocolate1
CONSTANT: details-color COLOR: SlateGray2 CONSTANT: details-color COLOR: SlateGray2

4
basis/ui/gadgets/tables/tables.factor
View File

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

2
basis/ui/tools/inspector/inspector.factor
View File

@ -87,7 +87,7 @@ M: hashtable make-slot-descriptions
swap >>model swap >>model
dup model>> <inspector-table> >>table dup model>> <inspector-table> >>table
dup model>> <summary-gadget> margins white-interior "Object" object-color <labeled> f track-add 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* M: inspector-gadget focusable-child*
table>> ; table>> ;