diff --git a/extra/ui/tools/inspector/inspector.factor b/extra/ui/tools/inspector/inspector.factor index 1d17de7237..8c92567fe5 100644 --- a/extra/ui/tools/inspector/inspector.factor +++ b/extra/ui/tools/inspector/inspector.factor @@ -16,12 +16,11 @@ TUPLE: inspector-gadget < track object pane ; ] with-pane ; : ( -- gadget ) - { 0 1 } inspector-gadget new-track - [ - toolbar, - g-> set-inspector-gadget-pane 1 track, - ] make-gadget ; - + { 0 1 } inspector-gadget new-track + dup f track-add* + >>pane + dup pane>> 1 track-add* ; + : inspect-object ( obj mirror keys inspector -- ) 2nip swap >>object refresh ;