Improved contents table in Inspector
parent
80307926f6
commit
f240f189e1
|
@ -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
|
||||
|
|
|
@ -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? ;
|
||||
|
||||
|
|
|
@ -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>> ;
|
||||
|
|
Loading…
Reference in New Issue