Don't show operations menu on command presentations

2006-10-07 20:33:36 +00:00 · 2006-10-07 20:33:36 +00:00 · e7ce4eb69b
parent bfa5b80f57
commit e7ce4eb69b
1 changed files with 7 additions and 3 deletions
--- 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-command [
+        drop
+    ] [
        dup presentation-object
        dup object-operations <commands-menu>
-    swap show-menu ;
+        swap show-menu
+    ] if ;

 : invoke-presentation ( presentation -- )
    dup presentation-object swap presentation-command