From e7ce4eb69bdd9528c9a08a99f78d130f0ea59344 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Sat, 7 Oct 2006 20:33:36 +0000
Subject: [PATCH] Don't show operations menu on command presentations

---
 library/ui/gadgets/presentations.factor | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/library/ui/gadgets/presentations.factor b/library/ui/gadgets/presentations.factor
index 1a2a7d82f5..071866af7a 100644
--- 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