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

Inspector can now invoke the primary operation

db4
Slava Pestov 2009-01-26 18:08:54 -06:00
parent b12d53938d
commit 231ba5234e
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,7 +3,7 @@
USING: accessors inspector namespaces kernel models fry USING: accessors inspector namespaces kernel models fry
models.filter prettyprint sequences mirrors assocs classes models.filter prettyprint sequences mirrors assocs classes
io io.styles arrays hashtables math.order sorting refs io io.styles arrays hashtables math.order sorting refs
ui.tools.browser ui.commands 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.gadgets.scrollers ui.gadgets.slots ui.gadgets.tracks
ui.gestures ui.gadgets.buttons ui.gadgets.tables ui.gestures ui.gadgets.buttons ui.gadgets.tables
ui.gadgets.status-bar ui.gadgets.theme ui.gadgets.labelled ui.gadgets.status-bar ui.gadgets.theme ui.gadgets.labelled
@ -51,8 +51,6 @@ M: inspector-renderer row-value
] tabular-output ] tabular-output
] <pane-control> ; ] <pane-control> ;
DEFER: inspector
GENERIC: make-slot-descriptions ( obj -- seq ) GENERIC: make-slot-descriptions ( obj -- seq )
M: object make-slot-descriptions M: object make-slot-descriptions
@ -63,7 +61,7 @@ M: hashtable make-slot-descriptions
: <inspector-table> ( model -- table ) : <inspector-table> ( model -- table )
[ make-slot-descriptions ] <filter> <table> [ make-slot-descriptions ] <filter> <table>
[ inspector ] >>action [ dup primary-operation invoke-command ] >>action
inspector-renderer >>renderer inspector-renderer >>renderer
monospace-font >>font ; monospace-font >>font ;