Don't show operations menu on command presentations
parent
bfa5b80f57
commit
e7ce4eb69b
|
@ -30,9 +30,13 @@ C: presentation ( button object command -- button )
|
||||||
make-pile 1 over set-pack-fill ;
|
make-pile 1 over set-pack-fill ;
|
||||||
|
|
||||||
: operations-menu ( presentation -- gadget )
|
: operations-menu ( presentation -- gadget )
|
||||||
dup presentation-object
|
dup presentation-command [
|
||||||
dup object-operations <commands-menu>
|
drop
|
||||||
swap show-menu ;
|
] [
|
||||||
|
dup presentation-object
|
||||||
|
dup object-operations <commands-menu>
|
||||||
|
swap show-menu
|
||||||
|
] if ;
|
||||||
|
|
||||||
: invoke-presentation ( presentation -- )
|
: invoke-presentation ( presentation -- )
|
||||||
dup presentation-object swap presentation-command
|
dup presentation-object swap presentation-command
|
||||||
|
|
Loading…
Reference in New Issue