ui.tools.inspector: rewrite <inspector-gadget>
parent
04cbc2cee3
commit
b0870bc55a
|
@ -16,12 +16,11 @@ TUPLE: inspector-gadget < track object pane ;
|
||||||
] with-pane ;
|
] with-pane ;
|
||||||
|
|
||||||
: <inspector-gadget> ( -- gadget )
|
: <inspector-gadget> ( -- gadget )
|
||||||
{ 0 1 } inspector-gadget new-track
|
{ 0 1 } inspector-gadget new-track
|
||||||
[
|
dup <toolbar> f track-add*
|
||||||
toolbar,
|
<pane> >>pane
|
||||||
<pane> g-> set-inspector-gadget-pane <scroller> 1 track,
|
dup pane>> <scroller> 1 track-add* ;
|
||||||
] make-gadget ;
|
|
||||||
|
|
||||||
: inspect-object ( obj mirror keys inspector -- )
|
: inspect-object ( obj mirror keys inspector -- )
|
||||||
2nip swap >>object refresh ;
|
2nip swap >>object refresh ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue