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()">
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
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) {
}\r
\r
function dialogOK() {\r
- retrieveFile(document.getElementById("dialogFilename").value);\r
+ dialogBox.callback(document.getElementById("dialogFilename").value);\r
}\r