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

New inspector

db4
nicolas-p 2015-07-21 21:11:42 +02:00 committed by John Benediktsson
parent 30091bee91
commit c195efbdff
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,8 @@ colors.constants models.arrow prettyprint sequences mirrors assocs
classes io io.styles arrays hashtables math.order sorting refs fonts
ui.tools.browser ui.commands ui.operations ui.gadgets ui.gadgets.panes
ui.gadgets.scrollers ui.gadgets.slots ui.gadgets.tracks ui.gestures
ui.gadgets.buttons ui.gadgets.tables ui.gadgets.status-bar
ui.gadgets.buttons ui.gadgets.lines ui.gadgets.tables
ui.gadgets.toolbar ui.gadgets.status-bar
ui.gadgets.labeled ui.tools.common ui combinators ui.gadgets.worlds ;
IN: ui.tools.inspector
@ -81,13 +82,12 @@ M: hashtable make-slot-descriptions
40 >>max-cols ;
: <inspector-gadget> ( model -- gadget )
vertical inspector-gadget new-track
{ 3 3 } >>gap
vertical inspector-gadget new-track with-lines
add-toolbar
swap >>model
dup model>> <inspector-table> >>table
dup model>> <summary-gadget> "Object" <labeled-gadget> f track-add
dup table>> <scroller> "Contents" <labeled-gadget> 1 track-add ;
dup model>> <summary-gadget> margins white-interior "Object" <labeled-gadget> f track-add
dup table>> <scroller> white-interior "Contents" <labeled-gadget> 1 track-add ;
M: inspector-gadget focusable-child*
table>> ;