Commit 5d99335c authored by MARCHE Claude's avatar MARCHE Claude

Help menu in GTK IDE

parent 81ec7577
......@@ -1093,6 +1093,29 @@ let treat_notification n =
()
(*************)
(* Help menu *)
(*************)
let help_menu = factory#add_submenu "_Help"
let help_factory = new GMenu.factory help_menu ~accel_group
let (_ : GMenu.image_menu_item) =
help_factory#add_image_item
~label:"Legend"
~callback:show_legend_window
()
let (_ : GMenu.image_menu_item) =
help_factory#add_image_item
~label:"About"
~callback:show_about_window
()
(***********************)
(* start the interface *)
(***********************)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment