From 231ba5234e7da69526513531cd9d8d4de84d4e01 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 26 Jan 2009 18:08:54 -0600
Subject: [PATCH] Inspector can now invoke the primary operation

---
 basis/ui/tools/inspector/inspector.factor | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/basis/ui/tools/inspector/inspector.factor b/basis/ui/tools/inspector/inspector.factor
index 9191110fcd..4b4355f4c9 100644
--- a/basis/ui/tools/inspector/inspector.factor
+++ b/basis/ui/tools/inspector/inspector.factor
@@ -3,7 +3,7 @@
 USING: accessors inspector namespaces kernel models fry
 models.filter prettyprint sequences mirrors assocs classes
 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.gestures ui.gadgets.buttons ui.gadgets.tables
 ui.gadgets.status-bar ui.gadgets.theme ui.gadgets.labelled
@@ -51,8 +51,6 @@ M: inspector-renderer row-value
         ] tabular-output
     ] <pane-control> ;
 
-DEFER: inspector
-
 GENERIC: make-slot-descriptions ( obj -- seq )
 
 M: object make-slot-descriptions
@@ -63,7 +61,7 @@ M: hashtable make-slot-descriptions
 
 : <inspector-table> ( model -- table )
     [ make-slot-descriptions ] <filter> <table>
-        [ inspector ] >>action
+        [ dup primary-operation invoke-command ] >>action
         inspector-renderer >>renderer
         monospace-font >>font ;