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 classes io io.styles arrays hashtables math.order sorting refs fonts
ui.tools.browser ui.commands ui.operations ui.gadgets ui.gadgets.panes 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.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 ; ui.gadgets.labeled ui.tools.common ui combinators ui.gadgets.worlds ;
IN: ui.tools.inspector IN: ui.tools.inspector
@ -81,13 +82,12 @@ M: hashtable make-slot-descriptions
40 >>max-cols ; 40 >>max-cols ;
: <inspector-gadget> ( model -- gadget ) : <inspector-gadget> ( model -- gadget )
vertical inspector-gadget new-track vertical inspector-gadget new-track with-lines
{ 3 3 } >>gap
add-toolbar add-toolbar
swap >>model swap >>model
dup model>> <inspector-table> >>table dup model>> <inspector-table> >>table
dup model>> <summary-gadget> "Object" <labeled-gadget> f track-add dup model>> <summary-gadget> margins white-interior "Object" <labeled-gadget> f track-add
dup table>> <scroller> "Contents" <labeled-gadget> 1 track-add ; dup table>> <scroller> white-interior "Contents" <labeled-gadget> 1 track-add ;
M: inspector-gadget focusable-child* M: inspector-gadget focusable-child*
table>> ; table>> ;