From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Fri, 3 Nov 2000 12:19:43 +0000 (+0000)
Subject: The interface sorts the entryes in the trees
X-Git-Tag: nogzip~216
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=413a5e0b1fde6296a09a6651cef7948bc408c6e4;p=helm.git

The interface sorts the entryes in the trees
---

diff --git a/helm/interface/Makefile b/helm/interface/Makefile
index 2b892e2d9..981454830 100644
--- a/helm/interface/Makefile
+++ b/helm/interface/Makefile
@@ -169,6 +169,13 @@ start-xaland:
            examples/style/annotatedpres.xsl examples/style/theory_content.xsl \
            examples/style/theory_pres.xsl
 
+start-xaland-old:
+	java xaland 12345 12346 \
+         examples/style/style_prima_del_linguaggio_naturale/rootcontent.xsl \
+         examples/style/style_prima_del_linguaggio_naturale/annotatedpres.xsl \
+         examples/style/style_prima_del_linguaggio_naturale/theory_content.xsl \
+         examples/style/style_prima_del_linguaggio_naturale/theory_pres.xsl
+
 start-xaland3:
 	java xaland 12347 12348 examples/style/rootcontent.xsl \
            examples/style/annotatedpres.xsl examples/style/theory_content.xsl \
diff --git a/helm/interface/mmlinterface.ml b/helm/interface/mmlinterface.ml
index 76f6e5a78..d364ffe4b 100755
--- a/helm/interface/mmlinterface.ml
+++ b/helm/interface/mmlinterface.ml
@@ -385,7 +385,7 @@ let mktree selection_changed rendering_window =
              ignore(treeitem2#connect#select
               (selection_changed rendering_window uri)) ;
              aux treeitem2 ti
-         ) !content
+         ) (List.sort compare !content)
    | _ -> ()
  in
   aux