Don't show operations menu on command presentations

diff --git a/library/ui/gadgets/presentations.factor b/library/ui/gadgets/presentations.factor
index 1a2a7d82f5b54ebc5325ee01ec74047d5b317805..071866af7a8925b1742dd7c294733332f35eabfa 100644 (file)
--- a/library/ui/gadgets/presentations.factor
+++ b/library/ui/gadgets/presentations.factor
@@ -30,9 +30,13 @@ C: presentation ( button object command -- button )
     make-pile 1 over set-pack-fill ;
 
 : operations-menu ( presentation -- gadget )
-    dup presentation-object
-    dup object-operations <commands-menu>
-    swap show-menu ;
+    dup presentation-command [
+        drop
+    ] [
+        dup presentation-object
+        dup object-operations <commands-menu>
+        swap show-menu
+    ] if ;
 
 : invoke-presentation ( presentation -- )
     dup presentation-object swap presentation-command