From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Fri, 20 Jul 2001 15:19:31 +0000 (+0000)
Subject: First version using maction/toggle to navigate proofs.
X-Git-Tag: v0_1_3~106
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=1fff0186531410297e970ba862947b2cbd539fb5;p=helm.git

First version using maction/toggle to navigate proofs.
---

diff --git a/helm/style/mmlextension.xsl b/helm/style/mmlextension.xsl
index 8566c9726..bb13c876e 100644
--- a/helm/style/mmlextension.xsl
+++ b/helm/style/mmlextension.xsl
@@ -44,6 +44,8 @@ which generates the toplevel element (see for instance xlink) -->
 
 <xsl:import href="mmltheoryextension.xsl"/>
 
+<xsl:param name="explodeall" select="false()"/>
+
 <!--***********************************************************************-->
 <!-- Parameter affecting line-breaking                                     -->
 <!--***********************************************************************-->
@@ -979,6 +981,23 @@ which generates the toplevel element (see for instance xlink) -->
       <!-- ***************************************** -->
       <!-- PROOF -->
       <xsl:when test="$name='proof'">
+       <m:maction actiontype="toggle">
+        <!-- CSC: next if until the annotationHelper can handle mactions -->
+        <xsl:if test="not($explodeall)">
+         <!-- Details hided (default) -->
+         <m:mrow>
+          <m:mtext mathcolor="Maroon">We&#x00a0;can&#x00a0;prove</m:mtext>
+          <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+          <xsl:apply-templates select="*[position()=3]"/>
+          <m:mrow>
+           <m:mphantom>
+            <m:mtext>_</m:mtext>
+           </m:mphantom>
+           <m:mtext mathcolor="Green">(explain)</m:mtext>
+          </m:mrow>
+         </m:mrow>
+        </xsl:if>
+        <!-- Show details -->
         <m:mtable align="baseline 1" equalrows="false" columnalign="left">
          <m:mtr>
           <m:mtd>
@@ -990,13 +1009,20 @@ which generates the toplevel element (see for instance xlink) -->
          <m:mtr>
           <m:mtd>
            <m:mrow>
-            <m:mtext mathcolor="Maroon">we proved </m:mtext>
+            <m:mtext mathcolor="Maroon">we&#x00a0;proved </m:mtext>
             <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
             <xsl:apply-templates select="*[position()=3]"/>
+            <m:mrow>
+             <m:mphantom>
+              <m:mtext>_</m:mtext>
+             </m:mphantom>
+             <m:mtext mathcolor="Green">(hide&#x00a0;details)</m:mtext>
+            </m:mrow>
            </m:mrow>
           </m:mtd>
          </m:mtr>
         </m:mtable>
+       </m:maction>
       </xsl:when>
       <!-- LETIN1 -->
       <xsl:when test="$name='letin1'">