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: make_still_working~7482
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=03c043e90b44ebdd81bb2990db0a247b5c72689a;p=helm.git

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

diff --git a/helm/software/matita/matitaMathView.ml b/helm/software/matita/matitaMathView.ml
index 1d636ef8b..746ef8ffa 100644
--- a/helm/software/matita/matitaMathView.ml
+++ b/helm/software/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