From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Tue, 21 Mar 2006 15:21:28 +0000 (+0000)
Subject: mock-up code for tactics contextual menu in the gui
X-Git-Tag: 0.4.95@7852~1580
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=5da71ef0e78fd5d7faf26b14e823e33f1e7c9f53;p=helm.git

mock-up code for tactics contextual menu in the gui
---

diff --git a/matita/matitaMathView.ml b/matita/matitaMathView.ml
index 1d636ef8b..746ef8ffa 100644
--- a/matita/matitaMathView.ml
+++ b/matita/matitaMathView.ml
@@ -268,9 +268,13 @@ object (self)
       GMenu.image_menu_item ?stock ?label ~packing:menu#append () in
     let check = add_menu_item ~label:"Check" () in
     let reductions_menu_item = GMenu.menu_item ~label:"βδιζ-reduce" () in
+    let tactics_menu_item = GMenu.menu_item ~label:"Apply tactic" () in
     menu#append reductions_menu_item;
+    menu#append tactics_menu_item;
     let reductions = GMenu.menu () in
+    let tactics = GMenu.menu () in
     reductions_menu_item#set_submenu reductions;
+    tactics_menu_item#set_submenu tactics;
     let normalize = add_menu_item ~menu:reductions ~label:"Normalize" () in
     let reduce = add_menu_item ~menu:reductions ~label:"Reduce" () in
     let simplify = add_menu_item ~menu:reductions ~label:"Simplify" () in