diff --git a/basis/ui/tools/inspector/inspector.factor b/basis/ui/tools/inspector/inspector.factor index 2f27755483..cb8ec1a30d 100644 --- a/basis/ui/tools/inspector/inspector.factor +++ b/basis/ui/tools/inspector/inspector.factor @@ -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 ; : ( model -- gadget ) - vertical inspector-gadget new-track - { 3 3 } >>gap + vertical inspector-gadget new-track with-lines add-toolbar swap >>model dup model>> >>table - dup model>> "Object" f track-add - dup table>> "Contents" 1 track-add ; + dup model>> margins white-interior "Object" f track-add + dup table>> white-interior "Contents" 1 track-add ; M: inspector-gadget focusable-child* table>> ;