From b352c0b72bb62f7b4a44952aebc01f405f6af817 Mon Sep 17 00:00:00 2001
From: matitaweb <claudio.sacerdoticoen@unibo.it>
Date: Thu, 8 Sep 2011 14:44:58 +0000
Subject: [PATCH] Matitaweb: Save as...

---
 matitaB/matita/index.html          | 3 ++-
 matitaB/matita/matitaFilesystem.ml | 2 +-
 matitaB/matita/matitaweb.js        | 8 ++++++--
 matitaB/matita/treeview/xmlTree.js | 2 +-
 4 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/matitaB/matita/index.html b/matitaB/matita/index.html
index cfaeddc40..e16fe6d15 100644
--- a/matitaB/matita/index.html
+++ b/matitaB/matita/index.html
@@ -27,8 +27,9 @@
                                                title="Execute the script until the current position of the cursor."></A>
 	   <A href="javascript:gotoBottom()"><IMG src="icons/bottom.png" 
 						  id="bottom" alt="Bottom" title="Execute the whole script."></A>
-	   <INPUT type="BUTTON" value="Browse library" id="showdialog" ONCLICK="showLibrary()">
+	   <INPUT type="BUTTON" value="Browse library" id="showdialog" ONCLICK="openDialog()">
 	   <INPUT type="BUTTON" value="Save" id="savebutton" ONCLICK="saveFile()">
+	   <INPUT type="BUTTON" value="Save as" id="savebutton" ONCLICK="saveDialog()">
 	   <INPUT type="BUTTON" value="Commit" id="commitbutton" ONCLICK="commitAll()"></p>
 <!--	   <INPUT type="BUTTON" value="show sequent" id="showseq" ONCLICK="showSequent()">
 	   <INPUT type="BUTTON" value="hide sequent" id="hideseq" ONCLICK="hideSequent()">
diff --git a/matitaB/matita/matitaFilesystem.ml b/matitaB/matita/matitaFilesystem.ml
index b6a26f98b..2686fff42 100644
--- a/matitaB/matita/matitaFilesystem.ml
+++ b/matitaB/matita/matitaFilesystem.ml
@@ -82,7 +82,7 @@ let html_of_library uid =
   in
   let leaf lpath =
     "<img src=\"treeview/doc.gif\"/>\n" ^
-    "<a href=\"javascript:void(0)\" onClick=\"selectFile('" ^ lpath ^ "')\" onDblClick=\"retrieveFile('" ^ lpath ^ "')\">" ^ 
+    "<a href=\"javascript:void(0)\" onClick=\"selectFile('" ^ lpath ^ "')\" onDblClick=\"dialogBox.callback('" ^ lpath ^ "')\">" ^ 
      (Filename.basename lpath) ^ "</a><br/>"
   in
 
diff --git a/matitaB/matita/matitaweb.js b/matitaB/matita/matitaweb.js
index 221ef90b5..48acfe13e 100644
--- a/matitaB/matita/matitaweb.js
+++ b/matitaB/matita/matitaweb.js
@@ -693,13 +693,17 @@ function openDialog()
 
 function saveDialog()
 {  
-	callback = function (fname) { saveFile(fname,false); };
+	callback = function (fname) { 
+	  dialogBox.style.display = "none";
+  	  current_fname = fname;
+          saveFile(fname,false); 
+        };
 	showLibrary("Save file as", callback);
 }
 
 function saveFile(fname,force)
 {
-        if (!is_defined(fname) {
+        if (!is_defined(fname)) {
             fname = current_fname;
         }
 	processor = function(xml) {
diff --git a/matitaB/matita/treeview/xmlTree.js b/matitaB/matita/treeview/xmlTree.js
index 181534859..c1a5c997f 100644
--- a/matitaB/matita/treeview/xmlTree.js
+++ b/matitaB/matita/treeview/xmlTree.js
@@ -29,5 +29,5 @@ function selectFile(path) {
 }
 
 function dialogOK() {
-          retrieveFile(document.getElementById("dialogFilename").value);
+          dialogBox.callback(document.getElementById("dialogFilename").value);
 }
-- 
2.39.2