blob: a08bac5772b32a66a9e4e9bc48f2b960ae213538 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
(************************************************************************)
(* * The Coq Proof Assistant / The Coq Development Team *)
(* v * INRIA, CNRS and contributors - Copyright 1999-2018 *)
(* <O___,, * (see CREDITS file for the list of authors) *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(* * (see LICENSE file for the text of the license) *)
(************************************************************************)
let osx = GosxApplication.osxapplication ()
let () =
let _ = osx#connect#ns_application_open_file
~callback:(fun x -> Coqide.do_load x; true)
in
let _ = osx#connect#ns_application_block_termination
~callback:Coqide.forbid_quit
in
let _ = osx#connect#ns_application_will_terminate
~callback:Coqide.close_and_quit
in ()
let init () =
let () = GtkosxApplication.Application.set_menu_bar osx#as_osxapplication
(GtkMenu.MenuShell.cast
(Coqide_ui.ui_m#get_widget "/CoqIde MenuBar")#as_widget)
in
let () = GtkosxApplication.Application.insert_app_menu_item
osx#as_osxapplication
(Coqide_ui.ui_m#get_widget "/CoqIde MenuBar/Edit/Prefs")#as_widget 1
in
let () = GtkosxApplication.Application.set_help_menu osx#as_osxapplication
(Some (GtkMenu.MenuItem.cast
(Coqide_ui.ui_m#get_widget "/CoqIde MenuBar/Help")#as_widget))
in
osx#ready ()
|
