diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-10 18:35:06 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-10 18:35:06 +0000 |
commit | 6858036c6d12d77df2da9643b04f56733428be13 (patch) | |
tree | 6e2c0986dc71b88229084c9b112666d93b73a1c5 /ide/coqide_ui.ml | |
parent | 8de2295f3becd3aa7116c0710122efd63144b0ce (diff) |
Coqide Menubar integration in MacOS
Because of lablgtk issues, accel_maps can't be customized well on MacOS
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14180 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/coqide_ui.ml')
-rw-r--r-- | ide/coqide_ui.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ide/coqide_ui.ml b/ide/coqide_ui.ml index 0ea018fc4..d3543cf2c 100644 --- a/ide/coqide_ui.ml +++ b/ide/coqide_ui.ml @@ -38,7 +38,7 @@ let init () = <menuitem action='Ps' /> </menu> <menuitem action='Rehighlight' /> - <menuitem action='Quit' /> + %s </menu> <menu name='Edit' action='Edit'> <menuitem action='Undo' /> @@ -144,6 +144,7 @@ let init () = <toolitem action='Wizard' /> </toolbar> </ui>" + (if Gdk.Windowing.platform <> `QUARTZ then "<menuitem action='Quit' />" else "") (Buffer.contents (list_items "Tactic" Coq_commands.tactics)) (Buffer.contents (list_items "Template" Coq_commands.commands)) in |